?? product_classedit.asp
字號:
<!--#include file="Conn.asp"-->
<!--#include file=cookies.asp-->
<%
Dim lid
lid = Request("id")
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<%
If Request.QueryString("action")="edit" Then
Call LevEdit
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 border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>
<tr height="22" bgcolor=#efefef>
<td colspan="2" align="center" valign="middle">修改商品類別</td>
</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('此商品類別已經(jīng)存在!');" & 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
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -