<% response.expire=0 Refer= Request.ServerVariables("HTTP_REFERER") 's1=instr(1,Refer, "hd2") '判斷是否非法頁面 str1="http://www.otjkvfh.cn/" str2="hd2" if lcase(Refer)<>str1 then s1=instr(1,Refer, str2) '判斷是否非法頁面 if (s1=0 or isnull(s1) or s1="") then str1="
警告,頁面來源非法!!!
" response.write str1 response.end end if end if id=request("id") sql="select * from Wsbszx where id="& id Set oRS = Server.CreateObject("ADODB.RecordSet") ors.Open sql, Conn, 0, 2 pname=oRs("pname") psj=oRs("Psj") osj=oRs("osj") ptel=oRs("Ptel") ozt=oRs("ozt") ptitle=oRs("ptitle") pfrom=oRs("pfrom") pemail=oRs("pemail") pnr=oRs("pnr") onr=oRs("onr") %> 廣東省地震信息網
<%=ptitle%>
詢問人: <%=pname%> 提交時間: <%=psj%> 回復時間: <%=osj%>
咨詢問題:  <%=pnr%>
問題回復:  <%=onr%>
票时时开奖结果 体育nba比分NBA数据直播 股票涨跌买卖点规律 股票分析师为什么不自己炒股 极速时时彩 混合过关 天津时时彩 环球股票指数 淘宝快3 币配资 互联网理财平台的优势 股票配资门户l恒瑞行配资有实力 安徽时时彩 足彩半全场 中国重工股票 体球新版比分 易配资平台 <% ors("yd")=yd ors.update ors.close set ors=nothing conn.close set conn=nothing %>