showgy.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 413 行 · 第 1/2 页
ASP
413 行
<td><input type="text" name="shengshi" size="12" value=<%=rs("shengshi")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td bgcolor="#ece9d8">发书方式</td>
<% if rs("songhuofangshi")=1 then%>
<td><input type="text" name="songhuofangshi" size="10" value="自提" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<% else %>
<td><input type="text" name="songhuofangshi" size="10" value="铁路" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<% end if %>
<td bgcolor="#ece9d8">邮政编码</td>
<td><input type="text" name="youbian" size="10" value=<%=rs("youbian")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
</tr>
<tr>
<td bgcolor="#ece9d8" align="right">联系人</td>
<td><input type="text" name="lxr" size="12" value=<%=rs("lxr")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td bgcolor="#ece9d8">公司电话</td>
<td><input type="text" name="gytel" size="15" value=<%=rs("gytel")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td bgcolor="#ece9d8">手机号码</td>
<td><input type="text" name="lxrshouji" size="15" value=<%=rs("lxrshouji")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
</tr>
<tr>
<td bgcolor="#ece9d8" align="right">详细地址</td>
<td colspan=3><input type="text" name="dizhi" size="45" value=<%=rs("dizhi")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td bgcolor="#ece9d8">销售方式</td>
<% if rs("xiaoshoufangshi")=1 then%>
<td><input type="text" name="xiaoshoufangshi" size="10" value="经销" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<% else %>
<td><input type="text" name="xiaoshoufangshi" size="10" value="代销" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<% end if %>
</tr>
</table>
<tr><td>
<table width="100%" align=center border="0" cellspacing="0" cellpadding="0" >
<tr height=40>
<td width="5%" align="right">条形码</td>
<td width="10%"><input type="text" name="txm" size="15" style="BACKGROUND-COLOR: #ffffff"></td>
<td width="5%" align="right">书名</td>
<td width="10%"><input type="text" name="bookname" size="20" style="BACKGROUND-COLOR: #ffffff"></td>
<td width="5%" 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" onClick="return check();"></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,total0,total1,total2,total3,total4
i=1
total0=0
while i < gyindex
bookid =gy(i,0)
bookname =gy(i,1)
bkcount =gy(i,2)
shichangjia =gy(i,3)
gyzk =gy(i,4)
if gy(i,2)<>0 then%>
<form method="POST" action="addgy.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(gyzk)%>" size="3" name="gyzk" 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=shichangjia*bkcount%>
<td width="15%" bgcolor="#ffffff" align="center"><font color="#FF0000"><%=formatnumber(total1,2)%></font></td>
<%total2=total1*gyzk%>
<td width="12%" bgcolor="#ffffff" align="center"><font color="#FF0000"><%=formatnumber(total2,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="addgy.asp?action=addelet&index=<%=i%>"><img src=images/trash.gif width=15 height=17 border=0></a>
</tr>
</form>
<%
total0=total0+total1
total3=total3+total2
total4=cint(total4)+bkcount
i=i+1
else
i=i+1
end if
wend
gyindex=i
session("cgindex") = gyindex
if total0=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>"&total4 &"</font> 册 "
response.Write "总计码洋 <font color=#FF0000>"&formatnumber(total0,2)&"</font> 元 "
response.Write "总计实洋 <font color=#FF0000>"&formatnumber(total3,2)&"</font> 元</td>"
response.Write "</tr>"
response.Write " </table>"
end if%>
<table><tr><td height=5></table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
<form name="frmxsfs" method="POST" action="cglist.asp?action=list">
<%dim i_y,i_m,i_d
//数量不为零
if total4<>0 then
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from shop_admin where admin='"&session("admin")&"'",conn,1,3%>
<tr><td colspan=8><input type="hidden" name="xiaoshoufangshi" id="xiaoshoufangshi" value=<%=rs("xiaoshoufangshi")%> >
<tr>
<td width="5%" align="right">操作员</td>
<td width="6%"><input type="text" name="cgadmin" size="8" value=<%=rs1("admin")%> readonly=true>
<td width="5%" align="right">库区号</td>
<td width="2%"><input type="text" name="cgkqhao" size="3" value=<%=rs1("kqhao")%> readonly=true>
<td width="6%" align="right">库房地址</td>
<td width="15%"><input type="text" name="cgkfname" size="22" value=<%=rs1("kfname")%> readonly=true>
<td width="6%" align="right">下单日期</td>
<td width="4%"><select name=cgyear>
<%for i_y=2000 to 2010
if i_y=year(date) then%>
<option value=<%=i_y%> selected><%=i_y%></option>
<%else%>
<option value=<%=i_y%>><%=i_y%></option>
<%end if
next%>
</select>
<td width="3%"><select name=cgmonth>
<%for i_m=1 to 12
if i_m=month(date) then%>
<option value=<%=i_m%> selected><%=i_m%></option>
<%else%>
<option value=<%=i_m%>><%=i_m%></option>
<%end if
next%>
</select>
<td width="3%"><select name=cgday>
<%for i_d=1 to 31
if i_d=day(date) then%>
<option value=<%=i_d%> selected><%=i_d%></option>
<%else%>
<option value=<%=i_d%>><%=i_d%></option>
<%end if
next%>
</select>
</tr>
<tr>
<td colspan=10 align="center"><hr noshade color=#cccccc size=1></td>
</tr>
<tr height=30>
<td colspan=10 align="center"><input type=submit value="生成采购单" name="sccgd"></td>
</tr>
<%end if%>
</form>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<%end select%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?