?? 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 + -