在本电脑上测试是好的，上传空间后为什么登陆弹出“您引用了不能识别的来源”后变空白页？以下是“开心兼职网”的一个加密文件的解密后的代码，
我不怎懂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楼回复还有

end if
end if
rsaa.close
set rsaa=nothing
end function
function kaixinjz_surf(username,title,id,url,jine,ip,pv,uservip,fname)
exec22="select * from kaixinjz_surf_tj where ip='"&ip&"' and url='"&url&"' and dianjidate=date()"
set rs22=server.createobject("adodb.recordset")
rs22.open exec22,conn,1,3
rs22.addnew
if uservip then
jine=jine*per_v
else
jine=jine*per_n
end if
rs22("fusername")=fname
rs22("username")=username
rs22("title")=title
rs22("url")=url
rs22("jine")=formatnumber(jine/pv,2,-1)
rs22("ip")=ip
rs22("dianjidate")=date()
rs22("surfid")=id
rs22.update
rs22.close
set rs22=nothing
end function
function surf(id)
id=int(id)
exeiq="select * from kaixinjz_surf 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
surf=rsiq("jine")
rsiq("dnum")=dnumup
rsiq("okdnum")=okdnumup
rsiq.update
else
surf=0
end if
rsiq.close
set rsiq=nothing
end function
function kaixinjz_okguajisee(username,url,uservip,dtaday,pv)
execaa="select * from kaixinjz_ipku_guaji where username='"&username&"' and url='"&url&"' and ipdate=date()"
set rsaa=server.createobject("adodb.recordset")
rsaa.open execaa,conn,1,3
if  rsaa.eof and rsaa.bof then
kaixinjz_okguajisee=true
rsaa.addnew
rsaa("username")=username
rsaa("url")=url
rsaa("ipdate")=date()
rsaa("pv")=1
rsaa.update
else
if not uservip then
if rsaa("pv")<pv or rsaa("pv")<dtaday then
kaixinjz_okguajisee=true
rsaa("pv")=rsaa("pv")+1
rsaa.update
else
kaixinjz_okguajisee=false
end if
else
if rsaa("pv")<dtaday then
kaixinjz_okguajisee=true
rsaa("pv")=rsaa("pv")+1
rsaa.update
else
kaixinjz_okguajisee=false
end if
end if
end if
rsaa.close
set rsaa=nothing
end function
sub kaixinjz_TiCheng(username,jine,t1,t2,t3,t4,t5,x1,x2,x3,x4,x5)
jine=int(jine)
new1=jine*per_n*int(t1)/100
new2=jine*per_n*int(t2)/100
new3=jine*per_n*int(t3)/100
new4=jine*per_n*int(t4)/100
new5=jine*per_n*int(t5)/100
exeia="select * from kaixinjz_user where username='"&x1&"'"
set rsia=server.createobject("adodb.recordset")
rsia.open exeia,conn,1,3
if not rsia.eof then
rsia("jine")=rsia("jine")+new1
rsia("xjine")=rsia("xjine")+new1
rsia.update
end if
rsia.close
set rsia=nothing
exeib="select * from kaixinjz_user where username='"&x2&"'"
set rsib=server.createobject("adodb.recordset")
rsib.open exeib,conn,1,3
if not rsib.eof then
rsib("jine")=rsib("jine")+new2
rsib("xjine")=rsib("xjine")+new2
rsib.update
end if
rsib.close
set rsib=nothing
exeic="select * from kaixinjz_user where username='"&x3&"'"
set rsic=server.createobject("adodb.recordset")
rsic.open exeic,conn,1,3
if not rsic.eof then
rsic("jine")=rsic("jine")+new3
rsic("xjine")=rsic("xjine")+new3
rsic.update
end if
rsic.close
set rsic=nothing
exeid="select * from kaixinjz_user where username='"&x4&"'"
set rsid=server.createobject("adodb.recordset")
rsid.open exeid,conn,1,3
if not rsid.eof then
rsid("jine")=rsid("jine")+new4
rsid("xjine")=rsid("xjine")+new4
rsid.update
end if
rsid.close
set rsid=nothing
exeie="select * from kaixinjz_user where username='"&x5&"'"
set rsie=server.createobject("adodb.recordset")
rsie.open exeie,conn,1,3
if not rsie.eof then
rsie("jine")=rsie("jine")+new5
rsie("xjine")=rsie("xjine")+new5
rsie.update
end if
rsie.close
set rsie=nothing
end sub
function daxiao(username,duzi,kai,cai)
duzi=int(duzi)
kai=int(kai)
cai=int(cai)
exec="select * from kaixinjz_game_tj"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs.addnew
rs("username")=username
rs("gamename")="猜大小"
rs("kai")=kai
rs("cai")=cai
rs("jine")=duzi
if (kai<=9 and cai=0) or (kai>=10 and cai=1) then
rs("okno")=true
daxiao=true
else
rs("okno")=false
daxiao=false
end if
rs.update
rs.close
set rs=nothing
end function
function dianshu(username,duzi,kai,cai)
duzi=int(duzi)
kai=int(kai)
cai=int(cai)
exec="select * from kaixinjz_game_tj"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs.addnew
rs("username")=username
rs("gamename")="猜点数"
rs("kai")=kai
rs("cai")=cai
rs("jine")=duzi
if kai=cai then
rs("okno")=true
dianshu=true
else
rs("okno")=false
dianshu=false
end if
rs.update
rs.close
set rs=nothing
end function
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
    strlen=int(strlen) + 1
