⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 deliveryprintresult.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷
💻 ASP
字号:
🔍 
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "po","read"
set objcheck=nothing

dim conn
set conn=server.CreateObject("adodb.connection")
conn.Open connstring
set rs=conn.Execute("select * from v_poreceive where poreceiveid="&request("poreceiveid"))
if rs.eof then
	Response.Write "记录不存在"
	Response.End 
end if

'取打印参数
dim rspara
set rspara=conn.Execute("select * from printsetup where type='打印采购收货单'")
if rspara.EOF then
	Response.Write "打印参数未找到，请检查系统设置 -> 打印参数设置"
	Response.End 
end if

'取公司信息
dim rsco
set rsco=conn.Execute("select * from company")


%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("pono")%></title>
</head>
<script language="JavaScript">
function window_onload()
{
window.moveTo(-2,-2);
window.resizeTo(screen.availWidth, screen.availHeight);
}
</script>
<body leftmargin="0" rightmargin="0" topmargin="60" onload="window_onload()">
<table width="595" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td valign="top"> 
      <table width="100%" border="0" cellpadding="1" cellspacing="0">
        <tr> 
          <td width="120"><font face="Verdana, Arial, Helvetica, sans-serif"><strong><img src="../tools/showimg.asp?id=<%=rspara("id")%>"></strong> 
            </font></td>
          <td>
