留言本

<%@ CODEPAGE = "936" %> <% '#################################### '# # '# 阿江ASP留言本 V1.0 # '# # '# 阿江守候 http://www.ajiang.net # '# 电子邮件 zjyfc@263.net # '# # '# 转载本程序时请保留这些信息 # '# # '#################################### %> <% '下面这一行设置默认每页显示条数 thesize=10 '默认为10 pagesize=Request("pagesize") keyword=request("keyword") if request("page")="" then curpage = 1 else curpage = cint(request("page")) end if %> 留言本

注意：

1、把留言本的公告写在这里。

2、请勿在此发布与本站及本公司无关的话题及违法的内容。

<%if Request("msg")<> "" then%>

<%=Request("msg")%>

<%end if%>

:::: 请您留言 ::::

姓名：

电话：

主题：

Email:

<% if pagesize="0" or pagesize="" then pagesize=thesize set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("gb.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") dim rs, sql set rs = server.createobject("adodb.recordset") dim curpage, strcate if keyword <> "" then keyword = replace(keyword,"'","") '过滤关键字 keyword = replace(keyword,"[","") keyword = trim(keyword) wherestr=" where name like '%" & trim(keyword) & "%' or content like '%" & trim(keyword) & "%' or title like '%" & trim(keyword) & "%'" end if sql = "SELECT * FROM guestbook " & wherestr & " ORDER BY id DESC" rs.open sql, conn, 1, 1 if rs.bof and rs.eof then rs.close response.write "
还没有符合条件的留言呢！" else dim i rs.pagesize = pagesize if rs.pagecount < curpage then rs.absolutepage=rs.pagecount curpage=rs.pagecount else rs.absolutepage = curpage end if for i = 1 to rs.pagesize %>

title="IP:<%=rs("ip")%>"<%end if%>"> <%=rs("name")%> <%=formatdatetime(rs("addtime"),2) & " " & formatdatetime(rs("addtime"),4)%> 说 <%=rs("title")%>

<%if Session.Contents("thegbmaster")="yes" then%> &page=<%=page%>&pagesize=<%=pagesize%>&keyword=<%=keyword%>"> &page=<%=page%>&pagesize=<%=pagesize%>&keyword=<%=keyword%>"> <% end if if rs("mail")="" or isnull(rs("mail")) then Response.Write " " else Response.Write "" end if Response.Write " " if rs("url")="" or isnull(rs("url")) then Response.Write "" else Response.Write "" end if %>

<% Response.Write changechr(cstr(rs("content"))) if rs("reply")<> "" then %>

■ 版主回复：
<%=changechr(rs("reply"))%> <%end if%>

<% rs.movenext if rs.eof then i = i + 1 exit for end if next %>

<%for i=1 to rs.pagecount if curpage <> i then%> ?page=<%=i%>&pagesize=<%=pagesize%>&keyword=<%=keyword%>"><<%=i%>> <%else%> <<%=i%>> <%end if next if Session.Contents("thegbmaster")="yes" then%> 　[退出管理] <%end if%>

<% rs.close end if set rs=nothing conn.Close set conn=nothing %>

留言搜索：

<% function changechr(str) changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ") end function %>