showdmxs.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 212 行
ASP
212 行
<!--#include file="conn.asp"-->
<html>
<head>
<title><%=webname%>--图书采购单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>
<SCRIPT LANGUAGE="VBScript">
<!--
sub mysub()
dim x1,x2,x3,x4,x5
x1 = frm_shouyin.ysk.value
x2 = frm_shouyin.xjk.value
x3 = frm_shouyin.zpk.value
if x2 = "" then x2=0
if x3 = "" then x3=0
x4 = csng(x2) + csng(x3)
x5 = csng(x4) - csng(x1)
if x5<0 then
msg=msgbox("您的付款金额不足，请重新输入！",16,"金额检查")
frm_shouyin.xjk.value = formatnumber(0)
frm_shouyin.zpk.value = formatnumber(0)
frm_shouyin.ykk.value = formatnumber(0)
frm_shouyin.zli.value = formatnumber(0)
frm_shouyin.sbt_print_xs.disabled = True
else
frm_shouyin.xjk.value = formatnumber(x2)
frm_shouyin.zpk.value = formatnumber(x3)
frm_shouyin.ykk.value = formatnumber(x4)
frm_shouyin.zli.value = formatnumber(x5)
frm_shouyin.sbt_print_xs.disabled = False
end if
end sub
//-->
</SCRIPT>
<%
dx = Session("mydx")
dxindex = session("dxindex")
%>
<table width="90%" border="0" height=450 cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ece9d8"><br><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=77 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>店面零售</font></div></td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
<tr><td>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr><td>
<table width="100%" align=center border="0" cellspacing="0" cellpadding="0" >
<form name="frm_txsfs" method="POST" action="adddmxs.asp?action=addbk">
<tr height=28>
<td width="6%" align="right">条形码</td>
<td width="10%"><input type="text" name="txm" size="15" style="BACKGROUND-COLOR: #ffffff"></td>
<td width="6%" align="right">书名</td>
<td width="10%"><input type="text" name="bookname" size="20" style="BACKGROUND-COLOR: #ffffff"></td>
<td width="6%" align="right">ISBN号</td>
<td width="10%"><input type="text" name="isbn" size="15" style="BACKGROUND-COLOR: #ffffff"></td>
<td width="5%"><input type="submit" value="提交" name="submit"></td>
<td width="5%"><input type="reset" value="重写" name="reset" ></td>
</tr>
</form>
</table>
<tr><td>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="1" bgcolor="#666666">
<tr>
<td width="35%" bgcolor="#ece9d8" align="center">书名</td>
<td width="7%" bgcolor="#ece9d8" align="center">定价</td>
<td width="10%" bgcolor="#ece9d8" align="center">数量</td>
<td width="6%" bgcolor="#ece9d8" align="center">折扣</td>
<td width="15%" bgcolor="#ece9d8" align="center">码洋</td>
<td width="12%" bgcolor="#ece9d8" align="center">实洋</td>
<td width="8%" bgcolor="#ece9d8" align="center">修改</td>
<td width="7%" bgcolor="#ece9d8" align="center">取消</td>
</tr>
<%
dim i,total1,total2,total3,total4,total5,total6,total7
i=1:total1=0.00:total2=0.00:total3=0.00:total4=0.00:total5=0.00:total6=0.00:total7=0.00
while i < dxindex
bookid =dx(i,0)
bookname =dx(i,1)
bkcount =dx(i,2)
shichangjia =dx(i,3)
dxzk =dx(i,4)
if dx(i,2)<>0 then%>
<form method="POST" action="adddmxs.asp?action=adchange">
<tr>
<td width="35%" bgcolor="#ffffff" align="center"><%=bookname%></td>
<td width="7%" bgcolor="#ffffff" align="center"><%=formatnumber(shichangjia)%></td>
<td width="10%" bgcolor="#ffffff" align="center"><input type="text" value="<%=bkcount%>" size="6" name="bkcount" onkeypress="return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"></td>
<td width="6%" bgcolor="#ffffff" align="center"><input type="text" value="<%=formatnumber(dxzk)%>" size="3" name="dxzk" onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))"></td>
<%
total1=total1+bkcount
total2=total2+(shichangjia*bkcount)
total3=total3+(shichangjia*bkcount*dxzk)
%>
<td width="15%" bgcolor="#ffffff" align="center"><font color="#FF0000"><%=formatnumber((shichangjia*bkcount),2)%> </font></td>
<td width="12%" bgcolor="#ffffff" align="center"><font color="#FF0000"><%=formatnumber((shichangjia*bkcount*dxzk),2)%></font></td>
<td width="8%" bgcolor="#ffffff" align="center"><input type="submit" value="修改" name="submit">
<input type="hidden" value="<%=i%>" name="index">
<td width="7%" bgcolor="#ffffff" align="center"><a href="adddmxs.asp?action=addelet&index=<%=i%>"><img src=images/trash.gif width=15 height=17 border=0></a>
</tr>
</form>
<%
i=i+1
else
i=i+1
end if
wend
dxindex=i
session("dxindex") = dxindex
if total1=0 then
response.Write "<tr>"
response.Write "<td width=35% bgcolor=#ffffff align=center height=20></td>"
response.Write "<td width=7% bgcolor=#ffffff align=center></td>"
response.Write "<td width=10% bgcolor=#ffffff align=center></td>"
response.Write "<td width=6% bgcolor=#ffffff align=center></td>"
response.Write "<td width=15% bgcolor=#ffffff align=center></td>"
response.Write "<td width=12% bgcolor=#ffffff align=center></td>"
response.Write "<td width=8% bgcolor=#ffffff align=center></td>"
response.Write "<td width=7% bgcolor=#ffffff align=center></td>"
response.Write "</tr>"
response.Write "</table>"
response.Write "<table>"
response.Write "<tr>"
response.Write "<td bgcolor=#ece9d8 STYLE='PADDING-LEFT: 50px' colspan=9 height=40>总数量 <font color=#FF0000>0 </font> 册 "
response.Write "总码洋 <font color=#FF0000>0.00</font> 元 "
response.Write "总实洋 <font color=#FF0000>0.00</font> 元</td>"
response.Write "</tr>"
response.Write "</table>"
else
response.Write "<tr>"
response.Write "<td bgcolor=#ece9d8 STYLE='PADDING-LEFT: 50px' colspan=9 height=40>总数量 <font color=#FF0000>"&total1 &"</font> 册 "
response.Write "总计码洋 <font color=#FF0000>"&formatnumber(total2,2)&"</font> 元 "
response.Write "总计实洋 <font color=#FF0000>"&formatnumber(total3,2)&"</font> 元</td>"
response.Write "</tr>"
response.Write "</table>"
%>
<tr><td>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="1" bgcolor="#cccccc">
<tr><td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="frm_shouyin" method="POST" action="xslist.asp?action=list">
<tr>
<td align="right">总计金额 </td>
<td><input type="text" name="ysk" size="6" value=<%=formatnumber(total3,2)%> style="BACKGROUND-COLOR: #cccccc" readonly=true></td>
<td align="right">已付金额 </td>
<td><input type="text" name="ykk" size="6" value=<%=formatnumber(total4,2)%> style="BACKGROUND-COLOR: #cccccc" readonly=true></td>
<td align="right">找零 </td>
<td><input type="text" name="zli" size="6" value=<%=formatnumber(total5,2)%> style="BACKGROUND-COLOR: #cccccc" readonly=true></td>
<td align="right">现金 </td>
<td><input type="text" name="xjk" size="6" value=<%=formatnumber(total6,2)%> style="BACKGROUND-COLOR: #ffffff" onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))" onFocus="this.value=''"></td>
<td align="right">支票 </td>
<td><input type="text" name="zpk" size="6" value=<%=formatnumber(total7,2)%> style="BACKGROUND-COLOR: #ffffff" onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))" onFocus="this.value=''"></td>
<td align="center"><input type=button value="计 算" class=bt3 name="sbt_print_js" onclick="mysub()">
<input type=submit value="打 印" class=bt3 name="sbt_print_xs" disabled = True></td>
</tr>
</form>
</table>
<BR>
</tr>
</table>
<%end if%>
</tr>
</table>
</tr>
</table>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?