<% @ Language=VBScript CodePage=65001%> <% Session.CodePage = 65001 response.charset="utf-8"%> <% 'url=Request.Servervariables("http_referer") 'url=Request.Servervariables("http_host") show = Request("show") response.write("") 'if url="http://world2.gamfr.com/" then if show <> "taiwan" then response.write("") end if 'http://world2.gamfr.com/ %> <% Place_Name=reqdata2(request("subject")) '抓取摩天樓來源 if Place_Name = "" then response.Write("顯示錯誤!來源不明") end if subject=Place_Name&"+" sql_banner10="SELECT * FROM Index_Banner WHERE Category = 10 AND Index_Banner.Show = 'Y' AND SDate < SYSDATE() AND EDate > SYSDATE() + INTERVAL -1 DAY AND Subject LIKE '%" & subject & "%' ORDER BY RAND() LIMIT 1" Set rs_banner10 = conn.Execute( sql_banner10 ) if not(rs_banner10.bof and rs_banner10.eof) then%>
" target="_blank">" alt="<%=replace(rs_banner10("Subject"),subject,"")%>" width="435" height="195" border="0" />
<%end if rs_banner10.Close Set rs_banner10 = Nothing%>