research.asp

购物系统(本版为正式商业版

	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"research.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim shopmark
            				shopmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"research.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"research.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0
			%>
            <br> <%do while not rs.eof%>

            <table border="0" cellspacing="0" cellpadding="2" align="center">
              <tr>
                <td width="120" rowspan="4" valign="middle" class="table-xia">
                  <%if rs("shoppic")="" then %>
                  <table width="98" height="98" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td colspan="3"><img src="img/img_01.gif" width="98" height="4" alt=""></td>
                    </tr>
                    <tr>
                      <td rowspan="2"><img src="img/img_02.gif" width="4" height="94" alt=""></td>
                      <td width="85" height="85" background="img/img_03.gif"><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><img src=img/emptyshop.gif alt=<%=trim(rs("shopname"))%> width=85 height="85" border=0></a></td>
                      <td rowspan="2"><img src="img/img_04.gif" width="8" height="94" alt=""></td>
                    </tr>
                    <tr>
                      <td height="9"><img src="img/img_05.gif" alt="" width="86" height="9"></td>
                    </tr>
                  </table>
                  <%else%>
                  <div align="center">
                    <table width="98" height="98" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td colspan="3"><img src="img/img_01.gif" width="98" height="4" alt=""></td>
                      </tr>
                      <tr>
                        <td rowspan="2"><img src="img/img_02.gif" width="4" height="94" alt=""></td>
                        <td width="85" height="85" background="img/img_03.gif"><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><img src="<%=trim(rs("shoppic"))%>" alt=<%=trim(rs("shopname"))%>  width=80 height="80" border=0></a></td>
                        <td rowspan="2"><img src="img/img_04.gif" width="8" height="94" alt=""></td>
                      </tr>
                      <tr>
                        <td height="9"><img src="img/img_05.gif" alt="" width="86" height="9"></td>
                      </tr>
                    </table>
                    <%end if%>
                </div></td>
                <td><a href=list.asp?id=<%=rs("shopid")%>><%=trim(rs("shopname"))%></a></td>
              </tr>
              <tr>
                <td><%=jiagename1%>：<s><%=formatnumber(rs("shichangjia"),2)%>元</s> <font color="#ff6600"><%=jiagename2%>：<%=formatnumber(rs("huiyuanjia"),2)%>元 <%=jiagename3%>：<%=formatnumber(rs("vipjia"),2)%>元</font> </td>
              </tr>
              <tr>
                <td><a href="gouwu.asp?id=<%=rs("shopid")%>&action=add"><img src="img/gm.gif" width="32" height="17" border="0"></a> <a href="shoucang.asp?id=<%=rs("shopid")%>&action=add"><img src="img/sc.gif" width="32" height="17" border="0"></a> <a href="#" onClick="javascript:window.open('shangpintj.asp?id=<%=rs("shopid")%>','pingluntj','width=325,height=200,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no')"><img src="img/tj.gif" width="32" height="17" border="0"></a></td>
              </tr>
              <tr>
                <td width="700" class="table-xia"> <font color="<%=flzhzt%>">
                  <%if len(trim(rs("shopcontent")))>120 then
	response.write left(trim(rs("shopcontent")),120)&"...."
	else
	response.write trim(rs("shopcontent"))
	end if%>
                </font></td>
              </tr>
            </table><%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
            <%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If
				
				Response.Write "<form method=Post action="&filename&"?searchkey="&searchkey&"&action="&action&"&anclassid="&anclassid&"&jiage="&jiage&">"  
				Response.Write "<p align='center' class='contents'> "  
				If CurrentPage<2 Then  
					Response.Write "<font class='contents'>首页 上一页</font> "  
				Else  
								 if request("anclassid")="" and jiage="" then
								 					Response.Write "<a href="&filename&"?page=1&searchkey="&searchkey&"&action="&action&" class='contents'>首页</a> " 
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&searchkey="&searchkey&"&action="&action&" class='contents'>上一页</a> "  
                           else
					Response.Write "<a href="&filename&"?page=1&searchkey="&searchkey&"&action="&action&"&anclassid="&request("anclassid")&"&jiage="&jiage&" class='contents'>首页</a> " 
					Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&searchkey="&searchkey&"&action="&action&"&anclassid="&request("anclassid")&"&jiage="&jiage&" class='contents'>上一页</a> "  
				End If
				End If
				If n-currentpage<1 Then  
					Response.Write "<font class='contents'>下一页 尾页</font>"  
				Else  
				 if request("anclassid")="" and jiage="" then
				 					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&searchkey="&searchkey&"&action="&action&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&searchkey="&searchkey&"&action="&action&" class='contents'>尾页</a>"  
				 else
					Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&searchkey="&searchkey&"&action="&action&"&anclassid="&request("anclassid")&"&jiage="&jiage&" class='contents'>"  
					Response.Write "下一页</a> <a href="&filename&"?page="&n&"&searchkey="&searchkey&"&action="&action&"&anclassid="&request("anclassid")&"&jiage="&jiage&" class='contents'>尾页</a>"  
					end if
				End If  
					Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
					Response.Write "<font class='contents'> 共查讯到"&totalnumber&"种商品 " 
					Response.Write "<font class='contents'>转到：</font><input type='text' name='page' class=wenbenkuang size=2 maxlength=10 class=smallInput value="&currentpage&">"  
					Response.Write "&nbsp;<input name=go type=image  src=/img/butn_go.gif alt=GO align=absMiddle  border=0></form>"  
					
				End Function  
			%>
          <%
sub sss() '增加搜索关健字到数据库
if session("username")<>"" then 
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from [shop_user] where username='"&session("username")&"'",conn,1,1
t_userid=rs_s("userid")
rs_s.close

set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_his where username='"&session("username")&"' and shopname='"&s_shopname&"' and lx=2",conn,1,3
if rs_s.recordcount>0 then 
	rs_s("ltime")=now()
	rs_s("userid")=t_userid
	rs_s("searchkey")=sql2
	rs_s.update
	rs_s.close
	set rs_s=nothing
else
		    	rs_s.close
		    	set rs_s=server.createobject("adodb.recordset")
		    	rs_s.open "select * from shop_his where username='"&session("username")&"' and lx=2",conn,1,3
		    	if rs_s.recordcount>=4 then
		    	    rs_s.delete
		    	    rs_s.update
		    	end if
		    	rs_s.addnew
		    	    rs_s("username")=session("username")
		    	    rs_s("searchkey")=sql2
		    	    rs_s("shopname")=s_shopname
			    rs_s("userid")=t_userid
		    	    rs_s("lx")=2
		    	    rs_s("ltime")=now()
		        rs_s.update
			rs_s.close
			set rs_s=nothing
		    end if
		end if
end sub%>          </td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>