xinximemo.asp

二手书籍系统

<td width="85" align="right" height="24" background="image/dot.gif">信息地区：</td>
<td width="262" height="24" background="image/dot.gif"><%=rs("diqu")%></td>
</tr>
<tr>
<td width="85" align="right" height="24" background="image/dot.gif">信息类别：</td>
<td width="262" height="24" background="image/dot.gif">

<a href="info.asp?class1=<%=rs1("id")%>&cnmai=1"><%=rs1("class1")%></a> →
<%
set rs1=server.createobject("adodb.recordset") 
sql1 = "select id,class2 from class2 where id="&cstr(rs("class2"))
rs1.open sql1,conn,1,1
On Error Resume Next
%>
<a href="info.asp?class1=<%=id_1%>&class2=<%=rs1("id")%>&cnmai=2"><%=rs1("class2")%><%
rs1.close
set rs1=nothing
%></td>
</tr>
<tr>
<td width="85" align="right" height="24" background="image/dot.gif">
相关价格：</td>
<td width="262" height="24" background="image/dot.gif"><%if rs("jiage")="0" then %>面议<%else%><%=rs("jiage")%><%end if%></td></tr>
<tr>
<td width="85" align="right" height="24" background="image/dot.gif">
发布者：
　</td>
<td width="262" height="24" background="image/dot.gif"><%if rs("com")<>"" and rs("username")<>"" then %><a target="_blank" href="xinxi_mail.asp?id=<%=rs("id")%>"><%=rs("name")%>←[发邮件信息]</a><br><img border="0" alt="商家会员发布" src="image/shang.gif" width="15" height="15" ><a target="_blank" href="com.asp?com=<%=rs("username")%>"><%=rs("com")%>←<font color="#D56A00">[</font><font color="#D56A00">查看商家店铺</font></a><font color="#D56A00">]</font><%else if rs("username")<>"" and rs("com")="" then %><img border="0" alt="个人会员发布" src="image/ge.gif" ><a title="查看用户信息" target="_blank" href="per.asp?username=<%=rs("username")%>"><%=rs("name")%></a>←<font color="#D56A00">[</font><a title="给店家发信息" target="_blank" href="xinxi_mail.asp?id=<%=rs("id")%>"><font color="#D56A00">给发布者发短信</font></a><font color="#D56A00">]</font><%else%><%=rs("name")%>[游客快速发布]<%end if%><%end if%></td></tr>
<tr>
<td width="85" align="right" height="24" background="image/dot.gif">联系电话：　</td>
<td width="262" height="24" background="image/dot.gif"><%=rs("dianhua")%></td></tr>
<%if rs("qq")<>"" then %>
<tr>
<td width="85" align="right" height="24" background="image/dot.gif">QQ或MSN：　</td>
<td width="262" height="24" background="image/dot.gif"><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("qq")%>&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs("qq")%>:9 alt="用QQ给他发信息"><%=rs("qq")%></a></td></tr>
<%else%><%end if%>
<tr>
<td width="85" align="right" height="24" background="image/dot.gif">联系地址：</td>
<td width="455" height="24" background="image/dot.gif" colspan="2"><%=rs("dizhi")%></td></tr>
<tr><td width="570"  height="23" colspan="4"><b>&nbsp;&nbsp;&nbsp;
<font color="#999999">● 信息内容</font></b></td>
</tr>
<tr><td width="560" colspan="4" height="50" style="border-bottom: 1px solid #C0C0C0; padding: 1px">
<p style="line-height: 150%; margin: 0 10px" class=tmpstr>&nbsp;&nbsp;&nbsp;&nbsp;<%=HTMLEncode(rs("memo"))%></td></tr>
<tr><td colspan="4" height="26">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table2">
<tr>
<td><FORM METHOD=POST ACTION="http://www.ip138.com/ips.asp" target="_blank" name="ipform" onSubmit="return checkIP();" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
&nbsp;发布者IP:<input type="text" name="ip" size="15" value="<%=rs("ip")%>" style="border: 1px solid #FFFFFF; background-color: #FFFFFF"><input type="submit" value=" 查看ip " title="通过查看发布人IP，可以判断信息的可信度" style="background-color: #FFFFFF">
<INPUT TYPE="hidden" name="action" value="2"></FORM></td>
<td>
<form action="http://www.ip138.com:8080/search.asp" method="POST" onSubmit="return checkMobile();" target="mobilewindow" name="mobileform" style="margin-top: 0; margin-bottom: 0">  
<input type="hidden" name="action" value="mobile"><input class="TextBoxStyle" maxLength="11" name="mobile" size="15" value="<%=rs("dianhua")%>"> 
<input class="ButtonStyle" type="submit" value="手机归属查询" style="color: #FF0000; background-color:#FFFFFF"></form></td></tr>
</table>
</td></tr>
<tr><td width="560" colspan="4" height="12"><font color="#C0C0C0">&nbsp;<span style="font-size: 11pt">
</span><font size="2">&nbsp; </font></font><font color="#999999">
通过查看发布者IP和手机归属判断信息的真实性与合法性,请谨慎审核,理性抉择。</font></td></tr>
<tr>
  <td colspan="4" height="13"><table width="509" border="0" align="center">
    <tr>
      <td> <div align="center"><a href="http://www.jc2s.com/com.asp?com=pc-sos"><img src="image/99diannao.gif" alt="九九电脑保姆" width="145" height="55" border="0"></a></div></td>
      <td><div align="center"><a href="#"><img src="image/huangjin2.gif" alt="黄金广告位" width="145" height="55" border="0"></a></div></td>
      <td><div align="center"><a href="#"><img src="image/huangjin3.gif" alt="黄金广告位" width="145" height="55" border="0"></a></div></td>
    </tr>
  </table></td>
