%
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")
%>
为什么时时越赌越输