⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 read.asp

📁 超级留言簿(dxxo) 本留言参考了网上很多留言簿改进而来
💻 ASP
📖 第 1 页 / 共 2 页
字号:
%>
                  发表于:&nbsp;<%=hightlight(rs_msg("writetime"))%></td>                                                                                                                                                   
                <td align="right" height="20" style="LEFT: 0px; WIDTH: 24%; WORD-WRAP: break-word"> 
                  <font color="<%=InBorderColor%>">|</font> 第 <%=rs_msg.recordcount-rs_msg.pagesize*(pageno-1)-i+1%>                                                                                                                                                    
                  条留言</td>                                                                                                                                                   
              
              <tr valign="top"> 
                <td colspan="2" height="10"><img height=1 
                        src="css/<%=css_name%>/<%=MainBorderGraphic%>" width="100%"></td>
            </table>
            <table width="423" border="0" cellspacing="0" cellpadding="3" bordercolorlight="#333333" bordercolordark="#FFFFFF" style="TABLE-LAYOUT: fixed" class=link height="100">
              <tr> 
                <td colspan="2" class=link style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"> 
                  <%
      memo = htmlEncode(rs_msg("message"))
if ubb=1 then
memo=ubbcode(memo)
end if
memo = Replace(memo, "&lt;br&gt;", "<br>")
memo = Replace(memo, chr(10), "<br>")
memo = Replace(memo, vbCrLf, "<br>")
memo = Replace(memo, "【", "<font  color='#666699'>【</font>")
memo = Replace(memo, "】", "<font  color='#666699'>】</font>")
Response.Write hightlight(memo)
response.write Request.servervariables("document_name")
%>
                </td>
              </tr>
            </table>
            <table style="border-collapse: collapse; table-layout: fixed" bordercolor=#111111 
                  cellspacing=0 cellpadding=0 width="423" 
                  border=0 class=link>
              <tr> 
                <td valign=bottom height="10" width="421"><img height=1 
                        src="css/<%=css_name%>/<%=MainBorderGraphic%>" 
                        width="100%"></td>
              <tr> 
                <td valign=bottom height="20" style="left: 0px; word-wrap: break-word">&nbsp;<img src="image/ip.gif" width="16" height="15" align="absmiddle" border="0" class=link>来自:<%=hightlight(rs_msg("from_address"))%>&nbsp;<img src="image/post.gif" width="16" height="16" border="0" align="absmiddle"><a href="?action=write&user=<%=user%>">签写留言</a> 
                  <img src="image/replynow.gif" width="16" height="16" align="absmiddle" border="0"><a href="?action=reply&user=<%=user%>&messageid=<%=rs_msg("id")%>">回复留言</a>                                                                                                                                                   
                  <%if session("user")<>"" then%>                                                                                                                                                   
                  <a href="?action=write&user=<%=user%>"></a> <img src="image/edit.gif" width="16" height="15" align="absmiddle" border="0"><a href="?action=edit&user=<%=user%>&messageid=<%=rs_msg("id")%>&page=<%=pageno%>">编辑</a>                                                                                                                                                    
                  <a href="?action=write&user=<%=user%>"></a> <img src="image/del.gif" width="15" height="15" align="absmiddle" border="0"><a href="?action=delete&user=<%=user%>&messageid=<%=rs_msg("id")%>&page=<%=pageno%>">删除</a>                                                                                                
                  <%end if%>                                                                                                                                           
              
                                                        
              
            </table>
         </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" width="22%" bgcolor="<%=InBorderColor%>" align="center"><img height=1 src="css/<%=css_name%>/<%=LBorderGraphic%>" 
            width="120" border=0></td>
    <td width="410" height="1" bgcolor="<%=InBorderColor%>"></td>
  </tr>
</table>
<%tablelast()%>
<%
i=i+1
 rs_msg.MoveNext                                              
 wend 
