主题:  多用户留言板（查找）

冷月轩
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2003/1/25 19:12:06
#12003/2/15 9:52:53
谁能帮我找出多用户留言板教程（完全的，白菜那个不完整）



忧忧
职务：普通成员
等级：1
金币：1.0
发贴：180
注册：2002/7/23 1:32:17
#22003/2/15 19:11:37
这个~~~我给你看看吧！
下面那个希望能对你有启示！
search.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim reshop__MMColParam
reshop__MMColParam = "1"
If (Request.Form("UserId") <> "") Then
reshop__MMColParam = Request.Form("UserId")
End If
%>
<%
Dim reshop__MMColParam1
reshop__MMColParam1 = "UserId"
If (Request.Form("type") <> "") Then
reshop__MMColParam1 = Request.Form("type")
End If
%>
<%
Dim reshop
Dim reshop_numRows

Set reshop = Server.CreateObject("ADODB.Recordset")
reshop.ActiveConnection = MM_shop_STRING
reshop.Source = "SELECT * FROM RegUser WHERE "&reshop__MMColParam1&" LIKE '%" + Replace(reshop__MMColParam, "'", "''") + "%'"
reshop.CursorType = 0
reshop.CursorLocation = 2
reshop.LockType = 1
reshop.Open()

reshop_numRows = 0
%>


您查找的关键字<%= reshop__MMColParam %>