e_installsubfrm.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_ProdBuild"			 						
const KeyField="billID"
Const ListPage="E_InstallMainFrm.asp"
Const MainPage="E_InstallSubFrm.asp"

const KeyFieldName="单据编号"
const budStyle="background-color: #D1D1D1; border-style: solid; border-width:1"
AField="billId,MakePerson,ArriveTime,GiveTime,GivePerson,GiveAddress,crystalID,ClientSupplyPower,"	
AField=AField+"CondtionStatus,OpenLevel,OpenCause,AfterEquitStatus,ProduceOperate,ExerciseSatus,Summary,Opinion"

%>    

<!--#include file="../BaseInfo/PageData1.Server"-->      
<% 
'计算相应的客户服务通知单和客户验收报告单
if KeyItem(1)<>"" then
	ServerID=GetFieldValue("E_ProdServer","BillID","Id",Keyitem(1))
	YahShouID=GetFieldValue("E_Clientaccept","BillID","ID",Keyitem(1))
End if

'计算其他数据
if Keyitem(1)<>"" then
	ClientNum=GetFieldValue("E_ProdServer","BillID","ClientNum",Keyitem(1))
	ClientName=GetFieldValue("D_Clientinfo","ClientNum","ClientName",ClientNum)
	ProdCode=GetFieldValue("E_ProdServer","BillID","ProdCode",Keyitem(1))
	
	ProdName=GetFieldValue("A_ProductInfo","Prodcode","ProdName",ProdCode)
	ProdModel=GetFieldValue("A_ProductInfo","Prodcode","Model",ProdCode)
	ProdStandard=GetFieldValue("A_ProductInfo","Prodcode","Standard",ProdCode)
	if ProdModel<>"" then
		if ProdStandard<>"" then
			ProdName=ProdName+"("+ProdModel+"-"+ProdStandard+")"
		else
			ProdName=ProdName+"("+ProdModel+")"
		end if
	End if
end if

Set PubConn=Nothing %>    

<Script Language="VBScript">    
'表单的初始化代码  
Sub formini()
 	 dim Mode	'表示数据的显示模式
 	 Mode="<%=Mode%>"
 	 
 	'设置表单的数据
	 <% for i=1 to FieldCount %>
	 	document.forms(0).<%=Afield(i-1)%>.value="<%=keyitem(i)%>"
	 <% Next %>
	 
	 
     if Mode="NewMode" then 								 
     	document.forms(0).MakePerson.value="<%=Session("StuffName")%>"
     end if
     
     '调整其他模式下其他数据的显示
     if Mode="ScanMode" then
     	<% for i=2 to FieldCount %>
	 		document.forms(0).<%=Afield(i-1)%>.Disabled="True"
	 	<% Next %>
	 end if
	  	 
  	 '计算其他相关的数据
  	 document.forms(0).ClientName.value="<%=ClientName%>"
  	 document.forms(0).ClientNum.value="<%=ClientNum%>"