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

📄 show.asp

📁 经过一些更改的留言板
💻 ASP
字号:
<!--#include file="data.asp"-->
<!--#include file="ubb.asp"-->
<%
dim xxid, exec, rs,  title
xxid=trim(request("id"))
exec="select * from ly where id=" + CStr(xxid) + " " 
Set RS = Server.CreateObject("ADODB.RecordSet")                        
rs.Open exec, Conn, 1, 2

rs("yd")=rs("yd")+1
rs.update

title=rs("title")

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>:: 永久的回忆 ::</title>
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>

<body>
<!--#include file="head.asp"-->
        
<br>
<table border="0" width="650" cellspacing="0" cellpadding="3" align="center" class="table004">
 <tr class=table003> 
  <td width="18"> 
   <%if rs("jh")=1 then %>
   <img border="0" src="images/jh.gif" width="21" height="19"> 
   <%else%>
   <img src=images/nofollow.gif align=absmiddle width="15" height="15"> 
   <%end if%>
  </td>
  <td width="16"><img align=absmiddle border="0" src="images/<%=rs("pic")%>"></td>
  <td width="310" class="jnfont5">标题:<%=rs("title")%></td>
  <td width="100" class="jnfont5"> <%=rs("name")%> 
   <%if rs("bl")=1 then%>
   <img border="0" src="images/bl.gif"> 
   <%end if%>
  </td>
  <td width="200"> 
   <table border="0" width="100%" cellpadding="0">
	<tr> 
	 <td align="center"> <img align=absmiddle src=images/reply.gif> <a href="#re">回复</a> 
	 </td>
	 <td align="center"> <img border="0" src="images/email.gif" align=absmiddle> 
	  <%if rs("email")<>"" then %>
	  <a href="mailto:<%=rs("email")%>" title="<%=rs("email")%>">邮箱</a> 
	  <%
				  else
				  response.write "邮箱"
				  end if%>
	 </td>
	 <td align="center"><img align=absmiddle src=images/qq.gif> 
	  <% if rs("qq")<>"" then %>
	  <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>" target="_blank" title="<%=rs("qq")%>">QQ</a> 
	  <%
	 else
	 response.write "QQ"
	 end if
	 %>
	 </td>
	 <td align="center"> <img border="0" src="images/url.gif" align=absmiddle> 
	  <%if rs("url")<>"http://" then %>
	  <a href="<%=rs("url")%>" target="_blank" title="<%=rs("url")%>">主页</a> 
	  <%
				  else
				  response.write "主页"
				  end if%>
	 </td>
	</tr>
   </table>
  </td>
 </tr>
 <tr align="center"> 
  <td colspan="5" class="table001"> 
   <table border="0" width="98%" cellspacing="0" cellpadding="2">
	<tr> 
	 <td width="100%" colspan="3" style="letter-spacing: 1" class="jnfont3"> 
	  <p style="line-height: 150%"><%=ubbcode(rs("nei"))%></p>
	 </td>
	</tr>
	<tr> 
	 <td width="46%" class="jnfont5"><img src="images/back.gif" width="17" height="17" align="absmiddle"> 
	  <a href="index.asp">返回列表</a></td>
	 <td width="46%" align="right" class="jnfont5">[ 发表时间:<%=rs("t")%> ] </td>
	 <td width="8%"> 
	  <p align="center"><a href="gl.asp?id=<%=rs("id")%>"><img border="0" src="images/gl.gif" width="16" height="16" alt="管理"></a> 
	   <a href="#"> <img src="images/gotop.gif" width="15" height="15" border="0" alt="返上"></a> 
	 </td>
	</tr>
   </table>
  </td>
 </tr>
</table>
<%
	rs.close
	
	'显示跟帖
	exec="select * from ly where rt=" + CStr(xxid) + " order by id"                                                                                                  
	set rs=conn.execute(exec)                                                                                                                                                         
	%>