end if
next
end if
end function
function strlenn(str)
dim strlen
strlen=0  
strlen=len(trim(str))
strlenn=left(trim(str),(strlen-1))&"*"
end function
function strvalue(str,lennum)
dim p_num
dim i
if strlen(str)<=lennum then
    strvalue=str
else
p_num=0
x=0
do while not p_num > lennum-2
x=x+1
    if asc(mid(str,x,1))<0 then
p_num=int(p_num) + 2
else
p_num=int(p_num) + 1
        end if
strvalue=left(trim(str),x)&"…"
loop
end if
end function
Function kaixinjz_UBBDecode(str)
Dim oReg
Dim strTmp
Set oReg=New RegExp
        strTmp=str
oReg.Global=True
oReg.IgnoreCase=True
        oReg.Pattern="\{URL\}([a-zA-Z0-9\-\_\/\:\.\?\&\%\+\=\u4E00-\u9FA5]+)\{\/URL\}"
        strTmp=oReg.Replace(strTmp,"<A HREF=""$1"" TARGET=""_BLANK"">$1</A>")
        oReg.Pattern="\{img\}([a-zA-Z0-9\-\_\/\:\.\?\&\%\+\=\u4E00-\u9FA5]+)\{\/img\}"
        strTmp=oReg.Replace(strTmp,"<img src=""$1"" border=""0"">")
        kaixinjz_UBBDecode=strTmp
End Function
function yesno(txt)
if txt then
        yesno="<b><font color=""#00b000"">√</font></b>"
else
        yesno="<b><font color=""#FF0000"">×</font></b>"
end if
end function
Function kaixinjz_FormatHTML(fString)
If fString<>"" Then
        fString = trim(fString)
fString = replace(fString, ";", "；")
        fString = replace(fString, "--", "——")
fString = replace(fString, "%20", "")
fString = replace(fString, "==", "")
fString = replace(fString,">","&gt;")
fString = replace(fString,"<","&lt;")
fString = Replace(fString, CHR(32),"&nbsp;")
fString = Replace(fString, CHR(9),"&nbsp;")
fString = Replace(fString, CHR(34),"&quot;")
fString = Replace(fString, CHR(39),"'")
fString = Replace(fString, CHR(13),"")
fString = Replace(fString, CHR(10)&CHR(10), "</P><P>")
fString = Replace(fString, CHR(10),"<BR>")
kaixinjz_FormatHTML = fString
End If
End Function
Function RegExpTest(strng)
   Dim regEx ' 建立变量。
   Set regEx = New RegExp   ' 建立正则表达式。
   regEx.Pattern = " +"  ' 设置模式。
   regEx.IgnoreCase = True   ' 设置是否区分字符大小写。
   regEx.Global = True   ' 设置全局可用性。
   regexptest = regEx.Replace(strng," ")
End Function
Function kaixinjz_inHTML(str)
Dim sTemp
sTemp=str
kaixinjz_inHTML = ""
If sTemp<>"" Then
sTemp = Replace(sTemp, "&lt;","<")
sTemp = Replace(sTemp,"&gt;",">" )
sTemp = Replace(sTemp,"&quot;",Chr(34))
sTemp = Replace(sTemp,"<BR>",CHR(10))
sTemp = Replace(sTemp,"<br />",CHR(10))
 sTemp = Replace(sTemp, "",CHR(13))
