手机WAP编程

开发平台：

Java

tuijian.asp：源码内容

							<!--#include file="conna.asp"-->
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
                     "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta forua="true" http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card id="forum" title="forum" newcontext="true">
<p>
<do type="prev" name="Prev" label="Back"><prev/></do>
**推荐文章**<br/>
<%
''=========================================================
''select top 10 recommanded poster of Herald Forum
''based on /wwwroot/html/xslt/index.asp   modified by Kevin
''=========================================================
set rs=server.createobject("adodb.recordset")
sql=" select top 10 t.TopicID,t.boardid,t.title,t.postusername,t.postuserid,t.dateandtime,t.hits,b.parentid,b.boardid from Topic t,board b where b.boardid=t.boardid and t.istop=1 and t.locktopic<>2 and t.boardid<>13 and t.boardid<>12 and t.boardid<>124 and b.parentid<>92 order by t.dateandtime desc"
set rs=conn.execute(sql)
do while not rs.eof
set rs_herald=server.createobject("adodb.recordset")
sql_herald="select boardtype from board where boardid=" & rs("boardid")
set rs_herald=conn.execute(sql_herald)
if not rs_herald.eof then
response.write "∴"
response.write "["
response.write rs_herald("boardtype")
response.write "]" 
''response.write rs("boardid") & "&id=" & rs("topicid") & ">"
''cyndi modify
titles=rs("title")
titles=replace(titles,"<","&lt;")
titles=replace(titles,">","&gt;")
response.write titles & "("
response.write rs("postusername") & ")<br/>"
end if
rs.movenext
set rs_herald=nothing
loop
rs.close
set rs=nothing
%>
<b>* * * * * * * * *</b>
<br/><a href="index.wml">返回论坛</a><br/>
<br/><a href="http://herald.seu.edu.cn/ewap/index.wml">返回主页</a><br/>
</p>
</card>
</wml>

						