wap_view.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>
<!--#include file=conn.asp-->
<!--#include file=inc/function.asp-->
<card id="wapview" title="<%=ewap(ewap_name)%>">
<p align="left">
<%
DIM id
id=trim(request("id"))
If id="" or( not isnumeric(id) )then
response.write ewap(ewap_(29))
response.end
end if
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where nid="&id
rs.open sql,cn,1,1
%>
<%
If rs.eof and rs.bof then

response.write ewap_(29)
else %>
<%
Dim wap_size,wap_pagecount,wap_no,wap_length,page,ndetail
wap_size=100
wap_length=len(rs("ndetail"))
wap_pagecount=int(wap_length/wap_size)+1
If request("page")<>"" and isnumeric(request("page")) then 
page=clng(request("page"))
else
page=1
end if
If page<1 and isnull(page) then page=1
If page>wap_pagecount then page=pagecount
If page=1 then
wap_no=1
elseif page>1 then
wap_no=(page-1)*wap_size+1
end if
wap_news=uhtmlencode(rs("ndetail"))
ndetail=mid(wap_news,wap_no,wap_size)
%>
<%If page=1 then%>
<%=ewap(uhtmlencode(rs("ntitle")))%><br/><br/>
<%end If%>
<%=ewap(uhtmlencode(ndetail))%>
<br/>
<%if page>1 and wap_pagecount>1 then%>
<a href="wap_view.asp?id=<%=id%>&amp;page=1"><%=ewap(ewap_(19))%></a><a href="wap_view.asp?id=<%=id%>&amp;page=<%=(page-1)%>"><%=ewap(ewap_(22))%></a><%
end if
if page<wap_pagecount and wap_pagecount>1 then
%><a href="wap_view.asp?id=<%=id%>&amp;page=<%=page+1%>"><%=ewap(ewap_(21))%></a><a href="wap_view.asp?id=<%=id%>&amp;page=<%=wap_pagecount%>"><%=ewap(ewap_(20))%></a> 
<br/><%=ewap(ewap_(35))%><br/><%=ewap(rs("ntime"))%>
<%end if%><br/><a href="Wap_Class_View.asp?cid=<%=rs("nclass")%>"><%=ewap(ewap_(66))%></a><br/><a href="wap_index.asp"><%=ewap(ewap_(8))%></a>
<%
rs.close
set rs=nothing
end if
%>
</p>
</card>
</wml>