高手帮忙解释一下ASP的链接文件意思!!鞠躬感谢!!

来源：百度知道 编辑：UC知道 时间：2024/05/11 15:04:39
<%
StrSQL="DBQ="+server.mappath("../dashuju/jzh.asp")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
sub CloseConn()
conn.close
set conn=nothing
end sub
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
%>

这个是链接数据库的文件,因为感觉这个文件有把密码加密的代码,所有的文件都差过了,感觉就是在这里提供了加密!

这个加密实在是太简单了,为安全考虑我想修改他的加密方法,
可是找了半天也没看出个所以然来^

本人不太懂ASP

希望路过的大侠赐教赐教!!

鞠躬感谢!!!

function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
这个是加密函数最主要的语句是:
texts=texts & chr(asc(mid(ecode,i,2))+i)

下面做出完整的解释：

StrSQL="DBQ="+server.mappath("../dashuju/jzh.asp")+";DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接字符串
set conn=server.createobject("ADODB.CONNECTION") ’连接对象
conn.open StrSQL ’打开数据库连接

sub CloseConn() ’关闭数据库连接的过程
conn.close ’关闭连接对象
set conn=nothing ’释放conn对象
end sub ’过程结束

function decrypt(dcode) ’定义一个解密函数decrypt，参数dcode
dim texts '变量
dim i
for i=1 to len(dcode) ’循环参数的长度次数len
texts=texts & chr(asc(mid(dcode,i,2))-i) '把texts的值和原来的连接起来 chr得到字符传，因为后面的asc把字符转ASCII了，mid就是把参数在I的位置到接下去的两个，就是截两个字符而已
next ’函数结束
decrypt=texts '把texts赋给decrypt就是函数的返回值
end functi