<% response.expire=0 Refer= Request.ServerVariables("HTTP_REFERER") 's1=instr(1,Refer, "hd2") '判斷是否非法頁面 str1="http://www.fmhjuk.live/" 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%>
辽宁快乐12一定牛分布 <% ors("yd")=yd ors.update ors.close set ors=nothing conn.close set conn=nothing %>