?? xx_lookgoodsunit.asp
字號(hào):
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<html>
<head><link href="css.css" rel="stylesheet" type="text/css">
<title>祥星送貨單打印系統(tǒng)--查看送貨單</title>
</head>
<body>
<table width=100% class=inputb><tr><td align=center>出貨單|<a href="XX_MakeReport.asp?listnum=<%=request("listnum")%>" target="_blank">生成報(bào)表</a></td></tr></table>
<center><%
listnum=Request("listnum")
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * from XX_shoplist where listnum="&listnum&" order by id desc"
Rs.Open Sql,Conn,1,1
response.write"<table border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>"
response.write"<tr bgcolor=#efefef><td align=center>電腦批號(hào)</td><td align=center>指示卡</td><td align=center>資材名稱(chēng)</td><td align=center>顏 色</td><td align=center>規(guī)格</td><td align=center>單位</td><td align=center>交貨數(shù)量</td><td align=center>預(yù)補(bǔ)</td><td align=center>備注</td></tr>"
if rs.bof and rs.eof then
response.write"<tr bgcolor=#efefef><td align=center>對(duì)不起沒(méi)有找到記錄！</td></tr>"
else
page=request("page")
rs.pagesize=20'每頁(yè)顯示記錄數(shù)
j=rs.pagesize
Allrecord=rs.Recordcount '得到記錄總數(shù)
Allpage=rs.pagecount '得到頁(yè)總數(shù)
if not isnumeric(page) or page="" then
page=1
else page=clng(page)
end if
if page<1 then
page=1
elseif page>Allpage then
page=allpage
end if
rs.absolutepage=page
for i=1 to j
response.write"<tr bgcolor=#efefef><td align=center>"&rs("spnum")&"</td>"
response.write"<td align=center>"&rs("zsk")&"</td>"
response.write"<td align=center>"&rs("spname")&"</td>"
response.write"<td align=center>"&rs("spys")&"</td>"
response.write"<td align=center>"&rs("spgg")&"</td>"
response.write"<td align=center>"&rs("unit")&"</td>"
response.write"<td align=center>"&rs("spsl")&"</td>"
response.write"<td align=center>"&rs("spyb")&"</td>"
response.write"<td align=center>"&rs("meno")&"</td>"
response.write"</tr>"
rs.movenext
if rs.eof then exit for
next
end if
rs.close
response.write"</table>"
response.write"<table border=0 width=100% ><tr>"
response.write"<td align=center>"
if page<2 then
response.write"首頁(yè) "
response.write"上一頁(yè) "
else
response.write"<a href=XX_LookGoodsUnit.asp?listnum="&request("listnum")&">首頁(yè) </a>"
response.write"<a href=XX_LookGoodsUnit.asp?page="&page-1&"&listnum="&request("listnum")&">上一頁(yè) </a>"
end if
if Allpage-page<>0 then
response.write"<a href=XX_LookGoodsUnit.asp?page="&page+1&"&listnum="&request("listnum")&">下一頁(yè) </a>"
response.write"<a href=XX_LookGoodsUnit.asp?page="&Allpage&"&listnum="&request("listnum")&">尾頁(yè) </a>"
else
response.write"下一頁(yè) "
response.write"尾頁(yè) "
End if
response.write"</td></tr></table>"
'打開(kāi)入庫(kù)記錄游標(biāo)，取得數(shù)據(jù)以便修改
%></center>
</body></html>
<script javascript=javascript>
function check(){
if (document.addform.listnum.value=="")
{
alert ("請(qǐng)輸入貨單號(hào)。");
document.addform.listnum.value='';
document.addform.listnum.focus();
return false;
}
if (document.addform.listuser.value=="")
{
alert ("請(qǐng)輸入送貨對(duì)象。");
document.addform.listuser.value='';
document.addform.listuser.focus();
return false;
}
var istrue;
istrue=confirm('您確定無(wú)誤要入庫(kù)是嗎？');
if(istrue) {
return true;
}
else {
return false;
}
}
</script>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -