⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 productclass2.asp

📁 一套很早的多用户电子商务程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
'##############################################################
'##【深圳 超市网网站系统 v2.0】                              ##

'##程序语言:ASP、SQL、VBScript、JavaScript、HTML。          ##
'##数 据 库:Microsoft Access2000。                          ##
'##运行环境:WIN98+PWS、WIN2000/XP+IIS等支持ASP+ACCESS空间。 ##

'##1、本程序所有版权归深圳市玉龙网络技术有限公司所有。       ##
'##2、任何人未经本公司同意与书面授权不得使用本程序或将本程   ##
'##  序复制、发送给他人或提供下载。 
'##3、经本公司书面授权后您可以拥有本套系统的二次开发权利     ##
'##  但不可以把本系统来进行二次转让、出售或以任何方式在网上 ##
'##  传播。必须保证本系统源码不能泄露给第三方或任何变相盗用 ##
'##4、如果你未遵守上述事项,由此带来的后果和损失自负同时本公 ##
'##  司将依法追究相关的法律责任。                           ##
'##5、请保留以上的版权信息,此项不会对本站程序有任何影响。   ##
'##############################################################
ProductClass_1=request("ProductClass_1")
ProductClass_1=FomaID(ProductClass_1)				                
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<STYLE>BODY {
	FONT-SIZE: 9pt
}
TD {
	FONT-SIZE: 9pt
}
A {
	TEXT-DECORATION: none
}
a:link { color: #000000; text-decoration: none}
a:visited { color:#000000; text-decoration: none}
a:hover         { color: #CC0000; text-decoration: none; position: relative; right: 0px; top: 1px }
</STYLE>
<SCRIPT language=JavaScript>
<!--
function openbag(url,name){
		window.open(url,name,"height=200,width=600,left=190,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no")}
-->
</SCRIPT>

<SCRIPT language=javascript>
<!--
function isok(theform)
{
	if (theform.uid.value=="")
  {
    alert("会员帐号不能为空!");
    theform.uid.focus();
    return (false);
  }
if (theform.pwd.value=="")
  {
    alert("对不起!密码不能为空!");
    theform.pwd.focus();
    return (false);
  }

return (true);
}
-->
</SCRIPT>
<title>产品分类</title>
</head>

<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select  * from Product  Where Class_1='"& ProductClass_1 &"' order by id desc"
rs.open sqltext,conn,1,1


dim MaxPerPage
MaxPerPage=24
dim text,checkpage
text="0123456789"
 Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
   checkpage=instr(1,text,mid(request("page"),i,1))
   if checkpage=0 then
      exit for 
   end if
next

If checkpage<>0 then
      If NOT IsEmpty(request("page")) Then
        CurrentPage=Cint(request("page"))
        If CurrentPage < 1 Then CurrentPage = 1
        If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
      Else
        CurrentPage= 1
      End If
      If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
   CurrentPage=1
End if
%>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="778" height="80" background="IMAGES/bg3.gif">
    <tr>
      <td width="172" valign="top"> 
        <!-- 会员登录入口-->
        <%If Session("LoginSuccess")="" Then%>
        <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="#B8A194" height="1"></td>
        </tr>
          <tr> 
            <td width="100%" height="17" valign="bottom" bgcolor="#FFDF80"> <p align="center">会 员 登 录 
            </td>
          </tr>
          <tr> 
            <td> <div align="center"> 
                <center>
                  <table width="95%" border="0" cellpadding="4" cellspacing="3">
                    <form action=user/ReLoginCheck.asp method=post onSubmit="return isok(this)">
                      <tr> 
                        <td> <div align="center"> 用户: 
                            <input type="text" name="uid" size="11">
                            <br>
                          </div></td>
                      </tr>
                      <tr> 
                        <td><div align="center">密码: 
                            <input type="password" name="pwd" size="11">
                          </div></td>
                      </tr>
                      <tr> 
                        <td><div align="center"> 
                            <input name="imageField" type="image" src="images/login_bt_login.gif" width="45" height="19" border="0">
                            <a href="newuser.asp"><img src="images/login_bt_zc.gif" width="45" height="19" border="0"></a> 
                          </div></td>
                      </tr>
                      <tr> 
                        <td><div align="center"><a href="#open" onClick="window.open('Fetchpsw.ASP', '', 'height=150, width=300, top=200, left=450, scrollbars=yes, resizable=1,' );">索取密码</a> 
                            <a href="myshop/login.asp">商家登录</a> </div></td>
                      </tr>
                    </form>
                  </table>
                </center>
              </div></td>
          </tr>
        </table>
        <% else%>
        <!-- 会员登录后显示内容-->
        <table width="168" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="17" valign="bottom" bgcolor="#FFDF80"> <p align="center">会 员 信 息</td>
          </tr>
          <tr> 
            <td> <div align="center"> 
                <center>
                  <table width="100%" border="0" cellpadding="4" cellspacing="4">
                    <tr bgcolor="#CCFFFF"> 
                      <td> <div align="center"><a href="#" onclick="window.open('user/odrsrchset.asp','','height=400,width=610,scrollbars=yes,resizable=1,top=10, left=15');">我的订单</a></div></td>
                      <td> <div align="center"><a href="#" onclick="window.open('user/myinfo.asp','','height=280,width=582,scrollbars=yes,resizable=1,top=10, left=15');">统计信息</a></div></td>
                    </tr>
                    <tr bgcolor="#CCFFFF"> 
                      <td> <div align="center"><a href="#" onclick="window.open('user/reg.asp','','height=400,width=582,scrollbars=yes,resizable=1,top=10, left=15');">资料修改</a></div></td>
                      <td> <div align="center"><a href="user/loginout.asp?refe=<%=shop_name%>">退出登录</a></div></td>
                    </tr>
                  </table>
                </center>
              </div></td>
          </tr>
        </table>
        <%end if%>
        <!-- 会员登录后显示内容结束-->
        <div align="center"> 
          <center>
            <table border="0" cellpadding="0" cellspacing="0" width="145" height="3">
              <tr> 
                <td height="3"> </td>
              </tr>
            </table>
          </center>
        </div>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -