'========================================================================================
' 文 件 名: NewsList.asp
' 版 本: WapForum教程--WAP新闻系统
' 说 明: 新闻列表文件 | 请勿删除此说明内容,转载请注明出处。多谢合作!
' 文件日期: 2007-03-01
' 讨论网站: WapForum.cn
'========================================================================================
' Copyright (C) 2007 WapForum.cn. All rights reserved.
' 网 站: http://WapForum.cn
' 电子邮件: Service@WapForum.cn
' 联系QQ: 13431619,44459416,82890065
' QQ交流群: 36508170
'========================================================================================
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml,编码为UTF-8
%>
Dim ID,rs
ID=int(request.QueryString("ID"))
Call openConn() '打开数据库
Response.Write (conn.execute("Select Name from [NewsType] where ID="& ID &"")(0))&"新闻列表" '输出类别名
%>
=*=*=*=*=*=
Set rs=conn.execute("Select ID,title From [NewsContent] where typeID="& ID &" order by ID desc") '读取新闻内容表
If Not rs.eof Then
Dim PageSize,i
PageSize=10 '每一页显示的条数
Dim Count,page,pagecount,gopage '定义相关变量
gopage="NewsList.asp?ID="&ID&"&"
Count=conn.execute("Select count(ID) from [NewsContent] where typeID="& ID &"")(0) '读取新闻总数
page=int(request.QueryString ("page"))
if page pagecount=(count+pagesize-1)\pagesize '计算出页数
rs.move(pagesize*(page-1)) '将游标指到每一页的第一条记录
For i=1 To PageSize '根据每一页的条数进行循环
If rs.eof Then Exit For '如果循环到了尽头,则跳出循环
%>
rs.moveNext
Next
response.write ("共:"&count&"条,"&page&"/"&pagecount&"页")
if page-pagecount if page>1 then response.write "上页-首页"
'//下面这一句,是让用户通过输入框输入页数,然后通过链接直接转向该页
if pagecount>1 then response.write "[跳转到该页]"
Else
%>
暂时没有新闻!
End If
Call rsClose()
Call connClose()
%>
=*=*=*=*=*=
返回网站首页