</tr>
<tr><td width="560" align="right" colspan="4" height="26">
<div align="center">
<table border="0" cellpadding="0" style="border-style:solid; border-width:1px; padding:1px; border-collapse: collapse" bordercolor="#CCCCCC" width="100%" height="184">
<form action="xinxi_hf.asp?id=<%=rs("id")%>&xxusername=<%=rs("username")%>&cnmai=chk" method="POST">
<tr>
<td height="22" style="border-bottom-style: none; border-bottom-width: medium" colspan="2" bgcolor="#FFE9D2">
<p align="center"><b>给本信息发表回复</b></td>
</tr>
<tr>
<td height="20" colspan="2">
<p align="center">(站内提示：请随时关注您发布的信息，会有买/卖家给您留言!)</td>
</tr>
<tr>
<td height="20" colspan="2">
　 用户名：　  
  <input type="text" name="username" size="16" maxlength="50" value="<%=request.cookies("cnmai")("username")%>">&nbsp;&nbsp;
<input type="checkbox" name="nm" value="on">匿名发布&nbsp; [<a target="_blank" href="reg.asp">注册</a> <a target="_blank" href="login.asp">登陆</a>]</td>
</tr>
<tr>
<td width="74" height="71">
<p align="right">回复内容：</td>
<td width="419" height="71">
<textarea rows="4" name="neirong" cols="54"></textarea></td>
</tr>
<tr>
<td height="22" colspan="2">
<p align="center">
<input type="submit" value="提交回复" name="hf"></td>
</tr>
<tr>
<td colspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<%
if rs("hfcs")>=1 then
rs.close
dim k
k=1
sql = "select top 10 * from hf where xxid='"&cnmai&"'"
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<tr><td width="2%" height="25" bgcolor="#F9F9F9" style="padding:1px; border-bottom-style: dotted; border-bottom-width: 1px" bordercolor="#CCCCCC"></td>
<td width="5%" height="25" bgcolor="#F9F9F9" style="padding:1px; border-bottom-style: dotted; border-bottom-width: 1px" bordercolor="#CCCCCC"><b><%=k%></b>楼</td>
<td width="90%" height="25" bgcolor="#F9F9F9" style="padding:1px; border-bottom-style: dotted; border-bottom-width: 1px" bordercolor="#CCCCCC">该信息由<b><font color="#CC0000"><%if rs("username")<>"" then %><%=trim(rs("username"))%><%else%>匿名用户<%end if%></font></b>在<font color="#CC0000"><%=trim(rs("hfsj"))%></font>回复</td>
<td width="2%" height="25" bgcolor="#F9F9F9" style="padding:1px; border-bottom-style: dotted; border-bottom-width: 1px" bordercolor="#CCCCCC"></td></tr>
<tr><td width="2%" height="1" style="border-top-style: solid; border-top-width: 1"></td>
<td width="6%" height="1" style="border-top-style: solid; border-top-width: 1"></td>
<td width="90%" height="1" style="border-top-style: solid; border-top-width: 1" class=tmpstr><%=HTMLEncode(rs("neirong"))%></td><td width="2%" height="1" style="border-top-style: solid; border-top-width: 1"></td>
</tr>
<%
rs.movenext
k=k+1
loop
end if
%>
<tr><td width="100%" height="1" colspan="4"></td></tr>
</table>      	</td>
</tr>
</form>
</table></div>
</td>
</tr>
<tr><td width="560" align="right" colspan="4"></td></tr>
</table>
</div></td></tr>
</table>
</div>
<!--#include file=endcnmai.asp-->
</body>
</html>
<%
sub tnh()
set tui_rs=server.createobject("adodb.recordset")  
tui_rs.open tui_sql,conn,1,1                                     
if tui_rs.eof and tui_rs.bof then                   
response.write "<p align=""center"">没有此类信息</p>"                   
else                   
do while not tui_rs.eof
response.write "<img src=""image/point05.gif"" >"  
if tui_rs("tupian")<>"0" then
response.write "<img src=""image/num/pic.gif"" alt=""有图片"">"
end if                   
response.write " <a href=""xinximemo.asp?cnmai="& tui_rs("id")&""" title="""&tui_rs("biaoti")&""">"& mid(tui_rs("biaoti"),1,18) & "</a><br>"                     
tui_rs.movenext                   
loop                   
end if                   
tui_rs.close
set tui_rs=nothing
end sub%>
<%
rs.close
set rs=nothing
closedb
%>