ASP+access 购物系统

<!--#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">&nbsp; <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()+"&timeset&"/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% >&nbsp;&nbsp;<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%>