www.gusucode.com > 盐城分类信息网asp源码程序 > admin/x.asp
<%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183
'***********************************
%><!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<script language="JavaScript">
function DrawImage(ImgD){
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
flag=true;
if(image.width/image.height>= 160/160){
if(image.width>160){
ImgD.width=160;
ImgD.height=(image.height*160)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
}
else{
if(image.height>160){
ImgD.height=160;
ImgD.width=(image.width*160)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
}
}
/*else{
ImgD.src="";
ImgD.alt=""
}*/
}
</script>
<script>
function loadThreadFollow(t_id,b_id){
var targetImg =eval("document.all.followImg" + t_id);
var targetDiv =eval("document.all.follow" + t_id);
if ("object"==typeof(targetImg)){
if (targetDiv.style.display!='block')
{
targetDiv.style.display="block";
}
else
{
targetDiv.style.display="none";
}}
}
</script>
<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>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from xinxi where yz=1 and id="&cstr(cnmai)
rs.open sql,conn,1,3
if rs.eof or rs.BOF then
response.write "参数错误、记录已经删除或该信息没有通过管理员认证！<br>3秒内自动转入分类集首页"
response.write "<meta http-equiv=refresh content=""2;URL=index.asp"">"
response.end
end if
rs("llcs")=rs("llcs")+1
rs.update
%>
<%
dim rsc,sqlc,id_1
set rsc=server.createobject("adodb.recordset")
sqlc = "select id,class1 from class1 where id="&cstr(rs("class1"))
rsc.open sqlc,conn,1,1
id_1=rsc("id")
On Error Resume Next
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("biaoti")%>-信息内容-<%=title%></title>
<link href="inc/style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<%call t()%><DIV class=h></DIV>
<div align="center">
<table scrolling=no scroll=no topmargin="0" leftmargin="0" bottommargin="0" rightmargin="0" cellspacing="0" cellpadding="0" width="980" >
<tr>
<td style="border:1px solid #333333; " align="center" valign="top" rowspan="2">
<table border="0" bordercolor="#FFE9D2" cellspacing="1" style="border-collapse: collapse" width="100%">
<tr>
<td colspan="3" class=td1> 位置导航：<a href="../">首页</a>→<a href="info.asp?/=<%=id_1%>&cnmai=1"><%=rsc("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?/=<%=id_1%>&//=<%=rs1("id")%>&/1=-<%=escape(rs1("class2"))%>&cnmai=2"><%=rs1("class2")%></a><%
rs1.close
set rs1=nothing
%>→<span class=font2> <%=rs("biaoti")%></span>
</td>
</tr>
<tr>
<td height="44" colspan="3" align="center" style="padding-left: 0; padding-right: 0; padding-top: 1px; padding-bottom: 1px">
<font size="3"><b>
<%
if rs("leixing")<>"" then
dim leixing
leixing=rs("leixing")
Select Case leixing
Case "1"
response.write "<font color=""#008000"">["&leixing1&"]</font>"
Case "2"
response.write "<font color=""#FF00FF"">["&leixing2&"]</font>"
Case "3"
response.write "<font color=""#008000"">["&leixing3&"]</font>"
Case "4"
response.write "<font color=""#FF00FF"">["&leixing4&"]</font>"
Case "5"
response.write "<font color=""#ff0000"">["&leixing5&"]</font>"
Case "6"
response.write "<font color=""#ff0000"">["&leixing6&"]</font>"
Case "7"
response.write "<font color=""#ff0000"">["&leixing7&"]</font>"
Case "8"
response.write "<font color=""#ff0000"">["&leixing8&"]</font>"
End Select%><%else%><%end if%>
<%if rs("tuijian")=1 then%><font color="#FF0000"><img border="0" src="image/jian.gif" alt="本站推荐"></font><%end if%><%if rs("a")="0" then%><%=rs("biaoti")%></b><%else%><font color="#<%=rs("a")%>"><b><%=rs("biaoti")%></b></font><%end if%></font><%if rs("zk")<>"0" then %><font color="#CC9900">[<%=rs("zk")%>]</font><%end if%></td>
</tr>
<tr><td height="27" colspan="3" style="border-bottom: 1px solid #C0C0C0; padding: 1px">
<p align="center"><b>更新时间：</b><%=rs("fbsj")%><%if rs("dqsj")<>"" then%><%dim sj
sj=DateDiff("d",now(),""&rs("dqsj")&"")
if sj>0 then %><font color="#FF0000"> 还有<b><%=sj%></b>天结束</font><%else%>信息已经过期了<%end if%></font><%else%><%end if%> <b>浏览/回复：</b><%=rs("llcs")%>次/<%=rs("hfcs")%>次
[<a target="_blank" href="x_sc.asp?id=<%=rs("id")%>">收藏此信息</a>]</td></tr>
<tr><td width="5"> </td><td width="70%">
<%=HTMLEncode(rs("memo"))%><br>所属地区：<%=rs("diqu")%><br><%if rs("jiage")<>"0" and rs("jiage")<>"" then %>相关价格：<%=rs("jiage")%><%end if%><br><%if rs("zk")<>"0" then %>凭[<a href="index.asp">分类集</a>]享受<font color="#CC9900" size="5" face="黑体"><%=rs("zk")%></font>优惠<%end if%></td>
<td width="27%" align="right"><%if rs("tupian")="0" or rs("tupian")="" then%>
<a title="广告招租，029-83732767" href="http://www.xa2s.com"> </a>
<a href="regchk.asp" target="_blank">
<img src="ad/dian.gif" border=1 style="border: 1px solid #C0C0C0; " width="160" height="160"></a>
<%else%>
<p align="center">
<a target=_blank href="<%=rs("tupian")%>"><img src="<%=rs("tupian")%>" border=1 width="160" onload="javascript:DrawImage(this);" style="border: 1px solid #C0C0C0; " alt="查看图片" height="160"></a>
<%end if%><br>
<script language="JavaScript">
<!--
color = "#fff000";
val = Math.random() + "000";
val1 = val.substring(2, 3 );
if( val1 % 2 == 0 )
document.write("<a href=http://www.cnmai.com target=_blank><font size=2 id=eb668 color=#ffffff><b>欢迎进入分类集>>></b></font></a>" );
else
document.write("<a href=http://www.cnmai.com target=_blank><font size=2 id=eb668 color=#ffffff><b>欢迎进入分类集>>></b></font></a>" );
setTimeout( dscchange, 3000);
function dscchange()
{
if( color == "#fff000" )
color = "#ff0000";
else
color = "#fff000";
document.all.eb668.color= color;
setTimeout( dscchange, 100);
}
//-->
</script></td>
</tr>
<tr>
<td colspan="3" style="border-left-width: 1px; border-right-width: 1px; border-top: 1px solid #CCCCCC; border-bottom-width: 1px">
<p style="line-height: 100%; margin-left: 10px">发 布 者：<%if rs("com")<>"" and rs("username")<>"" then %><a target="_blank" href="x_m.asp?id=<%=rs("id")%>"><%=rs("name")%>←[发邮件信息]</a> <img border="0" alt="商家会员发布" src="image/shang.gif" width="15" height="15" ><a target="_blank" href="com.asp?m=<%=rs("username")%>"><%=rs("com")%>←<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="x_m.asp?id=<%=rs("id")%>"><font color="#D56A00">给发布者发短信</font></a><font color="#D56A00">]</font><%else%><%=rs("name")%>[游客快速发布]<%end if%><%end if%></td>
</tr>
<tr>
<td colspan="3">
<p style="line-height: 100%; margin-left: 10px">联系电话：<%=rs("dianhua")%></td>
</tr>
<%if rs("qq")<>"" then %>
<tr>
<td colspan="3">
<p style="line-height: 100%; margin-left: 10px">Q Q或MSN：<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 colspan="3">
<p style="line-height: 100%; margin-left: 10px">联系地址：<%=rs("dizhi")%></td>
</tr>
<tr><td colspan="3" height="26">
<div align="center">
<table border="0" width="97%" 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">
发布者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>
</div>
</td></tr>
<tr><td width="560" colspan="3" height="26"><font color="#C0C0C0"> <span style="font-size: 11pt">
</span><font size="2"> </font></font><font color="#999999">
通过查看发布者IP和手机归属判断信息的真实性与合法性,请谨慎审核,理性抉择。</font></td></tr>
<tr><td align="right" colspan="3">
<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="x_hf.asp?id=<%=rs("id")%>&xxusername=<%=rs("username")%>&cnmai=chk" method="POST">
<tr>
<td width="566" height="22" bgcolor="#FFE9D2" class="td4">
<p align="center"><b><a name="hf"></a>给本信息发表回复</b>(本站提示：请随时关注您发布的信息，会有买/卖家给您留言的)</td>
</tr>
<tr>
<td width="576" height="29">
<p style="margin-left: 20px">
<span id="followImg1" style="CURSOR: hand" onclick="loadThreadFollow(1,5)">
<input type="radio" name="r1" value="0" checked>直接在此回复
<input type="radio" value="1" name="r1">发到发布人的信箱</span> </td>
</tr>
<tr>
<td width="576" height="29">
<p style="line-height: 100%; margin-left: 20px">用 户 名：<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 style="display:none" id="follow1">
<td height="26" width="73%">
<p style="margin-left: 20px">邮件标题：<input type="text" name="mbt" size="39" maxlength="50"><br>
联系方式：<input type="text" name="mdz" size="39" maxlength="40"><input type="hidden" name="et" size="15" value="<%=rs("email")%>"></td>
</tr>
<tr>
<td>
<p style="line-height: 100%; margin-left: 20px">回复内容：<textarea rows="4" name="neirong" cols="50"></textarea></td>
</tr>
<tr>
<td width="566" height="22">
<p align="center">
<input type="submit" value="提交回复" name="hf"></td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<%
if rs("hfcs")>=1 then
rs.close
dim k
sql = "select * from hf where xxid='"&cnmai&"'"
rs.open sql,conn,1,1
rs.Pagesize=10
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
k=0
%>
<%do while not rs.eof%>
<tr><td width="2%" height="25" class="tdhf"></td>
<td width="4%" height="25" class="tdhf"><b><%=(k+1)%></b>楼</td>
<td width="70%" height="25" class="tdhf"><b><font color="#CC0000"><%if rs("username")<>"" then %><%=trim(rs("username"))%><%else%>匿名用户<%end if%></font></b></td>
<td width="25%" height="25" class="tdhf" align="right"><font color="#808080"><%=trim(rs("hfsj"))%> </font> </td></tr>
<tr><td width="2%"></td>
<td width="4%"></td>
<td width="70%" class=tmpstr><%=HTMLEncode(rs("neirong"))%></td><td width="25%"></td>
</tr>
<%
rs.movenext
k=k+1
if k>=Pagesize then exit do
loop
end if
%>
<tr><td width="100%" height="1" colspan="4"></td></tr>
</table> </td>
</tr>
<tr>
<td align="center" height="25" bgcolor="#E8FFFF">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录
共 <font color="#CC5200"><%=Allpage%></font> 页 现在是第 <font color="#CC5200"><%=ThisPage%></font> 页
<font color="#CCCCCC">┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈</font>
<%
if ThisPage<2 then
response.write "<font color=""#808080"">首页</font> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?cnmai="&cnmai&"&page=1>首页</a> "
response.write "<a href=?cnmai="&cnmai&"&page="&ThisPage-1&">上一页</a> "
end if
if Allpage-ThisPage<1 then
response.write "<font color=""#808080"">下一页</font> "
response.write "<font color=""#808080"">尾页</font> "
else
response.write "<a href=?cnmai="&cnmai&"&page="&(ThisPage+1)&">下一页</a> "
response.write "<a href=?cnmai="&cnmai&"&page="&Allpage&">尾页</a> "
end if
%></td>
</tr>
</form>
</table></div>
</td>
</tr>
<tr><td width="72%" align="right" colspan="2"></td></tr>
</table></td>
<td align="center" valign="top">
<img border="0" src="image/x.gif" width="25" height="225"></td>
<td width="250" style="border:1px solid #333333; " align="center" valign="top" rowspan="2">
<table border="0" width="100%" cellspacing="1" id="table1">
<tr>
<td height="10">
</td>
</tr>
<tr>
<td height="56" bgcolor="#F1F9FE">
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="bottom">
<img border="0" src="image/a.gif" width="25" height="211"></td>
</tr>
</table>
</div>
<%call e()%>
</body>
</html>
<%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183
'***********************************
%>