<%@Language="vbscript" codepage="65001"%>
<%
Application.Lock
Application("count")=Application("count")+1
Application.Unlock
%>
<%
web_name="tufos"
web_id2="jnvdgoukcsef"
web_id="tufos"
web_title="飛碟 台灣外星人 麥田圈 科普 靈異 未解之謎 古文明"
web_name="台灣飛碟頻道"
web_description="台灣飛碟外星人論壇,一個讓大家同共參與的分享平台,外星人,飛碟,麥田圈,科普,靈異,未解之謎,古文明,都是我們分享的方向."
web_url="http://ufo.ikh.tw/"
rid=chkstr(request("id"))
rcl=chkstr(request("cl"))
pn=chkstr(request("pn"))
rkw=chkstr(request("kw"))
og_img=web_url+"img/fb.jpg"
if rid="tv00nc0j22247q" then response.redirect "http://ikh.tw/hrufo"
if left(rid,2)="tv" then
rid=replace(rid,"tv","")
pn="vw"
end if
%>
<%
function chkstr(fs1)
'fs1=server.htmlencode(fs1)
fs1=replace(fs1,chr(32),"")
fs1=replace(fs1,chr(33),"")
fs1=replace(fs1,chr(34),"")
fs1=replace(fs1,chr(35),"")
fs1=replace(fs1,chr(36),"")
fs1=replace(fs1,chr(37),"")
'fs1=replace(fs1,chr(37),"")
'fs1=replace(fs1,chr(38),"")
'fs1=replace(fs1,chr(39),"")
fs1=replace(fs1,chr(40),"")
fs1=replace(fs1,chr(41),"")
fs1=replace(fs1,chr(42),"")
'fs1=replace(fs1,chr(47),"")
'fs1=replace(fs1,chr(60),"")
'fs1=replace(fs1,chr(62),"")
'fs1=replace(fs1,chr(64),"")
fs1=replace(fs1,chr(13)&chr(10),"")
chkstr=fs1
end function
Function stripTags( strToStrip )
Dim objRegExp
strToStrip = Trim( strToStrip & "" )
If Len( strToStrip ) > 0 Then
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern= "<[^>]+>"
strToStrip = objRegExp.Replace(strToStrip, "")
Set objRegExp = Nothing
End If
stripTags = strToStrip
End Function
%>
<%
if len(rid)=12 then
sqlt="select top 1 subject ,u21 ,owner_site , pic1 ,contents from theme_data where del='0' and id2='"& rid &"'"
set rst=conn.execute(sqlt)
if not rst.eof then
subject=rst("subject")
u21=trim(rst("u21"))
owner_site=rst("owner_site")
pic1=rst("pic1")
contents=stripTags(rst("contents"))
contents=replace(contents,chr(13)&chr(10),"")
contents=replace(contents,"#p1","")
contents=replace(contents,"#p2","")
contents=replace(contents,"#p3","")
contents=replace(contents,"#p4","")
contents=replace(contents,"#p5","")
contents=replace(contents,"#p6","")
contents=left(trim(contents),120)+" ... "
web_title=""+subject+"【台灣飛碟頻道】"
web_description=contents
og_img="https://img.ikh.tw/ufo/"+pic1
if owner_site="share" then og_img="https://img.ikh.tw/share/t_share_"+rid+"_1.jpg"
if len(u21)>8 then og_img="http://i1.ytimg.com/vi/"+u21+"/hqdefault.jpg"
end if
end if
url_st=""
if pn<>"" then url_st="?pn="+pn
if rid<>"" then url_st=url_st+"&id="+rid
url_google=web_url+url_st
url_twitter=web_url+url_st
url_line=web_url+url_st
url_weibo="?title="+subject+"&url="+web_url+url_st
%>
<%
ss="
"
sharebar=ss
%>
<%
ss=""
ss=ss+""
ss=ss+""+web_title+""
ss=ss+""
ss=ss+""
ss=ss+""
ss=ss+""
ss=ss+""
ss=ss+" "
ss=ss+""
ss=ss+""
ss=ss+""
ss=ss+""
ss=ss+""
ss=ss+""
ss=ss+""
head_str=ss
%>
<%=head_str%>
<%select case pn%>
<%case "vw"%>
<%case "list"%>
<%case "news"%>
<%case else%>
<%end select%>
<%
select case cstr(second(now) mod 30)
case "0"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=k30kc2o8fe94"
case "1"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=oq80k6x7ba0h"
case "2"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=1b20gj76xddv"
case "3"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=404203st2mu3"
case "4"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=psb503n683v3"
case "5"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=xl967z91xti7"
case "6"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=6e5qal8e5vt2"
case "7"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=n9cow824k4l7"
case "8"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=74ky6jr12b2t"
case "9"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=456115cp245h"
case "10"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=05s54lg3q7j1"
case "11"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=05s54lg3q7j1"
case "12"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=56yf88ej67zd"
case "13"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=416k926s4vd8"
case "14"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=ueo38f03y77z"
case "15"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=59148q67g45i"
case "16"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=kzww2v4p2f47"
case "17"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=pv8gjze3az74"
case "18"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=16053y5pz8fw"
case "19"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=m465wkpv0069"
case "20"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=uajr722jt8kq"
case "21"
ttt="http://ikh.tw/mamigo/?pn=pvw&id=5625lvmcd0kh"
case else
ttt="http://shop.ikh.tw/"
end select
%>