read.asp

超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来

<!--#include file="mycheck.asp"-->
<!--#include file="ubbhtml.asp"-->
<!--#include file="write_msg.asp"-->
<p><!--#include file="qq_online.asp"-->
<% 
sub read()

first="<table width=100% height=151 border=1 cellspacing=0 cellpadding=3 bordercolorlight=#333333 bordercolordark=#FFFFFF>        <tr>           <td width='100%' height='6' class=link >                 <li>现在本留言板开通免费申请服务，赶快申请吧！   &nbsp;[<a href='?action=registration&user="&admin&"'>免费申请</a>]...</li><p><li>如果您想现在直接留言给"&yourname&"，请[<a href='?user="&admin&"&action=write'>签写留言</a>]。也可以[<a href='?user="&admin&"'>查看留言</a>]"
first=first&"</li>"
first=first&""
first=first&"</li><p><li>[<a href='http://mp3.dxxo.com/' target=_blank>免费MP3下载</a>]--免费MP3.RM音乐在线欣赏、下载。"
first=first&"<p>--------------------------------------友情链接-------------------------------------"
first=first&"<br> [<a href='http://www.21dx.com/cn/' target=_blank>免费网站统计</a>] [<a href='http://www.dxxo.com/wz' target=_blank>企业网址</a>] [<a href='http://down.dxxo.com' target=_blank>ASP源代码下载</a>] [<a href='http://mp3.dxxo.com/top' target=_blank>热门音乐</a>] [<a href='http://www.dxxo.com/js/js.asp' target=_blank>免费代码</a>] [<a href='http://www.dxxo.com/music/starpic.asp' target=_blank>极品图片</a>] [<a href='http://host.dxxo.com/' target=_blank>域名主机</a>]"

first=first&"</font></td></tr></table>"

sql_user="select userid,counter from user where user='"&request("user")&"'"
set rs_user=server.createobject("adodb.recordset")
rs_user.open sql_user,conn,3,2
if not rs_user.bof and not rs_user.eof then
userid=rs_user("userid")
if session("counter")="" then
rs_user("counter")=rs_user("counter")+1
rs_user.update
session("counter")=1
end if
else
if request("user")<>admin then
table(first)
end if
end if
if request("user")=admin then
userid=0
   if session("counter")="" then
       conn.execute("update admin set counter=counter+1 where adminid=1")
       session("counter")=1
   end if
end if
if userid>0 or (userid=0 and request("user")=admin) then
sql_msg="select * from message where userid="&userid&""
if keyword<>"" then
sql_msg=sql_msg&" and (name like '%"&keyword&"%' or qq like '%"&keyword&"%'  or email like '%"&keyword&"%'  or homepage like '%"&keyword&"%'  or message like '%"&keyword&"%'  or from_address like '%"&keyword&"%'  or writetime like '%"&keyword&"%')"
end if
sql_msg=sql_msg&" order by id desc"
set rs_msg=server.createobject("adodb.recordset")
rs_msg.open sql_msg,conn,3,2
if not rs_msg.bof and not rs_msg.eof then
rs_msg.pagesize=pagesize
if   isInteger(request("page"))=False then
pageno=1
else
if request("page")=""  or request("page")<=1 then
pageno=1
else
pageno=int(request("page"))
if pageno>rs_msg.pagecount then
pageno=rs_msg.pagecount
end if
end if
end if
if not rs_msg.BOF then
Rs_msg.Move Rs_msg.PageSize*(pageno-1)
end if
if rs_msg.recordcount > 10 then
session("ad")="ad"
end if
%>

<% 
sql_notice="select id,userid,title,message,writetime from notice where userid="&userid&" order by id desc"
set rs_notice=server.createobject("adodb.recordset")
rs_notice.open sql_notice,conn,3,2
%>
<table border="0" cellspacing="0" cellpadding="2">
  <tr> 
    <td class=link width="80"><span title="留言板上共有 <%=rs_notice.recordcount%> 条公告"><img src="image/announce.gif" width="18" height="18" align="absmiddle"><b>公告：</b> 
      </span></td>
    <td class=link width="437"><marquee scrollamount=3> 
      <%
