📄 showts.asp
字号:
<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>邮政编码</td>
<td><input type="text" name="youbian" size="10" value=<%=rs("youbian")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
</tr>
<tr>
<td align="right">联系人</td>
<td><input type="text" name="lxr" size="12" value=<%=rs("lxr")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>公司电话</td>
<td><input type="text" name="gytel" size="15" value=<%=rs("gytel")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>手机号码</td>
<td><input type="text" name="lxrshouji" size="15" value=<%=rs("lxrshouji")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
</tr>
<tr>
<td align="right">详细地址</td>
<td colspan=3><input type="text" name="dizhi" size="45" value=<%=rs("dizhi")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>销售方式</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" bgcolor="#dcd7dd">
<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="#dcd7dd" align="center">书名</td>
<td width="7%" bgcolor="#dcd7dd" align="center">定价</td>
<td width="10%" bgcolor="#dcd7dd" align="center">数量</td>
<td width="6%" bgcolor="#dcd7dd" align="center">折扣</td>
<td width="15%" bgcolor="#dcd7dd" align="center">码洋</td>
<td width="12%" bgcolor="#dcd7dd" align="center">实洋</td>
<td width="8%" bgcolor="#dcd7dd" align="center">修改</td>
<td width="7%" bgcolor="#dcd7dd" align="center">取消</td>
</tr>
<%
dim i,total0,total1,total2,total3,total4
i=1
total0=0
while i < tsindex
bookid = ts(i,0)
bookname = ts(i,1)
bkcount = ts(i,2)
shichangjia = ts(i,3)
tszk = ts(i,4)
bk_countbz = ts(i,5)
if ts(i,2)<>0 then%>
<form method="POST" action="addts.asp?action=adchange">
<tr>
<td width="35%" bgcolor="#ffffff"><div align="center"><%=bookname%></td>
<td width="7%" bgcolor="#ffffff"><div align="center"><%=formatnumber(shichangjia)%></td>
<td width="10%" bgcolor="#ffffff"><div 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'))">
<input type="hidden" value="<%=bk_countbz%>" size="6" name="bk_countbz"></td>
<td width="6%" bgcolor="#ffffff"><div align="center"><input type="text" value="<%=formatnumber(tszk)%>" size="3" name="tszk" 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"><div align="center"><font color="#FF0000"><%=formatnumber(total1,2)%></font></td>
<%total2=total1*tszk%>
<td width="12%" bgcolor="#ffffff"><div align="center"><font color="#FF0000"><%=formatnumber(total2,2)%></font></td>
<td width="8%" bgcolor="#ffffff"><div align="center"><input type="submit" value="修改" name="submit">
<input type="hidden" value="<%=i%>" name="index">
<td width="7%" bgcolor="#ffffff"><div align="center"><a href="addts.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
tsindex=i
session("tsindex") = tsindex
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 method="POST" action="tslist.asp">
<%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="tsadmin" size="8" value=<%=rs1("admin")%> readonly=true>
<td width="5%" align="right">库区号</td>
<td width="2%"><input type="text" name="tskqhao" size="3" value=<%=rs1("kqhao")%> readonly=true>
<td width="6%" align="right">库房地址</td>
<td width="15%"><input type="text" name="tskfname" size="22" value=<%=rs1("kfname")%> readonly=true>
<td width="6%" align="right">退书日期</td>
<td width="4%"><select name=tsyear>
<%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=tsmonth>
<%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=tsday>
<%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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -