buyer_print.asp

来自「适用于网络/信息企业」· ASP 代码 · 共 90 行

ASP
90 行
字号 
<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<%
Session("Task_Print_ID") = Session("Task_Print_ID") &","& Request.QueryString("ID")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>亿博尔-客户资料-打印资料</title>
</head>
<body text="#000000">
<table width=700 border=0 align='center' cellpadding=0 cellspacing=0 bordercolordark=#ffffff bgcolor="#ffffff">
  <tr>
    <td colspan="5"> 
  <tr align="left" bgcolor="ffffff"> 
    <td width="25%" height="22" style="font-size: 12px;">名称</td>
    <td width="15%" style="font-size: 12px;">电话</td>
    <td width="7%" style="font-size: 12px;">联系人</td>
    <td width="10%" style="font-size: 12px;">电话</td>
    <td width="43%" style="font-size: 12px;">事由</td>
  </tr>
</table>
<%
i = 0
Print_ID = ""
	ID = SPlit(Session("Task_Print_ID"), ",")
	for n=0 to UBound(ID)
	Print_ID = Trim(ID(n))
	IF Print_ID <> "" Then 
	
		XXXXX = ""
		Print_ID_Arr_1 = SPlit(Print_ID_Arr, ",")
		
			for nn=0 to UBound(Print_ID_Arr_1)
			
			IF Trim(Print_ID_Arr_1(nn)) = Print_ID Then
			
			XXXXX = "OK"
			
			End IF
			
			Next
			
			IF XXXXX <> "OK" Then
			
			Print_ID_Arr = Print_ID_Arr &","& Print_ID
			
			End IF
	
	End IF
	
	Next
	
	ID = SPlit(Print_ID_Arr, ",")
	Max = UBound(ID)
	for n = 0 to UBound(ID)
	Print_ID = Trim(ID(n+ii))

%>
<table width=700 border=0 align='center' cellpadding=0 cellspacing=0 bordercolordark=#ffffff bgcolor="#ffffff">
  <tr>
    <td colspan="5"> 
  <tr align="left" bgcolor="ffffff"> 
<%
	Set Rs_1 = Conn.Execute("Select Link_Task.*,Link_Task.Buyer_ID,Link_Task.ID As Link_Task_ID,Buyer_Info.*,Buyer_Info.Buyer_ID from Link_Task,Buyer_Info where (Link_Task.Buyer_ID = Buyer_Info.Buyer_ID) AND Link_Task.ID = '"& Print_ID &"'")
	
	IF Not(Rs_1.eof and Rs_1.bof) Then
%>
    <td width="25%" height="22" style="font-size: 12px;"> <%=Rs_1("Buyer_Name")%><br>
    </td>
    <td width="15%" style="font-size: 12px;"><%=Rs_1("Link_Task_Name")%></td>
    <td width="7%" style="font-size: 12px;"><%=Rs_1("LinkMan_Name")%></td>
    <td width="10%" style="font-size: 12px;"><%=Rs_1("Link_Info")%></td>
    <td width="43%" style="font-size: 12px;"><%=Rs_1("Link_Task_Causation")%> 
    </td>
    <%
End IF
Rs_1.Close
Set Rs_1 = Nothing
%>
  </tr>
</table>
<%
	Next
	Conn.Close
Set Conn = Nothing
%>
</body>
</html>

buyer_print.asp - 源码说明

本页面展示了「适用于网络/信息企业」中的 buyer_print.asp 源码文件，采用 ASP 编程语言编写，共 90 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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