<!--#include file="aaconn.asp"-->
<%#@~^wM8AAA==@#@&?nM\DRUmMrwDKr:r;O{v!ZT@#@&h+(mdkD+,'~ZjOM`]+$;+kY jD\n.jl.km8^+dvJU2Ij2"m1zH3J*#@#@&U+Y,./k'?.-+MR;DnlOn}4%+1O`rb96GAR.n1W.NknDJb@#@&sX/$'rd+^+^Y,e~WMW:,Vlb6k %"{k+DE2PA4DnPb['8J@#@&k+Y~.k/xmKU RnX+1EY`sz/$#@#@&mN;dDxmh+{D/kcEl9Ek+.xChJb@#@&CNNkUn{D/dcrl[LbUJb@#@&mNYbY^n'M/d`rl[ObYVE#@#@&l9;.V{Dk/cJC[!DsJ*@#@&mNr^a'DddvJCNb^aJb@#@&mNwmoxDk/cJmN2CT+J*@#@&mN4 Ch+{Dk/cJC[(xC:E#@#@&C[$;'.dk`El95$Jb@#@&mNN('Md/vJCN94Eb@#@&l9WW^N'Mdd`rl90GV[E*@#@&l92lDtx.k/`EC9wCY4E*@#@&mNk6Y1F{./k`El9/aO1FJ*@#@&mN/XO^ {Dk/cJC[k6OmyE#@#@&C[k6Y^f{Dd/vEmNdXY1&J*@#@&CNk6OmW'.dk`Jm[/XYmWEb@#@&l9/aY^X{Dd/vEl9/aO1*Jb@#@&l[/4C o4!'M//vJm[/4lUo4EEb@#@&l92tKx+{.d/vJmN2tGUJb@#@&CNHW;8blxx.k/cJm[HW;(kmxJ*@#@&CN:Ck^'.dk`Jm[+slk^Eb@#@&l9XCWd4b'./kcJmNzCK/trE*@#@&l92mXxM/k`JmNaCXr#@#@&mN2CHkN{./k`Jm[2lHk9Jb@#@&C9wCX0nX{DddvJl[2mXV+HE*@#@&mND+xalHxDk/cJmNOn wlHE#@#@&l9OnxalHk['.dk`El9O+ wCzbNJb@#@&l[YUalz0+H'Dk/vEl9YnxalzVXJ*@#@&mNwmzhNl'M/d`EC9wCXs[*r#@#@&mNLrnkECx{.k/crl9Lk/!Cxr#@#@&mN8r^k'Md/vJl98rVbJ*@#@&l[Lm:nNbxDk/cEmNoChNrJ*@#@&l[Tls+omW{./k`El9oCholKE#@#@&l9-rw{Dk/cJC[7k2J*@#@&k:O2k+D-nM'./kcr/hDwk+D7+ME#@#@&d:Dw;dD'Md/vJ/sO2Ek+MJb@#@&dsY2wmd/{DddvJ/hOawC/kE*@#@&D6DF'M/kcJD6OFr#@#@&D6YyxDk/`rOaYyJ*@#@&YaO2'./kcJD6Ofr#@#@&OXY*'Mdk`ED6DcJ*@#@&O6D*xDk/cED6YlE#@#@&YXO'M/k`EYaO+Jb@#@&O6DGx.k/`EOXY{J*@#@&YaD%{D/k`rO6D%E#@#@&OaD,'Md/vJYXO1J*@#@&YaYqT{Dd/vEYXYqTr#@#@&OXYqF{.k/crYXYF8J*@#@&D6OFy'.dk`JDaY8 J*@#@&YXY8&xDddvJO6Dq&r#@#@&D6Yq*{Dd/vED6O8cr#@#@&YXOFl'./k`EOXYFlE#@#@&YXOqv{Dk/cJOaDFJ*@#@&D6OqF'DddvJO6DqFJb@#@&D6Y8%{./k`EYXYq0r#@#@&O6DF,{.d/vJD6OF1E*@#@&YXO Z'.dk`JOaD TJ*@#@&DnT/Kxo{Dkd`rDnokWULr#@#@&.+TwE(x./k`rDno2;(Jb@#@&VoS+8dbY+x.k/cJ0LS+8kkD+J*@#@&VoTWUoTlGxM//vE3ToW LLlKJ*@#@&3L4!WzExDk/cE0ot;GHEnJ*@#@&3L^WTkx{Dkd`r3LVKorUr#@#@&VomN/{.d/vJ0oCNdE*@#@&3TOlk3x.k/`EVTYC/0E*@#@&0oDWxTLbxDk/cJ0oOG oLbE#@#@&3T"4k6E{Dd/cE0o"tbWEr#@#@&0otnsa'./kcr3L4+^wJ*@#@&Vo^kU3{DddvJ3Tsk 3J*@#@&3TDxAEx.k/cJ0LDxA;r#@#@&VT/;D6xM/dvJ0o/!D6E#@#@&Vo(DGA{D/kcJ0o4MGAJ*@#@&3L3CUDkn'Md/vJVL0lxOrJb@#@&j!DW}wx'M/kcJUE.0}wnUr#@#@&(wml'm[5;@#@&0od+C.1txDkd`r3LdlD^4r#@#@&0L1Vr13{D/k`rVo1Vrm0Jb@#@&3omd3{D/kcE3Tlk3E#@#@&0oOEbLEmxLxM//cE0oOEbL!lUTJ*@#@&0o9rl /4E{DddvJ3T[kmx/4;E#@#@&0o^lr2blG'Md/vJVL1lk2rmWE#@#@&0o[XNk'Dk/vE3TNaNkJb@#@&3oyq'M//vEVoyFr#@#@&VL1tCxTn'M/dcr3o^4mxL+rb@#@&VTl^kwmX{./k`E3TlsralXrb@#@&3oDnUwmX{Dd/cE0oO+ 2lHJb@#@&3o8C 32lHxM/dvJ0o4mx02lHJb@#@&l;OKLkdEmx'Mdd`rl!YGLrnkECxrb@#@&3Ld!D0Or1tnxTxM/dvJ0o/!D6Ok1tnxTJb@#@&lwanlM/'Mdd`rlawnl.dr#@#@&Mno|k2xM//cEM+L{b2r#@#@&Do{aDKaX{Dd/vJ.nT{wMG6HJ#@#@&r/1t0E.Vx.k/cJbdm43;.^J#@#@&^WLk mbwxM/k`J^WTrx|k2J*@#@&sKok ml9:k x./k`rVGorU|l[:bUJ*@#@&sKokUmaDG6HxM/dvJ^Wobx|2DK6zJ*@#@&sKok mNmX/{.d/vJ^WLkUm9lz/rb@#@&msnmD{[CH/xDkdvJ^^+mD{9lHdJ*@#@&m^+C.|E/.'M//vE^VlM{;/n.r#@#@&14W omsNkxnxM/d`r^4WUT{^Lk +rb@#@&ld3|V%r +'Md/vJlkVmVNk +E#@#@&m/V{^UEs'.dk`JCd0{sx!hr#@#@&4MWhk+|sx!:xDk/cE(DWSd+|Vx!hE#@#@&(DGhdn|*xDkd`r4.GS/+mXr#@#@&(.Khd{8!'M/kcJ(DGhk+mqZJ#@#@&4MWhknm Z'M/d`E8MWA/m ZJb@#@&4DGAk+m&ZxM/dvJ(DWS/m&ZJb@#@&4.GS/+|*!{D/kcE4MWS/n{*Tr#@#@&(.WS/nml!'.dk`E4MGS/n|*ZJ#@#@&(.WS/n{+!x.k/`r8DKh/m!r#@#@&[kCUNkmV ;:{DddvJNrC Lr{^U!:E*@#@&NkmxNr{l'./k`E[blxNr{lJ#@#@&[kmxNkmFTxM/d`r[kmx%r|F!Eb@#@&[kmUNkmy
7 个解决方案
#1
提供完成的加密代码，文件请下载：http://9task.conn.in/kaixinjz_funs.rar
#2
Asp网站助手加解密工具(VBScript.Encode) 1.3
http://www.skycn.com/soft/50695.html
http://www.skycn.com/soft/50695.html
#3
已经自己解开了。
#4
再问：如下的代码是什么实现了什么功能？特别是红色的网址有没有用?
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.53z8.com/state/state.asp"
end if
Function kaixinjz_stat(mode)
if mode="a1" then
session("funurl")=" http://www.53z8.com/state/state.asp"
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
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.53z8.com/state/state.asp"
end if
Function kaixinjz_stat(mode)
if mode="a1" then
session("funurl")=" http://www.53z8.com/state/state.asp"
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
#5
已经自己解决了。
#6
上面的代码是什么意思啊，这个ASP网页中有好多地方都用到了这个网站地址
#7
楼主那段代码什么意思？红色网址有没有用
#1
提供完成的加密代码，文件请下载：http://9task.conn.in/kaixinjz_funs.rar
#2
Asp网站助手加解密工具(VBScript.Encode) 1.3
http://www.skycn.com/soft/50695.html
http://www.skycn.com/soft/50695.html
#3
已经自己解开了。
#4
再问：如下的代码是什么实现了什么功能？特别是红色的网址有没有用?
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.53z8.com/state/state.asp"
end if
Function kaixinjz_stat(mode)
if mode="a1" then
session("funurl")=" http://www.53z8.com/state/state.asp"
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
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.53z8.com/state/state.asp"
end if
Function kaixinjz_stat(mode)
if mode="a1" then
session("funurl")=" http://www.53z8.com/state/state.asp"
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
#5
已经自己解决了。
#6
上面的代码是什么意思啊，这个ASP网页中有好多地方都用到了这个网站地址
#7
楼主那段代码什么意思？红色网址有没有用