📄 e_installsubfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
  	 document.forms(0).ProdCode.value="<%=ProdCode%>"
	 document.forms(0).ProdName.value="<%=ProdName%>"
  	   	 	 
	 '调整时间字段的价值
	 <% if SourcePage<>"" then %>
	 		document.forms(0).aYear.value="<%=Request("aYear")%>"
	 		document.forms(0).aMonth.value="<%=Request("aMonth")%>"
	 		document.forms(0).aDay.value="<%=Request("aDay")%>"
	 		document.forms(0).gYear.value="<%=Request("gYear")%>"
	 		document.forms(0).gMonth.value="<%=Request("gMonth")%>"
	 		document.forms(0).gDay.value="<%=Request("gDay")%>"
	 <% else %>
	 		if Mode<>"NewMode" then
	 			document.forms(0).aYear.value="<%=mid(keyitem(3),1,4)%>"
	 			document.forms(0).aMonth.value="<%=mid(keyitem(3),6,2)%>"
	 			document.forms(0).aDay.value="<%=mid(keyitem(3),9,2)%>"
	 			document.forms(0).gYear.value="<%=mid(keyitem(4),1,4)%>"
	 			document.forms(0).gMonth.value="<%=mid(keyitem(4),6,2)%>"
	 			document.forms(0).gDay.value="<%=mid(keyitem(4),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).aYear.value=todayyear
	 			document.forms(0).gYear.value=todayyear
	 			document.forms(0).aMonth.value=todaymonth
	 			document.forms(0).gMonth.value=todaymonth
	 			document.forms(0).aDay.value=todayday
	 			document.forms(0).gDay.value=todayday
	 		end if
	 <% end if %>
		 
	 '设置隐藏字段的值
  	 document.forms(0).ID.value="<%=Id%>"
  	 document.forms(0).Mode.value="<%=Mode%>"
  	 document.forms(0).formID.value="E_InstallSubFrm.asp" 
End Sub
  
'保存数据的函数处理
Sub SaveData() 
  	'单据编号为空，则不能保存
  	BillId=document.forms(0).BillID.value
  	if BillID="" then
  		msgbox "请选择一个客户服务通知单！",48,"错误信息"
  	else
  		'开始保存数据
  		document.forms(0).Arrivetime.Value=document.forms(0).aYear.value+"-"+document.forms(0).aMonth.value+"-"+document.forms(0).aDay.value
  		document.forms(0).GiveTime.value=document.forms(0).gYear.value+"-"+document.forms(0).gMonth.value+"-"+document.forms(0).gDay.value
  		document.forms(0).SaveFlag.value="1"
  		document.forms(0).Submit
  	end if	
End Sub

'选择客户服务通知单
Sub choicebillid() 
	dim lcSaveField
	dim lcReturnField
	dim lcurl
	
	'表示需要返回的字段数值
	lcReturnField="BillID"
	lcurl="lcReturnField="+lcReturnField
	
	'表示需要保存的字段数值
	lcSaveField="formID,ID,Mode,MakePerson,GivePerson,GiveAddress,crystalID,ClientSupplyPower,aYear,aMonth,aDay,gYear,gMonth,gDay,"	
	lcSaveField=lcSaveField+"CondtionStatus,OpenLevel,OpenCause,AfterEquitStatus,ProduceOperate,ExerciseSatus,Summary,Opinion"	
	lcurl=lcurl+"&"+"lcSaveField="+lcSaveField
	lcSaveField=Split(lcSaveField,",")
	
	for i=0 to Ubound(lcSaveField)
		lcurl=lcurl+"&"+lcSaveField(i)+"="+document.forms(0)(lcSaveField(i)).value
	next
	window.open "E_ChoiceServerBill.asp?"+lcURL,"选择客户服务通知单","menubar=no,status=no,width=600,height=380,scrollbars=no"
end Sub  

Sub Error2()
	Alert("抱歉，客户验收报告单还没有建立！")
End Sub

</Script>
<!--#include file="../BaseInfo/PageData.Client"-->        

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>安装调试报告详细页面</title>
<link href="../cread.css" rel="stylesheet" type="text/css">
⌨️ 快捷键说明

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