news.asp

源码源源码 源码 源码码源 码源 码源 码源 码

<!--#include file="top.asp"-->
<%
	set rstmp=conn.execute("select skin_other from myweb_myweb where default=true")
		show=rstmp(0)
	set rstmp=nothing
	call myweb()
    response.Write show
%>
<%
'==================================================
'过程名：showother
'作  用：显示新闻列表
'参  数：无
'==================================================
sub showother
show_other="	<table cellpadding=0 cellspacing=0 border='1' bordercolor='"&table&"'  style='border-collapse:collapse;  width:100%' align='center'>"
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' colspan='3' >&nbsp;您现在的位置：<a href='default.asp'>网站首页</a>&gt;&gt;<a href='news.asp'>新闻动态</a></td>"
show_other=show_other&"		</tr>"
set rs=server.CreateObject("adodb.recordset")
sql="select id,newsname,newswrite,newsdate from [myweb_news]  order by ID desc"
rs.open sql,conn,1,1
if rs.bof then
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' colspan='3' >"
show_other=show_other&"			<p align='center'>暂时没有资料</td>"
show_other=show_other&"		</tr>"
else
rs.pagesize=20
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
Do While Not rs.Eof 
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='60%' height='25' >&nbsp;<a href='shownews.asp?newsid="&rs("ID")&"' target=_blank>"&rs("newsname")&"</a>　</td>"
show_other=show_other&"			<td width='20%' height='25' > "
show_other=show_other&"			<p align='center'>"&rs("newswrite")&"　</td>"
show_other=show_other&"			<td width='20%' height='25' > "
show_other=show_other&"			<p align='center'>"&rs("newsdate")&"　</td>"
show_other=show_other&"		</tr>"
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop 
end if
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' colspan='3' ><form name='form1' method='post' action='news.asp'>"
show_other=show_other&"			<p align=center>共有:<font color=red>"&rs.recordcount&"</font>新闻 &nbsp;&nbsp;<a href=news.asp>首页</a>&nbsp; " 
show_other=show_other&"	         <a href=news.asp?page="&currentpage-1&"> 上一页</a>&nbsp; <a href=news.asp?page="&currentpage+1&"> "
show_other=show_other&"	         下一页</a>&nbsp;  <a href=news.asp?page="&rs.pagecount&">尾页</a>&nbsp;&nbsp;&nbsp;&nbsp;转到 "  
show_other=show_other&"	         <input name='page' type='text' id='page' value='"&currentpage&"' size='4'> "
show_other=show_other&"	         &nbsp; <input type='submit' name='Submit' value='GO'> <input name='search' type='hidden' id='search' value='"&search&"'> " 
show_other=show_other&"	          <input name='key' type='hidden' id='key' value='"&key&"'> "		
show_other=show_other&"			　</td>"
show_other=show_other&"		</tr> </form>"
show_other=show_other&"	</table>"
rs.close
end sub
%>