有一段ASP代码看不懂

<%
'拼接链接数据库字符串
StrSQL="DBQ="+server.mappath("../database/data.mdb")+";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)
'拼接字符串
'Mid 方法 返回一个字符串,该字符串包含某字符串中指定数量的字符。
'Chr 方法 返回与指定字符码相关联的字符。
'Asc 方法 返回一个Integer 值,该值表示与某个字符相对应的字符码。
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
%&