if rs_notice.eof and rs_notice.bof then
response.write "<b>当前没有公告.</b>["&now()&"]"
if session("user")<>"" then
response.write "[<a href=?action=write_notice&user="&user&">发表公告</a>]"
end if
else
response.write "<a href=?action=read_notice&user="&user&"><b>"&rs_notice("title")&"</b>["&rs_notice("writetime")&"]</a>"
if session("user")<>"" then
response.write "[<a href=?action=read_notice&user="&user&">公告管理</a>]"
end if
end if

rs_notice.close
%>
      </marquee> </td>
    <td class=link width="23">&nbsp;</td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="1">
  <tr> 
   <td height="1" width="22%" bgcolor="<%=InBorderColor%>" align="center"><img height=1 src="css/<%=css_name%>/<%=LBorderGraphic%>" 
            width="120" border=0></td>
     <td height="1" width="1" bgcolor="<%=InBorderColor%>" align="center"></td>
      <td width="410" height="1" bgcolor="<%=InBorderColor%>"></td>
  </tr>
</table>

  <%
i=1
while not rs_msg.eof and i<=rs_msg.pagesize
%>
  <%tablefirst()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="136" align="center">
  <tr> 
    <td bgcolor=<%=LTablebgColor%> align="center"> 
      <table width="120" border="0" cellspacing="0" cellpadding="2" height="136">
        <tr> 
          <td height="40" colspan="2" #d3e5fa> 
            <div align="center"><img src="image/<%=rs_msg("pic")%>.gif" width="40" height="40"></div>
          </td>
        </tr>
        <tr> 
          <td height="8" colspan="2" class=link > 
            <div align="center"> <br>
              <%
name_html=HTMLEnCode(rs_msg("name"))
response.write hightlight(name_html)
%>
            </div>
          </td>
        </tr>
        <tr> 
          <td width="6%"> 
            <div align="center"><img src="image/homepage.gif" width="16" height="16"></div>
          </td>
          <td width="14%" class=link ><a href="<%=rs_msg("homepage")%>" target="_blank" title="访问<%=rs_msg("name")%>的主页">我的主页</a></td>
        </tr>
        <tr> 
          <td width="6%"> 
            <div align="center"><img src="image/email.gif" width="16" height="16"></div>
          </td>
          <td width="14%" class=link ><a href="mailto:<%=rs_msg("email")%>" title="给<%=rs_msg("name")%>发信">写信给我</a></td>
        </tr>
        <tr> 
          <td width="6%" valign="top">       
            <div align="center">
<img src=image/oicq.gif width=16 height=16>
</div></td>
          <td width="14%" class=link  valign="middle"> 
            <%if rs_msg("qq")<>""then
            %><a href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<%= rs_msg("qq")%>" target="_blank" title="查看<%=rs_msg("qq")%>的资料"><%
hightlight(rs_msg("qq"))%></a><%
else
response.write("不告诉你")
end if
%>
          </td>
        </tr>
      </table>
      <br>
    </td>
    <TD vAlign=top bgColor=<%=InBorderColor%> rowspan="2" width=1><IMG 
            src="image/spacer.gif" 
            width=1> </TD>
    <td width="410"> 
      <table cellspacing=0 cellpadding=1 width="400%" align=center border=0>
        <tbody> 
        <tr> 
          <td> 
            <table bordercolor=#111111 
                  cellspacing=0 cellpadding=0
                  border=0 class=link width="423" style="TABLE-LAYOUT: fixed">
              <tr> 
                <td valign=center height="20" style="LEFT: 0px; WIDTH: 76%; WORD-WRAP: break-word">&nbsp;                                                                                                                                                    
                  <%
name_html=HTMLEnCode(rs_msg("name"))
response.write hightlight(name_html)