<!--#include file="up.asp"-->
<%if isnull(lguserid) or lguserid="" then
tl=" 操 作 失 败"
mes="对不起,该功能只对会员开放。"
call sendinfo(tl,mes)
call down
response.end
end if
dim action,key,sql,thetime,searchtime,bbs,pagesetup,totalpage,Count,pagecount,topicinfo,retopic,reinfo,ii,iii
action=request.querystring("action")
select case action
case""
%>
<form method="GET" action="search.asp?action=search"><%=ttop%>
<table align="center" border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
<tr>
<td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28"> <img src="pic/gl.gif" border="0"> 论坛搜索</td>
</tr>
<tr>
<td width="100%" height="26">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="40%">
<p style="line-height: 120%; margin: 4"><b>搜索关键字:</b><br>请输入要搜索的关键字。</td>
<td width="60%"> <input type="text" username="key" size="40"></td>
</tr>
<tr>
<td height="35">
<p style="line-height: 120%; margin: 4"><b>搜索日期范围:</b></td>
<td> <select size="1" username="searchtime" style="font-size: 9pt">
<option selected value="0">所有日期</option>
<option value="1">1天以来</option>
<option value="2">2天以来</option>
<option value="7">7天以来</option>
<option value="15">15天以来</option>
<option value="30">30天以来</option>
</select></td>
</tr>
<tr>
<td height="35">
<p style="line-height: 120%; margin: 4"><b>搜索的论坛:</b></td>
<td> <select size="1" username="bbs" style="font-size: 9pt">
<option value="0">所有论坛</option>
<%set rs=conn.execute("select id,bdinfo from bdinfo where followid<>0 order by orders desc,id")
do while not rs.eof
response.write"<option value="&rs("id")&">"&split(rs("bdinfo"),"|")(0)&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%></select></td>
</tr>
<tr>
<td colspan="2" align="center" height="40" bgcolor="<%=c2%>">
<input type="submit" value=" 开 始 搜 索 " username="B1"><input type="hidden" username="action" size="20" value="search"></td>
</tr>
</table>
</td>
</tr>
</table><%=tbottom%></form>
<%case"search"
key=Replace(request.querystring("key"),"'","")
key=Replace(key,"[","[[]")
key=Replace(key,"|","│")
if key="" or len(key)<4 or instr("face",key) or checkname(key)=false then
tl=" 搜 索 失 败"
mes="<b>搜索关键字太短,或者关键字含有非法字符。</b><br><a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle> 返回重新填写</a>"
call sendinfo(tl,mes)
call down
response.end
end if
%><%=ttop%>
<table align="center" class=td1 border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>" bgcolor="<%=c1%>" background="<%=tbg%>" height="28">
<tr>
<td width="5%" align="center">表情</td>
<td align="center" width="45%">主题 (点击表情在新窗口打开)</td>
<td align="center" width="10%">作者</td>
<td align="center" width="10%">回复/人气</td>
<td align="center" width="20%">最后更新时间</td>
<td align="center" width="10%">最后回复</td>
</tr>
</table>
<%
searchtime=checknum(request.querystring("searchtime"))
bbs=checknum(request.querystring("bbs"))
sql="select*from topic where topicinfo like '%"&key&"%' and type<>3"
if bbs>0 then sql=sql&"and bd="&bbs&" "
if searchtime>0 then sql=sql&"and edittime>now()+"×et&"/24-"&searchtime&""
response.write"<script language='javascript'>function Check(){var username=document.form.topage.value;document.location='?action=search&bbs="&bbs&"&key="&key&"&searchtime="&searchtime&"&topage='+username+'';}</script>"
set rs = server.createobject("adodb.recordset")
pagesetup=checknum(application(prefix&"topiclistpage"))
rs.Open sql,conn,1
TotalPage=0
Count=rs.recordcount
if not rs.eof then
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
pagecount= 0
rs.moveFirst
if Request.QueryString("ToPage")<>"" and isnumeric(Request.QueryString("ToPage")) then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
rs.move (PageCount-1) * pagesetup
i=1
do while not rs.eof
topicinfo=rs("topicinfo")
topicinfo=split(topicinfo,"|")
retopic=rs("retopic")
if isnull(retopic) or retopic="" then
reinfo="——"
retopic="未有人回复。|——|0"
retopic=split(retopic,"|")
else
retopic=split(retopic,"|")
reinfo="<a href=userinfo.asp?userid="&retopic(2)&">"&kbbs(retopic(1))&"</a>"
end if
'修正表格颜色
response.write"<table onmouseover=javascript:this.bgColor='"&c2&"' onmouseout=javascript:this.bgColor='#ffffff' bgcolor=#ffffff bordercolor="&c2&" border=1 align=center cellpadding=0 cellspacing=0 style='border-collapse: collapse; border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1' width="&tbw&" height=28><tr><td width=5% align=center><a target=_blank href='showbbs.asp?bd="&rs("bd")&"&id="&rs("id")&"&totable="&rs("totable")&"' title='最后回复:"&kbbs(retopic(0))&"'><img border=0 src=face/"&topicinfo(0)&".gif></a></td><td width=45% > <a href='showbbs.asp?bd="&rs("bd")&"&id="&rs("id")&"&totable="&rs("totable")&"' title='最后回复:"&kbbs(retopic(0))&"'>"&topicinfo(3)&" <font color="&replacecolor(kbbs(topicinfo(1)))&">"&kbbs(topicinfo(1))&"</font></a></td><td align=center width=10% ><a href=userinfo.asp?userid="&rs("userid")&">"&kbbs(topicinfo(2))&"</a></td><td align=center width=10% >"&rs("renum")&"/"&rs("hits")&"</td><td align=center width=20% >"&rs("edittime")&"</td><td align=center width=10% >"&reinfo&"</td></tr></table>"
i=i+1
if i>pagesetup then exit do
rs.movenext
loop
end if
rs.Close
set rs=nothing
response.write"<div align='center'><center><TABLE bgcolor="&c1&" cellSpacing=0 cellPadding=0 width='"&tbw&"' border=0 style='border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px'><TBODY><TR height=25><TD height=2><TABLE cellSpacing=0 cellPadding=3 width='100%' border=0 background='"&tbg&"' style='border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0'><TBODY><TR><TD><b><font color='#FFFFFF'><img border='0' src='pic/fl.gif'> 本版面共有</font><font color='#00FFFF'> "&TotalPage&" </font><font color='#FFFFFF'>页,<font color='#00FFFF'> "&count&" </font>张帖子,每页有<font color='#00FFFF'> "&pagesetup&" </font> 张帖子 >> ["
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1&action=search&bbs="&bbs&"&key="&key&"&searchtime="&searchtime&"><font color=yellow>1</font></a> ... "
end if
for i=ii to iii
If i<>PageCount then
Response.Write "<a href=?topage="& i &"&action=search&bbs="&bbs&"&key="&key&"&searchtime="&searchtime&"><font color=yellow>" & i & "</font></a> "
else
Response.Write " <font color=red><b>"&i&"</b></font> "
end if
next
if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&"&action=search&bbs="&bbs&"&key="&key&"&searchtime="&searchtime&"><font color=yellow>"&TotalPage&"</font></a>"
end if
response.write" ]</font></b></TD><form username=form method='POST' action=javascript:Check()><TD height=2 align='right'><font color='#FFFFFF'>页码:<input style=FONT-SIZE:9pt maxLength='6' size='6' username='topage' value='"&PageCount&"'><input style=FONT-SIZE:9pt value='GO!' type='submit'></font></TD></form></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></center></div>"&tbottom&""
%>
<%end select
call down%>
没有合适的资源?快使用搜索试试~ 我知道了~
温馨提示
ASP商城之王是一套经典实用的asp商城,简单的操作维护,美观、友好的展示界面,适用于各行各业的网上商店运行平台。用户通过后台可以自定义商家信息 、商品分类(支持二级)、商品信息、帮助信息、等等,只需要短短的20分钟,您的网络商城就会诞生了。<br>一:商品管理 (添加 、删除、修改) <br>二:类别管理 (大类、小类、增加 -删除-修改) <br>三:订单管理 (游客订单管理、会员订单管理) <br>四:货运设置 (商家可以根据实际情况进行设置货运费率) <br>五:用户管理 (匿名用户管理 注册用户管理 vip 用户管理) <br>六:省市管理 <br>七:VIP管理 <br>八:积分管理 <br>九:新闻管理 (新闻添加删除) <br>十:广告设置 (智能化的广告管理)<br>十一:信息设置 (包括 帮助中心 关于我们等)<br>十二:合作伙伴管理 (商家可自行添加友情连接及合作伙伴)<br>十三:系统管理 (分三级:最高级为站长 中级管理 初级管理 )
资源推荐
资源详情
资源评论
收起资源包目录
ASP商城之王 v8.81 (582个子文件)
dataaspzhiwang.asp 3.25MB
Payment.asp 49KB
editxx.asp 48KB
newsedit.asp 45KB
addnews.asp 44KB
LuckVip.asp 43KB
VipExplain.asp 43KB
VipActivity.asp 43KB
PointToAward.asp 42KB
User_inc.asp 31KB
Reg.asp 30KB
Help.asp 26KB
List.asp 19KB
Dangerous.asp 16KB
Top.asp 16KB
Orderform.asp 16KB
Li.asp 13KB
vieworderform.asp 12KB
Md5.asp 11KB
aspcheck.asp 11KB
Research.asp 11KB
Class2.asp 10KB
Class.asp 10KB
addbook.asp 10KB
Ubb.asp 9KB
managebook.asp 9KB
datadispose.asp 9KB
ManageReview.asp 9KB
Shopcart.asp 9KB
Info_recommend.asp 9KB
getbook.asp 9KB
List_review.asp 8KB
MailList.asp 8KB
MailList.asp 8KB
menu.asp 8KB
Deliver_Pay.asp 8KB
NoteList.asp 8KB
Search.asp 7KB
ManageAward.asp 7KB
Info_special2.asp 7KB
webconfig.asp 7KB
editfile.asp 7KB
ads.asp 6KB
Info_newly2.asp 6KB
User.asp 6KB
include.asp 6KB
info_prime.asp 6KB
review.asp 6KB
Login.asp 6KB
editnews.asp 5KB
new.asp 5KB
nclass.asp 5KB
savexx.asp 5KB
viewgbook.asp 5KB
Mouse.asp 5KB
News.asp 5KB
book.asp 5KB
Favorites.asp 5KB
List_award.asp 5KB
ManageCity.asp 5KB
EditAward.asp 5KB
webfoot.asp 5KB
Checklist.asp 5KB
sousuo.asp 5KB
Review.asp 5KB
tejia.asp 4KB
Default.asp 4KB
xinpin.asp 4KB
wangyou.asp 4KB
login.asp 4KB
remai.asp 4KB
pinglunll.asp 4KB
Check.asp 4KB
sysset.asp 4KB
Up1.asp 4KB
SaveOrderform.asp 4KB
webtopxin.asp 4KB
ManageBrand.asp 4KB
Up2.asp 4KB
ManageFelicityVip.asp 4KB
SaveOrderform.asp 4KB
classnew.asp 4KB
database_menager.asp 4KB
Vip.asp 4KB
Saveuserinfo.asp 4KB
anclass.asp 3KB
ManageProvince.asp 3KB
Up3.asp 3KB
About.asp 3KB
wangyou_prime2.asp 3KB
webtop.asp 3KB
links.asp 3KB
info_wyou.asp 3KB
renpassword.asp 3KB
ManagePostalcode.asp 3KB
ManageUnit.asp 3KB
tui.asp 3KB
info_newly.asp 3KB
pinglun.asp 3KB
Vote.asp 3KB
共 582 条
- 1
- 2
- 3
- 4
- 5
- 6
资源评论
普通网友
- 粉丝: 882
- 资源: 2万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 冯璐阳 42105650—祝福.docx
- 基于多种算法及改进算法实现的移动机器人路径规划matlab源码(含A星算法+PRM+RRT的改进等).zip
- 布里斯托尔纸细分市场、总体规模、先进性、市占率行业分析报告2024年.docx
- Obi绳子插件,好用的很 6.5.4版本
- openjfx-22.0.1-windows-x64-bin-sdk.zip
- 基于ros和stm32f1的小车代码(含串口通信)+项目说明.zip
- 人体姿态估计-基于Tensorflow实现的人体姿态估计算法-附项目源码-优质项目分享.zip
- java实现所有算法大全
- JDBC DAO模式 (复习)
- Proteus仿真AT89C51电子密码锁
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功