📄 listedit.asp
字号:
<!--#include file="../conndb.asp"-->
<%
'0-采购入库；1-销售退货入库；2-销售出库；3-采购退货出库
Dim rs,strType,strName,strTitle,sql
strType = Request.QueryString("type")
If strType="0" Then
strName = "采购"
strTitle = "入库"
ElseIf strType="1" Then
strName = "销售"
strTitle = "入库"
ElseIf strType="2" Then
strName = "销售"
strTitle = "出库"
Else
strName = "采购"
strTitle = "出库"
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
%>
<html>
<head>
<title>编辑<%=strName%><%=strTitle%>商品信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.num.value==""){
alert("请输入实际出入库数量！");
form1.num.focus;
return false;
}
if(!/^[.0-9]*$/g.test(document.form1.num.value)){ // 正则表达式
alert("数量必须为数字！");
document.form1.num.focus;
}
return true;
}
</Script>
</head>
<%
Dim ListId,ProId,InOutId,ProInfo,Price,Quantity
'变量初始化
ProId = 0
ProInfo = ""
Price = 0
Quantity = 0
ListId = Request.QueryString("lid") '读取列表编号
InOutId = Request.QueryString("id") '出入库编号
'设置SELECT语句，读取记录数据
If strType="0" Or strType="3" Then
'从表PurProductList中提取此PurId下的记录
sqla = "SELECT l.*,p.ProName,p.ProStyle,IsNull(s.IONum,0) AS rq,s.IOId" _
+ " FROM PurProductList l LEFT JOIN StoreIOList s ON l.ProId=s.ProId AND s.IOId='" & InOutId & "'" _
+ " INNER JOIN Product p ON l.ProId=p.ProId WHERE l.ListId=" & ListId
Else
'从表ProductList中提取此SaleId下的记录
sqla = "SELECT l.*,p.ProName,p.ProStyle,IsNull(s.IONum,0) AS rq,s.IOId" _
+ " FROM ProductList l LEFT JOIN StoreIOList s ON l.ProId=s.ProId AND s.IOId='" & InOutId & "'" _
+ " INNER JOIN Product p ON l.ProId=p.ProId WHERE l.ListId=" & ListId
End If
' Response.Write sqla
rs.Open sqla,conn,1,3
If Not rs.EOF Then
ProId = rs("ProId")
ProName = rs("ProName")
ProStyle = rs("ProStyle")
Price = rs("Price") '销售/采购价格
Quantity = rs("Quantity") '销售/采购数量
ProInfo = "名称:" & ProName & " - 型号:" & ProStyle
End If
rs.Close()
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="ListSave.asp?lid=<%=ListId%>&type=<%=strType%>" 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"><%=strName%><%=strTitle%>商品信息</font></b></p>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#C1E0FF"><%=strName%><%=strTitle%>商品</td>
<td colspan="3"><input type="text" name="proinfo" size="60" value="<%=ProInfo%>" ReadOnly> </td>
</tr>
<tr>
<td width="20%" bgcolor="#C1E0FF"><%=strName%>价格</td>
<td width="40%"><input type="text" name="price" size="10" value="<%=Price%>" ReadOnly> </td>
<td bgcolor="#C1E0FF" rowspan="3" colspan="2" align="center"><font color="red">实际<%=strTitle%>数量</font>
<input type="text" name="num" size="10" value="<%=IONum%>">
</td>
</tr>
<tr>
<td bgcolor="#C1E0FF"><%=strName%>数量</td>
<td><input type="text" name="quantity" size="10" value="<%=Quantity%>" ReadOnly> </td>
</tr>
<tr>
<td bgcolor="#C1E0FF"><%=strName%>金额</td>
<td><input type="text" name="total" size="20" value="<%=CInt(Quantity)*CDbl(Price)%>" ReadOnly> </td>
</tr>
</table>
<input type="hidden" name="proid" size="20" value="<%=ProId%>">
<input type="hidden" name="id" size="20" value="<%=InOutId%>">
<p align=center><input type="submit" value=" <%=strTitle%> " name="CS1">
<input type="button" value=" 关闭 " name="CS2" Onclick="Javascript:window.close();"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -