无标题文档

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim chaxun__MMColParam chaxun__MMColParam ="1" chaxun__MMColParam = Request.Form("name") %> <% Dim chaxun Dim chaxun_cmd Dim chaxun_numRows Set chaxun_cmd = Server.CreateObject ("ADODB.Command") chaxun_cmd.ActiveConnection = MM_conn_STRING chaxun_cmd.CommandText = "SELECT * FROM liuyan WHERE liuyan_content LIKE ? ORDER BY liuyan_date DESC" chaxun_cmd.Prepared = true chaxun_cmd.Parameters.Append chaxun_cmd.CreateParameter("param1", 200, 1, 50, "%" + chaxun__MMColParam + "%") ' adVarChar Set chaxun = chaxun_cmd.Execute chaxun_numRows = 0 %> <% Dim alljlu Dim alljlu_cmd Dim alljlu_numRows Set alljlu_cmd = Server.CreateObject ("ADODB.Command") alljlu_cmd.ActiveConnection = MM_conn_STRING alljlu_cmd.CommandText = "SELECT * FROM liuyan ORDER BY liuyan_date DESC" alljlu_cmd.Prepared = true Set alljlu = alljlu_cmd.Execute alljlu_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 alljlu_numRows = alljlu_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 chaxun_numRows = chaxun_numRows + Repeat2__numRows %> 无标题文档

<% If Not chaxun.EOF Or Not chaxun.BOF Then %> <% While ((Repeat2__numRows <> 0) AND (NOT chaxun.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 chaxun.MoveNext() Wend %>

留言姓名	留言内容	留言时间
<%=(chaxun.Fields.Item("liuyan_name").Value)%>	<%=(chaxun.Fields.Item("liuyan_content").Value)%>	<%=(chaxun.Fields.Item("liuyan_date").Value)%>

<% End If ' end Not chaxun.EOF Or NOT chaxun.BOF %> <% If chaxun.EOF And chaxun.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT alljlu.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 alljlu.MoveNext() Wend %>

留言姓名	留言内容	留言时间
<%=(alljlu.Fields.Item("liuyan_name").Value)%>	<%=(alljlu.Fields.Item("liuyan_content").Value)%>	<%=(alljlu.Fields.Item("liuyan_date").Value)%>

<% End If ' end chaxun.EOF And chaxun.BOF %>

<% chaxun.Close() Set chaxun = Nothing %> <% alljlu.Close() Set alljlu = Nothing %>