sTemp = Replace(sTemp,"&nbsp;",CHR(32))
sTemp = Replace(sTemp,"&nbsp;",CHR(9))
sTemp = Replace(sTemp,"'",CHR(39))
sTemp = Replace(sTemp,"</P><P>", CHR(10)&CHR(10))
kaixinjz_inHTML = sTemp
End If
End Function
sub kaixinjz_unload()
if  isobject(rs)  then
if rs.state=1 then
rs.close
end if
set rs=nothing
end if
if  isobject(conn)  then
if conn.state=1 then
conn.close
end if
set conn=nothing
end if
mysq=""
exec=""
sql=""
end sub
sub kaixinjz_checkemail(mails)
if instr(mails,"@")>0 then
else
Response.write "<SCRIPT language=JavaScript>alert('对不起，邮件格式不对!!');"
Response.Write "this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
end sub

Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    Err = 0
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If 0 = Err Then IsObjInstalled = True
    Set xTestObj = Nothing
    Err = 0
End Function
sub prompt(str,notice)
response.write "<a href='#' title='"&notice&"'><font color='#FF66FF'>"&str&"</font></a>"
End sub
Public Function Ubbcode(strcontent)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
    strcontent=replace(strcontent,"<","&lt;")
    strcontent=replace(strcontent,">","&gt;")
    strcontent=replace(strcontent," ","&nbsp;")
    strcontent=replace(strcontent,vbcrlf,"<br />" & vbcrlf)
    '图片UBB
    're.pattern="\[img\](http|https|ftp):\/\/(.[^\[]*)\[\/img\]"
    re.pattern="\[img\](.[^\[]*)\[\/img\]"
    strcontent=re.replace(strcontent,"<a onfocus=""this.blur()"" href=""$1"" target=new><img src=""$1"" border=""0"" alt=""点击在新窗口打开"" onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"" /></a>")
    '链接UBB
    re.pattern="(\[url\])(.[^\[]*)(\[\/url\])"
    strcontent= re.replace(strcontent,"<a href=""$2"" target=""new"">$2</a>")
    re.pattern="\[url=(.[^\[]*)\]"
    strcontent= re.replace(strcontent,"<a href=""$1"" target=""new"">")
    'QQ号码UBB
    re.pattern="\[qq=([0-9]*)\]([0-9]*)\[\/qq\]"
    strcontent= re.replace(strcontent,"<a target=""new"" href=""tencent://message/?uin=$2&Site=www.)
    '颜色UBB
    re.pattern="\[color=(.[^\[]*)\]"
    strcontent=re.replace(strcontent,"<span style=""color:$1;"">")
    '文字字体UBB
    re.pattern="\[font=(.[^\[]*)\]"
    strcontent=re.replace(strcontent,"<span style=""font-family:$1;"">")
    '文字大小UBB
    re.pattern="\[size=(.[^\[]*)\]"
    strcontent=re.replace(strcontent,"<span style=""font-size:$1;"">")
    '文字对齐方式UBB
    re.pattern="\[align=(center|left|right)\]"
    strcontent=re.replace(strcontent,"<div align=""$1"">")
    '表格UBB
    re.pattern="\[table=(.[^\[]*)\]"
    strcontent=re.replace(strcontent,"<table width=""$1"">")

    'FLASH动画UBB
    re.pattern="(\[flash\])(.[^\[]*)(\[\/flash\])"
    strcontent= re.replace(strcontent,"<br /><object codebase=""http://download.,0,2,0"" classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" width=""300"" height=""200""><param name=""movie"" value=""$2""><param name=""quality"" value=""high""><embed src=""$2"" quality=""high"" pluginspage=""http://www. type=""application/x-shockwave-flash"" width=""300"" height=""200"">$2</embed></object><br />")
   
    re.pattern="(\[flash=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[\/flash\])"
    strcontent= re.replace(strcontent,"<br /><object codebase=""http://download.,0,2,0"" classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" width=""$2"" height=""$3""><param name=""movie"" value=""$4""><param name=quality value=high><embed src=""$4"" quality=""high"" pluginspage=""http://www. type=""application/x-shockwave-flash"" width=""$2"" height=""$3"">$4</embed></object><br />")

    'MEDIA PLAY播放UBB
    re.pattern="\[wmv\](.[^\[]*)\[\/wmv]"
    strcontent=re.replace(strcontent,"<br /><object classid=""clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95"" class=""object"" id=""mediaplayer"" width=""300""><param name=""showstatusbar"" value=""-1""><param name=""filename"" value=""$1""><embed type=""application/x-oleobject"" codebase=""http://activex.,1,52,701"" flename=""mp"" src=""$1""  width=""300""></embed></object><br />")

    re.pattern="\[wmv=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/wmv]"
    strcontent=re.replace(strcontent,"<br /><object classid=""clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95"" class=""object"" id=""mediaplayer"" width=""$1"" height=""$2"" ><param name=""showstatusbar"" value=""-1""><param name=""filename"" value=""$3""><embed type=""application/x-oleobject"" codebase=""http://activex.,1,52,701"" flename=""mp"" src=""$3""  width=""$1"" height=""$2""></embed></object><br />")

    'REALPLAY 播放UBB
    re.pattern="\[rm\](.[^\[]*)\[\/rm]"
    strcontent=re.replace(strcontent,"<br /><object classid=""clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"" class=""object"" id=""raocx"" width=""300"" height=""200""><param name=""src"" value=""$1""><param name=""console"" value=""clip1""><param name=""controls"" value=""imagewindow""><param name=""autostart"" value=""true""></object><br><object classid=""clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"" height=""32"" id=""video2"" width=""300""><param name=""src"" value=""$1""><param name=""autostart"" value=""-1""><param name=""controls"" value=""controlpanel""><param name=""console"" value=""clip1""></object><br />")

    re.pattern="\[rm=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/rm]"
    strcontent=re.replace(strcontent,"<br /><object classid=""clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"" class=""object"" id=""raocx"" width=""$1"" height=""$2""><param name=""src"" value=""$3""><param name=""console"" value=""clip1""><param name=""controls"" value=""imagewindow""><param name=""autostart"" value=""true""></object><br><object classid=""clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"" height=""32"" id=""video2"" width=""$1""><param name=""src"" value=""$3""><param name=""autostart"" value=""-1""><param name=""controls"" value=""controlpanel""><param name=""console"" value=""clip1""></object><br />")

    searcharray=Array("[sub]","[/sub]","[sup]","[/sup]","[/url]","[/color]", "[/size]", "[/font]", "[/align]", "", "","", "", "", "", "[ulist]", "

", "
","
", "[*]", "[/ulist]","
", "

", "

","

","

","
","
","","","","","","")
    replacearray=Array("_","","^","","</a>","</span>", "</span>", "</span>", "</div>", "<b>", "</b>", "<i>","</i>", "<u>", "</u>", "<ul>", "<ol type=""1"">", "<ol type=""a"">","<ol type=""A"">", "<li>", "</ul>", "</ol>", "<blockquote>", "</blockquote>","<div style=""background:#E2F2FF;width:500px;border:1px solid #3CAAEC;padding:3px;"">","</div>","<div style=""background:#E2F2FF;width:500px;border:1px solid #3CAAEC;padding:3px;"">","</div>","<table>","<tr>","<td>","</tr>","</td>","</table>")
    For i=0 To UBound(searcharray)
        strcontent=replace(strcontent,searcharray(i),replacearray(i))
    next
    set re=Nothing
    Ubbcode=strcontent
End Function
function kaixinjz_ChkAutoPay(jiekous,orders,usernames,jines)
kaixinjz_ChkAutoPay=false
Set rs3=Server.CreateObject("ADODB.recordset")
mysq3="select * from kaixinjz_czlb where trade_no='"&orders&"'"
rs3.open mysq3,conn,1,3
if rs3.eof and rs3.bof then
kaixinjz_ChkAutoPay=true
rs3.addnew
rs3("types")=jiekous
rs3("trade_no")=orders
rs3("jine")=jines
rs3("cztime")=now()
rs3("username")=usernames
rs3.update
else
kaixinjz_ChkAutoPay=false
end if
rs3.close
set rs3=nothing
End function
Function AnswerNum(x)
AnswerNum=x+AnswerNum
End Function
%>