📄 photo.asp
字号:
<!--#include file="inc/cconst.asp"-->
<!--#include file="inc/conn.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"%>
<%
Function HtmlUNEncode(str)
dim tempstr
tempstr=str
If Trim(tempstr)="" Or IsNull(tempstr) Then Exit Function
tempstr=Replace(tempstr,"<br>",Chr(10))
tempstr=Replace(tempstr,"<p></p>",Chr(10) & Chr(10) )
tempstr=Replace(tempstr,"",Chr(13))
tempstr=Replace(tempstr,"'",Chr(39))
tempstr=Replace(tempstr,""",Chr(34))
tempstr=Replace(tempstr," ",Chr(9))
tempstr=Replace(tempstr," ",Chr(32))
' tempstr=Replace(tempstr,"<","<")
' tempstr=Replace(tempstr,">",">")
for pic=1 to 14
if len(cstr(pic))=1 then
pic2="0"&cstr(pic)
else
pic2=cstr(pic)
end if
tempstr=Replace(tempstr,"[em"&pic2&"]","<img src='images/UBBicon/em"&pic2&".gif' alt='em"&pic2&"'/>")
next
HtmlUNEncode=tempstr
End Function
%>
<?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"/></head>
<card id="<%=wap_81238_net("网友相册")%>" title="<%=wap_81238_net("网友相册")%>">
<%
dim i,discnt,startpos,fileSize,musicurl,id
startpos=cint(request.querystring("page"))
if startpos<=0 then
startpos=1
end if
set rs=server.createobject("adodb.recordset")
rs.pagesize=3
rs.open "select * from photo where Isok=1 order by LastUpdateTime desc",conn,1,1
if startpos > rs.PageCount then
startpos=rs.PageCount
end if
rs.AbsolutePage=startpos
for ipage=1 to rs.pagesize
data=rs("subject")
content=rs("liuyanshu")
sname=rs("username")
fileSize=rs("PhotoSize")
wap_photo_path="upfile/"
musicurl="../"&wap_photo_path&rs("pic")&""
id=rs("picid")
%>
<p><%=wap_81238_net(id)%>.[<%=wap_81238_net(data)%>](<%=HtmlUNEncode(wap_81238_net(sname))%>)</p>
<p>
<a href="<%=wap_81238_net(musicurl)%>"><img src="<%=wap_81238_net(musicurl)%>" alt="<%=wap_81238_net(data)%>" /></a></p>
<p><a href="<%=wap_81238_net(musicurl)%>"><%=wap_81238_net("下载")%>(<%=fileSize%>K)</a><%'=HtmlUNEncode(wap_81238_net(content))%></p>
<p>------</p>
<%
rs.movenext
if rs.eof then exit for
next
%>
<% startpos=startpos+1
if (not rs.eof) then
txt="'photo.asp?page="&cstr(startpos)&"'"
%>
<p><a href=<%=txt%>><%=tra(cnext)%></a></p>
<p><%=tra(cgoto)%><input name="goto" title="goto" value="<%=startpos%>" format="*N"/><%=startpos-1%>/<%=rs.pagecount%>页</p>
<p>
<anchor title="gotopage">Goto
<go href="photo.asp" method="get">
<postfield name="page" value="$(goto)"/>
</go>
</anchor>
</p>
<p><a href="photo.asp"><%=tra(cback)%></a></p>
<p><a href="main.asp"><%=wap_81238_net("返回首页")%></a></p>
<%
else
response.write("<p align='center'>"&tra(cend)&"</p>")
response.write("<p align='center'><anchor title='Back'>"&tra(cback)&"<go href='photo.asp'/></anchor></p>")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -