wapindex.asp

WAP博客第三版 最新发布

<!--#include file="wapconn.asp"-->
<!--#include file="wapstr.asp"-->
<%
response.ContentType="text/vnd.wap.wml;charset=utf-8"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
%><?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>
<card id="wapindex" title="<%=converttowide("县域经济博客")%>">
<p align="center">
<%
username=session("username")
password=session("password")
If username<>"" then
Response.Write (converttowide("欢迎您"))&"<br/>"&username&"<br/>"
else
Response.Write "<a href=""wap_login.asp"">"&(converttowide("请登陆"))&"</a><br/>"
End if
Response.Write (converttowide("－博客导航－"))&"<br/>"
Response.Write "<a href=""wapblog.asp"">"&(converttowide("最新日志"))&"</a><br/>"
Response.Write "<a href=""wapbloghot.asp"">"&(converttowide("热门日志"))&"</a><br/>"
Response.Write "<a href=""wapblogrcd.asp"">"&(converttowide("推荐日志"))&"</a><br/>"
Response.Write "<a href=""wapuserlist.asp"">"&(converttowide("博客排行"))&"</a><br/>"
Response.Write "<a href=""wapbloglist.asp"">"&(converttowide("日志排行"))&"</a><br/>"
Response.Write (converttowide("－日志分类－"))&"<br/>"

	dim sql,rs,id,classname
	sql="SELECT Id,classname from [classname] ORDER BY ordernum"
	Set rs=conn.execute(SQL)
	If not(rs.bof and rs.eof) then
	While not rs.eof
	id=rs(0)
	classname=rs(1)
	response.write "<a href=""wapblog.asp?classid="&id&""">"&(converttowide(classname))&"</a><br/>"
	rs.MoveNext
	wend
	End if
	Rs.close:Set rs=Nothing

Response.Write (converttowide("－友情链接－"))&"<br/>"
Response.Write "<a href=""http://wap.tompda.com/wap.wml"">"&(converttowide("国际国内新闻"))&"</a><br/>"
Response.Write "<a href=""http://www.xyjj.net/bbs/wap.asp"">"&(converttowide("县域经济论坛"))&"</a><br/>"
Response.Write "<a href=""http://www.xynj.net/wap.asp"">"&(converttowide("县域经济年鉴"))&"</a><br/>"
Response.Write "<a href=""http://www.21nong.com/wap.asp"">"&(converttowide("苏州农网"))&"</a>"
%>
</p>
</card>
</wml>