<%do while (not rs.EOF)%>
<br>
<table border="0" width="650" cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#CCFFCC" align="center" class="table004">
 <tr class=table003> 
  <td width="18" bordercolorlight="#808080" bordercolordark="#C4ECFF"> 
   <%if rs("jh")=1 then
              %>
   <img border="0" src="images/jh.gif" align=absmiddle> 
   <%else%>
   <img align=absmiddle src=images/nofollow.gif width="15" height="15"> 
   <%end if%>
  </td>
  <td width="16" bordercolorlight="#808080" bordercolordark="#C4ECFF"> <img border="0" src="images/<%=rs("pic")%>" align=absmiddle></td>
  <td width="310" bordercolorlight="#808080" bordercolordark="#C4ECFF" class="jnfont5" >标题:<%=rs("title")%></td>
  <td width="100" bordercolorlight="#808080" bordercolordark="#C4ECFF"> 
   <%if rs("bl")=1 then
              %>
   <%=rs("name")%>&nbsp;<img border="0" src="images/bl.gif"> 
   <%else%>
   <%=rs("name")%> 
   <%end if%>
  </td>
  <td width="200" bordercolorlight="#808080" bordercolordark="#C4ECFF"> 
   <table border="0" width="100%" cellpadding="0">
	<tr> 
	 <td align="center"> <img align=absmiddle src=images/reply.gif> <a href="#re">回复</a> 
	 </td>
	 <td align="center"> <img border="0" src="images/email.gif" align=absmiddle> 
	  <%if rs("email")<>"" then %>
	  <a href="mailto:<%=rs("email")%>" title="<%=rs("email")%>">邮箱</a> 
	  <%
				  else
				  response.write "邮箱"
				  end if%>
	 </td>
	 <td align="center"><img align=absmiddle src=images/qq.gif> 
	  <% if rs("qq")<>"" then %>
	  <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>" target="_blank" title="<%=rs("qq")%>">QQ</a> 
	  <%
	 else
	 response.write "QQ"
	 end if
	 %>
	 </td>
	 <td align="center"> <img border="0" src="images/url.gif" align=absmiddle> 
	  <%if rs("url")<>"http://" then %>
	  <a href="<%=rs("url")%>" target="_blank" title="<%=rs("url")%>">主页</a> 
	  <%
				  else
				  response.write "主页"
				  end if%>
	 </td>
	</tr>
   </table>
  </td>
 </tr>
 <tr> 
  <td colspan="5" class="table001" align="center"> 
   <table border="0" width="98%" cellspacing="0" cellpadding="2">
	<tr> 
	 <td width="100%" colspan="3" style="letter-spacing: 1" class="jnfont3"> 
	  <p style="line-height: 150%"><%=ubbcode(rs("nei"))%></p>
	 </td>
	</tr>
	<tr> 
	 <td width="46%" class="jnfont5"><img src="images/back.gif" width="17" height="17" align="absmiddle"> 
	  <a href="index.asp">返回列表</a> </td>
	 <td width="46%" align="right" class="jnfont5">[ 发表时间:<%=rs("t")%> ] </td>
	 <td width="8%"> 
	  <p align="center"><a href="gl.asp?id=<%=rs("id")%>"><img border="0" src="images/gl.gif" width="16" height="16" alt="管理"></a> 
	   <a href="#"> <img src="images/gotop.gif" width="15" height="15" border="0" alt="返上"></a> 
	 </td>
	</tr>
   </table>
  </td>
 </tr>
</table>
<%
rs.MoveNext
loop

rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<br>
<table border="0" width="650" cellspacing="0" cellpadding="3"  align="center" class="table004">
 <tr> 
  <td class="table003" align="center"> ::: 您 可 以 在 此 直 接 回 复 当 前 主 题 ::: </td>
 </tr>
</table>
<script>                  
function check()
{                 
	if (document.form1.title.value=="")                  
	{
		alert("请填写主题!");     
		document.form1.title.focus();
		return false;
	}
	if (document.form1.name.value=="")        
	{
		alert("请填写用户名!");
		document.form1.name.focus();
		return false;
	}
	if (document.form1.nei.value=="") 
	{
		alert("请填写留言内容!");     
		document.form1.nei.focus();
		return false;
	}
	return true;
}                             
</script>
        
