e_serversubfrm.asp

一个很好的在线购物系统

<%    
'*********************************页面说明**************************************************        
'开发者：金寿吉        
'首次开发时间：2001-08-31        
'最后一次修改时间：2001-09-04     
'主要功能：客户服务通知单详细页面    
%>    
 
<!--#include file="../include/Pubconn.asp"-->    
<!--#include file="../include/PubFun.asp"-->        
<%    
'******************************变量的说明**********************************
dim UserName									   				'当前用户名
dim userclass  			 										'表示用户的权限级别
dim userCheck			 										'表示用户是否有审核权限
dim Authors														'表示文档的作者
dim DepartID			 										'表示文档的部门标识
dim userdepart													'当前用户所在的部门
dim ID,Mode   				 									'文档的标识和模式
dim SaveFlag,DelFlag					 						'保存和删除标志
dim DelSucc														'表示删除是否成功标志
dim lcerror														'表示错误的提示信息
dim AField														'表示文档需要显示的字段数组
Dim FieldCount													'字段的多少
dim Keyitem()	 												'保存字段值数据的数组
dim AdoRs     													'数据记录集

'*********************************设置常量和变量的值************************
'bgColor		：表示主页背景颜色					MainTable	：主表名(控制对用户的权限)
'budStyle		：表示按纽的样式					KeyField	：关键字段		
'KeyFieldName	：表示关键字段名称					ListPage	：删除后返回的页面				

const bgcolor="#ffffff"            	 							
const MainTable="E_ProdServer"			 						
const KeyField="billID"
Const ListPage="E_ServerMainFrm.asp"
Const MainPage="E_ServerSubFrm.asp"
const KeyFieldName="单据编号"
const budStyle="background-color: #D1D1D1; border-style: solid; border-width:1"
AField="billId,ClientNum,ProdCode,LinkMan,TelePhone,AskTime,PlanTime,Department,PersonID,SparePart,MaintainProject,Reason"	

'从数据库中得到部门和部门名称的列表
'读取部门信息
 set AdoRs=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select * from A_departInfo"
 AdoRS.Open lcSql,PubConn,1,1
 if not adors.eof then
 	Count1=Adors.recordcount
 	redim DepartCode(Count1),departName(Count1)
 	i=1
 	Do while not adors.eof
 		DepartCode(i)=Adors("departcode")
 		departName(i)=Adors("name")
 		AdoRs.MoveNext
 		i=i+1
 	Loop
 End if	
 set Adors=Nothing
%>    

<!--#include file="../BaseInfo/PageData1.Server"-->  
<%
ParentPage=request("ParentPage")
ddbh=request("ddbh")
khmc=request("khmc")
bz=request("bz")
dyear=request("dyear")
dmonth=request("dmonth")
dday=request("dday")
eyear=request("eyear")
emonth=request("emonth")
eday=request("eday")
jhqk=request("jhqk")
%>    
<% 
'计算联系人电话
'if Keyitem(4)<>"" then
	'Keyitem(5)=GetFieldValue("D_Linkman","LinkMan","TelePhone",Keyitem(4))
'end if	

'计算相应的安装调试报告单和客户验收报告单
if KeyItem(1)<>"" then
	InstallID=GetFieldValue("E_ProdBuild","BillID","Id",Keyitem(1))
	YahShouID=GetFieldValue("E_Clientaccept","BillID","ID",Keyitem(1))
	
End if

'计算单据编号
if Keyitem(1)="" then Keyitem(1)=GetOkNum("E_ProdServer","billID","1")

'计算客户的有关数据
if Keyitem(2)<>"" then
	ClientName=GetFieldValue("D_Clientinfo","ClientNum","ClientName",Keyitem(2))
	if clientName="&nbsp" then clientName=""
	ClientAddress=GetFieldValue("D_Clientinfo","ClientNum","Address",Keyitem(2))
	if ClientAddress="&nbsp" then ClientAddress=""
End if

'计算产品的有关数据
if Keyitem(3)<>"" then
	Prodname=GetFieldValue("A_ProductInfo","ProdCode","Prodname",Keyitem(3))
	if Prodname="&nbsp" then Prodname=""
	
	'调整ProdModl的数值
	ProdModel=GetFieldValue("A_ProductInfo","ProdCode","Model",Keyitem(3))
	if ProdModel="&nbsp" then ProdModel=""
	ProdStandard=GetFieldValue("A_ProductInfo","ProdCode","Standard",Keyitem(3))
	if ProdStandard="&nbsp" then ProdStandard=""
	if ProdModel<>"" then
		if ProdStandard<>"" then ProdModel=ProdModel+"-"+ProdStandard
	end if
end if

'用户选择了不同的客户时，设置联系人员的值为空
 if SourcePage="subCustomer" then
 	Keyitem(4)=""
 end if

'读取联系人信息
if Keyitem(2)<>"" then
 	set AdoRs=Server.CreateObject("AdoDB.RecordSet")
 	lcsql="select linkman from D_LinkMan where ClientNum='"+Keyitem(2)+"'"
 	AdoRS.Open lcSql,PubConn,1,1
 	if not adors.eof then
 		Count3=Adors.recordcount
 		redim LinkMan(Count3)
 		i=1
 		Do while not adors.eof