源码论坛,商业源码下载,尽在锦尚中国商业源码论坛

标题: Microsoft VBScript 运行时错误 '800a000d' [打印本页]

作者: xiaomai 时间: 2011-8-31 04:58
标题: Microsoft VBScript 运行时错误 '800a000d'
错误提示：

Microsoft VBScript 运行时错误 '800a000d'

类型不匹配: 'md5'

\manage\check_login.asp, line 21

check_login.asp文件代码：




<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
user=trim(request.Form("username"))
pass=trim(request.Form("password"))
if user="" then
showmsg "用户名不能为空","login.asp"
end if
if pass="" then
showmsg "密码不能为空","login.asp"
end if
md5psd=md5(pass)
set rst=server.createobject("adodb.recordset")
sql="select * from user where user='"& user &"'"
rst.open sql,conn,1,3
if rst.eof then
showmsg "用户名不存在","login.asp"
response.end()
end if
if md5psd<>rst("psd") then
showmsg "密码不正确，请从新输入","login.asp"
response.End()
end if
session("id")=rst(0)
response.Cookies("CookieName")("account")=user
response.Cookies("CookieName").Expires = Date()+1
rst("lasttime")=date()
rst.update()
rst.close
set rst=nothing
response.Redirect("index.asp")
response.End()
%>
<%rst.close
set rst=nothing
conn.close
set conn=nothing %>
</body>
</html>

欢迎光临源码论坛,商业源码下载,尽在锦尚中国商业源码论坛 (https://bbs.52jscn.com/)