wap_class_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="wapclassview" title="<%=ewap(ewap_name)%>">
<p align="left">
<%
DIM id
id=trim(request("cid"))
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 nid,ntitle,ntime from news where nclass="&id&" order by ntime desc"
rs.open sql,cn,1,1

%>
<%
If rs.eof and rs.bof then
response.write ewap(ewap_(23))&"<br/>"
else
count=ewap_top
rs.pagesize = count 
rc=rs.recordcount
pgnm=rs.pagecount
page=request.QueryString("page")
	If not isnumeric(page) then page=1
	if page<>"" then page=clng(page)
	if page="" or page=0 then page=1
	if page>pgnm then page=pgnm
	if pgnm>1 then rs.absolutepage=page

%>

<%
do while not rs.eof and count>0
count=count-1
ntitle=uhtmlencode(rs("ntitle"))
If len(ntitle)>10 then
ntitle=left(ntitle,10)&"…"
end if
%>
<a href="Wap_View.asp?id=<%=rs("nid")%>"><%=ewap(ntitle)%></a><br/>

<%
rs.movenext
loop
%>
<br/>
<%=ewap(rc)%>&nbsp;<%=page%>/<%=pgnm%>&nbsp;&nbsp;&nbsp;
		<%if page>1 and pgnm>1 then%>
		<a href="wap_Class_View.asp?page=1"><%=ewap(ewap_(19))%></a>-<a href="wap_Class_View.asp?page=<%=page-1%>"><%=ewap(ewap_(22))%></a>-<%
end if
if page<pgnm and pgnm>1 then
%><a href="wap_Class_View.asp?page=<%=page+1%>"><%=ewap(ewap_(21))%></a>-<a href="wap_Class_View.asp?page=<%=pgnm%>"><%=ewap(ewap_(20))%></a> 
<%
end if

rs.close
set rs=nothing
end if
%>
<br/>
<%
dim rs_s,sql_s
set rs_s=server.createobject("adodb.recordset")
sql_s="select * from class where p_class="&id&" order by id asc"
rs_s.open sql_s,cn,1,1
do while not rs_s.eof
%>
<a href="wap_Class_View.asp?cid=<%=rs_s("id")%>"><%=ewap("◆")%><%=ewap(rs_s("class_name"))%></a><br/>
<%
rs_s.movenext
loop
rs_s.close
set rs_s=nothing
cn.close
set cn=nothing
%>
<a href="#search" title="<%=ewap(ewap_(50))%>"><%=ewap(ewap_(50))%></a><br/><a title="<%=ewap(ewap_(8))%>" href="wap_index.asp"><%=ewap(ewap_(8))%></a><br/>
</p>
</card>
<card id="search" title="<%=ewap(ewap_(50))%>">
<p align="left">
<%=ewap(ewap_(54))%><br/>
<select name="t1" value="title"><option value="title"><%=ewap(ewap_(55))%></option><option value="detail"><%=ewap(ewap_(56))%></option></select><br/>
<input type="text" name="d1" value="" /><br/>
<anchor title="<%=ewap(ewap_(53))%>"><%=ewap(ewap_(53))%>
<go href="wap_search.asp" method="post">
<postfield name="t" value="$(t1)" />
<postfield name="d" value="$(d1)" />
</go>
</anchor>
<br/>
<a href="wap_index.asp"><%=ewap(ewap_(8))%></a>
</p>
</card>
</wml>