一个手机新闻网站

源代码在线查看: newslist.asp

软件大小: 56 K
上传用户: jecksonchen
关键词: 手机 新闻 网站
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				
								'========================================================================================
				' 文 件 名: 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()
				
				%>
				=*=*=*=*=*=
				返回网站首页
				
				
							

相关资源