%>
<SCRIPT type="text/javascript" src="http://bar.baidu.com/ad/popprg.js"></SCRIPT>
<SCRIPT language="JavaScript">
<!-- 
BaiduWriteAD("zouwenyedg","3");
//--> 
</SCRIPT> <img src= http://un.baidu.com/images/st.gif?tn=zouwenye width=0 height=0>
<%          
if rs_msg.recordcount<>0 then
if pageno-1 mod 10=0 then
		p=(pageno-1) \ 10
	else
		p=(pageno-1) \ 10
	end if

	response.write "<div class=link align=center>页次:<strong>"& pageno &"</strong>/<strong>"& rs_msg.pagecount &"</strong>页"&_
					" 分页:[ "

	if p*10>0 then response.write "<a href='?user="&user&"&keyword="&keyword&"&page="&p*10&"'>←</a>   "
    uming_i=1
	for ii=p*10+1 to P*10+10
		   if ii=pageno then
	          response.write "<font color=gray>"+Cstr(ii)+"</font> "
		   else
		      response.write "<a href='?user="&user&"&keyword="&keyword&"&page="&ii&"'>"+Cstr(ii)+"</a>   "
		   end if
		if ii=rs_msg.pagecount then exit for
		 uming_i=uming_i+1
	next
	if ii<=rs_msg.pagecount and uming_i=11 then response.write "<a href='?user="&user&"&keyword="&keyword&"&page="&ii&"'>→</a>   "
response.write(" ]")
end if
%>
<table align="center">
  <tr>
    <form method="POST" action="index.asp?action=search&user=<%=user%>">
      <td width="100%" height="6" class=link > 
        <p align="center" class=link ><img src="image/find.gif" width="16" height="16" align="absmiddle" border="0">关键字:                                                                                                                                                    
          <input name="keyword" size="20" class=link> &nbsp;&nbsp;&nbsp; <input name="B1" type="submit" value="搜索" class=link>                                                                                                                          
        </p>
      </td>
    </form>
  </tr>
     
</table>
<% 
else
if (rs_msg.bof or rs_msg.eof) and request("action")="" then
%>
<%
write_msg()
end if
if request("action")="search" then
nosearch_html="<table width=100% height=151 border=1 cellspacing=0 cellpadding=3 bordercolorlight=#333333 bordercolordark=#FFFFFF>        <tr>           <td width='100%' height='6' class=link ><div align=center>对不起,没有找到符合查找条件的内容!<p align=center>[<a href=javascript:history.go(-1);>这里返回</a>]</p></div></td></tr></table>"
table(nosearch_html)   
%>
<table align="center">
  <tr>
    <form method="POST" action="index.asp?action=search&user=<%=user%>">
      <td width="100%" height="6" class=link > 
        <p align="center" class=link ><img src="image/find.gif" width="16" height="16" border="0" align="absmiddle">关键字:                                                                                                                                                    
          <input name="keyword" size="20" class=link>
          &nbsp;&nbsp;&nbsp;                                                                                                                                                    
          <input name="B1" type="submit" value="搜索" class=link>
        </p>
      </td>
    </form>
  </tr>  
</table>  
<%
end if
end if 
%>
<%
        
end if
%>
<%end sub%>
<table width="545" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr> 
<td><table width=544 height="45" border=0 cellpadding=0 cellspacing=0 bgcolor="f7f7f7">
<form action=http://www.baidu.com/baidu target=_blank>
<tbody>
<tr> 
<td width="30%" rowspan="2"> <div align=center><a href="http://www.baidu.com/index.php?tn=zouwenye" target=_blank> 
<img alt=百度中文搜索引擎 border=0 src="http://img.baidu.com/images/ss_logo.gif"></a></div></td>
<td valign=bottom width="70%"> <div align=center> 
<table align=right border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr> 
<td><font color="#666666" style="FONT-SIZE: 12px">全球最大的中文信息库,一定有你想要的...</font><font color="#666666" style="FONT-SIZE: 12px"> </font><A                
                        href="http://www.dxxo.com/js/js.asp" 
                        target=_blank><font style="font-size: 12px" color="#ff0000">免费代码</font></A>&nbsp;&nbsp;<A                
                        href="http://www.21dx.com/cn" 
                        target=_blank><font style="font-size: 12px" color="#ff0000">网站统计</font></A></td>
</tr>
</tbody>
</table>
</div></td>
</tr>
<tr> 
<td valign=bottom><font style="FONT-SIZE: 12px"> 
<input id=word name=word size="45" value="请输入关键字"  onMouseOver="this.focus()" onBlur="if (value ==''){value='请输入关键字'}" onFocus="this.select()" onClick="if(this.value=='请输入关键字')this.value=''">
</font> <input align=middle border=0 height=17 id=image name=image src="http://img.baidu.com/img/go.gif" type=image width=30>
<font style="FONT-SIZE: 12px"> <a href="http://www.dxxo.com/js/js.asp" target=_blank></a><a href="http://www.dxxo.com/js/js.asp" target=_blank></a>
<input id=tn name=tn type=hidden value=zouwenye>
</font></td>
</tr>
</form>
</table></td>
</tr>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -