<!--#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("縣域經(jīng)濟(jì)博客")%>">
<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("請(qǐng)登陸"))&"</a><br/>"
End if
Response.Write (converttowide("－博客導(dǎo)航－"))&"<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("國(guó)際國(guó)內(nèi)新聞"))&"</a><br/>"
Response.Write "<a href=""http://www.xyjj.net/bbs/wap.asp"">"&(converttowide("縣域經(jīng)濟(jì)論壇"))&"</a><br/>"
Response.Write "<a href=""http://www.xynj.net/wap.asp"">"&(converttowide("縣域經(jīng)濟(jì)年鑒"))&"</a><br/>"
Response.Write "<a href=""http://www.21nong.com/wap.asp"">"&(converttowide("蘇州農(nóng)網(wǎng)"))&"</a>"
%>
</p>
</card>
</wml>