newsdetail.asp

漂亮的欧美旅游模板

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="db_conn.asp"-->
<!--#include file="my_libs/my_request.asp"-->
<!--#include file="my_libs/my_lib.asp"-->
<!--#include file="my_libs/comm.asp"-->
<%
call head("新闻_"&arrlist_s(0))
call top()
%>

<%
	response.write ("<div align=center>")
	response.write ("<table border=0 width=760 cellpadding=4 class=istable height=28>")
	response.write ("<tr class=smallblack>")
	response.write ("<td>当前位置: 网站首页 &gt;&gt; 最新动态</td>")
	response.write ("</tr>")
	response.write ("</table>")

	response.write ("<table border=0 width=760 cellpadding=0 class=istable>")
	response.write ("<tr>")
	response.write ("<td width=220 valign=top>")

dim y
for y=1 to 5
call left(y)
next

	response.write ("</td>")
	response.write ("<td width=10 valign=top>　</td>")
	response.write ("<td width=530 valign=top>")
	response.write ("<table border=1 width=100% cellpadding=0 class=istable bordercolor=#C0C0C0 cellspacing=0>")
	response.write ("<tr>")
	response.write ("<td>")
	response.write ("<table border=0 width=528 cellpadding=2 style=""border-collapse: collapse; border-top: 4px solid #F1F1F1; background-color: #E7E7E7"">")
	response.write ("<form action=research.asp method=post>")
	response.write ("<tr class=smallblack>")
	response.write ("<td width=281>")
	response.write ("<p align=right>")
	response.write ("您想要去的地方：<input type=text name=uwhere size=20 maxlength=50>")
	response.write ("</td>")
	response.write ("<td width=239>您想出行几天：<select size=1 name=uday>")
	response.write ("<option selected value=3>三 天</option>")
	response.write ("<option value=4>四 天</option>")
	response.write ("<option value=5>五 天</option>")
	response.write ("<option value=6>六 天</option>")
	response.write ("<option value=7>七 天</option>")
	response.write ("<option value=8>七天以上</option>")
	response.write ("<option value=2>三天以下</option>")
	response.write ("</select></td>")
	response.write ("</tr>")
	response.write ("<tr class=smallblack>")
	response.write ("<td width=281>")
	response.write ("<p align=right>您想游览的景点：<input type=text name=usight size=20 maxlength=50></td>")
	response.write ("<td width=239>")
	response.write ("<input type=radio value=1 checked name=flag>模糊搜索")
	response.write ("<input type=radio value=2 name=flag>精确搜索&nbsp;<input type=submit value=给我搜 name=B1></td>")
	response.write ("</tr></form>")
	response.write ("</table>")
	response.write ("</td>")
	response.write ("</tr>")
	response.write ("</table>")
	response.write ("<table border=0 width=100% cellpadding=0 class=istable>")
	response.write ("<tr>")
	response.write ("<td>　</td>")
	response.write ("</tr>")
	response.write ("</table>")

	dim nid,ssql,srs,news(3),n,uprs,dnrs
	nid=my_request("id",1)
	ssql="select zm_newstitle,zm_newscontent,zm_newsaddtime,zm_hit from ssort_news where zm_newsisok=0 and nid="&nid
	set srs=conn.execute (ssql)
	for n=0 to 3
	news(n)=srs(n)
	next
	srs.close
	set srs=nothing
conn.execute ("update ssort_news set zm_hit=zm_hit+1 where nid="&nid)
response.write ("<table border=0 width=100% cellpadding=0 class=istable>")
response.write ("<tr>")
response.write ("<td align=center class=bigblack>"&news(0)&"</td>")
response.write ("</tr>")
response.write ("<tr>")
response.write ("<td>")
response.write ("<hr size=1>")
response.write ("</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td style=""line-height: 200%"" align=center>加入日期："&news(2)&"&nbsp;&nbsp;&nbsp;浏览次数："&news(3)&"</td>")
response.write ("</tr>")
response.write ("<tr class=smallblack>")
response.write ("<td valign=top>"&news(1)&"</td>")
response.write ("</tr>")
response.write ("<tr>")
response.write ("<td style=""line-height: 200%"" height=23 class=smallblack>")
response.write ("上一主题：")
set uprs=conn.execute("select top 1 nid,zm_newstitle from ssort_news where nid>"&nid&" order by nid desc")
if uprs.eof or uprs.bof then
response.write ("上一主题为空了！")
else
response.write ("<a href='newsDetail.asp?id="&uprs(0)&"'>"&uprs(1)&"</a>")
end if
uprs.close
set uprs=nothing
response.write ("<br>")
response.write ("下一主题：")
set dnrs=conn.execute("select top 1 nid,zm_newstitle from ssort_news where nid<"&nid&" order by nid desc")
if dnrs.eof or dnrs.bof then
response.write ("上一主题为空了！")
else
response.write ("<a href='newsDetail.asp?id="&dnrs(0)&"'>"&dnrs(1)&"</a>")
end if
dnrs.close
set dnrs=nothing
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("<table border=0 width=100% cellpadding=0 class=istable>")
response.write ("<tr>")
response.write ("<td>　</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")
call htmlend()%>