c_salepromotion.asp

一个很好的在线购物系统

	 if document.forms(0).assorts.Value="" then
	 document.forms(0).assorts.Value="0"
	 end if
	 if document.forms(0).guests.Value="" then
	 document.forms(0).guests.Value="0"
	 end if
	 if document.forms(0).consumes.Value="" then
	 document.forms(0).consumes.Value="0"
	 end if
	 document.forms(0).SalesName.Value="<%=SalesName%>"	  
	 '设置其他的数据
	 if mode="NewMode" then
	 	 document.forms(0).Sales.value="<%=Session("UserID")%>"
	 	 document.forms(0).SalesName.value="<%=Session("StuffName")%>" 
	 	 
	 	 document.forms(0).PYear.value=cstr(year(now))
	 	 if Month(now)<10 then 
	 	 	pm="0"+cstr(Month(now))
	 	 else
	 	 	pm=cstr(Month(now))
	 	 end if
	 	 document.forms(0).pMonth.value=pm
	 	 
	 	 if day(now)<10 then
	 	 	pd="0"+cstr(Day(now))
	 	 else
	 	 	pd=cstr(day(now))
	 	 end if
	 	 document.forms(0).Pday.value=pd
	 end if
	
     '调整其他模式下其他数据的显示
     if Mode="ScanMode" then
     	<% for i=1 to FieldCount %>
	 		document.forms(0).<%=Afield(i-1)%>.Disabled="True"
	 	<% Next %>
	 end if	
End Sub
  
'保存数据的函数处理
Sub SaveData() 
  	dim lctopic											'促销主题 	  
  	lctopic=document.forms(0).topic.value
  	lnerror=1
  	if lctopic="" then
  		msgbox "促销主题不能为空！",48,"错误信息"
  		lnerror=0
    end if
    
    lcYear=document.forms(0).pYear.value
    if lcYear="" then
    	msgbox "时间不能为空！",48,"错误信息"
  		lnerror=0
  	else
  		if len(lcYear)<>4 then
  			msgbox "时间长度必须为四位！",48,"错误信息"
  			lnerror=0
  		end if
    end if
    	    
    if lnerror=1 then								'保存数据到数据库	
    	document.forms(0).saveflag.value="1"
  		document.forms(0).Mode.value="<%=Mode%>"
  		document.forms(0).ID.value="<%=ID%>"
  		document.forms(0).submit
  	end if
 End Sub
</Script>
<!--#include file="../BaseInfo/PageData.Client"--> 
<!--#include file="../include/PubCode.asp"-->       
<script  language="vbscript">
	'控制键盘的输入
	sub PlanCost_onkeypress