wap_search.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="wapsearch" title="<%=ewap(ewap_name)%>">
<p align="left">
<%
dim stype,skeyword
stype=trim(request("t"))
skeyword=trim(request("d"))

If skeyword="" or stype="" then
call showsearch()
%>
<%
elseIf stype="title" or stype="detail" then
dim rs,sql
set rs=server.createobject("adodb.recordset")
If stype="title" then
sql="select * from news where ntitle like '%"&skeyword&"%' order by ntime desc"
elseif stype="detail" then
sql="select * from news where ndetail like '%"&skeyword&"%' order by ntime desc"
end if
rs.open sql,cn,1,3
%>

<%
If rs.eof and rs.bof then
%>
<%=ewap_(54)%><br/>
<select name="t1" value="title"><option value="title"><%=ewap_(55)%></option><option value="detail"><%=ewap_(56)%></option></select>
<input type="text" name="d1" value=""/>
<anchor title="<%=ewap_(53)%>"><%=ewap_(53)%>
<go href="wap_search.asp" method="post">
<postfield name="t" value="$(t1)" />
<postfield name="d" value="$(d1)" />
</go>
</anchor><br/>
<% response.write ewap(ewap_(52))
else 
dim count
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

%>
<%=ewap_(51)%><br/>
<%
do while not rs.eof and count>0
count=count-1
ntitle=rs("ntitle")
ntime=rs("ntime")
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
%>
<%=ewap(ewap_(57))%>：<%=ewap(rc)%><br/>
		<%if page>1 and pgnm>1 then%>
		<a href="wap_search.asp?t=<%=stype%>&amp;d=<%=skeyword%>&amp;page=1"><%=ewap(ewap_(19))%></a><a href="wap_search.asp?t=<%=stype%>&amp;d=<%=skeyword%>&amp;page=<%=page-1%>"><%=ewap(ewap_(22))%></a><%
end if
if page<pgnm and pgnm>1 then
%><a href="wap_search.asp?t=<%=stype%>&amp;d=<%=skeyword%>&amp;page=<%=page+1%>"><%=ewap(ewap_(21))%></a><a href="wap_search.asp?t=<%=stype%>&amp;d=<%=skeyword%>&amp;page=<%=pgnm%>"><%=ewap(ewap_(20))%></a>
<br/><%=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="" />
<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>
<%
end if
rs.close
set rs=nothing
end if
else call showsearch()
end if%>
<br/>
<a title="<%=ewap(ewap_(8))%>" href="wap_index.asp"><%=ewap(ewap_(8))%></a>
</p>
</card>
</wml>
<%sub showsearch()%>
<%=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>
<%end sub%>