ASP源代码后台管理员账号密码
admin_admin.asp里面是<!--#includefile="adminconn.inc"--><%ifsession("aleave")=""thenresp...
admin_admin.asp 里面是
<!--#include file="adminconn.inc" -->
<%
if session("aleave")="" then
response.redirect "adminlogin.asp"
response.end
end if
%>
adminconn.inc里面是
<%
StrSQL="DBQ="+server.mappath("../data/mingren.asa")+";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
%>
请问我在哪才能找到我的管理员帐号密码
我的QQ 309199361 望高手指点迷经 共同学习进步 展开
<!--#include file="adminconn.inc" -->
<%
if session("aleave")="" then
response.redirect "adminlogin.asp"
response.end
end if
%>
adminconn.inc里面是
<%
StrSQL="DBQ="+server.mappath("../data/mingren.asa")+";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
%>
请问我在哪才能找到我的管理员帐号密码
我的QQ 309199361 望高手指点迷经 共同学习进步 展开
若以下回答无法解决问题,邀请你更新回答
3个回答
展开全部
你要把 adminlogin.asp 文件的代码贴出来才可能知道呀。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在数据库里不是这里
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有偿提供程序定制,程序修改,程序算法指导服务,如需可百度HI我。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询