📄 product_classedit.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim lid
lid = Request("id")
%>
<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")="edit" Then
If isadmin="财务员" Then
Call LevEdit
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">
<%
Dim kl
Set kl = Conn.execute("Select ID,Class From [Product_Class] Where ID="&lid)
%>
<form name="form1" method="post" action="?action=edit" 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" value="<%=kl(1)%>" size="20" maxlength="30">
</td>
</tr>
<tr bgcolor="#FFFFFF" height="22">
<td height="30" class=forumrow> </td>
<td class=forumrow><input type="submit" name="Submit" value="修 改"> <input type="reset" name="Submit2" value="还原">
<input name="levelid" type="hidden" value="<%=kl(0)%>"></td>
</tr>
</table>
</form>
<%
kl.Close
Set kl=Nothing
End if%>
</html>
<%
Sub LevEdit
Dim lev
Dim rs,ladd,levelid,Sql
lev = Trim(Request.Form("lev"))
levelid = Trim(Request.Form("levelid"))
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="&levelid
ladd.Open Sql,Conn,1,3
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 + -