本页内容是《【第七课】手把手教你用ASP开发WAP网站》同时我们还提供济宁地区的网站建设,百度,雅虎,google的推广,点金,商友,等营销软件
请输入关键字:

标题搜索 内容搜索  

你现在所在的位置->首页->wap->【第七课】手把手教你用ASP开发WAP网站

【第七课】手把手教你用ASP开发WAP网站

时间:[2007-11-2 17:24:38]     作者:作者不详

    用ASP开发WAP新闻系统--新闻的回复的显示跟回复列表
    
    接下来的工作,就是回复的显示跟回复列表文件了。
    先打开NewsShow.asp文件,在快速回复上面,即Response.Write("<br/>=*=*=*=*=*=<br/>")上面,插入以下代码:
    
    '//读取最后一条回复
     Dim rsReply
     Set rsReply=conn.execute("Select top 1 content from [NewsComment] where newsID="& ID &" order by ID desc")
     If Not rsReply.eof Then
     Response.Write("<br/>=*=*=*=*=*=<br/>")
     Response.Write ("最新回复:<br/>"&_
     replaceStr(rsReply(0))&"<br/>"&_
     "<a href=""ReplyList.asp?ID="& ID &""">阅读所有回复</a>")
     End If
     rsReply.close()
     set rsReply=nothing
    
    这段代码主要是读取回复表里关于这条新闻的最后一条回复。相信大家都对这段代码的意思非常清楚了,这里就不多罗索!
    保存文件之后,回到刚才的调试页面,刷新页面看一看,嘿嘿,刚刚回复的内容就显示出来了!请看图6-2的效果。

    新闻回复列表文件的完成:
    同样是新建立一个文本文件,将文件名修改为ReplyList.asp,保存文件编码为UTF-8。复制以下代码:
    
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
    <!--#include file="inc/config.asp"-->
    <%
    Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml,编码为UTF-8 7WAP
    %>
    <?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="ReplyList" title="阅读回复">
    <p align="left"><!-- 页面居左对齐 -->阅读所有回复
    <br/>=*=*=*=*=*=<br/>
    <%
    Dim ID,rs

7WAP


    ID=int(request.QueryString("ID"))
    
    Call openConn() '打开数据库
    Set rs=conn.execute("Select content From [NewsComment] where newsID="& ID &"") '读取新闻回复表
    If Not rs.eof Then
     Dim PageSize,i
     PageSize=10 '每一页显示的条数
     Dim Count,page,pagecount,gopage '定义相关变量
     gopage="ReplyList.asp?ID="&ID&"&"
     Count=conn.execute("Select count(ID) from [NewsComment] where newsID="& ID &"")(0)'读取回复总数
     page=int(request.QueryString ("page"))
     if page<=0 or page="" then page=1 '默认为第一页 文章来源:www.7wap.cn,WAP资讯
     pagecount=(count+pagesize-1)\pagesize '计算出页数
     rs.move(pagesize*(page-1)) '将游标指到每一页的第一条记录 
     For i=1 To PageSize '根据每一页的条数进行循环
     If rs.eof Then Exit For '如果循环到了尽头,则跳出循环
     Response.Write (i+(PageSize*(page-1))&"."&replaceStr(rs(0))&_
     "<br/>-=-=-=-=-=-<br/>")
     rs.moveNext 
     Next
     response.write ("共:"&count&"条,"&page&"/"&pagecount&"页")
     if page-pagecount<0 then response.write "<br/><a href="""&gopage&"page="&page+1&""">下页-</a><a 
    
    href="""&gopage&"page="&pagecount&""">尾页</a>" www.7wap.cn提供WAP资讯服务
     if page>1 then response.write "<br/><a href="""&gopage&"page="&page-1&""">上页-</a><a href="""&gopage&"page=1"">首页
    
    </a>"
     '//下面这一句,是让用户通过输入框输入页数,然后通过链接直接转向该页
     if pagecount>1 then response.write "<br/><input name=""page"" format=""*N"" value="""&page&""" type=""text"" 
    
    maxlength=""5"" emptyok=""true""/><br/><a href="""&gopage&"page=$(page)"">[跳转到该页]</a>"
    Else
     Response.Write ("暂无回复内容!")
    End If
    Call rsClose()
    Call ConnClose()
    
    Response.Write ("<br/>=*=*=*=*=*=<br/>")
    Response.Write ("快速回复:<br/>"&_
     "<input name=""content"&ID&""" emptyok=""true"" type=""text""/><br/>"&_
     "<anchor>马上回复"&_
     "<go href=""SaveReply.asp"" method=""post"">"&_
     "<postfield name=""ID"" value="""&ID&""" />"&_
     "<postfield name=""content"" value=""$(content"&ID&":n)"" />"&_
     "<postfield name=""Method"" value=""POST"" />"&_
     "</go>"&_
     "</anchor>")
    %>
    <br/>=*=*=*=*=*=<br/>
    <a href="NewsShow.asp?ID=<%=ID%>">返回新闻内容</a><br/> WAP资讯网
    <a href="index.asp">返回网站首页</a><br/>
    
    </p>
    </card>
    </wml>
    
    
    这些代码是不是很眼熟咧,其实它跟新闻列表文件的代码几乎是一样的,只是读取的数据库跟数据库表不同而已!
    
    保存文件后,进行相应的调试,然后传到空间里,用手机再测试一下效果!

【声明】本站刊载的《【第七课】手把手教你用ASP开发WAP网站》一文如果有侵害你权益的情况,请联系我们。我们将及时采取措施。
QQ:44637339 Email:just6@163.com Tel:13355163107 Lining studios

友情链接

本页内容是《【第七课】手把手教你用ASP开发WAP网站》 返回顶部
© 2001-2024 Lining studios 济宁速创科技有限公司, All Rights Reserved
 Processed Time:62.500ms
中华人民共和国信息产业部网站备案号: 鲁ICP备09103015号-1