请教大虾一个简单的asp提交页面的处理的问题！再线等回答即结帖子

guan0616 2005-04-23 09:46:34

login.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<p align="center" class="style2"> 登陆图书管理系统请输入ID和密码：</p>
<form name="form1" method="post" action="handle.asp">
<p align="center">
<span class="style3">用户ID</span> <input name="username" type="text" id="username" >

</p>
<div align="center"><span class="style3"> 密码： </span>
<input name="pass" type="password" id="pass">

</div>
<p align="center">
<input type="submit" name="Submit" value="提交">

<input type="reset" name="Submit" value="重置">
</p>
</form>
<p class="style2"> </p>
</body>
</html>
handle.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% dim username ,pass,conn ,rs,sql,dbq
dbq= "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("mydb.mdb")
username=trim(request.Form("username"))
pass=trim(request.Form("pass"))
set conn=server.CreateObject("adodb.connection")
conn.open dbq
set rs=server.CreateObject("adodb.recordset")
sql="select [username],[pass] from [admin] where username= '"&username&"' and pwd='"&pass& "'"
response.Write request.Form("username")
'response.Write sql
rs=conn.execute sql,conn,1,3 ---这边我用'rs.open sql,conn,1,3也不行
if rs.eof then
response.redirect "err.asp" '
else
session("name")=username
response.redirect "admin.asp"
end if
%>
<%
rs.Close()
conn.close
Set rs = Nothing
set conn=nothing
%>
出错提示是：
Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误错误 '800a0401'

语句未结束

/handle.asp，行12

rs=conn.execute sql,conn,1,3 'rs.open sql,conn,1,3
----------------^

...全文

124 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

guan0616 2005-04-26

打赏
举报

为什么我要揭贴时老是提示我Service Unavailable

netwar 2005-04-25

打赏
举报

set rs=server.CreateObject("adodb.recordset")
sql="select [username],[pass] from [admin] where username= '"&username&"' and pwd='"&pass& "'"

rs=conn.execute sql,conn,1,3 ---这边我用'rs.open sql,conn,1,3也不行
这里改为
因为这是个对象,所以要用到set方法
'set rs=Conn.execute(strSQL)或
rs.open strSQL,Conn,1,1

if rs.eof then
response.redirect "err.asp" '
else
session("name")=username
response.redirect "admin.asp"
end if
%>
<%
rs.Close()
set rs=nothing
conn.close
set conn=nothing
%>

加分啊

guan0616 2005-04-23

打赏
举报

我也试过了还是不行

jonath 2005-04-23

打赏
举报

rs.open sql,conn,1,3

guan0616 2005-04-23

打赏
举报

如果改成rs=conn.execute(sql)
还是出错！
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
还是不行希望各位大哥说出具体改的代码谢谢了！

Aa7643 2005-04-23

打赏
举报

rs=conn.execute sql,conn,1,3
没见过这样的写法

rs=conn.execute(sql)

guan0616 2005-04-23

打赏
举报

我知道提示的 rs=conn.execute sql,conn,1,3 错误但是我不知道怎么改

大圆镜智1222 2005-04-23

打赏
举报

800A03F6 需要 'End'
800A0401 需要语句的结束

不是数据库的错误，是vbscript错误，你好好检查书写格式

look4sword 2005-04-23

打赏
举报

人家提示的很清楚：
出错提示是：
Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误错误 '800a0401'

语句未结束

/handle.asp，行12

也不知道你想问什么。

guan0616 2005-04-23