UC知道Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'MD5' /admin/checkuser.asp，行 18
来源：百度知道 编辑：UC知道 时间：2024/06/06 06:49:37
网站的产品后台管理系统在本地测试正常，上传后登陆时提示Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'MD5'
/admin/checkuser.asp，行 18
以下是checkuser.asp的代码：
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
dim admin,pwd
admin = Request.Form("admin")
pwd = Request.Form("pwd")
'Response.Write MD5(pwd)
'Response.End
dim sql,rs
sql = "select * from admin where adminuser='"&admin&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.EOF then
Response.Write "<p align=center>该用户不存在</p>"
'Response.End
else
encryptpwd = rs("pwd")
if md5(pwd)=encryptpwd then
Response.Cookies("FoxModel")("adminuser") = admin
Response.Cookies("FoxModel")("level") = rs("level&quo
类型不匹配: 'MD5'
/admin/checkuser.asp，行 18
以下是checkuser.asp的代码：
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
dim admin,pwd
admin = Request.Form("admin")
pwd = Request.Form("pwd")
'Response.Write MD5(pwd)
'Response.End
dim sql,rs
sql = "select * from admin where adminuser='"&admin&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.EOF then
Response.Write "<p align=center>该用户不存在</p>"
'Response.End
else
encryptpwd = rs("pwd")
if md5(pwd)=encryptpwd then
Response.Cookies("FoxModel")("adminuser") = admin
Response.Cookies("FoxModel")("level") = rs("level&quo
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY bottomMargin=0 leftMargin=0 topMargin=0 rightMargin=0>
<br>
<table width="400" align="center" border=1 cellspacing=0>
<tr>
<td align=center>
<a href="login.asp">返 回</a>
</td>
</tr>
</table>
</BODY>
</HTML>
Response.Cookies("FoxModel")("adminuser") = admin
admin=？？？
解决方案：
要纠正该问题，请下载并安装Q831167.exe（http://www.microsoft.com/downloads/details.aspx?amp;amp;displayl