?? sub_paper.asp
字號:
<!--#include file=../system/include/config.asp-->
<!--#include file=../share/conn_news.asp-->
<!--#include file=../system/include/function.asp-->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<%
dim strSql,rs,i,PageNo,yy
if request("id")="" then
response.write "對不起，參數出錯了！請重新訪問此頁!"
response.end
end if
if request("type")="" then
response.write "對不起，參數出錯了！請重新訪問此頁!"
response.end
end if
if request("type")=1 then
yy="購房指南"
end if
if request("type")=2 then
yy="租房指南"
end if
if request("type")=3 then
yy="政策法規"
end if
if request("type")=4 then
yy="銀行貸款"
end if
if request("type")=5 then
yy="家居裝飾"
end if
if request("type")=6 then
yy="土地評估"
end if
strSql="select * from [paper] where id=" & request("id")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
rs("click")=rs("click")+1
rs.update
%>
<style> body{ scrollbar-face-color:fd9035; scrollbar-shadow-color:ffffff; scrollbar-highlight-color:ffffff; scrollbar-3dlight-color:ffffff; scrollbar-darkshadow-color:ffffff; scrollbar-track-color:ffefd7; scrollbar-arrow-color:ffffff;}
.kuan1 { border-color: #000000 black black; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
.kuan2 { border-color: #FFFFFF black black; border-style: solid; border-top-width: 2px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.kuan3 { border-color: black black #CCCCCC; font-size: 9pt; line-height: 180%; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
.kuan4 { border-color: #CCCCCC black black; font-size: 9pt; line-height: 180%; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.kuan5 { border-color: #000000 black black; font-size: 9pt; line-height: 150%; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.fontw6 { border-color: #CCCCCC black black; font-size: 14px; line-height: 150%; font-family: "宋體"; border-style: none; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
</style>
<script language="JavaScript" src="../share/nei_fc.js"></script>
<script language="JavaScript">
<!--
function checkdata()
{
if(!CheckIsNull(form1.man,"請輸入'留言人'！")) return false;
if(!CheckIsNull(form1.email,"請輸入email！")) return false;
if(!CheckIsNull(form1.bz,"請輸入發言內容！")) return false;
}
//-->
</script>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<!--#include file="../share/gg_top.htm"-->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="616" height="262" align="left" valign="top">
<table width="612" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="middle" height="120" width="612"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="612" height="112">
<param name=movie value="../ad/nei_center1.swf">
<param name=quality value=high>
<embed src="../ad/nei_center1.swf"../ad/index_center1.swf"" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="612" height="112">
</embed>
</object></td>
</tr>
<tr>
<td align="left" valign="middle" height="24" width="612" class="font">當前位置:
<a href="../index.asp" class="ffbyfont">首頁</a> > <a href="view_paper.asp?type=<%=request("type")%>" class="ffbyfont"><%=yy%></a></td>
</tr>
<tr>
<td align="center" valign="middle" height="42" width="612" class="kuan1"><b><font size="5"><%=rs("title")%></font></b></td>
</tr>
</table>
<table width="612" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="616" bgcolor="#FF9933" align="center" valign="middle" class="kuan2"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif" size="1">WWW.0796E.COM</font><font color="#FFFFFF"><span class="font"> <%=rs("date")%> 文章來自:<%=rs("from")%> 閱讀次數:<%=rs("click")%></span></font></td>
</tr>
<tr>
<td width="616" align="center" valign="middle" class="kuan3" height="20">【字體：<a href="javascript:fontZoom(16)" class="linkfont">大</a>
<a href="javascript:fontZoom(14)" class="linkfont">中</a> <a href="javascript:fontZoom(12)" class="linkfont">小</a>】 【<a href="javascript:window.print()" class="linkfont">打印</a>】 【<a href="javascript:window.close()" class="linkfont">關閉</a>】</td>
</tr>
<tr>
<td width="616" align="left" valign="top" class="fontw6" id=fontzoom><br>
<%=rs("bz")%><br>
<br>
</td>
</tr>
<tr>
<td width="616" align="center" valign="top" class="kuan4" height="29">【字體：<a href="javascript:fontZoom(16)" class="linkfont">大</a>
<a href="javascript:fontZoom(14)" class="linkfont">中</a> <a href="javascript:fontZoom(12)" class="linkfont">小</a>】 【<a href="javascript:window.print()" class="linkfont">打印</a>】 【<a href="javascript:window.close()" class="linkfont">關閉</a>】</td>
</tr>
</table>
<table width="612" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFC68C">
<%
strSql="select top 6 * from [paper] where type='" & request("type") & "' order by id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
%>
<tr>
<td width="616" align="left" valign="middle" class="font"><b><font color="#FFFFFF">
■ 相關鏈接</font></b></td>
</tr>
<tr>
<td width="616" bgcolor="#FFFFFF" height="21" align="left" valign="top" class="font">
<%do while not rs.eof%>
<font color="#FF3300"> ·</font><a href="sub_paper.asp?id=<%=rs("id")%>&type=<%=request("type")%>" class="linkfont1"><font color=<%=rs("color")%>><%=rs("title")%></font></a> <font color=#999999><%=rs("date")%></font>
<%
rs.movenext
if not rs.eof then
response.write "<br>"
end if
loop%>
</td>
</tr>
</table>
<br>
<table width="612" border="0" cellspacing="0" cellpadding="0">
<%
strSql="select top 3 * from [paper_lyb] where paper_id='" & request("id") & "' order by id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
if rs.eof then
%>
<tr>
<td width="616" class="kuan1" height="26" align="center" valign="middle">
<div class=font>暫且沒有評論！</div>
</td>
</tr>
<%else%>
<tr>
<td width="616" height="59">
<table width="612" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFCC99">
<%do while not rs.eof%>
<tr>
<td bgcolor="#FFEAB3" align="left" valign="middle" height="22" class="font"> <font color="#FF6600">留言人：</font> <%=rs("man")%><font color="#FF6600" class="font"> E-mail：</font> <%=rs("email")%> <font color="#FF6600" class="font">留言時間：</font><%=rs("date")%></td>
</tr>
<tr>
<td bgcolor="#fff9e1" align="left" valign="middle" height="20" class="smallfont"> <%=rs("bz")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right" valign="middle" width="76%"><img src="images/icon1.gif" width="18" height="18"></td>
<td align="right" valign="middle" width="24%"><a href="lyb_view.asp?paper_id=<%=request("id")%>&type=<%=request("type")%>" class="ffbyfont">查看更多關于該信息的評論</a></td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
<br>
<table width="612" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFC68C">
<tr>
<td width="616" align="left" valign="middle" class="font"><b><font color="#FFFFFF">
■ 我來說兩句</font></b></td>
</tr>
<tr>
<td width="616" bgcolor="#FFFFFF" height="223" align="left" valign="middle" class="font">
<table width="610" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="lyb_save.asp" onSubmit="return checkdata()">
<tr>
<td width="200" align="right" valign="middle" class="font" height="30">
<input type="text" name="type" size="3" value="<%=request("type")%>" readonly style="border: 1px #ffffff solid;BACKGROUND: #ffffff;FONT-SIZE: 9pt;color: #ffffff; FONT-FAMILY: arial">
<input type="text" name="paper_id" size="3" value="<%=request("id")%>" readonly style="border: 1px #ffffff solid;BACKGROUND: #ffffff;FONT-SIZE: 9pt;color: #ffffff; FONT-FAMILY: arial">
留言人：</td>
<td width="470" align="left" valign="middle">
<input type="text" name="man" size="50" maxlength="50">
</td>
</tr>
<tr>
<td width="200" align="right" valign="middle" class="font" height="30">E-mail：</td>
<td width="470" align="left" valign="middle">
<input type="text" name="email" maxlength="50" size="50">
</td>
</tr>
<tr>
<td width="200" align="right" valign="top" class="font">評 論：<br>
</td>
<td width="470" align="left" valign="middle">
<textarea name="bz" rows="6" cols="50"></textarea>
</td>
</tr>
<tr align="center">
<td colspan="2" height="31" valign="top" class="font">
<input type="submit" name="Submit" value="發 表">
<input type="reset" name="Submit2" value="清 除">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br>
</td>
<td width="162" align="center" valign="top" height="262" bgcolor="#fff7d2"><br>
<table width="140" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="132" height="17" class="font"> <b>文章搜索</b></td>
</tr>
<tr>
<td width="132" class="kuan5" height="32" align="left" valign="middle">關鍵字：
<input type="text" name="text" size="8">
</td>
</tr>
<tr>
<td width="132" height="12" align="left" valign="middle">
<select name="type">
<option value="1" selected>購房指南</option>
<option value="2">租房指南</option>
<option value="3">政策法規</option>
<option value="4">銀行貸款</option>
<option value="5">家居裝飾</option>
<option value="6">土地評估</option>
</select>
<input type="submit" name="Submit3" value="搜索">
</td>
</tr>
</table>
<br>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="120" height="321">
<param name=movie value="../ad/bogao.swf">
<param name=quality value=high>
<embed src="../ad/bogao.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="120" height="321">
</embed>
</object><br>
<br>
<table width="146" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFCC33">
<%
strSql="select top 10 * from [paper] where type='1' order by id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
%>
<tr>
<td width="146" height="17" class="font"> <b>購房指南</b></td>
</tr>
<tr>
<td width="146" class="kuan5" height="196" align="left" valign="middle" bgcolor="#FFFFFF">
<%do while not rs.eof%>
<font color="#FF6600" class="smallfont">·</font><a href="sub_paper.asp?id=<%=rs("id")%>&type=1" class="linkfont1"><font color=<%=rs("color")%>><%=left(rs("title"),10)%></font></a>
<%
rs.movenext
if not rs.eof then
response.write "<br>"
end if
loop%>
</td>
</tr>
</table>
<br>
<table width="146" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFCC33">
<%
strSql="select top 10 * from [paper] where type='2' order by id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
%>
<tr>
<td width="146" height="17" class="font"> <b>租房指南</b></td>
</tr>
<tr>
<td width="146" class="kuan5" height="196" align="left" valign="middle" bgcolor="#FFFFFF">
<%do while not rs.eof%>
<font color="#FF6600" class="smallfont">·</font><a href="sub_paper.asp?id=<%=rs("id")%>&type=2" class="linkfont1"><font color=<%=rs("color")%>><%=left(rs("title"),10)%></font></a>
<%
rs.movenext
if not rs.eof then
response.write "<br>"
end if
loop%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="../share/gg_foot.htm"-->
</body>
</html>
<!--#include file=../system/include/foot.asp-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -