global.asa

一个很好的在线购物系统

<Script Language=VBScript  RUNAT=Server>

 Sub Application_OnStart
   Application("khjb")="0" '客户级别设定
    
 
   Application("syspath")="" 
   'Application("total")=0
 End Sub
 
 Sub Application_onEnd
    Application("syspath")=""
    Application("bkcolor")="#CCCDFF" '页面的背景颜色
    
  '  Set fs = Server.CreateObject("Scripting.FileSystemObject")
  '  counter_file = Server.MapPath("people.txt")
   ' Set txt = fs.CreateTextFile( counter_file, True )
  '  txt.WriteLine(Application("counter"))
  '  txt.Close
  '  set fs=nothing
     End Sub

 Sub Session_onStart
 if isempty(Application("total")) then
 Application("total")=0
 end if
 
 Application.Lock
 session("cnt")=Application("total")
 Application.UnLock 

   'UserName:用户名
   'UserID：对应的员工编号
   'DepartID:员工所在的部门	
   'StuffName：员工姓名
   'Condition：查询条件
   'OrderBy： 排序条件
   'admin:    系统管理员

   Session("Username")="" 
   Session("UserID")=""
   Session("StuffName")=""	
   Session("DepartID")=""		
   Session("Condition")=""
   Session("Orderby")=""
   Session("admin")=""
    End Sub

 Sub Session_OnEnd
	
	
	Session("username")=""
 End sub
</Script>