content.asp

留言 留言本采用asp+access数据结构

 <div class="ads"> 
<script type="text/javascript"><!--
google_ad_client = "pub-0679791607685771";
/* 728x15, 创建于 08-12-18 */
google_ad_slot = "5104599084";
google_ad_width = 728;
google_ad_height = 15;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</div>
<div id="main">
<div id="list">
     <div id="listmain">
<%face="face/"%>
<% set rs=server.CreateObject("adodb.recordset")
   sql="select * from message order by id desc " 
   rs.open sql,conn,1,3 
   if rs.eof then
   response.write("暂无留言")
   else 
   Allrecord=rs.Recordcount
   path=request.ServerVariables("path_info")
   rs.pagesize=  system("num")  
   on error resume next
   page=clng(request("page"))
   if page<1 then page=1
   if page>rs.pagecount then page=rs.pagecount
   rs.AbsolutePage = Page
   For iPage = 1 To rs.PageSize 
   RecNo = (Page - 1) * rs.PageSize + iPage
%>

<h2> 
<span class="leftarea"><img src="images/icon_write.gif" /> 
<a href="<%=rs("web")%>" title="点击查看作者信息"  target="_blank"><%=rs("user")%></a>
<font style="color:#999;">于<%=rs("addtime")%> 发表留言：</font>
<% If DateDiff("s", rs("addtime"), Now) <60*60*24 then %><img src=images/new.gif><%end if %></span>
<span class="midarea"></span> 
<span class="rightarea"><% if system("qq")=1 then %><a><img src="images/email.gif" alt="QQ：<%=rs("qq")%>" /></a> <%end if%>  
<% if system("web")=1 then %><a href="<%=rs("web")%>" target="_blank"><img src="images/homepage.gif" alt="" width="16" height="16" border="0"></a>
<%end if%>
<% if session("adminname") <> "" Then %>
<a href="add.asp?action=reply&id=<%=rs("id")%>">回复</a>
<a href="post.asp?action=del&id=<%=rs("id")%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')">删除</a>
<% end if %>
</span>
</h2>
                               
                <div class="content">
                <% if system("face")=1 then %>
                    <div class="contentleft">
                    <div><img src="face/<%=rs("face")%>" border="0" width="40" height="40" /></div>
                    <div><a href="<%=rs("web")%>" title="点击查看作者信息"  target="_blank"><%=rs("user")%></a></div>
                    <div><a href="<%=rs("web")%>" title="点击访问作者个人网站"  target="_blank">个人网站</a></div>
                    </div>  
                 <%end if%>               
                 <div class="contentright">
                  <% if rs("toadmin")=1 then%>
                    <%response.write("<span class=ftcolor_999>（此留言为悄悄话，只有管理员才能看哦……)</span>")%>
                    <%else%>
						<% if rs("show")=1 then%> <%=left(rs("content"),150)%> 
                                <%if rs("reply")<>0 then%>    
                                <div class="reply">
                                <p><span class="ftcolor_FF9"><b><%=rs("adminname")%>回复：</b><%=rs("replytime")%></span></p>
                                <%=rs("reply")%>
                                </div>
                                <%end if%>
                        <%else%>
                     <%response.write("<span class=ftcolor_999>（此留言正在通过审核，当前不可见……）</span>")%>
                    <%end if%> 
                <%end if %>
                </div>
              </div>
				  
<%rs.MoveNext
If rs.EOF Then Exit For
Next
end if%>
<div class="ads"> 
<script type="text/javascript"><!--
google_ad_client = "pub-0679791607685771";
/* 728x15, 创建于 08-12-18 */
google_ad_slot = "5104599084";
google_ad_width = 728;
google_ad_height = 15;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</div>            
</div>
<!--listmain结束-->
</div>
<!--list结束-->
<div>
<br />    
  <div id="page">
     <div id="pages"> 　留言总数：<%=Allrecord%>条 　<%
if page<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=index.asp?page=1>首页</a>&nbsp;"
response.write "<a href=index.asp?page="&page-1&">上一页</a>&nbsp;"     
end if
if rs.pagecount-page<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=index.asp?page="&(page+1)&">下一页</a>&nbsp;"   
response.write "<a href=index.asp?page="&rs.pagecount&">尾页</a>&nbsp;"     
end if
%>
转到第<select name='topage' size='1' onchange='window.location="/index.asp?page="+this.value'>
<% for iPage =1 To rs.pagecount
i=i+1
%>
<option value='<%=i%>'><%=i%></option>
<%
next%>
</select>页　（<%=Page%>/<%=rs.pagecount%> 页）</div>
</div>           
</div> 						
<%
rs.close
set rs=nothing
%>
<% if system("indexadd")=1 then %>
<!--#include file="addform.asp"-->
<% end if%>