现在我把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()
%>