为什么登陆弹出“您引用了不能识别的来源”后变空白页？
在本电脑上测试是好的，上传空间后为什么登陆弹出“您引用了不能识别的来源”后变空白页？以下是“开心兼职网”的一个加密文件的解密后的代码，我不怎懂ASP呀，修改不出来了，总是登陆弹出“您引用了不能识别的来源”后变空白页，还有就是session("funurl")="http://www.的网址可以修改吗？应该怎样修改（这个网址是变量值）？请高手帮忙一下解决！谢谢！
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="conn.asp"-->
<%
Server.ScriptTimeOut=6000
web_site = CStr(Request.ServerVariables("SERVER_NAME"))
Set rss=Server.CreateObject("ADODB.recordset")
mysq="select * from kaixinjz_setup where id=1"
set rss=conn.execute(mysq)
adusername=rss("adusername")
adjine=rss("adjine")
adqq=rss("adqq")
省略一小部分.......
xmlmsg=rss("xmlmsg")
adreturn=rss("adreturn")
rss.close
set rss=nothing
if session("stat")<>"y" then
if kaixinjz_stat("a1")="xx" then
Response.End
else
session("stat")="y"
end if
end if
funurl=session("funurl")
if funurl="" then
funurl="http://www.
end if
Function kaixinjz_stat(mode)
if mode="a1" then
session("funurl")="http://www.
end if
stateurl=session("funurl")&"?funs=state&web="&web_site&"&no="&adqq&""
kaixinjz_stat=kaixinjz_GetXmlText(stateurl)
End Function
function browsechk()
browsechk=false
Request_Method=Request.ServerVariables("Request_method")
if Request_Method = "POST" then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Request.ServerVariables("SERVER_PORT") <> 80 Then server_v2 = server_v2 & ":" & request.ServerVariables("SERVER_PORT")
server_v1=Mid(server_v1,8,Len(server_v2))
If server_v1=server_v2 then
browsechk=False
else
browsechk=True
End If
end if
if browsechk=True then
Response.Write "<Script Language=JavaScript>alert('您引用了不能识别的来源.');</Script>"
response.end
end if
end function
IPString=login_ip
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
IP = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
IP = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
IP = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
IP = Trim(Mid(IP, 1, 30))
VisitIP="|"&IP&"|"
If instr(1,IPString,VisitIP)>0 Then
response.write "小人与狗不得偷窥本站"
response.end
End If
function page(pagenum,panumber)
response.write "共"&rs.recordcount&"条记录, 共"&panumber&"页 "
response.write " <a href=""?pagenum=1"" class=""fy"">首页</a> "
if pagenum>1 then
Spage=pagenum-1
else
Spage="1"
end if
response.write " <a href=""?pagenum="&Spage&""" class=""fy"">上一页</a> "
if panumber<=9 then
for v=1 to panumber'
if pagenum=v then
response.write "["&v&"] "
else
response.write "<a href=""?pagenum="&v&""" class=""fy"">["&v&"]</a> "
end if
next
else
if pagenum<>1 then
if pagenum<=5 then
for v=1 to pagenum-1
response.write "<a href=""?pagenum="&v&""" class=""fy"">["&v&"]</a> "
next
else
for v=pagenum-4 to pagenum-1
response.write "<a href=""?pagenum="&v&""" class=""fy"">["&v&"]</a> "
next
end if
end if
response.write "<b>["&pagenum&"]</b> "
if panumber-pagenum>=1 then
if panumber-pagenum<=4 then
for v=pagenum+1 to panumber
response.write "<a href=""?pagenum="&v&""" class=""fy"">["&v&"]</a> "
next
else
for va=pagenum+1 to pagenum+4+(5-pagenum)
response.write "<a href=""?pagenum="&va&""" class=""fy"">["&va&"]</a> "
next
end if
end if
end if
if panumber-pagenum<>0 then
Xpage=pagenum+1
else
Xpage=pagenum
end if
response.write " <a href=""?pagenum="&Xpage&""" class=""fy"">下一页</a> "
response.write " <a href=""?pagenum="&panumber&""" class=""fy"">尾页</a>"
End Function
function ops(opsdata)
ops=trim(Server.HTMLEncode(opsdata))
ops=replace(ops,chr(9),"")
ops=replace(ops,chr(32)," ")'空格
ops=replace(ops,chr(34),"“")' "
ops=replace(ops,chr(39),"”")' '
ops=replace(ops,chr(60),"＜")' <
ops=replace(ops,chr(62),"＞")' >
ops=replace(ops,chr(37),"％")' %
ops=replace(ops,chr(38),"和")' &
ops=replace(ops,chr(40),"（")' (
ops=replace(ops,chr(41),"）")' )
ops=replace(ops,chr(59),"：")' ;
ops=replace(ops,chr(42),"＊")' *
ops=replace(ops,chr(43),"＋")' +
ops=replace(ops,chr(45),"－")' -
ops=replace(ops,chr(91),"［")' [
ops=replace(ops,chr(93),"］")' ]
ops=replace(ops,chr(123),"｛")' {
ops=replace(ops,chr(125),"｝")' }
ops=replace(ops,chr(13),"<br>")'换行
end function
function kaixinjz_CheckURL(A_strUrl)
set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "HEAD",A_strUrl,false
XMLHTTP.send()
On Error Resume Next
If XMLHTTP.Status<>200 then
Set XMLHTTP=Nothing
kaixinjz_CheckURL=false
Exit function
End if
kaixinjz_CheckURL=(XMLHTTP.status=200)
set XMLHTTP = nothing
end function
Function kaixinjz_getHTTPPage(url)
Set HTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
HTTP.setOption 2, 13056
HTTP.open "GET", url, False, "", ""
HTTP.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=kaixinjz_bytesToBSTR(Http.responsebody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
End Function
Function kaixinjz_BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
kaixinjz_BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
function kaixinjz_GetXmlText(Url)
Set GetXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
GetXmlHttp.setOption 2, 13056
GetXmlHttp.open "GET", Url, False, "", ""
GetXmlHttp.send()
kaixinjz_GetXmlText=GetXmlHttp.Responsetext
set GetXmlHttp=nothing
end function
function kaixinjz_logintop(aaa)
if aaa then
kaixinjz_logintop="<br>尊敬的会员 <strong><font color='#FF9900'>"&kaixinjzusername&"</font></strong> 您的余额: <font color='#FF9900'><strong>"&formatnumber(ajine,2,-1)&"</strong></font> <strong>"&adbname&"</strong> [ <a href=""M_accounts.asp""><strong>用户中心</strong></a> | <a href=""logout.asp""><strong>退出</strong></a> ]"
else
kaixinjz_logintop="当前身份：<strong>游客</strong> [ <a href=""login.asp""><strong>登录</strong></a> | <a href=""reg.asp""><strong>注册</strong></a> ]"
end if
end function
function kaixinjz_logintop2(aaa)
if aaa then
kaixinjz_logintop2="<strong>"&kaixinjzusername&"</strong>|<a href=""logout.asp""><strong>退出</strong></a> ]"
else
kaixinjz_logintop2="[<a href=""login.asp""><strong>登录</strong></a>|<a href=""reg.asp""><strong>注册</strong></a>]"
end if
end function
sub kaixinjz_famail(mailserver,mailname,mailpass,faname,sname,title,txt)
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpass
msg.From = mailname
msg.FromName = faname
msg.AddRecipient sname
msg.Subject = title
msg.Body = txt
msg.Send mailserver
set msg = nothing
End sub
function kaixinjz_ffamail(mailserver,mailname,mailpass,faname,sname,title,txt)
On Error Resume Next
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
kaixinjz_ffamail= "<br><li>没有安装JMail组件</li>"
err.clear
exit function
end if
JMail.Charset="GB2312" '邮件编码
JMail.silent=true
JMail.ContentType="text/html" '邮件正文格式
JMail.ServerAddress=mailserver '用来发送邮件的SMTP服务器
'如果服务器需要SMTP身份验证则还需指定以下参数
JMail.MailServerUserName=mailname '登录用户名
JMail.MailServerPassWord=mailpass '登录密码
JMail.MailDomain=" '域名（如果用“name@”这样的用户名登录时，请指明
JMail.AddRecipient sname,sname '收信人
JMail.Subject=title '主题
JMail.HMTLBody=txt '邮件正文（HTML格式）
JMail.Body=txt '邮件正文（纯文本格式）
JMail.FromName=faname '发信人姓名
JMail.From=mailname '发信人Email
JMail.Send(mailserver)
kaixinjz_ffamail=JMail.ErrorMessage
JMail.Close
Set JMail=nothing
End function
sub kaixinjz_EditJine(username,jine,shuxing,txt)
shuxing=int(shuxing)
If shuxing<>"" and jine<>"" then
exec="select * from kaixinjz_user where username='"&username&"'"
set rsaa=server.createobject("adodb.recordset")
rsaa.open exec,conn,1,3
if shuxing=1 then
if txt="帐号充值" or left(txt,6)="删除广告退还" then
rsaa("cjine")=rsaa("cjine")+jine
rsaa("czjine")=rsaa("czjine")+jine+0
newjine=rsaa("jine")+jine
rsaa("jine")=newjine
elseif txt="升级VIP提成" then
rsaa("xjine")=rsaa("xjine")+jine
rsaa("viptj")=rsaa("viptj")+jine
else
newjine=rsaa("jine")+jine
rsaa("jine")=newjine
if avip then
newviptj=rsaa("viptj")+(jine/per_v)*(per_v-per_n)
rsaa("viptj")=newviptj
end if
end if
rsaa.update
else
if left(trim(txt),2)="发布" or left(trim(txt),2)="增加" or left(trim(txt),2)="修改" or left(trim(txt),4)="购买商品" then
if rsaa("jine")>=jine then
if rsaa("czjine")-jine>=0 then
rsaa("czjine")=rsaa("czjine")-jine
newjine=rsaa("jine")-jine
rsaa("jine")=newjine
else
rsaa("czjine")=0
newjine=rsaa("jine")-jine
rsaa("jine")=newjine
end if
rsaa.update
else
Response.write "<SCRIPT language=JavaScript>alert('错误：帐号余额不足!!\n\请先给帐号充值后再使用。');"
Response.Write "this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
else
if txt="请求支付" then
rsaa("tjine")=rsaa("tjine")+jine
elseif txt="升级VIP" then
rsaa("vip")=true
rsaa("viptime")=date()+365
if rsaa("czjine")>=jine then
rsaa("czjine")=rsaa("czjine")-jine
else
rsaa("czjine")=0
end if
end if
if int(rsaa("jine"))>=int(jine) then
NewJine=rsaa("jine")-jine+0
rsaa("jine")=NewJine
rsaa.update
else
NewJine=0
Response.write "<SCRIPT language=JavaScript>alert('错误：帐号余额不足！\n\请先给帐号充值后使用。');"
Response.Write "this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
end if
end if
rsaa.close
set rsaa=nothing
if Newjine<>"" then
exec="select * from kaixinjz_caiwulog"
set rsab=server.createobject("adodb.recordset")
rsab.open exec,conn,1,3
rsab.addnew
rsab("username")=username
rsab("shuxing")=shuxing
rsab("jine")=jine
rsab("yujine")=NewJine
rsab("txt")=txt
rsab.update
rsab.close
set rsab=nothing
end if
if shuxing=1 then
jine=jine
else
jine=int(0-jine)
end if
exec="select * from kaixinjz_setup where id=1"
set rsab=server.createobject("adodb.recordset")
rsab.open exec,conn,1,3
if rsab("tdate")=date() then
tzuan=rsab("tzuan")+abs(jine)+0
rsab("tzuan")=abs(tzuan)
else
rsab("tdate")=date()
lzuan=abs(rsab("tzuan"))
rsab("lzuan")=abs(lzuan)
rsab("tzuan")=abs(jine)
end if
rsab.update
rsab.close
set rsab=nothing
End If
End sub
sub kaixinjz_Czjine(yuan)
set rsa2=server.createobject("adodb.recordset")
mysq2="select * from kaixinjz_setup"
rsa2.open mysq2,conn,1,3
rsa2("chongzhishu")=rsa2("chongzhishu")+formatnumber(yuan,2,-1)
rsa2("chongzhino")=rsa2("chongzhino")+1
rsa2.update
sa2.close
set rsa2=nothing
End sub
Ipdd = CStr(Request.ServerVariables("SERVER_NAME"))
Private Function kaixinjz_getIP()
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
kaixinjz_getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
function kaixinjz_okclickTS(ids)
Set rs0=Server.CreateObject("ADODB.recordset")
mysql="select * from kaixinjz_ddad where id="&ids
rs0.open mysql,conn,1,1
xtime=Split(rs0("djtime"),"|")
rs0.close
set rs0=nothing
temp=""
if xtime(0)=1 then
temp=temp&"21:00~07:00|"
end if
for i=1 to 14
if xtime(i)=1 then
temp=temp&i&":00~"&i+1&":00|"
end if
next
if right(temp,1)="|" then
temp=left(temp,len(temp)-1)
end if
kaixinjz_okclickTS=temp
end function
function kaixinjz_okcommendTS(ids)
Set rs0=Server.CreateObject("ADODB.recordset")
mysql="select * from kaixinjz_commend where id="&ids
rs0.open mysql,conn,1,1
xtime=Split(rs0("djtime"),"|")
rs0.close
set rs0=nothing
temp=""
if xtime(0)=1 then
temp=temp&"21:00~07:00|"
end if
for i=1 to 14
if xtime(i)=1 then
temp=temp&i&":00~"&i+1&":00|"
end if
next
if right(temp,1)="|" then
temp=left(temp,len(temp)-1)
end if
kaixinjz_okcommendTS=temp
end function
function kaixinjz_checktime(ids)
kaixinjz_checktime=false
Set rs0=Server.CreateObject("ADODB.recordset")
mysql="select * from kaixinjz_ddad where id="&ids
rs0.open mysql,conn,1,1
xtime=Split(rs0("djtime"),"|")
rs0.close
set rs0=nothing
if int(xtime(0))=1 then
xhour0=int(hour(Now))
if xhour0>=21 or xhour0<=6 then
kaixinjz_checktime=true
end if
end if
xhour=int(hour(Now))-6
for i=1 to 14
if int(xtime(i))=1 then
if xhour =i then
kaixinjz_checktime=true
end if
end if
next
end function
function kaixinjz_checktimecmd(ids)
kaixinjz_checktimecmd=false
Set rs0=Server.CreateObject("ADODB.recordset")
mysql="select * from kaixinjz_commend where id="&ids
rs0.open mysql,conn,1,1
xtime=Split(rs0("djtime"),"|")
rs0.close
set rs0=nothing
if int(xtime(0))=1 then
xhour0=int(hour(Now))
if xhour0>=21 or xhour0<=6 then
kaixinjz_checktimecmd=true
end if
end if
xhour=int(hour(Now))-6
for i=1 to 14
if int(xtime(i))=1 then
if xhour =i then
kaixinjz_checktimecmd=true
end if
end if
next
end function
function kaixinjz_bijiaoUrl(newurl,oldurl,adurltype)
kaixinjz_bijiaoUrl=false
if newurl<>"http://" and right(newurl,1)="/" then
newurl=left(newurl,len(newurl)-1)
end if
if adurltype=true and newurl<>"http://" then
if inStr(oldurl,newurl)>0 or inStr(newurl,oldurl)>0 then kaixinjz_bijiaoUrl=true
end if
if adurltype=true and newurl<>"http://" and (oldurl="" or oldurl="http://") and newurl<>"" then
kaixinjz_bijiaoUrl=true
end if
if adurltype=false and newurl<>"http://" then
if inStr(oldurl,newurl)>0 or inStr(newurl,oldurl)>0 then kaixinjz_bijiaoUrl=true
end if
end function
function kaixinjz_bijiaoanswer(newadanswer,oldanswer)
kaixinjz_bijiaoanswer=false
if inStr(oldanswer,newadanswer)>0 or inStr(newadanswer,oldanswer)>0 then kaixinjz_bijiaoanswer=true
end function
function kaixinjz_chkadunion(ip,union)
if trim(union)="" then
kaixinjz_chkadunion=true
exit function
end if
kaixinjz_chkadunion=false
unions=trim(request.Cookies(web_site)(union))
ips=trim(request.Cookies(web_site)(ip))
if IsEmpty(unions) or trim(unions)="" or IsEmpty(ips) or trim(ips)="" then
kaixinjz_chkadunion=true
exit function
end if
if unions<>union or ips<>ip then
kaixinjz_chkadunion=true
exit function
end if
end function
sub kaixinjz_setadunion(ip,union)
Response.Cookies(web_site)(union) = union
Response.Cookies(web_site)(ip) = union
Response.Cookies(web_site).Expires= (date()+3)
end sub
function kaixinjz_getcpd(funcpd,urlcpd,numcpd)
ipurl=funurl&"?funs=getcpd&n="&numcpd&"&f="&funcpd&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&url="&recodeurl(urlcpd)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
kaixinjz_getcpd=int(chks)
end function
function kaixinjz_bijiaocpd(nget,nmax)
if nget< nmax then
kaixinjz_bijiaocpd=true
else
kaixinjz_bijiaocpd=false
end if
end function
Function recodeurl(url)
url1=web_site
if left(url1,4)="www." then url1=right(url1,len(url1)-4)
url1="["&url1&"]"&url
url1=replace(url1,"http://","")
url1=replace(url1,"www.","")
url1=replace(url1,".","")
url1=replace(url1,"&","")
url1=replace(url1,"@","")
url1=replace(url1,"%","")
url1=replace(url1,"/","")
url1=replace(url1,"?","")
url1=replace(url1,"=","")
recodeurl=left(url1,80)
End Function
'┏━━━━━━━━━━━━━━━━━━━┓
'┃浏览是否有效(显示,不记录) ┃
'┗━━━━━━━━━━━━━━━━━━━┛
function kaixinjz_okdianjisee(username,url,ip)
ipurl=funurl&"?funs=okdianjisee&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okdianjisee=false
else
kaixinjz_okdianjisee=true
end if
end if
end function
function kaixinjz_okdianji(username,url,ip)
ipurl=funurl&"?funs=okdianji&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okdianji=false
else
kaixinjz_okdianji=true
end if
end if
end function
function dianji(id)
id=int(id)
exeiq="select * from kaixinjz_dianji where id="&id&" and dnum>=1"
set rsiq=server.createobject("adodb.recordset")
rsiq.open exeiq,conn,1,3
if not rsiq.eof then
dnumup=rsiq("dnum")-1
okdnumup=rsiq("okdnum")+1
dianji=rsiq("jine")
rsiq("dnum")=dnumup
rsiq("okdnum")=okdnumup
rsiq.update
else
dianji=0
end if
rsiq.close
set rsiq=nothing
end function
sub kaixinjz_dianji(username,title,url,jine,ip,uservip,fname)
execb="select * from kaixinjz_dianji_tj"
set rsb=server.createobject("adodb.recordset")
rsb.open execb,conn,1,3
rsb.addnew
rsb("fusername")=fname
rsb("username")=username
rsb("title")=title
rsb("url")=url
rsb("ip")=ip
if uservip then
rsb("jine")=jine*per_v
else
rsb("jine")=jine*per_n
end if
rsb.update
rsb.close
set rsb=nothing
end sub
'┏━━━━━━━━━━━━━━━━━━━┓
'┃看帖是否有效(显示,不记录) ┃
'┗━━━━━━━━━━━━━━━━━━━┛
function kaixinjz_okbrowsesee(username,url,ip)
ipurl=funurl&"?funs=okbrowsesee&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okbrowsesee=false
else
kaixinjz_okbrowsesee=true
end if
end if
end function
function kaixinjz_okbrowse(username,url,ip)
ipurl=funurl&"?funs=okbrowse&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okbrowse=false
else
kaixinjz_okbrowse=true
end if
end if
end function
function browse(id)
id=int(id)
exeiq="select * from kaixinjz_browse where id="&id&" and dnum>=1"
set rsiq=server.createobject("adodb.recordset")
rsiq.open exeiq,conn,1,3
if not rsiq.eof then
dnumup=rsiq("dnum")-1
okdnumup=rsiq("okdnum")+1
browse=rsiq("jine")
rsiq("dnum")=dnumup
rsiq("okdnum")=okdnumup
rsiq.update
else
browse=0
end if
rsiq.close
set rsiq=nothing
end function
sub kaixinjz_browse(username,title,url,jine,ip,uservip,fname)
execb="select * from kaixinjz_browse_tj"
set rsb=server.createobject("adodb.recordset")
rsb.open execb,conn,1,3
rsb.addnew
rsb("fusername")=fname
rsb("username")=username
rsb("title")=title
rsb("url")=url
rsb("ip")=ip
if uservip then
rsb("jine")=jine*per_v
else
rsb("jine")=jine*per_n
end if
rsb.update
rsb.close
set rsb=nothing
end sub
'┏━━━━━━━━━━━━━━━━━━━┓
'┃搜索是否有效(显示,不记录) ┃
'┗━━━━━━━━━━━━━━━━━━━┛
function kaixinjz_oksearchsee(username,url,ip)
ipurl=funurl&"?funs=oksearchsee&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_oksearchsee=false
else
kaixinjz_oksearchsee=true
end if
end if
end function
function kaixinjz_oksearch(username,url,ip)
ipurl=funurl&"?funs=oksearch&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_oksearch=false
else
kaixinjz_oksearch=true
end if
end if
end function
function search(id)
id=int(id)
exeiq="select * from kaixinjz_search where id="&id&" and dnum>=1"
set rsiq=server.createobject("adodb.recordset")
rsiq.open exeiq,conn,1,3
if not rsiq.eof then
dnumup=rsiq("dnum")-1
okdnumup=rsiq("okdnum")+1
search=rsiq("jine")
rsiq("dnum")=dnumup
rsiq("okdnum")=okdnumup
rsiq.update
else
search=0
end if
rsiq.close
set rsiq=nothing
end function
sub kaixinjz_search(username,title,url,jine,ip,uservip,fname)
execb="select * from kaixinjz_search_tj"
set rsb=server.createobject("adodb.recordset")
rsb.open execb,conn,1,3
rsb.addnew
rsb("fusername")=fname
rsb("username")=username
rsb("title")=title
rsb("url")=url
rsb("ip")=ip
if uservip then
rsb("jine")=jine*per_v
else
rsb("jine")=jine*per_n
end if
rsb.update
rsb.close
set rsb=nothing
end sub
function kaixinjz_okasksee(username,url,ip,fangan)
ipurl=funurl&"?funs=okasksee&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&fa="&fangan&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okasksee=false
else
kaixinjz_okasksee=true
end if
end if
end function
function kaixinjz_okask(username,url,ip,fangan)
ipurl=funurl&"?funs=okask&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&fa="&fangan&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okask=false
else
kaixinjz_okask=true
end if
end if
end function
Function AnswerID(Aid)
AnswerID=int(Aid)
End Function
Function QuestionAnyYes(BQuestionNum,Bgetallid,BNID)
if instr(Bgetallid,cstr(BNID+1)) =0 then
QuestionAnyYes=0
else
QuestionAnyYes=int(BNID)+1
end if
End Function
Function AnswerNum(x)
IF request.Form("N")=0 then
AnswerNum=0
else
AnswerNum=int(request.Form("N"))
AnswerNum=AnswerNum+x
end if
End Function
Function QuestionYes(QuestionNum,N)
if N=QuestionNum then
QuestionYes=true
end if
if N>QuestionNum then
Response.write "<script>alert('对不起！该问答出现意外了!!999');window.close();</script>"
Response.End
end if
if N<QuestionNum then
QuestionYes=false
end if
End Function
Function AnswerYes(aids,strs)
AnswerYes=false
dim rsa,mysq,cc
aids=int(aids)
Set rsa=Server.CreateObject("ADODB.recordset")
mysq="select * from kaixinjz_ask_mu where id="&aids&""
rsa.open mysq,conn,1,1
if not rsa.eof then
okstrs=trim(rsa("okda"))
strs=trim(strs)
cc=true
if okstrs=strs then
AnswerYes=true
else
for i=1 to len(strs)
if instr(okstrs,mid(strs,i,1))=0 then
AnswerYes=false
cc=false
exit for
end if
next
if cc then
if len(strs)=len(okstrs) then
AnswerYes=true
else
AnswerYes=false
end if
else
AnswerYes=false
end if
end if
else
Response.write "<SCRIPT language=JavaScript>alert('对不起！该问答出现意外暂停了!!');"
Response.Write "this.location.href='ask.asp';</SCRIPT>"
Response.End
end if
rsa.close
set rsa=nothing
End Function
sub kaixinjz_AddState(username,AddSid,allid)
ipurl=funurl&"?funs=astate&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&id="&AddSid&"&allid="&allid&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
end if
if chks="x" then
Response.write "<SCRIPT language=JavaScript>alert('对不起！您今天已作答,请明天再来!!');"
Response.Write "this.location.href='ask.asp';</SCRIPT>"
Response.End
end if
end sub
sub kaixinjz_ChkState(username,ChkSid)
ipurl=funurl&"?funs=cstate&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&id="&ChkSid&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
end if
if chks="x" then
Response.write "<SCRIPT language=JavaScript>alert('对不起！您今天已作答,请明天再来!!');"
Response.Write "this.location.href='ask.asp';</SCRIPT>"
Response.End
end if
if chks="xxx" then
Response.write "<SCRIPT language=JavaScript>alert('对不起！没有您的作答记录!!');"
Response.Write "this.location.href='ask.asp';</SCRIPT>"
Response.End
end if
end sub
function ask(id)
id=int(id)
exeiq="select * from kaixinjz_ask where id="&id&" and dnum>=1"
set rsiq=server.createobject("adodb.recordset")
rsiq.open exeiq,conn,1,3
if not rsiq.eof then
dnumup=rsiq("dnum")-1
okdnumup=rsiq("okdnum")+1
ask=rsiq("jine")
rsiq("dnum")=dnumup
rsiq("okdnum")=okdnumup
rsiq.update
else
ask=0
end if
rsiq.close
set rsiq=nothing
end function
sub kaixinjz_ask(username,id,title,url,jine,ip,uservip,fname,fangan,QNum)
execb="select * from kaixinjz_ask_tj"
set rsb=server.createobject("adodb.recordset")
rsb.open execb,conn,1,3
rsb.addnew
rsb("fusername")=fname
rsb("username")=username
rsb("title")=title
rsb("url")=url
rsb("ip")=ip
rsb("askid")=id
rsb("fangan")=fangan
rsb("QuestionNum")=QNum
if uservip then
rsb("jine")=jine*per_v
else
rsb("jine")=jine*per_n
end if
rsb.update
rsb.close
set rsb=nothing
end sub
'┏━━━━━━━━━━━━━━━━━━━┓
'┃点击是否有效(显示,不记录) ┃
'┗━━━━━━━━━━━━━━━━━━━┛
function kaixinjz_okddadsee(username,url,ip,fangan)
ipurl=funurl&"?funs=okddadsee&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&fa="&fangan&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okddadsee=false
else
kaixinjz_okddadsee=true
end if
end if
end function
function kaixinjz_okddad(username,url,ip,fangan)
ipurl=funurl&"?funs=okddad&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&fa="&fangan&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okddad=false
else
kaixinjz_okddad=true
end if
end if
end function
function ddad(id)
id=int(id)
exeiq="select * from kaixinjz_ddad where id="&id&" and dnum>=1"
set rsiq=server.createobject("adodb.recordset")
rsiq.open exeiq,conn,1,3
if not rsiq.eof then
dnumup=rsiq("dnum")-1
okdnumup=rsiq("okdnum")+1
ddad=rsiq("jine")
rsiq("dnum")=dnumup
rsiq("okdnum")=okdnumup
rsiq.update
else
ddad=0
end if
rsiq.close
set rsiq=nothing
end function
sub kaixinjz_ddad(username,title,adurl,taurl,jine,ip,uservip,fname,Ipdd)
execb="select * from kaixinjz_ddad_tj"
set rsb=server.createobject("adodb.recordset")
rsb.open execb,conn,1,3
rsb.addnew
rsb("Ipdd")=Ipdd
rsb("fusername")=fname
rsb("username")=username
rsb("title")=title
rsb("adurl")=adurl
rsb("taurl")=taurl
rsb("ip")=ip
if uservip then
rsb("jine")=jine*per_v
else
rsb("jine")=jine*per_n
end if
rsb.update
rsb.close
set rsb=nothing
end sub
'┏━━━━━━━━━━━━━━━━━━━┓
'┃推广网站是否有效(显示,不记录) ┃
'┗━━━━━━━━━━━━━━━━━━━┛
function kaixinjz_okcommendsee(username,url,ip,fangan)
ipurl=funurl&"?funs=okcommendsee&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&fa="&fangan&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okcommendsee=false
else
kaixinjz_okcommendsee=true
end if
end if
end function
function kaixinjz_okcommend(username,url,ip,fangan)
ipurl=funurl&"?funs=okcommend&t=t&u="&username&"&Ipdd="&Ipdd&"&Ipaa="&Ipaa&"&ip="&ip&"&fa="&fangan&"&url="&recodeurl(url)&""
chks=trim(kaixinjz_GetXmlText(ipurl))
if chks="xx" then
response.end
else
if chks="x" then
kaixinjz_okcommend=false
else
kaixinjz_okcommend=true
end if
end if
end function
1楼回复还有
