📄 view_info.asp
字号:
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Config.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<!--#include file="Common/Inc_Code.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<%Dim intInfoKey
Dim rdsInfo
Dim sqlInfo
Dim sqlUpdateInfoHits
intInfoKey =changechr(Request.QueryString("Id"))
if intInfoKey = "" then intInfoKey = 0
set rdsInfo = Server.CreateObject("ADODB.Recordset")
sqlInfo = "Select * From Dat_Information Where InfoKey = "& intInfoKey
rdsInfo.Open sqlInfo,Conn,1,1%>
<html>
<head>
<title><% = rdsInfo("Topic")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="交友, 征友, 速配, 约会, 聊天, 征婚, 婚介, 爱情, 友情, 友谊, 朋友, 伙伴, 情人, 伴侣, 同性, 异性, 女人, 男士, 女士, 男孩, 女孩, 帅哥, 美女, 单身, 独身, 性感, 浪漫, 激情, 手机交友, 手机, 短信, 彩信, 铃声, 图片, 照片, 靓照, 贴图, 语音, 视频, 搜索, 文章, 商城" name="KEYWORDS">
<link href="Common/Style.css" type="text/css" rel="stylesheet">
<Script Language=JavaScript>
function eWebEditorPopUp(style, form, field) {
var oPopUp = window.open("bj/popup.asp?style="+style+"&form="+form+"&field="+field, "PopUp"+form+field, "toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=600");
}
</Script>
<script language="javascript">
//检查email的合法性
function checkemail(inputstr){
if(inputstr.indexOf('@') != -1 && inputstr.indexOf('.')!= -1)
return true;
else
return false;
}
//检验表单的合法性
function bbhf() {
if (document.AddInfo.name.value == "") {
alert("\请填写姓名！");
document.AddInfo.name.focus();
}
else if (document.AddInfo.tit.value == "") {
alert("\请填写留言主题！");
document.AddInfo.tit.focus();
}
else if (document.AddInfo.tel.value == "") {
alert("\请填写联系电话！");
document.AddInfo.tel.focus();
}
else if (document.AddInfo.neirong.value == "") {
alert("\请填写信息内容！");
document.AddInfo.neirong.focus();
}
else if (document.AddInfo.email.value == "") {
alert("\请填写联系 E-Mail！");
document.AddInfo.email.focus();
}
else if (document.AddInfo.email.value == "" || !checkemail(document.AddInfo.email.value)) {
alert("\E-Mail 填写错误，请填写有效的信箱，如 username@163.com ！");
document.AddInfo.email.focus();
}
else {
return true;
}
return false;
}
</script>
</head>
<body bgColor="#ffffff" leftMargin="0" topMargin="0" marginheight="0" marginwidth="0">
<!--#include file="Top.asp"-->
<table align="center" border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"><img height="14" src="images/pic_top_01.gif" width="760" border="0"></td>
</tr>
</table>
<div align="center">
<center>
<table cellSpacing="0" cellPadding="0" width="760" border="0">
<tbody>
<tr>
<td vAlign="top" width="1" background="images/space_01.gif"><img height="1" src="images/space_01.gif" width="1" border="0"></td>
<td vAlign="top" width="10"><img height="1" src="images/space.gif" width="10" border="0"></td>
<td vAlign="top" width="580">
<div align="center">
<center>
<table id="AutoNumber12" style="BORDER-COLLAPSE: collapse" height="103" cellSpacing="0" cellPadding="0" width="580" border="0">
<tbody>
<tr>
<td vAlign="top" height="3"></td>
<tr>
<td vAlign="top" height="100">
<img src="images/ad_01.gif" width="580" height="100" alt="一号广告位"></td>
</tr>
</tbody>
</table>
</center>
</div>
<div align="center">
<center>
<table id="AutoNumber11" style="BORDER-COLLAPSE: collapse" height="73" cellSpacing="0" cellPadding="0" width="580" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/bg_quick_search_01.gif" height="63" align="center"><!--#include file="Common/Inc_Search.asp"--></td>
</tr>
<tr>
<td vAlign="top" height="10"></td>
</tr>
</tbody>
</table>
</center>
</div>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="30"> 您的位置：<a href="index.asp" class="links">首 页</a> ->> <a href="list.asp" class="links">供求信息</a> ->> 浏览信息</td>
</tr>
</table>
<%
if not rdsInfo.EOF then
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" background="images/002.gif" height="25">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center" class="F16"> <font color="#FFFFFF"><% = rdsInfo("Topic")%></font>
<%xxlx3=rdsInfo("InfoClass")
Select Case xxlx3
Case "1"
strInfoClass = "<font color=#FFFF00>[销售]</font>"
Case "2"
strInfoClass = "<font color=#FFFF00>[求购]</font>"
Case "3"
strInfoClass = "<font color=#FFFF00>[要闻]</font>"
Case "4"
strInfoClass = "<font color=#FFFF00>[动态]</font>"
Case "5"
strInfoClass = "<font color=#FFFF00>[招聘]</font>"
Case "6"
strInfoClass = "<font color=#FFFF00>[求职]</font>"
Case "7"
strInfoClass = "<font color=#FFFF00>[展会]</font>"
Case "8"
strInfoClass = "<font color=#FFFF00>[其它]</font>"
End Select
Response.Write ""&strInfoClass&""%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center">
<center>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="1">
<tbody>
<tr>
<td vAlign="top" width="100%" align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top" width="100%">
<table width="95%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="line-height:120%;letter-spacing:1px">
<tr>
<td width="100%" height="30" align="center" colspan="3">发布时间：<% = FormatTime(rdsInfo("CreateTime"),5)%> 信息面向地区：<% = rdsInfo("InfoAdd")%> 浏览次数：<% = rdsInfo("Hits")%> 次</td>
</tr> <tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="3"></td>
</tr>
<tr>
<td width="100%" height="7" colspan="3"></td>
</tr><tr>
<td width="16%" height="18" align="right">信 誉 度：</td>
<td width="47%" height="18"> <%
strgquser=rdsInfo("MemberKey")
if strgquser<>"0" then
set rdsInfo1 = Server.CreateObject("ADODB.Recordset")
sqlInfo1 = "Select jb From Dat_Member Where MemberKey= "&strgquser
rdsInfo1.Open sqlInfo1,Conn,1,1
strjb=cstr(rdsInfo1("jb"))
rdsinfo1.close
set rdsinfo1=nothing
end if
Select Case strjb
Case "0"
strInfoClassa = "<font color=#0000ff>普通会员</font>"
Case "-1"
strInfoClassa = "<font color=#0000ff><b>普通会员</b></font>"
Case "1"
strInfoClassa = "<font color=#FF0000><b>收费会员</b></font>"
Case else
strInfoClassa = "<font color=#008080>游客发布</font>"
End Select
Response.Write ""&strInfoClassa&""
%></td>
<td width="37%" height="104" rowspan="11" align="center">
<%if rdsInfo("pic")<>"" and rdsInfo("pic")<>"http://" then%>
<a href="<%=rdsInfo("pic")%>" target="_blank">
<img border="0" src="<%=rdsInfo("pic")%>" width="177" height="112" alt="<% = rdsInfo("Topic")%>" style="border: 1px solid #C0C0C0; padding: 1px"></a>
<%else%><img border="0" src="x/NoPic2.jpg" width="135" height="112"><%end if%></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif"></td>
</tr><tr>
<td height="9" align="right">用 户 IP：</td>
<td height="9"><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"><input type="text" name="ip" size="15" value="<%= trim(rdsInfo("ip"))%>" style="border: 1px solid #FFFFFF; background-color: #FFFFFF"><input type="submit" value=" 查看ip " title="通过查看发布人IP，可以判断信息的可信度" class="button"> <INPUT TYPE="hidden" name="action" value="2"></FORM></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif"></td>
</tr>
<tr>
<td width="16%" height="18" align="right">联 系 人：</td>
<td width="47%" height="18"> <% = rdsInfo("ContactMan")%></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif"></td>
</tr><tr>
<td height="18" align="right">心动价格：</td>
<td height="18"> <%if rdsInfo("jg")<>"" and rdsInfo("jg")<>"0" then%><font color="#FF0000"><% = rdsInfo("jg")%></font> 元<%else%>面议<%end if%></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif"></td>
</tr>
<tr>
<td height="18" align="right">邮 编：</td>
<td height="18"> <% = rdsInfo("Postalcode")%></td>
</tr><tr>
<td width="16%" height="1" background="images/dotline.gif"></td>
<td width="47%" height="1" background="images/dotline.gif"></td>
</tr>
<tr>
<td height="18" align="right">电 话：</td>
<td height="18"> <% = rdsInfo("Tel")%></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="3"></td>
</tr>
<%if rdsInfo("Fax") <> "" then%>
<tr>
<td height="18" align="right">传 真：</td>
<td height="18" colspan="2"> <% = rdsInfo("Fax")%></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="3"></td>
</tr>
<%
end if
if rdsInfo("Homepage") <> "" then
%>
<tr>
<td height="18" align="right">网站网址：</td>
<td height="18" colspan="2"> <a href="<% = rdsInfo("Homepage")%>" target="_blank" class="links"><% = rdsInfo("Homepage")%></a></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="3"></td>
</tr>
<%end if
if rdsInfo("qq") <> "" then
%>
<tr>
<td height="18" align="right">腾 讯 QQ：</td>
<td height="18" colspan="2"> <a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=<% = rdsInfo("qq")%>&Site=<% = strSiteName%>&Menu=yes">
<img alt="点击即可直接咨询" src="images/qq.gif" border="0"><% = rdsInfo("qq")%></a></td>
</tr><tr>
<td width="100%" height="1" background="images/dotline.gif" colspan="3"></td>
</tr>
<%end if%><%if rdsInfo("Add") <> "" then%>
<tr>
<td height="18" align="right">联系地址：</td>
<td height="18" colspan="2"> <% = rdsInfo("Add")%></td>
</tr><tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -