www.gusucode.com > 盐城分类信息网asp源码程序 > x.asp
<!--#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>
<script language="JavaScript" type="text/JavaScript">
var size=14; //字体大小
function fontZoom(fontsize){ //设置字体
size=fontsize;
document.getElementById('ShowContent').style.fontSize=size+'px';
}
function fontMax(){ //字体放大
size=size+4;
document.getElementById('ShowContent').style.fontSize=size+'px';
}
function fontMin(){ //字体缩小
size=size-2;
if (size < 2 ){
size = 2
}
document.getElementById('ShowContent').style.fontSize=size+'px';
}
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!-- Hide
function killErrors() {
return true;
}
window.onerror = killErrors;
// -->
</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秒内自动转入"&title&"首页"
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>
<title><%=rs("biaoti")%>-信息内容-<%=title%></title>
<LINK href="images/at_news.css" type=text/css rel=stylesheet>
</HEAD>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%call t()%>
<DIV id=content>
<DIV id=left>
<DIV class=leftborder>
<a href="axx.asp?cnmai=free" target="_blank"><img src="images/button_post1.jpg" border="0"></a>
</DIV>
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font> >> 本站相关信息</SPAN></DIV>
<DIV class=lcontent> <SPAN class=tableleft>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<%call nxnews()%>
</TBODY></TABLE></SPAN></DIV></DIV> <!--leftborder end-->
<!--左边第一个广告开始-->
<DIV class=leftborder>
<DIV class=lcontent>
<center><%=ad2%></center>
</div></div>
<!--左边第一个广告结束-->
<!--推荐信息开始-->
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font> >> vip推荐信息</SPAN></DIV>
<DIV class=lcontent>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<%call nxvip()%>
</TBODY></TABLE></DIV></DIV>
<!--推荐信息结束-->
</DIV>
<!--left-->
<DIV id=right>
<DIV class=navigation>
<table border="0" width="100%" id="table1" style="border-collapse: collapse">
<tr>
<td width="100%" colspan="0" class="td1" background="Images/menu_r.gif">
位置导航：<a href="../">首页</a>→<a href="info.asp?/=<%=id_1%>&lgwzjs=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"))%>&lgwzjs=2"><%=rs1("class2")%></a><%
'rs1.close
'set rs1=nothing
%>→<span class=font2> <%=HTMLEncode(left(rs("biaoti"),30))%></span></td>
</tr></table></DIV>
<DIV class=rightbody>
<DIV class=tags_calss>
<!--详细信息开始-->
<div align="center">
<td valign="top"><table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" background="images/secondhand_list1.gif"><table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19"> </td>
<td width="99" class="font_size2"> 信息详情</td>
<td width="510"></a>
<td height="22" valign="bottom"><a target="_blank" href="x_sc.asp?id=<%=rs("id")%>"><img src="images/secondhand_sc.gif" width="100" height="21" border="0" /></a></td><td height="22" valign="bottom"><a href="gbook.asp" target="_blank"><img src="images/secondhand_jb.gif" width="100" height="21" border="0" /></a></td>
</tr>
</table></td>
<table width="96%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td>
<br>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="269" valign="top">
<table width="249" border="0" cellspacing="0" cellpadding="0">
<tr><%if rs("tupian")="0" or rs("tupian")="" then%>
<td width="244" height="184" align="center" background="images/secondhand_pic1.gif"><a onClick="loadImg('images/nopic_2h.gif')"><img src="images/nopic_2h.gif" width="240" height="180" border="0" /></a></td> <%else%>
<td width="244" height="184" align="center" background="images/secondhand_pic1.gif"><a onClick="loadImg('<%=rs("tupian")%>')"><img src="<%=rs("tupian")%>" width="240" height="180" border="0" /></a></td> <%end if%>
<td><img src="images/secondhand_pic2.gif" width="5" height="184" /></td>
</tr> <tr>
<td colspan="2"><img src="images/secondhand_pic3.gif" width="249" height="5" /></td>
</tr>
</table></td>
<td valign="top"><table width="441" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="4" class="secondhand_td_title1">
<div class="sortbiaoti2">
<%if rs("tuijian")="0" then%>
<b><%=HTMLEncode(rs("biaoti"))%></b>
<%else%>
<font color="#<%=rs("a")%>"><b><%=rs("biaoti")%></b></font>
<font color="#FF0000"><img border="0" src="image/jian.gif" alt="本站推荐"></font>
<%end if%>
</div></td>
</tr>
<tr>
<td height="2" colspan="4" bgcolor="#e5e5e5"></td>
</tr>
<tr>
<td height="30" align="right" class="font_color1">信息类别：</td>
<td class="secondhand_td_color2"> <%Select Case rs("leixing")
Case "0"
response.write ""
Case "1"
response.write "<font color=""#800000"">[转让]</font>"
Case "2"
response.write "<font color=""#FF00FF"">[求购]</font>"
Case "3"
response.write "<font color=""#008000"">[出租]</font>"
Case "4"
response.write "<font color=""#FF6600"">[求租]</font>"
Case "5"
response.write "<font color=""#ff0000"">[求职]</font>"
Case "6"
response.write "<font color=""#000080"">[招聘]</font>"
Case "7"
response.write "<font color=""#0000FF"">[分享]</font>"
Case "8"
response.write "<font color=""#008080"">[交换]</font>"
Case Else
response.write "<font color=""#000000"">["&rs("leixing")&"]</font>"
End Select%>
<%if rs("tuijian")=1 then%>
<%end if%>
</td>
<td align="right" class="font_color1">物品类别：</td>
<td class="secondhand_td_color2">
<%
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
%><%=rs1("class2")%>
<%
'rs1.close
'set rs1=nothing
%></td>
</tr>
<tr>
<td height="1" colspan="4" background="images/secondhand_line0.gif"></td>
</tr>
<tr>
<td height="30" align="right" class="font_color1">过期时间：</td>
<td class="secondhand_td_color2"> <%if rs("dqsj")<>"" then%>
<%dim sj
sj=DateDiff("d",now(),""&rs("dqsj")&"")
if sj>0 then %>
<%=sj%>天后<%else%> 已经过期了<%end if%><%end if%></td>
<td align="right" class="font_color1">回复次数：</td>
<td class="secondhand_td_color2"><%=rs("hfcs")%></td>
</tr>
<tr>
<td height="1" colspan="4" background="images/secondhand_line0.gif"></td>
</tr>
<tr>
<td height="30" align="right" class="font_color1">联系人：</td>
<td class="secondhand_td_color2"><%if rs("com")<>"" and rs("username")<>"" then %>
<img border="0" alt="商家会员发布" src="image/shang.gif" width="15" height="15" ><a target="_blank" href="com.asp?m=<%=rs("username")%>" title="<%=rs("com")%>"><%=left(rs("com"),8)%></a> <%else if rs("username")<>"" and rs("com")="" then %>
<img border="0" alt="个人会员发布" src="image/ge.gif" ><a target="_blank" href="per.asp?username=<%=rs("username")%>"><%=rs("name")%></a>
<%else%>
<%=rs("name")%>[游客快速发布]
<%end if%>
<%end if%>
</td>
<td align="right" class="font_color1">联系方式：</td>
<td class="secondhand_td_color2"><%=rs("dianhua")%></td>
</tr>
<tr>
<td height="1" colspan="4" background="images/secondhand_line0.gif"></td>
</tr>
<tr>
<td height="30" align="right" class="font_color1">交易城市：</td>
<td class="secondhand_td_color2"><%=rs("diqu")%></td>
<td align="right" class="font_color1">人气值：</td>
<td class="secondhand_td_color2">已有 <font color="#FF0000"><%=rs("llcs")%></font> 人关注</td>
</tr>
<tr>
<td height="1" colspan="4" background="images/secondhand_line0.gif"></td>
</tr>
<tr>
<td width="17%" height="30" align="right" class="font_color1"></td>
<td width="33%" class="secondhand_td_color2"></td>
<td width="17%" align="right" class="font_color1"></td>
<td class="secondhand_td_color2"></td>
</tr>
<tr>
<td height="1" colspan="4" background="images/secondhand_line0.gif"></td>
</tr>
<tr>
<td height="40" colspan="4" align="right" valign="bottom"><a href=#hf><img src="images/button_gb1.gif" width="126" height="29" border="0" /></a></td>
</tr>
</table></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="10" cellpadding="0">
<tr>
<td class="font_td_line1"> <%=HTMLEncode(rs("memo"))%> <br>
<%if rs("dizhi")<>"" then%>联系地址:<%=rs("dizhi")%> <%else%> <%end if%>
</td>
</tr>
<tr>
<td height="100"><form action="x_hf.asp?id=<%=rs("id")%>&xxusername=<%=rs("username")%>&cnmai=chk" method="POST" name="testForm_3">
<%
if rs("hfcs")>=1 then
rs.close
dim k
sql = "select * from hf where xxid='"&cnmai&"' order by hfsj desc"
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%>
<table width="708" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#8cc0e7">
<tr>
<td bgcolor="#e6f5ff">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" class="mu_color3"> <b><%=(k+1)%></b>楼</td>
<td class="mu_color3" align="right"><%=trim(rs("hfsj"))%> </td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td colspan="2" class="font_td_line1">
<%if rs("hfyz")=0 then%><%=HTMLEncodes(rs("neirong"))%><%else%><font class="font_color1">此信息有留言,留言内容未通过管理员验证</font><%end if%></td>
</tr>
<tr>
<td height="1" colspan="2" background="images/secondhand_line1.gif"></td>
</tr>
<tr>
<td width="50%" class="font_color1">回复人：<%if rs("username")<>"" then %>
<a href=per.asp?username=<%=trim(rs("username"))%> target="_blank"><font color="#CC0000"><%=trim(rs("username"))%></font></a>
<%else%>
匿名用户 <%end if%>
</font></b></td>
<td class="font_color1"</td>
</tr>
</table></td>
</tr> </table>
<br>
<%
rs.movenext
k=k+1
if k>=Pagesize then exit do
loop
end if
%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="150" height="70" align="center" class="page">共有 <font color="#CC5200"><%=Allrecord%></font> 条回复 <%=ThisPage%>/<%=Allpage%>页 </td>
<td width="200"><%
if ThisPage<2 then
response.write "<img src=images/ico_page_h.gif border=0 alt=最前页> "
response.write "<img src=images/ico_page_p.gif border=0 alt=上一页> "
else
response.write "<a href=?lgwzjs="&cnmai&"&page=1><img src=images/ico_page_h.gif border=0 alt=最前页></a> "
response.write "<a href=?lgwzjs="&cnmai&"&page="&ThisPage-1&"><img src=images/ico_page_p.gif border=0 alt=上一页></a> "
end if
if Allpage-ThisPage<1 then
response.write "<img src=images/ico_page_n.gif border=0 alt=下一页> "
response.write "<img src=images/ico_page_l.gif border=0 alt=尾页> "
else
response.write "<a class='page2' href=?lgwzjs="&cnmai&"&page="&ThisPage&"><font color=#ffffff>"&thisPage&"</font></a> "
response.write "<a href=?lgwzjs="&cnmai&"&page="&(ThisPage+1)&"><img src=images/ico_page_n.gif border=0 alt=下一页></a> "
response.write "<a href=?lgwzjs="&cnmai&"&page="&Allpage&"><img src=images/ico_page_l.gif border=0 alt=尾页></a> "
end if
%></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="96%" align="center" border="0" cellpadding="0" cellspacing="0" class="gbook_border1">
<tr>
<td height="200" valign="top">
<table width="97%" border="0" align="center" cellpadding="6" cellspacing="0">
<tr>
<td width="20%" height="30" class="font_title_color1"><img src="images/ico_01.gif" width="13" height="13" align="absmiddle"> 签写留言</td> <td align="right" class="font_color2">目前有<b><%=Allrecord%></b>人对此信息发布过留言 </td>
</tr>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20%"><p style="line-height: 100%; margin-left: 20px"> <input type="text" name="username" size="16" maxlength="50" readonly value="<%=request.cookies("cnmai")("username")%>" title="自动获取用户名" class=input style="display:none">
<input type="checkbox" name="nm" value="on" checked>
<strong>未登陆用户自动匿名发布 [<a target="_blank" href="reg.asp">注册</a>/<a target="_blank" href="login.asp">登陆</a>]</strong></td>
</tr> <tr>
<td colspan="2"><textarea name="neirong" cols="110" rows="8" class="hfcss" id="msgtext"></textarea></td>
</tr>
<tr>
<td height="40" colspan="2"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="26" width="87%" class="tdx">
<p style="line-height: 100%; margin-left: 20px">验 证 码： <input name="verifycode" type="text" size="12" class=input />
<img src="code.asp" alt= "验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='code.asp'" onKeyPress="if ((event.keyCode<48 &&event.keyCode!=13) || event.keyCode>57) event.returnValue=false"> <font class="font_color1">输入验证码,看不清楚?请点击图片刷新</font></td> </tr>
</table><table width="100%" border="0">
<tr>
<td><p align="center"><input type=image name="hf" src=image/b_1.gif width=72 height=20 style=border:0px>
<img src=image/b_2.gif width=72 height=20 onClick="javascript:document.forms['testForm_3'].reset();" style="cursor:pointer;" /></p> 发贴后，本站会记录您的<strong>IP地址</strong>.请注意：根据我国法律，网站会将有关您发贴内容、发贴时间以及您发贴时的<strong>IP地址</strong>的记录保留至少60天,并且只要接到合法请求，即会交这类信息提供给有关政府机构</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</form>
</center>
</div>
</DIV>
</DIV>
<!--详细信息结束-->
<!--底部-->
</td>
</tr>
</table>
</div>
<!--#include file="foot.asp"-->
</body>
</html>