newslist.asp

漂亮的欧美旅游模板

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#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"-->
<!--#include file="my_libs/pages.asp"-->
<%
response.write ("<script language=javascript>")
response.write ("function check(){if(formu.uwhere.value==''){alert(""您要去的地方必须填写！"");return false;}}")
response.write ("</script>")
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 name=formu onsubmit='return check();'>")
	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=四>四 天</option>")
	response.write ("<option value=五>五 天</option>")
	response.write ("<option value=六>六 天</option>")
	response.write ("<option value=七>七 天</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>")
	%>
			<table border="0" width="100%" cellpadding="0" class=istable>
				<tr>
					<td>
					<table border="0" width="100%" cellpadding="0" class=istable>
						<tr>
							<td bgcolor="#5483D1">
							<p align="center"><font color="#FFFFFF"><b>
							<span style="font-size: 14px">&nbsp;</span></b><span style="font-size: 14px"><b>最新动态</b></span></font></td>
							<td width="23">
							<img border="0" src="images/lineconer.gif" width="23" height="25"></td>
							<td width="367" style="border-bottom: 2px solid #5483D1">
							　</td>
						</tr>
					</table>
					</td>
				</tr>
				<tr>
					<td style="line-height: 200%">
<%
	dim sql,rs,arrlist(3),i,ii
	sql="select nid,zm_newstitle,zm_newsistop,zm_newsaddtime from ssort_news where zm_newsisok=0 order by zm_newsaddtime desc,zm_newsisok desc"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td class=12px width=760 colspan=6><font color=#FF0000>暂时还没有任何数据</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
for i=0 to 3
arrlist(i)=rs(i)
next

%>

					<span style="font-size: 14px">·<a href="newsDetail.asp?id=<%=arrlist(0)%>"><%=arrlist(1)%></a></span><span style="font-size: 14px"><font color="#C0C0C0">(<%=arrlist(3)%>)</font></span>
					<br>
					<%
rs.movenext
ii=ii+1
wend
%></td>
				</tr>
				</table>
		<table border="0" width="100%" id="table6" cellpadding="0" class=istable>
				<tr>
					<td><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")%></td>
				</tr>
		</table>
		<%rs.close
set rs=nothing%>
		</td>
	</tr>
</table>




</div>
<%
call htmlend()
%>