e_clientplainmainfrm.asp

一个很好的在线购物系统

<%
'*********************************页面说明**************************************************    
'开发者：金寿吉    
'首次开发时间：2001-08-27    
'最后一次修改时间：2001-09-04 
'主要功能：客户服务通知单  
'主要的传递参数描述				

'1--ID,Mode											分别表示文档标识和模式
'2--SaveFlag,DelFlag								分别表示保存和删除的标志
 %>
 
<!--#include file="../include/Pubconn.asp"-->    
<!--#include file="../include/PubFun.asp"-->    
<%    
 dim username				   						'当前用户名
 dim userdepart										'当前用户所在的部门
 dim Authors    									'文档的作者
 dim DepartID										'文档属于的部门
 dim userclass  									'表示用户的权限级别
 dim userCheck										'表示用户是否有审核权限
 
 dim ID,Mode    									'文档的标识和模式
 dim SaveFlag,DelFlag,DelSucc 						'保存标志、删除标志和删除成功标志
  
 dim bgcolor										'表示背景的颜色
 dim lcerror										'表示错误的提示信息
  
  
 dim AdoRs     										'数据记录集
 dim lcSql      									'SQL语句
 dim lcUnits										'表示计量单位
 
 dim AField(20)   									'字段名称数组
 dim Keyitem(20) 									'保存字段值数据的数组
 dim FieldCount										'字段的个数
  
 '****************************************基本参数的设置*****************************************
 bgcolor="#e2f2ee" 									'设置背景颜色


 '*************************************得到用户名并进行表访问权限判断****************************
 username=GetUser() 								'得到当前的用户名
 userdepart=Session("DepartID")						'得到当前用户部门标识
 userclass=TableVisitor("E_ProdServer",username)
 'usercheck=TableCheck("E_ProdServer",username)
 
 '************************************设置传递参数的值*******************************************
 ID=Request("ID")
 if ID="" then
 	ID="0"
 end if
 Mode=Request("Mode")
 
 SaveFlag=Request("SaveFlag")
 DelFlag=Request("DelFlag")
 
 '**************************************设置字段的值*********************************************
 FieldCount=11
 AField(1)="billID"
 AField(2)="ClientNum"
 AField(3)="LinkMan"
 AField(4)="TelePhone"
 AField(5)="AskTime"
 AField(6)="PlanTime"
 AField(7)="Department"
 AField(8)="PersonID"
 AField(9)="Reason"
 AField(10)="SparePart"
 AField(9)="MaintainProject"
 
 
 '**********************************从配置信息中得到计量单位的价值*******************************
 lcUnits=GetProfile("units")
 lcUnits=Split(lcUnits,",")
 
 '**********************************设置表单数据的初值*******************************************
 for i=1 to 11
  	keyitem(i)=Request(Afield(i))
 next
  
 '***********************************删除数据的处理**********************************************
 if DelFlag="1" then
 	set AdoRs=Server.CreateObject("AdoDB.RecordSet")
 	lcsql="select * from A_ProductInfo Where ID="+ID
  
 	AdoRS.Open lcSql,PubConn,1,1
 	if not adors.eof then
 		keystr=adors("billID")
 		DelSucc=CheckDelTableData("E_ProdServer","BillID",KeyStr) 
 		if DelSucc=1 then 								'可以删除数据
 			call DelTableData("E_ProdServer","BillID",KeyStr) 
 		    response.redirect("E_ServerMainFrm.asp")	
 		else
 		    lcerror="提示信息：存在不能删除的子表记录"	'表示删除数据失败，提示错误 		
 		end if
 	end if 
 	AdoRS.Close
  End if
 '************************************保存数据的处理**********************************************
  if saveflag="1" then
 	set AdoRs=Server.CreateObject("AdoDB.RecordSet")
    if mode="EditMode" then  							'保存老数据的处理
 		lcsql="select * from E_ProdServer Where ID="+ID
   		 AdoRS.Open lcSql,PubConn,2,3
    	if not AdoRS.eof then
    		for i=2 to 11
    			AdoRs(Afield(i))=keyitem(i)
    		next
    		AdoRs.update