ASP Classic搜索多个

时间:2011-03-26 07:49:54

标签: asp-classic

问题:有人使用asp进行多次搜索编码吗?你能分享吗?

这就是我想要做的......

有3个选项或搜索...按姓名,按地点,按地区

对于第一次显示所有带分页的数据......在顶部进行搜索。

<textfield>name</textfield><list/menu>location</list/menu><list/menu>region</list/menu>

按区域搜索时,将显示所有区域被选中。 然后它允许按名称过滤以获得特定的

 <%
   Dim adoCon        
   Dim rsGuestbook    
   Dim strSQL          
   Dim lngRecordNo    

   lngRecordNo = CLng(Request.QueryString("ID"))

   Set rsGuestbook = Server.CreateObject("ADODB.Recordset")

   'Initialise the strSQL variable with an SQL statement to query the database'
   strSQL = "SELECT * FROM tbl_Master WHERE ID=" & lngRecordNo

   rsGuestbook.Open strSQL, oConn
%>

3 个答案:

答案 0 :(得分:1)

这是查询字符串搜索的名称,部门,年龄。它工作正常。它可能对你有帮助。只需获取您的值。把它们放在适当的地方。并且不要忘记更改您的表名

    name1=request.QueryString("name")
    dept1=request.QueryString("dept")
    age1=request.QueryString("age")

sqlStr="Select * from Student_Entry"
    sqlWhere=""

    if name1<>"" then
        sqlWhere = " Where S_name='"&name1&"'"  
    end if
    if dept1<>"" then
        if sqlWhere = "" then
            sqlWhere = " Where S_dept='"&dept1&"'"
        else
        sqlWhere = sqlWhere&" And S_dept='"&dept1&"'"
        end if  
    end if

    if age1<>"" then
        if sqlWhere = "" then
            'sqlWhere = " Where  S_age="&age1&""
            sqlWhere = " Where  S_age"&agestr&age1 

        else
            'sqlWhere = sqlWhere&" And  S_age="&age1&""
            sqlWhere =sqlWhere&" And S_age"&agestr&age1
        end if  
    end if

    sqlStr = sqlStr & sqlWhere

答案 1 :(得分:0)

听起来你正在描述多个依赖列表(?)

这里有一个示例:

http://www.aspkey.net/aspkey/_articles/asp/showarticle.asp?id=100

答案 2 :(得分:0)

strname , strlocation and strregion value will depend on selection if not select then default value will be "". 

strSQL = "SELECT * FROM tbl_Master WHERE ID=" & lngRecordNo 

if strname <> "" THEN
strSQL = strSQL & " and name ='"& strname &"' "
END IF 

if strlocation <> "" THEN
strSQL = strSQL & " and location='"& strlocation &"'
END IF 

if strregion <> "" THEN
strSQL = strSQL & " and region='"& strregion &"'
END IF

rsGuestbook.Open strSQL, oConn