📄 product_class.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<%
Dim isadmin
isadmin = Manage_Level(adl)
If Request.QueryString("action")="add" Then
    If isadmin="财务员" Then 
       Call LevSave
    Else
       Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
       Response.write "window.document.location.href='Product_Class.asp';</script>"
    End if
Else
%>
<script language="JavaScript">
<!--
function chk(theForm){
if (theForm.lev.value == ""){
                alert("请输入客户级别!");
                theForm.lev.focus();
                return (false);
        } 
if (theForm.ak.value == ""){
                alert("请输入折扣!");
                theForm.ak.focus();
                return (false);
        } 
}

function CheckNum(){
   if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false; 
   }
//-->
</script>
<body text="#000000">
<table width="95%" border="0" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
  <tr height="22" valign="middle" align="center"> 
    <th width="24%">ID</th>
    <th width="48%">商品类别</th>
    <th width="28%">操作</th>
  </tr>
<%
Dim kl
Set kl = Conn.execute("Select ID,Class From [Product_Class] Order By ID Desc")
If kl.Eof Then
Response.Write "<tr><td>没有任何记录!</td></tr>"
Else
Do While Not kl.Eof
%>
  <tr valign="middle" bgcolor="#FFFFFF" align="center" height="22"> 
    <td><%=kl(0)%></td>
    <td><%=kl(1)%></td>
    <td width="28%"> <a href="Product_ClassEdit.asp?id=<%=kl(0)%>">编辑</a> | <a href="Product_ClassDel.asp?id=<%=kl(0)%>" onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a></td>
  </tr>
<%
kl.MoveNext
Loop
End if
kl.Close
Set kl=Nothing
%>
</table>
<form name="form1" method="post" action="?action=add" onSubmit="return chk(this)">
  <table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" class=TableBorder>
    <tr height="22"> 
      <th colspan="2" align="center" valign="middle">添加商品类别</th>
    </tr>
    <tr bgcolor="#FFFFFF" height="22"> 
      <td width="32%" height="25" class=forumrow> <div align="right">商品类别：</div></td>
      <td class=forumrow><input name="lev" type="text" id="lev" size="20" maxlength="35"> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF" height="22"> 
      <td height="30" class=forumrow>&nbsp;</td>
      <td class=forumrow><input type="submit" name="Submit" value="添 加"> <input type="reset" name="Submit2" value="清空"></td>
    </tr>
  </table>
</form>
<%End if%>
</html>
<%
Sub LevSave
Dim lev,ak
Dim rs,ladd,Sql
lev = Trim(Request.Form("lev"))
Set rs = Conn.execute("Select Class From [Product_Class] Where Class='"&lev&"'")
If Not (rs.Eof and rs.Bof) Then
Response.write "<script language='javascript'>alert('此商品类别已经存在!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
Set ladd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [Product_Class] Where (ID is null)"
ladd.Open Sql,Conn,1,3
ladd.addNew
ladd("Class") = lev
ladd.update
ladd.Close
Set ladd=Nothing
Conn.Close
Set Conn=Nothing

Response.Write "<script language=javascript>alert('商品类别添加成功!');"
Response.Write "window.document.location.href='Product_Class.asp';</script>"
End If
Set rs = Nothing
End Sub
%>
⌨️ 快捷键说明

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