📄 showts.asp
字号:
<!--#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 language = "JavaScript">
<!--
function checkgy()
{
if(document.myform.cggyname.value==0) {
document.myform.cggyname.focus();
alert("请先选择供应商！");
return false;
}
}
function changelocation(locationid)
{
var locationid;
window.location=locationid;
}
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>
<%
dim action
action= request.QueryString("action")
select case action
case ""
'//先清空所有变量
ts = Session("myts")
tsindex= session("tsindex")
for i=0 to tsindex
for j=0 to 4
ts(i,j)=""
next
next
Session("myts")= ts
session("tsindex")=0
%>
<table width="90%" height="450" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ece9d8"><br><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=154 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>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#000000>填写退书单</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%" border="0" bgcolor="#dcd7dd">
<form name="myform" method="POST" action="addgy.asp?action=addbk">
<tr><td height=3></td>
<tr>
<td width="12%" align="right">供应商名称</td>
<td colspan=5>
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_gongyi",conn,1,3%>
<select id=cggyname name=cggyname onChange="changelocation(document.myform.cggyname.options[document.myform.cggyname.selectedIndex].value)" >
<option value=0 selected>--请选择供应商--</option>
<%do while not rs2.eof%>
<option value="addts.asp?action=addts&tsid=<%=rs2("gyid")%>"><%=rs2("gyname")%></option>
<%rs2.movenext
loop%>
</select></tr>
<tr>
<td align="right">所在地区</td>
<td><input type="text" name="shengshi" size="12" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>发书方式</td>
<td><input type="text" name="songhuofangshi" size="10" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>邮政编码</td>
<td><input type="text" name="youbian" size="10" style="BACKGROUND-COLOR: #ffffff" readonly=true>
</tr>
<tr>
<td align="right">联系人</td>
<td><input type="text" name="lxr" size="12" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>公司电话</td>
<td><input type="text" name="gytel" size="15" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>手机号码</td>
<td><input type="text" name="lxrshouji" size="15" style="BACKGROUND-COLOR: #ffffff" readonly=true>
</tr>
<tr>
<td align="right">详细地址</td>
<td colspan=3><input type="text" name="dizhi" size="45" style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>销售方式</td>
<td><input type="text" name="xiaoshoufangshi" size="10" style="BACKGROUND-COLOR: #ffffff" readonly=true>
</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 checkgy();"></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>
<tr>
<td width="35%" bgcolor="#ffffff" align="center" height=20></td>
<td width="7%" bgcolor="#ffffff" align="center"></td>
<td width="10%" bgcolor="#ffffff" align="center"></td>
<td width="6%" bgcolor="#ffffff" align="center"></td>
<td width="15%" bgcolor="#ffffff" align="center"></td>
<td width="12%" bgcolor="#ffffff" align="center"></td>
<td width="8%" bgcolor="#ffffff" align="center"></td>
<td width="7%" bgcolor="#ffffff" align="center"></td>
</tr>
</table>
<table>
<tr><td bgcolor="#ece9d8" STYLE='PADDING-LEFT: 50px' colspan="9" height=40> 总数量 <font color="#FF0000">0</font> 册
总计码洋 <font color="#FF0000">0:00</font> 元
总计实洋 <font color="#FF0000">0:00</font> 元</td>
</tr>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<%case "tslist"
ts = Session("myts")
tsindex= session("tsindex")
tsid = ts(0,0)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_gongyi where gyid="&tsid,conn,1,3%>
<table width="90%" height="450" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ece9d8"><br><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=154 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href=showts.asp><font color=#000000>重选供应商</font></a></div></td>
<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%" border="0" bgcolor="#dcd7dd">
<form name="myform" method="POST" action="addts.asp?action=addbk">
<tr><td height=3></td>
<tr>
<td width="12%" align="right">供应商名称</td>
<td colspan=5><input type="text" name="gyname" size="23" value=<%=rs("gyname")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
</tr>
<tr>
<td align="right">所在地区</td>
<td><input type="text" name="shengshi" size="12" value=<%=rs("shengshi")%> style="BACKGROUND-COLOR: #ffffff" readonly=true>
<td>发书方式</td>
<% if rs("songhuofangshi")=1 then%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -