www.gusucode.com > 公寓出租网站整站源码 1.0程序 > Shownews.asp
<!--#include file="top.asp"-->
<%owen=request("id")%>
<script language="JavaScript" type="text/JavaScript">
function fontZoom(size){
document.getElementById('fontZoom').style.fontSize=size+'px'
}
</SCRIPT>
<SCRIPT language=JavaScript>
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</SCRIPT>
<%
id=cstr(request("id"))
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&id
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
<tr>
<td><table width="977" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="237" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="37" valign="bottom" background="images/18.gif"><table width="50%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>公寓分类</b></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/22.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td style="line-height:25px;"><% call ShowSmallClass_Tree() %></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/28.gif" width="237" height="10" alt="" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="37" valign="bottom" background="images/18.gif"><table width="50%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>公寓查询</b></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/22.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" style="line-height:25px;"><% call ShowSearch(1) %></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/28.gif" width="237" height="10" alt="" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="37" valign="bottom" background="images/18.gif"><table width="50%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>新闻动态</b></td>
</tr>
</table></td>
</tr>
<%
set rs_news1=server.createobject("adodb.recordset")
sqltext4="select top 10 * from news where BigClassName='新闻动态'"
rs_news1.open sqltext4,conn,1,1
%>
<tr>
<td background="images/22.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<%i=0
do while not rs_news1.eof%>
<tr>
<td valign="top" style="line-height:25px;">
<img border="0" src="Img/arrow_6.gif" width="11" height="11"><a href="shownews.asp?id=<%=rs_news1("id")%>" target="_blank"><%=rs_news1("title")%></a></td>
</tr>
<%
rs_news1.movenext
i=i+1
loop
rs_news1.close
%>
</table></td>
</tr>
<tr>
<td><img src="images/28.gif" width="237" height="10" alt="" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="37" valign="bottom" background="images/18.gif"><table width="50%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>联系方式</b></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/22.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='联系方式'"
rs.open sql,conn,1,3
%>
<tr>
<td valign="top" style="line-height:25px;"><%=left(rs("Content"),300)%></td>
</tr>
<%rs.close
set rs=nothing
%>
</table></td>
</tr>
<tr>
<td><img src="images/28.gif" width="237" height="10" alt="" /></td>
</tr>
</table></td>
<td width="10" valign="top"> </td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10" valign="bottom" background="images/26.gif"><img src="images/26.gif" width="730" height="10" alt="" /></td>
</tr>
<tr>
<td background="images/23.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><b>阅读新闻</b></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/29.gif" width="730" height="10"></td>
</tr>
<tr>
<td><div align="center">
<table border="0" width="97%" cellpadding="0" style="border-collapse: collapse">
<tr>
<td align="left"><br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="50" colspan="2" align="center" class="tit"><b><%= rsnews("title") %></b></td>
</tr>
<tr>
<td width="80%" align="center" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">
<font color="#808080"><span style="font-size: 9pt">发布者：<%= rsnews("user") %>
发布时间：<%= rsnews("AddDate") %> 阅读：<%= rsnews("hits") %>次 【字体：</span></font><span style="font-size: 9pt"><A class=black href="javascript:fontZoom(16)"><font color="#808080">大</font></A><font color="#808080">
</font>
<A class=black href="javascript:fontZoom(14)">
<font color="#808080">中</font></A><font color="#808080">
</font> <A class=black href="javascript:fontZoom(12)">
<font color="#808080">小</font></A></span><font color="#808080"><span style="font-size: 9pt">】</span></font></td>
</tr>
<tr>
<td class=black id=fontzoom colspan="2"><br>
<%=rsnews("content") %></td>
</tr>
<tr align="right">
<td colspan="2"> </td>
</tr>
<tr align="right">
<td colspan="2"> </td>
</tr>
<%
end if
rsnews.close
set rsnews=nothing
%>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><a href="javascript:window.print()">打印本页</a>
|| <a href="javascript:window.close()">关闭窗口</a></td>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="end.asp"-->