<div align="center"><font color="#000000" size="6" face="Verdana, Arial, Helvetica, sans-serif"><font size="5"><strong><font size="3">采购收货单</font></strong><font size="3"><em><br>
              </em> <strong>DELIVERY INSTRUCTIONS SHEET</strong></font></font></font></div></td>
          <td width="120"> 
            <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif">
              <%
				if request.QueryString("thepage")="" then
					response.Write "第1页"
				else
					response.Write "第"&request.QueryString("thepage")&"页"
				end if
				%>
              / 
              <%
				if request.QueryString("thepage")="" then
					response.Write "共1页"
				else
					response.Write "共"&request.QueryString("totalpages")&"页"
				end if
				%>
              </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
              </font></div></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="2" cellspacing="0">
        <tr> 
          <td width="50%" height="30" valign="bottom"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>供应商信息</strong></font></td>
          <td valign="bottom"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">采购收货单号：<font color="#000000"><%=rs("poreceiveno")%></font></font></td>
        </tr>
		        <tr> 
          <td colspan="2"><img src="../images/blackloginbutton.gif" width="595" height="1"></td>
        </tr>
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">名称：<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("account")%></font></font></td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">地址：<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("billaddress")%></font></font></td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">电话：<font color="#000000"><%=rs("phone")%></font>&nbsp;&nbsp;&nbsp;&nbsp;传真：<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000"><%=rs("fax")%></font></font></font></td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">联系人：<font color="#000000"><%=rs("contact")%></font></font></td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">打印时间：<font color="#000000"><%=now()%></font></font></td>
          <td>&nbsp;</td>
        </tr>
      </table>
      <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
      <%
		dim connorderline
		dim rspoline
		set connorderline=server.CreateObject("adodb.connection")
		set rspoline=server.CreateObject("adodb.recordset")
		connorderline.Open connstring
		rspoline.Open "select * from v_poreceiveline where poreceiveid="&request("poreceiveid"),connorderline,1,1
		%>
      </font> 
      <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="30" valign="bottom"><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>订货内容</strong></font></td>
        </tr>
      </table>
      <table width="100%" border="1" cellpadding="1" cellspacing="0" bordercolor="#333333" bgcolor="#333333">
        <tr bgcolor="#FFFFFF"> 
          <td width="8%" height="20" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">No.</font></td>
          <td width="16%" align=center><font size="2" face="Verdana, Arial, Helvetica, sans-serif">订单号码</font></td>
          <td width="20%" align=center><font size="2" face="Verdana, Arial, Helvetica, sans-serif">产品名称</font></td>
          <td align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">型号</font></td>
          <td width="8%" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">数量</font></td>
          <td width="10%" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">单价</font></td>
          <td width="10%" align=center><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">金额</font></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <%i=1
  if not rspoline.eof then
  	response.Write "<td align=center valign=top>"
 
	if Request.QueryString("thepage")="" then
		do while not rspoline.EOF
			response.write i&"<br>"
			i=i+1
			rspoline.MoveNext
		loop
	elseif Request.QueryString("thepage")<>Request.QueryString("totalpages") then
		for x=(Request.QueryString("thepage")-1)*rspara("line")+1 to (Request.QueryString("thepage")-1)*rspara("line")+rspara("line")
			Response.Write x&"<br>"
		next
	else
		for x=(Request.QueryString("thepage")-1)*rspara("line")+1 to rspoline.RecordCount
			Response.Write x&"<br>"
		next
	end if
	
	if Request.QueryString("thepage")="" then		
		if i<rspara("line") then
			for x=1 to rspara("line")-i
				Response.Write "<br>"
			next
		end if
	elseif Request.QueryString("totalpages")=Request.QueryString("thepage") then
			if rspoline.RecordCount mod rspara("line")<>0 then
				for x=1 to rspara("line")-(rspoline.RecordCount mod rspara("line"))
					Response.Write "<br>"
				next
			end if
	end if
	 response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td align=center valign=top>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write rspoline("pono")&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rspoline("pono")&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
           <%
  if rspoline.recordcount<>-1 then
	response.Write "<td align=center valign=top>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write rspoline("name")&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rspoline("name")&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td align=center valign=top>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write rspoline("model")&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rspoline("model")&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td align=center valign=top>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write rspoline("qty")&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write rspoline("qty")&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td valign=top align=right>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write formatnumber(rspoline("price"),2)&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write formatnumber(rspoline("price"),2)&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
          <%
  if rspoline.recordcount<>-1 then
	response.Write "<td valign=top align=right>"
	if Request.QueryString("thepage")="" then
		rspoline.movefirst
		do while not rspoline.EOF
			response.write formatnumber(csng(rspoline("qty"))*csng(rspoline("price")),2)&"<br>"
			rspoline.MoveNext
		loop
	else
		rspoline.movefirst
		k=(Request.QueryString("thepage")-1)*rspara("line")
		rspoline.Move k
		do while not rspoline.EOF
			if k<=Request.QueryString("thepage")*rspara("line")-1 then
				Response.write formatnumber(csng(rspoline("qty"))*csng(rspoline("price")),2)&"<br>"
			end if
			rspoline.MoveNext
			k=k+1
		loop
	end if	
	response.Write "</td>"
 end if
 %>
        </tr>

        <%if Request.QueryString("thepage")="" or (Request.QueryString("thepage")<>"" and Request.QueryString("thepage")=Request.QueryString("totalpages")) then%>
        <tr bgcolor="#FFFFFF"> 
          <td><div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">合计</font></div></td>
          <td colspan=8><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=formatnumber(rs("totalamount"),2)%>&nbsp;</font> 
            <div align="center"></div>
            <div align="center"></div></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td><div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">大写</font></div></td>
          <td colspan=8><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=convertcurrency(rs("totalamount"))%>&nbsp;</font></td>
        </tr>
        <%end if%>
      </table>
      <table width="100%" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td width="50%" height="50" valign="bottom"><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2"> 
            签字：</font></strong><br>
            </font></td>
          <td valign="bottom">&nbsp;</td>
        </tr>
      </table>
      <font face="Verdana, Arial, Helvetica, sans-serif"><br>
      </font>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000"><%=rsco("company")%></font></font></td>
        </tr>
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000"><%=rsco("address")%></font></font></td>
        </tr>
        <tr>
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">备件人：<font color="#000000"><%=rs("username")%></font></font></td>
        </tr>
        <tr> 
          <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tel:</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000"><%=rsco("phone")%></font></font> 
            &nbsp;&nbsp; <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Fax:<font color="#000000"><%=rsco("fax")%></font></font></td>
        </tr>
      </table>
      <font face="Verdana, Arial, Helvetica, sans-serif"><br>
      <script language="JavaScript">window.print();</script>
      </font></td>
  </tr>
</table>
</html></body>
<%

  rspoline.Close
  set rspoline=nothing
  connorderline.Close 
  set connorderline=nothing
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
  %>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -