UC知道在数据库里面的管理用户更改或添加都不能进入,下面是什么意思啊
来源：百度知道 编辑：UC知道 时间：2024/05/26 18:20:07
<%
dim conn
dim connstr
db="25222.asp" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
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
%>
帮我解释下,谢谢
dim conn
dim connstr
db="25222.asp" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
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
%>
帮我解释下,谢谢
这个代码也太乱了吧
<%
dim conn '定义
dim connstr '定义
db="25222.asp" '数据库文件位置
on error resume next '如果错误直接退出
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接字符设置
set conn=server.createobject("ADODB.CONNECTION") '数据库连接字符设置
if err then '如果发生错误则
err.clear '清空错误 程序到此结束
else '否则
conn.open connstr '打开数据库
end if '结束IF
function decrypt(dcode) '定义一个函数
dim texts '定义
dim i '定义
for i=1 to len(dcode) '循环 从i=1到dcode的长度
texts=texts & chr(asc(mid(dcode,i,2))-i) '拼装字符传 mid从字符串中返回指定数目的字符 asc返回与字符串的第一个字母对应的 ANSI 字符代码 chr返回与指定的 ANSI 字符代码相对应的字符
next
decrypt=texts '函数输出
end function '结束函数
function encrypt(ecode) '基本类似上面一个函数 自己对照吧
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ec