使DV6支持国外服务器
logout.asp
查找
membername=request.cookies("aspsky")("username")
换成
membername=DecodeCookie(request.cookies("aspsky")("username"))
------
reg.asp查找
Response.Cookies("aspsky")("username") = username
替换
Response.Cookies("aspsky")("username") = CodeCookie(username)
------
inc/const.asp查找
membername=checkStr(request.cookies("aspsky")("username"))
替换
membername=DecodeCookie(checkStr(request.cookies("aspsky")("username")))
------
inc/char_login.asp查找
Response.Cookies("aspsky")("username") = regname
替换
Response.Cookies("aspsky")("username") = CodeCookie(regname)
------
inc/char.asp
对照修改（红色部分为加入部分）
end class
function CodeCookie(str)
Dim i
Dim strRtn
for i=len(str) to 1 step -1
strRtn=strRtn & ascw(mid(str,i,1))
if (i<>1) then strRtn=strRtn & "a"
next
CodeCookie=strRtn
end function
function DecodeCookie(str)
Dim i
Dim strArr,strRtn
strArr=Split(str,"a")
for i=UBound(strArr)-LBound(strArr) to 0 step -1
strRtn=strRtn & chrw(strArr(i))
next
DecodeCookie=strRtn
end function
%>
------
conn.asp第一行修改
<%@LANGUAGE="VBscript" CODEPAGE="936"%>
页:
[1]