Question

任何人都请帮我在ASP经典（库存系统）中搜索..我在编程和学生的新手..下面是屏幕的样子。

http://imageshack.us/photo/my-images/707/searchc.jpg/

解释

用户可以在自由文本字段中输入自由文本
用户可以选择按资产编号/ serialNo搜索，也可以选择全部。
用户可以选择所有字段..

然后数据将显示在下面，分页。用户也可以保存在excel中。

码

<%
Dim adoCon         
Dim rsGuestbook    
Dim strSQL           
Dim lngRecordNo    

lngRecordNo = CLng(Request.QueryString("ID"))
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tbl_Master WHERE ID=" & lngRecordNo
rsGuestbook.Open strSQL, oConn
%>

数据库SQL Server

table name (tbl_Master)..Attributes (AssetNo,Region,SerialNo,Manufacturer,dateCreate)

非常感谢你

Answer 1

我不确定你究竟想要什么，但这可能有所帮助：

<%
Dim adoCon         
Dim rsGuestbook    
Dim strSQL           
Dim lngRecordNo

'Added
Dim query, assetNumber, region

query = Trim(Request("your field name"))
assetNumber = Trim(Request("Asset Number Dropdown Name"))
region = Trim(Request("Region Dropdown Name"))

if query = "" then
query = "%"
End If

if assetNumber = "" then
assetNumber = "%"
End If

if region = "" then
region = "%"
End If

lngRecordNo = CLng(Request.QueryString("ID"))
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tbl_Master WHERE FREETEXT(*, '"& query &"') AND AssetNo LIKE '"& assetNumber &"' AND Region LIKE = '"&region&"' AND ID = " & lngRecordNo
rsGuestbook.Open strSQL, oConn
%>

在ASP Classic中搜索

1 个答案: