orderform_lib.asp

java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.

<!--#include virtual="/_lib/_lib.asp" -->
<!--#include virtual="/_config/config.asp" -->
<%
'*****************************************************************************
'*	Functionary：功能函数库；存储OrderForm 模快库函数
'*****************************************************************************

'--List order for Order sys administrator;created by deng_jian on 2002-9-5--
  Function OrderPowerGrade(Uid,sOrder_level,byref oConn)
   Dim Sql,RS
  sql="select Op_grade_id from order_level_view where Usr_id="&Uid
  'response.write sql
  Set RS=oConn.Execute(Sql)
  If Not RS.eof and Not RS.bof Then
     OrderPowerGrade=RS(0)
	 if isnull(OrderPowerGrade) then
	   OrderPowerGrade=1
	 end if
  else
	 DB_DisConnect()
     response.redirect("/admin/orderForm/index.asp")
	 response.end	 
  end If
     DB_RSConnect(RS)
  End Function


  '--List order for Order sys administrator;created by deng_jian on 2002-9-5--
  Function OrderPowerGradeUse(Uid,byref oConn)
   Dim Sql,RS
   if IDValidUser(Session("admid"),sAdmin_Level, oConn) then
      OrderPowerGradeUse=true
   elseif IDValidUser(Session("admid"),sOrder_Level, oConn) then  
     sql="select count(*) from abor where usr_id="&Uid
     Set RS=oConn.Execute(Sql)
     if rs(0)>0 then
      OrderPowerGradeUse=true
     else
       OrderPowerGradeUse=false
     end If
      DB_RSConnect(RS)
    else
      'OrderPowerGradeUse=false
   end if
  End Function

'--List order for Order sys administrator;created by deng_jian on 2002-9-5--
  Function OrderPowerGradeUse_grade(Uid,byref oConn)
   Dim Sql,RS
   if IDValidUser(Session("admid"),sAdmin_Level, oConn) then
      OrderPowerGradeUse_grade=true
   elseif IDValidUser(Session("admid"),sOrder_Level, oConn) then  
     sql="select count(*) from abor where usr_id="&Uid&" and op_id=1"
     Set RS=oConn.Execute(Sql)
     if rs(0)>0 then
      OrderPowerGradeUse_grade=true
     else
       OrderPowerGradeUse_grade=false
     end If
      DB_RSConnect(RS)
    else
      OrderPowerGradeUse_grade=false
   end if
  End Function
 '---list order powergrade 
 function order_powergrade_num(Uid,byref oConn)
  dim rs,adminid,oderid 
  if IDValidUser(Uid,sAdmin_Level, oConn)=true then
     order_powergrade_num=1
  elseif IDValidUser(Uid,sAdmin_Level, oConn)=false then
     set rs=oConn.Execute("select op_grade_id from order_level_view where  usr_id="&Uid)
   if not rs.eof and not rs.bof then
      if isnull(rs(0)) then
	    order_powergrade_num=0
	  else
	    order_powergrade_num=rs(0)
	  end if
    else
     order_powergrade_num=0
    end if
      rs.close
	 set rs=nothing
  end if
 end function
  %>