helps.asp

设计考虑校园电子商务模式

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="top.asp"-->
<%
'==================================================
'作  用：显示新闻列表
'参  数：无
'==================================================
With Response
.Write"	<table cellpadding=1 cellspacing=1  class=tableborder1  style='border-collapse:collapse;  width:778' align='center'>" & Vbcrlf
.Write"		<tr >" & Vbcrlf
.Write"			<td class=tablebody1  width='778' height='25' colspan='3' >&nbsp;您现在的位置：<a href='default.asp'>网站首页</a>&gt;&gt;<a href='Helps.asp'>帮助中心</a></td>" & Vbcrlf
.Write"		</tr>" & Vbcrlf
set rs=server.CreateObject("adodb.recordset")
sql="select id,newsname,newscolor,newsdate from [dd_helps]  order by ID desc"
rs.open sql,conn,1,1
if rs.bof then
.Write"		<tr >" & Vbcrlf
.Write"			<td class=tablebody1  width='100%' height='25' colspan='3' >" & Vbcrlf
.Write"			<p align='center'>暂时没有资料</td>" & Vbcrlf
.Write"		</tr>" & Vbcrlf
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 
.Write"		<tr >" & Vbcrlf
.Write"			<td class=tablebody1  width='70%' height='25' >·<a href='showHelps.asp?id="&rs("ID")&"' target=_blank><font color=" & Vbcrlf&rs("newscolor")&">" & Vbcrlf&rs("newsname")&"</font></a></td>" & Vbcrlf
.Write"			<td class=tablebody1  width='30%' height='25' > "
.Write"			<p align='center'>" & Vbcrlf&rs("newsdate")&"</td>" & Vbcrlf
.Write"		</tr>" & Vbcrlf
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop 
end if
.Write"		<tr >" & Vbcrlf
.Write"			<td class=tablebody1  width='778' height='25' colspan='3' ><form name='form1' method='post' action='Helps.asp'>" & Vbcrlf
.Write"			<p align=center>共有:<font color=red>" & Vbcrlf&rs.recordcount&"</font>新闻 &nbsp;&nbsp;<a href=Helps.asp>首页</a>&nbsp; " 
.Write"	         <a href=Helps.asp?page="&currentpage-1&"> 上一页</a>&nbsp; <a href=Helps.asp?page="&currentpage+1&"> "
.Write"	         下一页</a>&nbsp;  <a href=Helps.asp?page="&rs.pagecount&">尾页</a>&nbsp;&nbsp;&nbsp;&nbsp;转到 "  
.Write"	         <input name='page' type='text' id='page' value='"&currentpage&"' size='4'> "
.Write"	         &nbsp; <input type='submit' name='Submit' value='GO'> <input name='search' type='hidden' id='search' value='"&search&"'> " 
.Write"	          <input name='key' type='hidden' id='key' value='"&key&"'> "		
.Write"			　</td>" & Vbcrlf
.Write"		</tr> </form>" & Vbcrlf
.Write"	</table>" & Vbcrlf
rs.close
end with
%><!--#include file="bottom.asp"-->