Question

关于VBScript语言,用文本框查询数据库的问题，在线跪求。

文本域的信息：<input name="UserID" type="text" id="UserID" />
按钮信息：<input type="submit" name="Submit" value="查询" />
当在文本域中输入数据的时候，单击按钮，那么文本域中的数据与数据库中的数据先匹配，则显示出。如何写这段if代码。
以下是我的错误代码，求怎么改？
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/ebook.asp" -->
<%
Str=""
UesrID=Trim(Request.Form("UserID"))
If UserID <> "" Then
StrSql = "UserID"
End If
%>

<%
Dim Rs1
Dim Rs1_numRows

Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.ActiveConnection = MM_ebook_STRING
if Trim(Str)<>""then
Rs1.Source = "SELECT * FROM ShopBook where"&Str
else
Rs1.Source = "SELECT * FROM ShopBook"
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 1
Rs1.Open()

Rs1_numRows = 0
end if
%>

Answer 1

不知道是什么开发环境啊？
end if的位置不对啊！
我理解应该是这样的：
if Trim(Str)<>""then
Rs1.Source = "SELECT * FROM ShopBook where"&Str
else
Rs1.Source = "SELECT * FROM ShopBook"
end if
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 1
Rs1.Open()
Rs1_numRows = 0

Answer 2

先问一下，Rs1.Source = "SELECT * FROM ShopBook where"&Str，这里的Str在哪里定义的，包含的什么内容？是字段等于某个值的语句吗？

追问

是想把文本框里的数据赋值给Str，然后用Str和数据库中的UserID比较是否相等，是的话就是输出信息
SP：输入文本框中的数据是用户ID。

Answer 3

文本框里的数据赋值给Str
看不到赋值的语句啊！！

追问

那请你帮我写一段赋值语句