📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="inc/config.asp"-->
<%
'========================================================================================
' 文 件 名: index.asp
' 版 本: WapForum教程--WAP新闻系统
' 说 明: 首页文件 | 请勿删除此说明内容，转载请注明出处。多谢合作！
' 文件日期: 2007-03-01
' 讨论网站: WapForum.cn
'========================================================================================
' Copyright (C) 2007 WapForum.cn. All rights reserved.
' 网 站: http://WapForum.cn
' 电子邮件: Service@WapForum.cn
' 联系ＱＱ: 13431619,44459416,82890065
' QQ交流群: 36508170
'========================================================================================
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml，编码为UTF-8
%>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/><!-- 每次都需通过连接服务器调用本页内容 -->
<meta http-equiv="Cache-Control" content="no-cache"/><!-- 禁止浏览器从缓存中访问页面内容 -->
</head>
<card id="index" title="WAP新闻系统">
<p align="left"><!-- 页面居左对齐 -->
<img src="images/logo.gif" alt="logo"/><!-- 显示Logo图片（记住最后要加“/”） -->
<br/><!-- 换行符号（同样要记住最后要加“/”） -->
=*新闻类别*=<br/>
<%
Dim rs,i '定义变量
Call openConn() '打开数据库
Set rs=conn.execute("Select ID,Name from [NewsType]") '读取类别表数据
i=0
While(Not rs.eof) '//循环列出类别名称及链接
i=i+1
%>
<a href="NewsList.asp?ID=<%=rs(0)%>"><%=rs(1)%></a>
<%
If i=3 or i=6 Then Response.Write("<br/>") '输出第三个及第六个后换行
rs.moveNext '切记要加上“rs.moveNext”否则会出现死循环！
Wend
Call rsClose()
%>
=*最新新闻*=<br/>
<%
Set rs=conn.execute("Select Top 10 ID,title From [NewsContent] order by ID desc") '读取新闻内容表前十条记录
While(Not rs.eof) '//循环列出新闻标题
%>
<a href="NewsShow.asp?ID=<%=rs(0)%>"><%=rs(1)%></a><br/>
<%
rs.moveNext
Wend
Call rsClose()
Call connClose()
%>
=*=*=*=*=*=<br/>
(C)WapForum.cn
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -