📄 proedit.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑商品基本信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.name.value==""){
alert("请输入商品名称！");
form1.name.focus;
return false;
}
if (document.form1.style.value==""){
alert("请输入商品型号！");
form1.style.focus;
return false;
}
if (document.form1.type.selectedIndex<0){
alert("请选择商品类型！");
form1.type.focus;
return false;
}
return true;
}
</Script>
</head>
<%
Dim ProId,ProName,TypeId,Style,Unit,Price,Quantity,Low,High
Dim Action,rs,rsType
'变量初始化
Price = 0
Quantity = 0
Low = 0
High = 0
'读取参数action\pid
Action = Request.QueryString("action")
ProId = Request.QueryString("pid")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rsType = Server.CreateObject("ADODB.RecordSet")
'编辑问题记录
If Action = "edit" Then
'设置SELECT语句，读取记录数据
sql = "SELECT * FROM Product WHERE ProId=" & ProId
rs.Open sql,conn,1,3
If Not rs.EOF Then
ProName = rs("ProName")
TypeId = rs("TypeId")
Style = rs("ProStyle")
Unit = rs("ProUnit")
Price = rs("ProPrice")
Quantity = rs("Quantity")
Low = rs("ProLow")
High = rs("ProHigh")
End If
rs.Close()
End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="ProSave.asp?action=<%=Action%>&pid=<%=ProId%>" onsubmit="return CheckFlds()">
<br>
<table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="pic/product.jpg" height="90" width="100%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6">商品基本信息</font></b></p>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">选择商品类型</td>
<td width="40%">
<select size="1" name="type">
<%
sql = "Select * From ProType Where UpperId=0 ORDER BY TypeId"
rs.Open sql,conn,1,3
Do While Not rs.EOF
%>
<option value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
<%
'显示商品二级类型
sql = "Select * From ProType Where UpperId=" & rs("TypeId") & " Order By TypeId"
rsType.Open sql,Conn,1,3
Do While Not rsType.EOF
If rsType("TypeId")=TypeId Then
%>
<option selected value="<%=rsType("TypeId")%>">--<%=rsType("TypeName")%></option>
<%Else%>
<option value="<%=rsType("TypeId")%>">--<%=rsType("TypeName")%></option>
<%End If
rsType.MoveNext()
Loop
rsType.Close()
rs.MoveNext()
Loop
rs.Close()%>
</select></td>
<td width="20%" bgcolor="#CEE7FF">商品名称</td>
<td width="40%"><input type="text" name="name" size="20" value="<%=ProName%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">商品型号</td>
<td><input type="text" name="style" size="20" value="<%=Style%>"> </td>
<td bgcolor="#CEE7FF">计量单位</td>
<td><input type="text" name="unit" size="20" value="<%=Unit%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">销售价格</td>
<td><input type="text" name="price" size="20" value="<%=Price%>"> </td>
<td bgcolor="#CEE7FF">当前库存</td>
<td><input type="text" name="quan" size="20" value="<%=Quantity%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">库存上限</td>
<td><input type="text" name="high" size="20" value="<%=High%>"> </td>
<td bgcolor="#CEE7FF">库存下限</td>
<td><input type="text" name="low" size="20" value="<%=Low%>"> </td>
</tr>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -