📄 xinximemo.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file=topcnmai.asp-->
<%
dim rs,sql,cnmai,ThisPage
cnmai=HTMLEncode(request("cnmai"))
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
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 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 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"><center><%
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 rs1,sql1,id_1
set rs1=server.createobject("adodb.recordset")
sql1 = "select id,class1 from class1 where id="&cstr(rs("class1"))
rs1.open sql1,conn,1,1
id_1=rs1("id")
On Error Resume Next
%></center>
<head>
<title><%=rs("biaoti")%>-信息详细内容-<%=title%></title>
</head>
<div align="center">
<table border="0" width="760" cellspacing="0" cellpadding="0" style="border-left: 1px solid #808080; border-right: 1px solid #808080; border-top-width: 1px; border-bottom-width: 1px" bordercolor="#999999" id="table3">
<tr>
<td class=td5_muen height="30"> <font color="#008080">位置导航：</font><a href="index.asp">首页</a><font color="#008080">→</font><a href="info.asp?class1=<%=rs1("id")%>&cnmai=1"><%=rs1("class1")%></a><font color="#008080">→</font> <span class=font2> <%=rs("biaoti")%></span></td>
</tr>
</table>
<table cellSpacing="0" cellPadding="0" width="760" bgColor="#ffffff" border="0" style="border-left:1px solid #CCCCCC; border-right:1px solid #CCCCCC; border-top-color:#CCCCCC; border-top-width:1px; border-bottom-color:#CCCCCC; border-bottom-width:1px" >
<tr>
<td width="240" bgcolor="#FFFFF4" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table1">
<tr><td class=td_muen height="26"> <span class=font1><font face="Wingdings 2" size="4">R</font> 推荐信息</td></tr>
<tr><td><%
dim tui_rs,tui_sql
' and tuijian=1
tui_sql="select top 8 * from xinxi where yz=1 and class1="&id_1&" and tuijian=1 order by fbsj desc"
call tnh()
%></td></tr>
<tr><td class=td_muen height="26"> <span class=font1><font face="Wingdings 2" size="4">R</font> 最新信息</span></td></tr>
<tr><td><%
tui_sql="select top 8 * from xinxi where yz=1 and class1="&id_1&" order by fbsj desc"
call tnh()
%></td>
</tr>
<tr><td class=td_muen height="26"> <span class=font1><font face="Webdings" size="4">2</font> 赞助广告</span></td></tr>
<tr><td></td></tr></table></td>
<td class=td1_muen rowspan="5" width="3"> </td>
<td width="517" rowspan="3" valign="top"><div align="center">
<table border="0" bordercolor="#FFE9D2" cellspacing="1" style="border-collapse: collapse">
<tr>
<td height="38" colspan="4" align="center" style="border-top: 1px solid #C0C0C0; 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/num/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></td>
</tr>
<tr><td height="27" colspan="4" 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")%>次 </td></tr>
<tr><td width="364" align="right" height="25" colspan="3">
<p align="left"><b> <font color="#999999">● 信息情况</font></b></td>
<td width="189" rowspan="7"><%if rs("tupian")="0" or rs("tupian")="" then%>
<a href="#" target="_blank" title="广告位招租">
<img src="image/quetu.jpg" 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%></td>
</tr>
<tr><td width="10" align="right" height="161" rowspan="7"> </td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -