e_serversubfrm.asp

一个很好的在线购物系统

 			LinkMan(i)=Adors("LinkMan")
 			AdoRs.MoveNext
 			i=i+1
 		Loop
 	End if	
 	set Adors=Nothing
end if
 
 '用户选择了不同的部门，设置服务人员的值为空
 if SourcePage="SubDepart" then
 	Keyitem(9)=""
 end if
 
 '读取服务人员信息
 if Keyitem(8)<>"" then
 	set AdoRs=Server.CreateObject("AdoDB.RecordSet")
 	lcsql="select * from A_StuffInfo where delflag<>'1' and DepartCode='"+Keyitem(8)+"'"
 	AdoRS.Open lcSql,PubConn,1,1
 	if not adors.eof then
 		Count2=Adors.recordcount
 		redim StuffNum(Count2),StuffName(Count2)
 		i=1
 		Do while not adors.eof
 			StuffNum(i)=Adors("StuffNum")
 			StuffName(i)=Adors("name")
 			AdoRs.MoveNext
 			i=i+1
 		Loop
 	End if	
 	set Adors=Nothing	
 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="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).Address.value="<%=ClientAddress%>"
  	 
  	 '计算产品的名称和型号
  	 document.forms(0).ProdName.value="<%=ProdName%>"
	 document.forms(0).ProdModel.value="<%=ProdModel%>"
	 
	 '调整时间字段的价值
	 <% if SourcePage<>"" then %>
	 		document.forms(0).lcYear.value="<%=Request("lcYear")%>"
	 		document.forms(0).lcMonth.value="<%=Request("lcMonth")%>"
	 		document.forms(0).lcDay.value="<%=Request("lcDay")%>"
	 		document.forms(0).eYear.value="<%=Request("eYear")%>"
	 		document.forms(0).eMonth.value="<%=Request("eMonth")%>"
	 		document.forms(0).eDay.value="<%=Request("eDay")%>"
	 <% else %>
	 		if Mode<>"NewMode" then
	 			document.forms(0).lcYear.value="<%=mid(keyitem(6),1,4)%>"
	 			document.forms(0).lcMonth.value="<%=mid(keyitem(6),6,2)%>"
	 			document.forms(0).lcDay.value="<%=mid(keyitem(6),9,2)%>"
	 			document.forms(0).eYear.value="<%=mid(keyitem(7),1,4)%>"
	 			document.forms(0).eMonth.value="<%=mid(keyitem(7),6,2)%>"
	 			document.forms(0).eDay.value="<%=mid(keyitem(6),9,2)%>"
	 		else
	 			todayyear=cstr(year(now))
	 			todaymonth=month(now)
	 			if todaymonth<10 then
	 				todaymonth="0"+cstr(todaymonth)
	 			end if
	 			todaymonth=cstr(todaymonth)
	 			
	 			todayday=day(now)
	 			if todayday<10 then 
	 				todayday="0"+cstr(todayday)
	 			end if
	 			todayday=cstr(todayday)
	 				 			
	  			document.forms(0).lcYear.value=todayyear
	 			document.forms(0).eYear.value=todayyear
	 			document.forms(0).lcMonth.value=todaymonth
	 			document.forms(0).eMonth.value=todaymonth
	 			document.forms(0).lcDay.value=todayday
	 			document.forms(0).eDay.value=todayday
	 		end if
	 <% end if %>
		 
	 '设置隐藏字段的值
  	 document.forms(0).ID.value="<%=Id%>"
  	 document.forms(0).Mode.value="<%=Mode%>"
  	 document.forms(0).formID.value="E_ServerSubFrm.asp" 
End Sub
  
'保存数据的函数处理
Sub SaveData() 
  	'保存数据的条件，客户编号、产品编号不能为空
  	lcClientNum=document.forms(0).ClientNum.Value
  	lcProdCode=document.forms(0).ProdCode.Value
  	if lcClientNum="" or lcProdCode="" then
  		msgbox "客户编号和产品编号不能为空！",48,"错误信息"
  	else
  		'开始保存数据
  		document.forms(0).asktime.Value=document.forms(0).lcYear.value+"-"+document.forms(0).lcMonth.value+"-"+document.forms(0).lcDay.value
  		document.forms(0).plantime.value=document.forms(0).eYear.value+"-"+document.forms(0).eMonth.value+"-"+document.forms(0).eDay.value
  		document.forms(0).SaveFlag.value="1"
  		document.forms(0).Submit
  	end if	
End Sub

'选择客户的代码
Sub choicecustomer() 
	dim lcSaveField
	dim lcReturnField
	dim lcurl
	
	document.forms(0).LinkMan.value=""
	document.forms(0).TelePhone.value=""