📄 adovbs.asp

📁 星级酒店管理系统（附带系统自写控件源码）
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
  Next    
  
  GetFileName=sTmp
  
End Function

'***************  打开数据库
 Sub OpenDatabase (connection)
     Set connection = Server.CreateObject("ADODB.Connection")
         on error resume next
         connection.open Constring
         SetSess "dbc", connection
 End Sub
'*************** 关闭数据库
 Sub CloseDatabase (connection)
     on error resume next
     connection.close
     set connection=nothing
 End sub

'打开表
Sub OpenRecordSet (mysql, rstemp)

    Set rstemp = Server.CreateObject("ADODB.RecordSet")
        rstemp.Open MYSQL,dbc,adOpenKeyset,adLockReadOnly, adCmdText
     
End sub

'设置全局
Sub SetSess (field, value)
    Session(field)=value
End sub

'设置全局值A
Sub SetSessA (field, value)
    Session(field)=value
End sub

'给出全局值
Function GetSess (field)
    Dim value
    value=Session(field)
   Getsess=value
End Function

'给出全局值A
Function GetSessA (field)
   Dim Value
   value=Session(field)
   GetsessA=value
End Function

Sub GenerateSelectV (iFieldnames,ifieldvalues,currentvalue,selectname,count, firstfield) 
    Dim i 
     %> 
    <select size=1 name="<%=selectname%>"> 
    <% 
    If firstfield<>"" then 
       response.write "<option>" & firstfield & "</option>" 
    End if 
    for i = 0 to count-1 
       If currentvalue= ifieldvalues(i) then 
          response.write "<option value=" & ifieldvalues(i) & " selected>" &  iFieldnames(i) & "</option>" 
       else 
          response.write "<option value=" & ifieldvalues(i) & ">" &  ifieldnames(i) & "</option>" 
       end if 
    next 
    %> 
  </select> 
<% 
End sub 

Private Function SecretPWD(tmpPWD) 

   On error resume next   
   Dim shiftStr,shiftStrR,shiftNum,ili,SureStr
       shiftStr = Trim(tmpPWD)
       shiftNum = Len(shiftStr)
      ili = 1
      SureStr = ""
        For ili = 1 To shiftNum
            shiftStrR = Mid(shiftStr, ili, 1)
            shiftStrR = Asc(shiftStrR)
            shiftStrR = shiftStrR - 3
            shiftStrR = Chr(shiftStrR)
            SureStr = SureStr & shiftStrR
        Next
    SecretPWD = SureStr    
End Function
 
Sub GenerateSelectNV (iFieldnames,currentvalue,selectname, count,firstfield) 
    Dim i 
    %> 
    <select size=1 name="<%=selectname%>"> 
     <% 
    If firstfield<>"" then 
       response.write "<option>" & firstfield & "</option>" 
    end if 
    for i = 0 to count-1 
       If currentvalue= ifieldnames(i) then 
           response.write "<option Selected>" & ifieldnames(i) & "</option>" 
       else 
           response.write "<option>" & ifieldnames(i) & "</option>" 
       end if 
    next 
    %> 
    </select> 
    <% 
End sub 
 
Sub GenerateSelectMULT (iFieldnames,fieldcount,currentvalues,currentvaluecount, selectname,firstfield) 
   %> 
   <select MULTIPLE size=5 name="<%=selectname%>"> 
   <% 
     Dim Currentvalue 
     Dim j 
     Dim found 
     Currentvalue="" 
     If firstfield<>"" then 
         response.write "<option>" & firstfield & "</option>" 
     end if    
     for i = 0 to fieldcount-1 
         If currentvaluecount> 0 then 
            Found="FALSE" 
            j=0 
            Do WHILE found="FALSE" and j < currentvaluecount 
               if iFieldnames(i)= Currentvalues(j) then 
                  currentvalue=ifieldnames(i) 
                  found="TRUE" 
               end if 
               j=j+1  
            Loop 
         end if 
         If currentvalue= ifieldnames(i) then 
             response.write "<option Selected>" & ifieldnames(i) & "</option>" 
           else 
             response.write "<option>" & ifieldnames(i) & "</option>" 
         end if 
     next 
     %> 
     </select> 
   <% 
End sub 

'检查使用者的权限,进入内容的ID是否允许
'权限说明：参考Author.txt文件
 Sub CheckAuthor(tmpID) 
   
   Select Case tmpID
    Case 1 
      If Getsess("Author01")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If   
    Case 2
      If Getsess("Author02")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 3
      If Getsess("Author03")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If   
    Case 4
      If Getsess("Author04")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 5
      If Getsess("Author05")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 6
      If Getsess("Author06")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 7
      If Getsess("Author07")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 8
      If Getsess("Author08")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 9
      If Getsess("Author09")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 10
      If Getsess("Author10")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 11
      If Getsess("Author11")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 12
      If Getsess("Author12")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If       
    Case 13
      If Getsess("Author13")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If           
    Case 14
      If Getsess("Author14")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If           
    Case 15
      If Getsess("Author15")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If           
    Case 16
      If Getsess("Author16")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If           
    Case 17
      If Getsess("Author17")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If           
    Case 18
      If Getsess("Author18")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If           
    Case 19
      If Getsess("Author19")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If           
    Case 20      
      If Getsess("Author20")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 21      
      If Getsess("Author21")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 22      
      If Getsess("Author22")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 23      
      If Getsess("Author23")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 24      
      If Getsess("Author24")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 25
      If Getsess("Author25")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 26      
      If Getsess("Author26")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 27      
      If Getsess("Author27")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 28      
      If Getsess("Author28")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 29
      If Getsess("Author29")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If      
    Case 30      
      If Getsess("Author30")=0 Then
         Setsess "Error","权限不允许您进行此项操作。"
         Response.redirect "/displayerror.asp?"
      End If            
   End Select    
 End Sub
%>
上一页 12
⌨️ 快捷键说明

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