pinlunall.asp

模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息 发布.展示.固顶.刷新 3.加盟商家管理 注册.登录.信

<!--数据库链接文件-->
<!--#include file="byshop_conn.asp"-->
<!--网站头文件-->
<!--#include file="webhead.asp"-->
<%dim id
pinlunid=lcase(trim(request("pinlunid")))
  if IsNumeric(request.QueryString("carid"))=False or request.QueryString("pinlunid")="" then
		response.write"<SCRIPT language=JavaScript>alert('参数错误！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end	
		end if
classid=lcase(trim(request("classid")))
  if IsNumeric(request.QueryString("classid"))=False or request.QueryString("classid")="" then
	response.write"<SCRIPT language=JavaScript>alert('参数错！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end	
		end if
		titlename=request.QueryString("titlename")
					  	if classid=1 then
					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select id from 1car where  id="&pinlunid,conn,1,1
					  	end if
					  	 	if classid=2 then
					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select id from 2car where  id="&pinlunid,conn,1,1
					  	end if
					  	 	if classid=3 then
					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select girlid from xcmn where  girlid="&pinlunid,conn,1,1
					  	end if
					  		if classid=4 then
					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select nclassid from nclass where  nclassid="&pinlunid,conn,1,1
					  	end if
						if rs.bof and rs.eof then
						response.write"<SCRIPT language=JavaScript>alert('参数错误！');"
						response.write"javascript:history.go(-1)</SCRIPT>"
						response.end
						end if
		%>

		<title><%=webname%>-全部留言</title>
<div align="center">
	<table border="0" width="779" id="table1" cellspacing="0" cellpadding="0">
		<tr>
			<td><span lang="zh-cn">您的位置</span>：<span lang="zh-cn"><a href="default.asp">网站首页</a> &gt;<%
			if classid="1" then		
			response.write "出售信息"
			end if
			if classid="2" then
			response.write "求购信息"
			end if
			if classid="3" then
			response.write "香车美女"
			end if
			if classid="4" then
			response.write "品牌展示"
			end if
			%> &gt;
			<%=titlename%>&gt;
			全部留言</span></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="1" width="779" id="table2" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#BDDBE9">
	

				<%
				 	set rs1=server.createobject("adodb.recordset")
					  	rs1.open "select * from pl where  class="&classid&" and shenghe=1  and pinlunid="&pinlunid&" order by pinglundate desc ",conn,1,1
				%><tr>
			<td>
			<table border="0" width="100%" id="table35" cellpadding="0" bordercolor="#BDDBE9" cellspacing="0">
	<tr>
		<td>
		<table border="0" width="100%" id="table39" cellspacing="1">
			<tr>
				<td>
				<table border="0" width="100%" id="table40" cellspacing="0" cellpadding="0" bgcolor="#BDDBE9">
					<tr>
						<td>查看信息</td>
					</tr>
				</table>
				</td>
			</tr>
		</table>
		</td>
	</tr>
	<tr>
		<td><div align="center">
			<a name="_comment_tag_">
			<br>
			<table style="FONT-SIZE: 9pt; border-collapse:collapse" cellSpacing="1" cellPadding="3" border="1" id="table36" width="95%" bordercolor="#C0C0C0">
				<tr>
					<td align="middle" bgColor="#BDDBE9" width="70">
					<input class="go-wenbenkuang" onclick="spanComment356431584.style.display=''; fmComment356431584.content.focus();" type="button" value="发表评论"> 
					</td>
					<td noWrap align="middle" bgColor="#BDDBE9">评论人</td>
					<td noWrap align="middle" bgColor="#BDDBE9">评论共<font color="red"><%=rs1.recordcount%></font>条
					 </td>
					<td align="middle" bgColor="#BDDBE9" width="81">发表时间</td>
				</tr>
				<tr id="spanComment356431584" style="DISPLAY: none" bgColor="white">
					<td colSpan="4">
					<form name="fmComment356431584" onsubmit="    if(content.value=='') { content.focus(); alert('评论内容不能为空！'); return false; }    if(content.value.length&gt;1000) { content.focus(); alert('评论内容字数超过1000！'); return false; }    if(nickName.value=='') { nickName.focus(); alert('笔名不能为空！'); return false; }	if(!nickName.value.match(/^[a-zA-Z0-9_\u4e00-\u9fa5]+$/)) { nickName.focus(); alert('笔名必须是字母、数字、下划线或者汉字！'); return false; }    return true;  " method="post" action="savepinlun.asp">
						联系方式： 
						<input  maxLength="100" name="contact" class="wenbenkuang">
						<br>
						（此信息有助于我们与您联系。 
						<input type="radio" CHECKED value="false" name="open">不对外公开 
						<input type="radio" value="true" name="open">对外公开）<br>
						笔 名 <font color="red">&nbsp;*</font>： <input  maxLength="20" name="nickName" class="wenbenkuang">
						<input type="hidden" name="linkaddress" value="<%=request.servervariables("http_referer")%>">
						<br>
						评论内容 <font color="red">*</font>： （最多1000字。当前字数：<span id="spanCommentContentLength356431584" style="COLOR: red">0</span>）<br>
						<textarea onkeyup="if(event.ctrlKey &amp;&amp; (10 == event.keyCode || 13 == event.keyCode) &amp;&amp; form.onsubmit()) form.submit(); else onchange();" onpropertychange="onchange()" name="content" rows="5" cols="60" onchange="document.getElementById('spanCommentContentLength356431584').innerHTML=value.length;" class="wenbenkuang" ></textarea>
						<br>
						　<table border="0" width="100%" id="table37" cellspacing="0" cellpadding="0">
							<tr>
								<td width="69%">
			<a name="_comment_tag_0">
						&nbsp;</a><a name="_comment_tag_1"><font color="red">注：所有评论通过审核后才会被公开。</font></a><br>
			1.尊重网上道德，遵守<a target="_blank" href="law.asp"><font color="red">《全国人大常委会关于维护互联网安全的决定》</font></a>和<a target="_blank" href="law2.asp"><font color="red">《互联网电子公告服务管理规定》</font></a>及中华人民共和国其他各项有关法律法规。<br>
				
				2.承担一切因您的行为而直接或间接导致的民事或刑事法律责任 <br>
				
				3.本站管理人员有权保留或删除其管辖留言中的任意内容 <br>
				
				4.本站有权在网站内转载或引用您的评论 <br>
				5.参与本评论即表明您已经阅读并接受上述条款<table border="0" width="100%" id="table38" cellspacing="0" cellpadding="0">
				<tr>
					<td>
					<p align="right">
			<a name="_comment_tag_2">
						表情：</a></td>
				</tr>
			</table>
								</td>
								<td><script>function showimage(){document.images.tus.src=""+document.fmComment356431584.userface.options[document.fmComment356431584.userface.selectedIndex].value+"";}

