📄 comment.asp

📁 用VB+JAVASCRIPT开发的一个仿QQ爱墙软件
💻 ASP
字号:
<!--#include file="conn.asp" -->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>爱墙评论 华夏爱墙 免费爱情许愿墙 ASP爱墙程序演示下载 - Powered by HX33</title>
<meta name="Author" content="华夏信息网 & HX33.Net" />
<meta name="Keywords" content="<%=HX33_KeyWord%>" />
<meta name="Description" content="<%=HX33_Descrip%>" />
<style>
@import url(inc/style.css);
@import url(inc/c.css);
@import url(inc/note.css);
@import url(inc/comment.css);
</style>
</head>
<body>

<script>
	function searchMsg()
	{
		var noStr = document.getElementById("scripNo").value;
		var no = parseInt(noStr);
		if(isNaN(no)  || toInt(noStr)== -1){
			alert("纸条编号必须为数字");
			return;
		}else if(no < 1){
			alert("纸条编号必须为正整数");
			return;
		}else{
			window.location.href = "index.jsp?no="+no;
		}
	}
	function toInt(str){
		var ret=0;
		var mid_num;
		for(var i=0;i<str.length;i++){
			mid_num=str.charAt(i);
			if(mid_num<'0' || mid_num>'9')
			{
				return -1;
			}
			ret=ret*10+(mid_num-'0');
		}
		return ret;
	}
	
</script>
<!--#include file="HX33_Top.asp" -->

<div id="ContOuter">
<div id="ContInner">
<div id="Cont">

	  <div id="DIY" align="center">
			<p id="Guid"><a href="default.asp" class="a_white">华夏爱墙首页</a> >> 评论</p>
			<h2 id="Regards">&nbsp;</h2>
	        <div id="remarks">
	          <div id="left">				
				<h4>发表评论</h4>				
				<div id="join">
				<iframe id="rk" name="remarks" src="remarks.asp?HX33_WishID=<%=Cint(request("HX33_WishID"))%>" width="100%" height="545" frameborder="0" scrolling="no" marginheight="0" marginwidth="0"></iframe>				
			</div>
			  </div>
	          <div id="right" align="left">
			  
<%
	Dim nSql
		nSql="Select * From [HX33_LoveWallPosts] where HX33_WishID = "&Cint(request("HX33_WishID"))
	Dim nRs
    Set nRs=Server.CreateObject("ADODB.RecordSet")	
		nRs.Open nSql,Conn,1,1
	if not nRs.eof then
%>
			  
			  	<h4><%=nRs("HX33_Sender")%> 给 <%=nRs("HX33_Picker")%> 的字条：</h4>
				<div id="messageremark">
					<div class="Style0">
						  <div class="Num">字条编号： <img src="images/icon_close.gif" alt="关闭" /><%=nRs("HX33_WishID")%></div>
							<p id="Detail" class="Detail"><img src="images/icon/<%=nRs("HX33_Icon")%>" name="IconImg" width="50" height="50" class="Heart" id="IconImg" /><span class="Head" id="Head"><%=nRs("HX33_Picker")%></span><br />
							  <span id="AreaText"><%=nRs("HX33_WishContent")%></span></p>
							<p class="Sign" id="Sign"><%=nRs("HX33_Sender")%></p>
							<p class="Date"><%=nRs("HX33_WishDate")%></p>
				  </div>
<%
else
response.Write "<script>alert('查无此帖子！');location.href='Default.asp';</script>"
end if
nRs.close:set nRs = nothing
%> 		  
				  
				  
				  <p class="AC"><a id="diybtn" href="HX33writeWish.asp">免费贴字条</a></p>
				</div>
<h4>最新发布的字条</h4>
				<ul id="latest">

<%
		nSql="Select top 10 * From [HX33_LoveWallPosts] Order By HX33_WishID DESC"
    Set nRs=Server.CreateObject("ADODB.RecordSet")	
		nRs.Open nSql,Conn,1,1
	while not nRs.eof
%>
<li class="style<%=nRs("HX33_Face")%>"><img id="close" src="images/icon_close.gif" alt="关闭" /><p class="head"><span class="Head"><%=nRs("HX33_Sender")%></span> 对 <span class="Head"><%=nRs("HX33_Picker")%></span> 说:</p><p class="detail"><a href="default.asp?HX33_WishID=<%=nRs("HX33_WishID")%>" target="_blank"><%=nRs("HX33_WishContent")%></a></p></li>
<%
nRs.movenext
wend
nRs.close:set nRs = nothing
%> 

					
				
				</ul>
			  </div>
          </div>
	  </div>
	</div>

</div>
</div>

<div id="footer">
<!--#include file="foot.asp" -->
<%=HX33_Reserve%>
</div>
<%=Bottom%>
</body>
</html>
⌨️ 快捷键说明

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