现在我把search.asp的页面给大家分析一下:
------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim search__MMColParam
search__MMColParam = "1"
if (Request.QueryString("searchtext") <> "") then search__MMColParam = Request.QueryString("searchtext")
%>
<%
Dim search__MMColParam1
search__MMColParam1 = "1"
if (request.querystring("searchtext") <> "") then search__MMColParam1 = request.querystring("searchtext")
%>
<%
set search = Server.CreateObject("ADODB.Recordset")
search.ActiveConnection = MM_baoxian_STRING
search.Source = "SELECT * FROM dlr WHERE gh like '%" + Replace(search__MMColParam, "'", "''") + "%' and xm like '%" + Replace(search__MMColParam1, "'", "''") + "%' ORDER BY id DESC"
search.CursorType = 0
search.CursorLocation = 2
search.LockType = 3
search.Open()
search_numRows = 0
%>
查询系统 工号 | 姓名 | 性别 | 身份证号码 | 资格证书号 | 展业证书号 | 级别 | 备注 |
<%=(search.Fields.Item("gh").value)%> | <%=(search.Fields.Item("xm").value)%> | <%=(search.Fields.Item("xb").value)%> | <%=(search.Fields.Item("sfzh").value)%> | <%=(search.Fields.Item("zgzh").value)%> | <%=(search.Fields.Item("zyzh").value)%> | <%=(search.Fields.Item("jb").value)%> | <%=(search.Fields.Item("bz").value)%> |
<%
search.Close()
%>