%
set conntemp=server.createobject("adodb.connection")
conntemp.open "database=gcglnew;DSN=gcglnew;uid=gc;pwd=1090438"
response.expires=0
%>
<%
function encode(page,sql)
dim pl
dim i
dim s
pl=len(cstr(page))
encode=""
for i=1 to (3-pl)
encode=encode+"0"
next
encode=encode+cstr(page)
for i=len(sql) to 1 step -1
encode=encode+cstr(ascw(mid(sql,i,1))+128)
next
pl=len(encode) \ 3
s=""
for i= pl to 1 step -1
s=s+mid(encode,i,1)
next
s=s+mid(encode,pl+1,len(encode)-pl)
encode=s
end function
function excode1(str)
dim l
dim i
dim pl
dim s
if isNULL(str) then
excode1=0
exit function
end if
excode1=str
pl=len(excode1) \ 3
s=""
for i= pl to 1 step -1
s=s+mid(excode1,i,1)
next
s=s+mid(excode1,pl+1,len(excode1)-pl)
excode1=s
excode1=cint(mid(s,1,3))
end function
function excode2(str)
dim l
dim i
dim pl
dim s
dim ss
if isNULL(str) then
excode2=""
exit function
end if
ss=str
pl=len(ss) \ 3
s=""
for i= pl to 1 step -1
s=s+mid(ss,i,1)
next
s=s+mid(ss,pl+1,len(ss)-pl)
excode2=""
for i=len(s) to 6 step -3
excode2=excode2+chrw(cint(mid(s,i-2,3))-128)
next
end function
%>
<%
If len(session("id"))>0 Then
session("id")=trim(session("id"))
session("name")=trim(session("name"))
session("userglfw")=trim(session("userglfw"))
session("logintimes")=trim(session("logintimes"))
session("homeurl_user")=trim(session("homeurl_user"))
end if
%>