📄 search.asp
字号:
<%
'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
'┃ 奇网天下·7WAP企业（移动）信息系统 ┃
'┃ ┃
'┃ Copyright All Rights Reserved. ┃
'┃ 官方： www.7wap.cn ┃
'┃ 作者： 孙岩清 ┃
'┃ 授权： BEAT版 未经授权不得商业使用。 ┃
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
'┃ Version 1.0 ┃
'┃ Description 开发建议/使用问题/扔砖头：BBS.7WAP.CN ┃
'┃ Create 2005.11.18 beat3 ┃
'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
%>
<!--#include file=conn.asp-->
<!-- POWERED BY 7WAP Enterprise Mobile Infomation System ●<%=now()%>-->
<html>
<head>
<title><%=ewap_name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/favicon.ico" rel="shortcut icon">
<meta name="Generator" content="<%=ewap_(0)%>">
<meta name="copyright" content="sunyanqing">
<link rel='stylesheet' href='Ewap.css' type='text/css'>
<body><div class=main>
<p><span class=title><%=ewap_name%></span>
</p><!--#include file=top.asp-->
<span class=title><%=ewap_(50)%></span><br/>
<%
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
%>
<div class=search>
<form action="search.asp" metod=post>
<%=ewap_(54)%><select name="t" value=title><option value="title"><%=ewap_(55)%></option><option value="detail"><%=ewap_(56)%></option></select>
<input type=text name="d" size=20 maxlength=20>
<input type=submit value=<%=ewap_(58)%>>
</form>
<%
response.write 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
%>
<div class=body>
<%=ewap_(51)%>
<ul>
<%
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
%>
<li><a href=view.asp?id=<%=rs("nid")%> title="<%=rs("ntitle")%>"><%=ntitle%></a>
<%=ntime%>
<%
rs.movenext
loop
%>
</ul></div>
<br/>
【<%=ewap_(57)%>：<%=rc%>】<%=page%>/<%=pgnm%>
<%if page>1 and pgnm>1 then%>
<a href="search.asp?t=<%=stype%>&d=<%=skeyword%>&page=1"><%=ewap_(19)%></a>-<a href="search.asp?t=<%=stype%>&d=<%=skeyword%>&page=<%=page-1%>"><%=ewap_(22)%></a>
<%
end if
if page<pgnm and pgnm>1 then
%>
<a href="search.asp?t=<%=stype%>&d=<%=skeyword%>&page=<%=page+1%>"><%=ewap_(21)%></a>-<a href="search.asp?t=<%=stype%>&d=<%=skeyword%>&page=<%=pgnm%>"><%=ewap_(20)%></a>
<%
end if
%>
<br/>
<form action="search.asp" metod=post>
<%=ewap_(54)%><select name="t" value=title><option value="title"><%=ewap_(55)%></option><option value="detail"><%=ewap_(56)%></option></select>
<input type=text name="d" size=20 maxlength=20>
<input type=submit value=<%=ewap_(58)%>>
</form>
<%
rs.close
set rs=nothing
end if
else call showsearch()
end if%>
<% sub showsearch() %>
<div class=search>
<form action="search.asp" metod=post>
<%=ewap_(54)%><select name="t" value=title><option value="title"><%=ewap_(55)%></option><option value="detail"><%=ewap_(56)%></option></select>
<input type=text name="d" size=20 maxlength=20>
<input type=submit value=<%=ewap_(53)%>>
<% end sub %>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -