有条语句过不了！

jackyliu 2002-01-31 01:04:25

IE老是说这条语句有错“StrRs.Open StrSQL,StrCnn”以下是代码，麻烦大哥看看。

<%@ Language=VBScript %>
<% '接受Seller.htm文件数据
Option Explicit
Response.Expires=0
Dim StrUser '用户名
Dim StrPassword '口令
Dim StrSql '对比SQL语句
Dim StrLogin '执行对比SQL语句

StrUser = Trim(Request.Form("User"))
StrPassword = Trim(Request.Form("Password"))
%>

<HTML><BODY>
User: <%= StrUser%> 
Password: <%= StrPassword%> 
<%= Request.Form("Submit")%> 

<%
Dim Cnn, StrCnn, count,StrRs
Set Cnn = Server.CreateObject("ADODB.Connection")
Set StrRs = Server.CreateObject("ADODB.RecordSet")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\Seller\book.mdb"
Cnn.Open StrCnn

StrSQL = "Select count(*) From User Where NAME = '"&StrUser&"' And PASS = '"&StrPassword&"'"
StrRs.Open StrSQL,StrCnn ********就是这条**********

If not StrRs.Eof Then
Session("StrUser")=StrRs("StrUser")
Response.redirect "main.asp"
Else
response.write "登录失败"
End if

StrRs.close
'关闭数据库
Cnn.close
%>

</BODY>
</HTML>

</BODY></HTML>

...全文

139 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

jackyliu 2002-02-01

打赏
举报

把数据库地址以虚似路径的方式就可以通过了,但Session("StrUser")=StrRs("StrUser")又出错了!

jackyliu 2002-02-01

打赏
举报

大家不用怀疑是StrSQL = "Select count(*) From User Where NAME = '"&StrUser&"' And PASS = '"&StrPassword&"'"出错,response.write strsql 出来是正确的

jackyliu 2002-02-01

打赏
举报

为什么我把数据库地址改成虚拟的路径就可以了?太奇怪了

ekang999 2002-01-31

打赏
举报

StrRs.Open StrSQL,StrCnn 这是不正确的，少两个参数据呢，应这样写"StrRs.Open StrSQL,StrCnn,1,1

playmud 2002-01-31

打赏
举报

我把数据库的连接方式换成贴主的方式，就不行了。

playmud 2002-01-31

打赏
举报

楼上说得对了一半
connstrr="DBQ="+server.mappath("book.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
使用虚拟路径的方法，把数据库和你的asp程序放在一个目录下

lazywolf 2002-01-31

打赏
举报

to all:
StrRs.Open StrSQL,StrCnn 这个语句没问题！大家可以试试啊！
我们平时习惯用StrRs.Open StrSQL,Cnn而已！
我觉得可能是
StrSQL = "Select count(*) From User Where NAME = '"&StrUser&"' And PASS = '"&StrPassword&"'"
出错，可以在这个语句的下面输入：
response.write strsql
strsql="select * from user"
调试一下，通过看看strsql字符串，应该可以看出问题来，我一般调试方法就是这样！

apple749769 2002-01-31

打赏
举报

I agree with playmud(烟灰)　!

keliangui 2002-01-31

打赏
举报

楼上的好仔细。
应为：StrRs.Open StrSQL,Cnn

playmud 2002-01-31

打赏
举报

大家仔细看看！！
StrRs.Open StrSQL,StrCnn
~~~~~~~这里正确吗？

playmud 2002-01-31

打赏
举报

大家仔细看看！！
StrRs.Open StrSQL,StrCnn
~~~~~~~这里正确吗？

BrightEye 2002-01-31

打赏
举报

StrSQL = "Select count(*) From User Where NAME = '"&StrUser&"' And PASS = '"&StrPassword&"'"
'add below statement-------------------------
response.write StrSQL
response.end
注意数据类型.

playmud 2002-01-31