facetol=36;
temp = Math.floor(Math.random() * facetol+1);


document.write("<img src=images/touxiang/1/"+temp+".gif name=tus> ")
document.write("<select name=userface size=1 onChange=showimage()>")

for(i=1;i<=facetol;i++) {
if (i==temp) ii="selected";else ii=""
document.write("<option value='images/touxiang/1/"+i+".gif' "+ii+">"+i+"</option>")
}
</script></select> 　</td>
							</tr>
						</table>

					<input type="hidden" value="<%=pinlunid%>" name="pinlunid">
						<input type="hidden" value="<%=classid%>" name="classid">
						<input type="hidden" value="<%=rs("titlename")%>" name="titlename">
						<input  type="submit" value="发表我的评论！" class="go-wenbenkuang"> 
						</p>
					</form>
					</td>
				</tr>
				<%
				
			 
					  do while not rs1.eof
				
%>
				
				<tr bgColor="white">
					<td noWrap align="left" width="70"><nobr><font color="red"><%=rs1("storey")%></font> 楼</nobr>
					<nobr>[<a class="comment" onclick="spanComment356431584.style.display=''; fmComment356431584.content.focus(); fmComment356431584.content.value='回复 <%=rs1("storey")%> 楼(<%=rs1("nickName")%>)：'; fmComment356431584.content.onchange(); return false;" href="#">回复</a>]</nobr>
　</td>
					<td style="WORD-BREAK: break-all; WORD-WRAP: break-word" align="middle" width="50">
					<font color="green"><%=rs1("nickName")%></font></td>
					<td style="WORD-BREAK: break-all; WORD-WRAP: break-word" width="285" valign="top">
					<a name="_comment_tag_">
					<table border="0" width="100%" id="table38" cellspacing="0" cellpadding="0">
						<tr>
							<td valign="top"><a name="_comment_tag_">
					<img src="<%=rs1("userface")%>" align="absBottom"><%=rs1("pingluncontent")%>　</td>
						</tr>
						<tr>
							<td><%if rs1("open") =1 then 
							response.write "<font color='green'>联系方式</font>:"&rs1("contact")
							 end if%>　</td>
						</tr>
					</table></td>
					<td width="81">
										<%
					if len(month(rs1("pinglundate")))=2 then
					response.write   month(rs1("pinglundate"))
					else
					response.write "0"&month(rs1("pinglundate"))
					end if
					%>-<%
							if len(day(rs1("pinglundate")))=2 then
					response.write   day(rs1("pinglundate"))
					else
					response.write "0"&day(rs1("pinglundate"))
					end if
					%>&nbsp;<%
					if len(hour(rs1("pinglundate")))=2 then
					response.write   hour(rs1("pinglundate"))
					else
					response.write "0"&hour(rs1("pinglundate"))
					end if
					%>:<%
					if len(minute(rs1("pinglundate")))=2 then
					response.write   minute(rs1("pinglundate"))
					else
					response.write "0"&minute(rs1("pinglundate"))
					end if
					%></td>
				</tr>
				
				<%
				rs1.movenext
			
				loop
				rs1.close
				set rs1=nothing
				%>
				<tr bgColor="white">
					<td style="LINE-HEIGHT: 14pt" colSpan="4">　</td>
				</tr>
			</table>
 		</div><br>
		</td>
	</tr>
</table></td>
			<td width="175">　</td>
		</tr>
	</table>
</div>