📄 xinximemo08.asp
字号:
<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<%dim myurl
myurl= Request.ServerVariables("URL")
dim rs,sql,cnmai,rslx
cnmai=HTMLEncode(request("cnmai"))
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
end if
end function
%>
<script LANGUAGE="JavaScript">
function checkMobile(){
var sMobile = document.mobileform.mobile.value
if(!(/^13[0-9]\d{4,8}$/.test(sMobile))){
alert("不是完整的11位手机号或者正确的手机号前七位");
document.mobileform.mobile.focus();
return false;}
window.open('', 'mobilewindow', 'height=197,width=350,status=yes,toolbar=no,menubar=no,location=no')
}</script>
<html>
<body topmargin="0" style="background-image: url('')"><%
set rs=server.createobject("adodb.recordset")
set rslx=server.createobject("adodb.recordset")
sql = "select * from xinxi where yz=1 and id="&cstr(cnmai)
rs.open sql,conn,1,3
if rs.eof then
response.write "参数错误、记录已经删除或该信息没有通过管理员认证！"
response.write "<meta http-equiv=refresh content=""2;URL=default.asp"">"
response.end
end if
rs("llcs")=rs("llcs")+1
rs.update
rs.close
sql="select * from xinxi where yz=1 and id= "&cstr(cnmai)
rs.open sql,conn,1,3
%>
<head>
<title><%=rs("biaoti")%>-信息内容-<%=title%></title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<!--#include file=top.asp-->
<!--#include file=bar.asp-->
<table cellSpacing="0" cellPadding="0" width="760" align="center" bgColor="#ffffff" border="0" height="597">
<tr>
<td height="597" width="100%" valign="top" style="border-style: solid; border-width: 1px" bgcolor="#F1FAE6"><div align="center">
<TABLE style="FONT-SIZE: 10pt" cellSpacing=1 cellPadding=1 width=680
bgColor=#606060 border=0 id="table5">
<TBODY>
<TR vAlign=center align=middle bgColor=#cbdcb6>
<TD colSpan=6 height=31 style="font-size: 9pt; line-height: 13pt" align="right"><FONT color=#003399
size=4><%if rs("vip")=1 then response.write "VIP" else response.write "普通" end if%><span lang="zh-cn"><b>合</b></span><b><span lang="zh-cn">作转让</span>信息显示界面</b></FONT><b><font color="#008080"> --></font></b><font color="#FF6600" face="黑体"><span lang="zh-cn"><a href="shoucang.asp?id=<%=rs("id")%>&myurl=<%=myurl%>">收藏该信息</a></span></font></TD></TR>
<SCRIPT language=javascript>
function do_dup(mark_id,ptype,subtype)
{
if (confirm("此信息重发后会作为VIP信息自动发布,\n\n确定要重发此信息?")==1)
{ location.href="shenhe/mark_dup.asp?id="+mark_id+"&ptype="+ptype+"&subtype="+subtype
}
}
</SCRIPT>
<%sql= "select * from leixing where id="&rs("leixing")&" "
rslx.open sql,conn,1,1%>
<TR align=middle>
<TD bgColor=#f1fae6 colSpan=6 style="font-size: 9pt; line-height: 13pt"><B><%=rslx("leixing")%></B> 发布时间：[<%=rs("fbsj")%>] </TD></TR>
<TR>
<TD align=middle width=66 bgColor=#cbdcb6 style="font-size: 9pt; line-height: 13pt">标题 </TD>
<TD bgColor=#f1fae6
colSpan=5 style="font-size: 9pt; line-height: 13pt"> <%=rs("biaoti")%></TD></TR>
<TR bgColor=#f1fae6>
<TD align=middle width=66 bgColor=#cbdcb6 style="font-size: 9pt; line-height: 13pt">联系人</TD>
<TD align=middle width=123 style="font-size: 9pt; line-height: 13pt"><%=rs("name")%></TD>
<TD align=middle width=86 bgColor=#cbdcb6 style="font-size: 9pt; line-height: 13pt">联系电话</TD>
<TD align=middle width=118 style="font-size: 9pt; line-height: 13pt"><%=rs("phone")%></TD>
<TD align=middle width=84 bgColor=#cbdcb6 style="font-size: 9pt; line-height: 13pt">电子邮件 </TD>
<TD align=middle width=160 style="font-size: 9pt; line-height: 13pt"><%=rs("email")%></TD></TR>
<TR bgColor=#f1fae6>
<TD align=middle width=66 bgColor=#cbdcb6 height=52 style="font-size: 9pt; line-height: 13pt">详情</TD>
<TD colSpan=5
height=52 style="font-size: 9pt; line-height: 13pt" valign="top"> <%=HTMLEncode(rs("memo"))%><BR></TD></TR>
<TR vAlign=top bgColor=#666666>
<TD colSpan=6 height=1 style="font-size: 9pt; line-height: 13pt"></TD></TR>
<TR bgColor=#cbdcb6>
<TD align=middle colSpan=6 height=30 style="font-size: 9pt; line-height: 13pt"><B><FONT
color=red>本跳蚤市场仅仅是发布交易信息的场所，对交易信息本身的真实性与合理性并不负责，请用户自行判断是否参与交易。</FONT></B></TD></TR></TBODY></TABLE>
<%if xxhf=0 then
response.write "信息回复功能暂时关闭！"
else%>
<div align="center">
<table border="0" cellpadding="0" style="border-style:solid; border-width:1px; padding:1px; border-collapse: collapse" bordercolor="#CCCCCC" width="90%" height="184" id="table3">
<form action="xinxi_hf.asp?id=<%=rs("id")%>&cnmai=chk&myurl=<%=myurl%>" method="POST">
<tr>
<td width="677" height="22" style="border-bottom-style: none; border-bottom-width: medium" colspan="2" bgcolor="#CBDCB6">
<p align="center"><b>给本信息发表回复</b></td>
</tr>
<tr>
<td width="677" height="20" colspan="2">
<p align="center"> (本站提示：请随时关注您发布的信息，会有买/卖家给您留言的)</td>
</tr>
<tr>
<td width="677" height="20" colspan="2">
<p align="center">用户名：<input type="text" name="username" size="16" maxlength="50" value="<%=request.cookies("cnmai")("username")%>">
<input type="checkbox" name="nm" value="on">匿名发布 [<a target="_blank" href="reg.asp">注册</a>/<a target="_blank" href="login.asp">登陆</a>]</td>
</tr>
<tr>
<td width="133" height="71">
<p align="right">回复内容：</td>
<td width="544" height="71">
<textarea rows="5" name="neirong" cols="70"></textarea></td>
</tr>
<tr>
<td width="677" height="22" colspan="2">
<p align="center">
<input type="submit" value="提交回复" name="hf"></td>
</tr>
<tr>
<td width="677" colspan="2" bgcolor="#CBDCB6">
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="table4" bgcolor="#F1FAE6">
<%
if rs("hfcs")>=1 then
rs.close
dim k
k=1
sql = "select * from hf where xxid="&cint(cnmai)&""
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<tr><td width="2%" height="25" bgcolor="#CBDCB6" style="padding:1px; border-bottom-style: dotted; border-bottom-width: 1px" bordercolor="#CBDCB6"></td>
<td width="5%" height="25" bgcolor="#CBDCB6" style="padding:1px; border-bottom-style: dotted; border-bottom-width: 1px" bordercolor="#CBDCB6"><b><%=k%></b>楼</td>
<td width="90%" height="25" bgcolor="#CBDCB6" style="padding:1px; border-bottom-style: dotted; border-bottom-width: 1px" bordercolor="#CBDCB6">
该信息由<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="#CBDCB6" style="padding:1px; border-bottom-style: dotted; border-bottom-width: 1px" bordercolor="#CBDCB6"></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" ><%=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><%end if%>
</div></td></tr>
</table>
<!--#include file=end.htm-->
</body>
</html>
<%
rslx.close
set rslx=nothing
rs.close
set rs=nothing
set re_rs=nothing
set tui_rs=nothing
closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -