贴整段代码,哎。
<%@ LANGUAGE="vbscript" %>
<!--#include virtual ="/Include/Conn.asp"-->
<!--#include virtual ="/Include/Frequent.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="test2.css">
<title>New task</title>
</head>
<body bgcolor="#FFFFFF">
<div id="body">
<p class="td4" align="left"><br>Pending Records<br><br><br></p>
<p class="td5">Part I: 作为库位Owner要批准如下</p>
<%
MyAccount = GetAccount()
MyBadge = GetBadge(MyAccount)
session("owner") = MyBadge
rs.open "select * from Inventory_All where owner ='" &MyBadge& "'",conn,1,1
if rs.eof or rs.bof then
response.write "<p class='p'>没有需要批的申请</p>"
else
%>
<table name="table1" border="1" width = "1336" bordercolorlight="#FF7200" cellspacing="1" cellpadding="4" bordercolordark="#FFFFFF" >
<tr >
<td colspan="15" class="td3">作为库位Owner要申请如下</td>
</tr>
<tr>
<td width="144" height="30" class="td2"> <div align="center">Flow Number</div></td>
<td width="77" height="30" class="td2"> <div align="center">申请人工号</div></td>
<td width="72" height="30" class="td2"> <div align="center">申请人姓名</div></td>
<td width="37" height="30" class="td2"> <div align="center">申请人部门号</div></td>
<td width="43" height="30" class="td2"> <div align="center">收料人工号</div></td>
<td width="44" height="30" class="td2"> <div align="center">发料库位</div></td>
<td width="80" height="30" class="td2"> <div align="center">料号</div></td>
<td width="44" height="30" class="td2"><div align="center">数量</div></td>
<td width="92" height="30" class="td2"> <div align="center">申请日期 </div></td>
<td width="104" height="30" class="td2"> <div align="center">预计归还日期 </div></td>
<td width="137" height="30" class="td2"> <div align="center">申请原因 </div></td>
<td width="137" height="30" class="td2"> <div align="center">发料人工号</div></td>
<td width="44" height="30" class="td2"> <div align="center">Action</div></td>
<td width="241" height="30" class="td2"> <div align="center">按钮</div></td>
</tr>
<%
do while not rs.eof
active ="send"&rs("InventoryNO")
statuss = "select"&rs("InventoryNO")
InventoryNO = rs("InventoryNO")
'submitno ="submit"&rs("InventoryNO")
response.write "<form action='dealpend.asp' method='post' name='form1'><tr><td class = 'td2'>"&rs("InventoryNO")&"</td><td class = 'td2'>"&rs("Badge")&"</td><td class = 'td2'>"&rs("EngName")&"</td><td class = 'td2'>"&rs("Deptid")&"</td><td class = 'td2'>"&rs("receive")&"</td><td class = 'td2'>"&rs("garage")&"</td><td>"&rs("SN")&"</td><td class = 'td2'>"&rs("qty")&"</td><td class = 'td2'>"&rs("startday")&"</td><td class = 'td2'>"&rs("disabledate")&"</td><td class = 'td2'>"&rs("reason")&"</td>"
' response.write autoid
%>
<td width="144" class="td2"> <input type = "text" name=<% =active %> value = ""></td>
<td class="td2"><select name=<% =statuss %>size="1">
<option value="Pend">Pend</option>
<option value="Approve">Approve</option>
<option value="Reject">Reject</option>
</select> </td>
<td class="td2" width="72"><input type="hidden" value="<% =InventoryNO %>" name="submit"><input type= "submit" value="submit" name="test1">
<% response.write active %> </td></tr>
</form>
<%
rs.movenext
loop
rs.close
set rs=Nothing
conn.Close
Set conn= Nothing
end if
%>
</table>
</div>
</body>
</html>