我的后台不管我怎么登陆都没反映网站朋友给做的 他没事 我不知道原因出在哪？
数据库的MSSQL的。
<!-- #include file="../config.asp" -->
<%
usr = trim(request("usr"))
if usr <> "" then
set cn = createobject("adodb.connection")
cn.open StrConn
set rs = cn.execute("select * from Manager where UserID='" & replace(usr, "'", "''") & "'")
if not rs.eof then
if cvtpass(request("pwd")) = rs("UserPass") then
ust = rs("UserStatus")
usn = rs("UserName")
else
msg = "密码错误！"
end if
else
msg = "无此帐号！"
end if
rs.close
set rs = nothing
cn.close
set cn = nothing
if msg = "" then
session("MirGMName") = usn
session("MirGMStatus") = ust
response.cookies("MirGMName") = usr
response.cookies("MirGMName").expires = dateadd("yyyy", 10, now)
GMName = session("MirGMName")
GMStatus = session("MirGMStatus")
SaveLogs "gmlogin.log", "登陆成功"
response.redirect "main.asp"
response.end
end if
end if
%>
<html>
<head>
<title><%=MirName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../mir.css" rel="stylesheet" type="text/css">
</head>
<script language=javascript>
function checkform(fm) {
fm.usr.value = fm.usr.value.replace(/^\s+|\s+$/g, '')
if (fm.usr.value == '') {
alert('请输入管理员名称！')
fm.usr.focus()
return false
}
if (fm.pwd.value == '') {
alert('请输入密码！')
fm.pwd.focus()
return false
}
}
function init() {
var fm = document.forms[0]
if (fm.usr.value) {
fm.pwd.focus()
} else {
fm.usr.focus()
}
}
</script>
<body onload="init()">
<center>
<p><b><%=MirName%>管理中心</b></p>
<table border=0>
<form method=post onsubmit="return(checkform(this))">
<tr>
<td>管理员：</td>
<td><input name=usr value="<%=request.cookies("MirGMName")%>"></td>
</tr>
<tr>
<td>密码：</td>
<td><input name=pwd type=password></td>
</tr>
<tr>
<td> </td>
<td>
<input type=submit value="管理登录">
<input type=button value="用户中心" onclick="location='..'">
</td>
</tr>
</form>
</table>
</center>
<script language=javascript src="../Copyright.js"></script>
</body>
</html>
<%
Function cvtpass(strpass) '
Dim charID, numSum, nTmp
numSum = 0
For charID = 1 To Len(strpass)
nTmp = Asc(Mid(strpass, charID, 1))
numSum = numSum + nTmp * charID ^ 3
Next
cvtpass = Encrypt(CStr(Abs(numSum))*9)
End Function
Function Encrypt(strpass)
Dim charID, lTmp, nTmp
lTmp = Len(strpass)
nTmp = lTmp
For charID = 1 To lTmp
nTmp = Int(256 * Rnd( - Asc(Mid(strpass, charID, 1)) * nTmp / Asc(Right(strpass, 1))))
Encrypt = Encrypt & Chr(Int(10 * Rnd( -nTmp) + 48))
Next
End Function
%>
<%
function SaveLogs(logname, logmsgs)
set fso = createobject("scripting.filesystemobject")
set fs = fso.opentextfile(MirRoot & "\GameLog\" & logname, 8, true)
fs.writeline now & chr(9) & GMName & chr(9) & GMStatus & chr(9) & logmsgs & chr(9) & request.ServerVariables("remote_addr")
fs.close
set fs = nothing
set fso = nothing
end function
%>
后台登陆代码