<!--#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%>
没有合适的资源?快使用搜索试试~ 我知道了~
功能强大的惠普专卖店源码
共1637个文件
gif:958个
asp:391个
jpg:192个
需积分: 10 7 下载量 78 浏览量
2011-01-29
12:07:43
上传
评论
收藏 4.16MB RAR 举报
温馨提示
功能强大的惠普专卖店网站,大型,大气,喜欢就下吧
资源推荐
资源详情
资源评论
收起资源包目录
功能强大的惠普专卖店源码 (1637个子文件)
dandan-asp.asa 4.11MB
admin_board.asp 79KB
admin_postings.asp 76KB
Dv_ClsMain.asp 74KB
zz.asp 71KB
admin_user.asp 70KB
admin_Setting.asp 60KB
admin_template.asp 52KB
Payment.asp 49KB
editxx.asp 48KB
GroupPermission.asp 48KB
savepost.asp 48KB
Dv_ubbcode.asp 47KB
admin_BoardSetting.asp 46KB
newsedit.asp 45KB
addnews.asp 44KB
LuckVip.asp 43KB
VipExplain.asp 43KB
VipActivity.asp 43KB
PointToAward.asp 42KB
admin_update.asp 40KB
User_inc.asp 31KB
Reg.asp 30KB
admin_lockuser.asp 29KB
admin_uploadlist.asp 27KB
messanger.asp 27KB
login.asp 27KB
Help.asp 26KB
admin_plus.asp 26KB
list.asp 25KB
post.asp 25KB
admin_vipboard.asp 25KB
Query.asp 24KB
admin_postdata.asp 24KB
install.asp 23KB
reg.asp 22KB
indexNew.asp 21KB
fileshow.asp 20KB
dispbbs.asp 20KB
List_show.asp 19KB
admin_alldel.asp 19KB
admin_index.asp 19KB
post_upfile.asp 19KB
mymodify.asp 18KB
boardpermission.asp 18KB
admin_data.asp 18KB
Dangerous.asp 16KB
admin_boardset.asp 16KB
recycle.asp 16KB
Top.asp 16KB
guanggao.asp 16KB
Orderform.asp 16KB
admin_loadskin.asp 16KB
myfile.asp 15KB
admin_batch.asp 15KB
AccessTopic.asp 15KB
GetReAdData.asp 15KB
boardstat.asp 15KB
addbook1.asp 15KB
admin_link.asp 14KB
admin_admin.asp 14KB
admin_grade.asp 14KB
dispuser.asp 14KB
index.asp 14KB
Li.asp 13KB
editbook.asp 13KB
editorderform.asp 13KB
set.asp 13KB
viewdingdan.asp 13KB
admin_help.asp 13KB
friendlist.asp 12KB
announcements.asp 12KB
show.asp 12KB
vieworderform.asp 12KB
md5.asp 11KB
Md5.asp 11KB
listuser.asp 11KB
admin_bbsface.asp 11KB
admin_message.asp 11KB
List.asp 11KB
aspcheck.asp 11KB
admin_group.asp 10KB
admin_address.asp 10KB
Research.asp 10KB
Class2.asp 10KB
addbook.asp 10KB
Class.asp 10KB
Ubb.asp 9KB
managebook.asp 9KB
datadispose.asp 9KB
ManageReview.asp 9KB
admin_wealth.asp 9KB
usermanager.asp 9KB
challenge_msg.asp 9KB
Info_recommend.asp 9KB
getbook.asp 9KB
look_ip.asp 9KB
List_review.asp 8KB
admin_log.asp 8KB
admin_ads.asp 8KB
共 1637 条
- 1
- 2
- 3
- 4
- 5
- 6
- 17
资源评论
changlichun
- 粉丝: 1
- 资源: 17
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功