<a name="re"></a>
<table border="0" width="650" cellspacing="0" cellpadding="2" align="center" class="table004">
 <form method="POST" action="raddnew.asp" name="form1">
  <tr> 
   <td width="19%" align="center" class="table001">发 言 标 题:</td>
   <td width="81%" class="table001"> 
	<input type="text" name="title" size="40" value="回复:<%=title%>" class="input1">
	<font color="#FF0000">*</font>(标题限制 <b>40</b> 个字符以内)</td>
  </tr>
  <tr> 
   <td width="19%" align="center" class="table001">发&nbsp; 表&nbsp; 人:</td>
   <td width="81%" class="table001"> 
	<input type="text" name="name" size="20" class="input1" value="<%=request.cookies("gbook")("username")%>" >
	<font color="#FF0000">*</font>(名字限制 <b>10</b> 个字符以内)</td>
  </tr>
  <tr> 
   <td width="19%" align="center" class="table001">密 码(可选): </td>
   <td width="81%" class="table001"> 
	<input type="password" name="pass" size="15" class="input1" value="<%=request.cookies("gbook")("password")%>" >
	(填写密码成为保留用户,名字将被保护)</td>
  </tr>
  <tr> 
   <td width="19%" align="center" class="table001">电 子 邮 件:</td>
   <td width="81%" class="table001"> 
	<input type="text" name="email" size="20" class="input1" value="<%=request.cookies("gbook")("email")%>" >
   </td>
  </tr>
  <tr class="table001"> 
   <td width="19%" align="center">  Q Q  :</td>
   <td width="81%"> 
	<input type="text" name="qq" size="20" class="input1" value="<%=request.cookies("gbook")("qq")%>">
   </td>
  </tr>
  <tr> 
   <td width="19%" align="center" class="table001">主 页 地 址:</td>
   <td width="81%" class="table001"> 
	<input type="text" name="url" size="30" value="<% if request.cookies("gbook")("url")="" then response.write "http://" else response.write request.cookies("gbook")("url")%>" class="input1">
   </td>
  </tr>
  <tr> 
   <td width="19%" align="center" class="table001">选 择 表 情:</td>
   <td width="81%" class="table001"> 
	<table border="0" width="85%" cellspacing="1" cellpadding="0">
	 <tr> 
	  <td align="center"> 
	   <input type="radio" value="p1.gif" name="pic" checked>
	  </td>
	  <td><img border="0" src="images/p1.gif"></td>
	  <td align="center"> 
	   <input type="radio" value="p2.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p2.gif"></td>
	  <td align="center"> 
	   <input type="radio" value="p3.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p3.gif"></td>
	  <td align="center"> 
	   <input type="radio" value="p4.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p4.gif"></td>
	  <td> 
	   <input type="radio" value="p5.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p5.gif"></td>
	  <td> 
	   <input type="radio" value="p6.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p6.gif"></td>
	  <td> 
	   <input type="radio" value="p7.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p7.gif"></td>
	  <td> 
	   <input type="radio" value="p8.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p8.gif"></td>
	  <td> 
	   <input type="radio" value="p9.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p9.gif" width="15" height="15"></td>
	 </tr>
	 <tr> 
	  <td align="center"> 
	   <input type="radio" value="p10.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p10.gif" width="15" height="22"></td>
	  <td align="center"> 
	   <input type="radio" value="p11.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p11.gif" width="15" height="15"></td>
	  <td align="center"> 
	   <input type="radio" value="p12.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p12.gif" width="15" height="15"></td>
	  <td align="center"> 
	   <input type="radio" value="p13.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p13.gif" width="15" height="15"></td>
	  <td> 
	   <input type="radio" value="p14.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p14.gif" width="15" height="15"></td>
	  <td> 
	   <input type="radio" value="p15.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p15.gif" width="15" height="15"></td>
	  <td> 
	   <input type="radio" value="p16.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p16.gif" width="15" height="15"></td>
	  <td> 
	   <input type="radio" value="p17.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p17.gif" width="15" height="15"></td>
	  <td> 
	   <input type="radio" value="p18.gif" name="pic">
	  </td>
	  <td><img border="0" src="images/p18.gif" width="15" height="15"></td>
	 </tr>
	</table>
   </td>
  </tr>
  <tr> 
   <td width="19%" align="center" class="table001"> 
	<p style="line-height: 200%">留<br>
	 言<br>
	 内<br>
   </td>
   <td width="81%" valign="top" class="table001"> 
	<textarea rows="5" name="nei" cols="70" class="input1" ></textarea>
   </td>
  </tr>
  <tr> 
   <td width="100%" colspan="2" class="table001"> 
	<p align="center"> 
	 <input type="hidden" name="rtid" value="<%=xxid%>">
	 <input type="submit" value="提交" name="B1" onclick="return check()" class="input1" >
	 &nbsp;&nbsp;&nbsp; 
	 <input type="reset" value="清除" name="B2" class="input1" >
   </td>
  </tr>
 </form>
</table>
<!--#include file="tj.asp"-->

</body>

</html>

⌨️ 快捷键说明

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