📄 down_show.asp
字号:
else
nclassids="(0)"
end if
Response.write "<a href=index.asp?cid="& RsStr(0) &"&id="& id &">" &RsStr(1) & "</a><font color=#CCCCCC>" &nclassids& "</font> "
RsStr.movenext
if RsStr.eof then exit for
next
Response.write "<br><br>"
loop
else
Response.write ""
end if
RsStr.close
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="2spic/bg1.gif"> <div align="center">物品搜索</div></td>
</tr>
</table>
<form name="form1" method="post" action="index.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>类型:
<select name="lx" id="select4">
<option value="">选择</option>
<option value="1">出售</option>
<option value="2">求购</option>
<option value="3">出租</option>
<option value="4">求租</option>
<option value="5">求职</option>
<option value="6">招聘</option>
</select> </td>
</tr>
<tr>
<td>地区:
<select name="dq" id="select5">
<option value="">选择地区</option>
<%
Sql = "Select Unid,classname from 2s_dq where flag=0 order by unid asc"
set rs = conn.execute(sql)
if not rs.eof then
do while not rs.eof
Response.write "<option value="&rs(1)&">"& Qcdn.HTMLcode(rs(1)) &"</option>"
rs.movenext
loop
rs.close
end if
%>
</select></td>
</tr>
<tr>
<td>描述:
<input name="title" type="text" id="title3"></td>
</tr>
<tr>
<td><div align="center">
<input type=submit value=提交 name=Submit2>
<input type=reset value=重置 name=Submit3>
</div></td>
</tr>
</table>
</form>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="2spic/bg1.gif"> <div align="center">本分类浏览Top10</div></td>
</tr>
<tr>
<td>
<%Call Qcdn.Toplist2s("10","hits",id)%>
</td>
</tr>
</table>
</div></td>
<td valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#F4F4F4">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#F4F4F4">
<tr>
<td height="25" background="2spic/bg1.gif" colspan="4">信息状态：
<%
Select Case jx
Case "0"
response.write "<font color=""#008000"">[未完]</font>"
Case "1"
response.write "<font color=""#FF00FF"">[完成]</font>"
End Select
%>
（完成交易请更改信息状态，免得电话骚扰。）</td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF" colspan="4"> <div align="center"><%=Qcdn.HTMLcode(title)%></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="4"><span id="ContentBody" class="content" style="display:block;padding:0px 10px"><%=DefaultPic%><br>
<br>
</span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="4"><span id="ContentBody" class="content" style="display:block;padding:0px 10px"><%=Qcdn.Ubbcode(content)%><br>
<br>
</span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F4F4F4">
<tr bgcolor="#FFFFFF">
<td width="15%" height="25"><div align="center">联系人：</div></td>
<td width="31%" height="25"><%=name_rs%></td>
<td width="12%" height="25"><div align="center">浏览次数：</div></td>
<td width="42%" height="25"><%=hits%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center">email： </div></td>
<td height="25"><%=email_rs%></td>
<td height="25"><div align="center">发表时间：</div></td>
<td height="25"><%=Intime%></td>
</tr>
<tr bgcolor="#F4F4F4">
<td height="25" colspan="4">联系方式</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="4"><%=tel_rs%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<br>
<%
Set Record=Server.CreateObject("Adodb.Recordset")
Sql = "SELECT top 10 username, content, faceid, Intime, Unid FROM 2s_relist WHERE articleID = "& Unid &" ORDER BY Intime DESC"
Record.CursorType=3
Record.PageSize=10
Record.Open SQL,Conn
if Record.eof and Record.bof then
response.write ""
else
if Not Record.Eof Then
SumCount = Record.recordcount
Record.AbsolutePage=Currentpage
End If
RowCount=0
While Not Record.eof and Rowcount<Record.PageSize
username = Record(0)
content = Record(1)
faceid = Record(2)
Intime = Record(3)
%>
<table width=98% border=0 align="center" cellpadding=0 cellspacing=1 bgcolor="#F4F4F4" >
<tr>
<td height=25 bgcolor="#F4F4F4" class="tdbg-dark"> <img src="2spic/face/face<%=faceid%>.gif" align=absmiddle>网友 <b><%=username%></b>
于
<font class=gray><%=Intime%></font> 发表评论 </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" > <span style="padding:5px 10px 5px 30px;width=100%; word-break:break-all">
<%=Qcdn.HTMLcode(content)%> </span> </td>
</tr>
<tr height=1><td class=hr></td></tr>
</table>
<br>
<%
RowCount=RowCount+1
Record.Movenext
Wend
%>
<%end if%>
<form name="remarkForm" action="" method="post" onsubmit="return checkRemark();">
<input type="hidden" name="articleid" value="<%=Unid%>">
<input type="hidden" name="id" value="<%=id%>">
<table width=98% border=0 align="center" cellpadding=5 cellspacing=0>
<tr><td>
<script>
function checkRemark()
{
var form=document.all.remarkForm;
if (form.content.value=="")
{ alert("请填写评论内容");
form.content.focus();
return false;
}
if (form.username.value=="")
{ alert("请填写姓名");
form.username.focus();
return false;
}
if (form.content.value.length>200)
{ alert("评论内容不可以超过200字");
form.content.focus();
return false;
}
if (form.username.value.length>10)
{ alert("姓名不可以超过10个字");
form.username.focus();
return false;
}
form.submit.disabled=true;
return true;
}
function showLen(obj)
{
document.all.bodyLen.innerText=obj.value.length;
}
</script>
<input type="radio" name="face" value="1" checked="True"><img src=2spic/face/face1.gif>
<input type="radio" name="face" value="2"><img src=2spic/face/face2.gif>
<input type="radio" name="face" value="3"><img src=2spic/face/face3.gif>
<input type="radio" name="face" value="4"><img src=2spic/face/face4.gif>
<input type="radio" name="face" value="5"><img src=2spic/face/face5.gif>
<input type="radio" name="face" value="6"><img src=2spic/face/face6.gif>
<input type="radio" name="face" value="7"><img src=2spic/face/face7.gif>
<input type="radio" name="face" value="8"><img src=2spic/face/face8.gif>
<input type="radio" name="face" value="9"><img src=2spic/face/face9.gif><br>
<input type="radio" name="face" value="10"><img src=2spic/face/face10.gif>
<input type="radio" name="face" value="11"><img src=2spic/face/face11.gif>
<input type="radio" name="face" value="12"><img src=2spic/face/face12.gif>
<input type="radio" name="face" value="13"><img src=2spic/face/face13.gif>
<input type="radio" name="face" value="14"><img src=2spic/face/face14.gif>
<input type="radio" name="face" value="15"><img src=2spic/face/face15.gif>
<input type="radio" name="face" value="16"><img src=2spic/face/face16.gif>
<input type="radio" name="face" value="17"><img src=2spic/face/face17.gif>
<input type="radio" name="face" value="18"><img src=2spic/face/face18.gif><br>
点 评：
<textarea name="content" cols="40" Rows="4" onkeydown="showLen(this)" onkeyup="showLen(this)"></textarea> 字数<span id="bodyLen">0</span>
<br>
<%
Response.write("用户名： <input type=text name='username' value='' MaxLength=50 size=10>")
%><input type="hidden" name="method" value="1">
<input type=submit name=submit value=" 发 表 " >
<br><br>
</td>
<td width=350>
<ul style="list-style-type:square;margin-left:1em;line-height:150%">
<li>尊重网上道德，遵守中华人民共和国的各项有关法律法规
<li> 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
<li> 本站管理人员有权保留或删除其管辖留言中的任意内容
<li> 本站有权在网站内转载或引用您的评论
<li> 参与本评论即表明您已经阅读并接受上述条款
</ul>
</td></tr>
</table>
<%if author=Request.Cookies("qcdn")("user_name") then%>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">
<a href="2s_show.asp?id=<%=id%>&Unid=<%=Unid%>&isgood=<%=jx%>&method=2">信息状态</a>
</div></td>
</tr>
</table>
<%end if%>
<%if Session("flag") = "1" then%>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">
<a href="show.asp?id=<%=id%>&Unid=<%=Unid%>&isgood=<%=jx%>&method=2">信息状态</a>
<a href="2s_show.asp?id=<%=id%>&Unid=<%=Unid%>&isgood=<%=sxs%>&method=3">信息屏蔽</a>
<a href="show.asp?id=<%=id%>&Unid=<%=Unid%>&isgood=<%=top1%>&method=4">本类固顶</a>
<a href="show.asp?id=<%=id%>&Unid=<%=Unid%>&isgood=<%=top%>&method=5">加总固顶</a>
</div></td>
</tr>
</table>
<%end if%>
</form>
</td>
</tr>
</table>
</form>
<!--#include file="copy.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -