user.asp

网络商店源码 实现商品浏览 购物车 后台管理等

                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>VIP 活动</strong> </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
					  	case else
					  %>
              <tr> 
                <td height="30" colspan="4" class="table-xia"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>推荐精品</strong> </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%end select%>
            </table>
            <br> 
            <!--#include file=user_inc.asp-->
            <%xAction=lcase(request("action"))
select case xAction
case "myinfo"
	call myinfo()
case "userziliao"
	call userziliao()
case "savepass"
	call savepass()
case "dindan"
	call dindan()
case "shoucang"
	call shoucang()
case "jifen"
	call jifen()
case "viphd"
	call viphd()
case "sqvip"
	call sqvip()
case "vipsq"
	call vipsq()
case else
%>
            <%set rs=server.createobject("adodb.recordset")
		rs.open "select  * from shop_snsn where bestshop=1 order by shopid desc",conn,1,1
		if rs.recordcount=0 then 
		%>
            <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
              <tr> 
                <td align=center>暂无推荐精品</td>
              </tr>
            </table>
            <%
		else
	  		rs.PageSize =flsl '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	
			For i=1 To x
		%>
            <table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
              <tr> 
                <td rowspan="4" valign="top" class="table-xia"> 
                  <%if rs("shoppic")="" then %>
                  <table width="100" height="100" border="1" align="center" cellpadding="0" cellspacing="5" bordercolor="#FFFFFF">
                    <tr> 
                      <td bordercolor="<%=flshpbj%>"> <div align="center"><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><img src=images/emptyshop1.gif width=85 border=0 alt=<%=trim(rs("shopname"))%>></a></div></td>
                    </tr>
                  </table>
                  <%else%>
                  <div align="center"> 
                    <table width="110" height="110" border="1" align="center" cellpadding="0" cellspacing="5" bordercolor="#FFFFFF">
                      <tr> 
                        <td bordercolor="<%=flshpbj%>"> <div align="center"><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><img src="<%=trim(rs("shoppic"))%>"  width=85 border=0 alt=<%=trim(rs("shopname"))%>></a></div></td>
                      </tr>
                    </table>
                    <%end if%>
                  </div></td>
                <td><a href=list.asp?id=<%=rs("shopid")%>><%=trim(rs("shopname"))%></a></td>
              </tr>
              <tr> 
                <td>市场价：<s><%=trim(rs("shichangjia"))%>元</s> 会员价：<%=trim(rs("huiyuanjia"))%>元 
                  VIP价：<%=trim(rs("vipjia"))%>元 </td>
              </tr>
              <tr> 
                <td><a href="gouwu.asp?id=<%=rs("shopid")%>&action=add"><img src="images//gm.gif" border="0"></a><a href="shoucang.asp?id=<%=rs("shopid")%>&action=add"><img src="images//shc.gif" border="0"></a></td>
              </tr>
              <tr> 
                <td class="table-xia">
                  <%if len(trim(rs("shopcontent")))>50 then
	response.write left(trim(rs("shopcontent")),50)&"...."
	else
	response.write trim(rs("shopcontent"))
	end if%>
                  </td>
              </tr>
            </table> 
            <%rs.movenext
		next
		call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "种商品" &  vbCrLf)
    Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
end select%>
          </td>
        </tr>
      </table></td>
    <td width="1" bgcolor="C9C9C8"><img src="../images/block.gif" width="1" height="1"></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>