?? wapindex.asp
字號(hào):
<!--#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>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -