⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ttsjyproc.asp

📁 我的图书管理系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
      
   ELSE
 
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
       RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB
'===========================

SUB e1_CLICK()

   L_A="e"
   
   l_int=""
   
   L_INT=L_INT+L_A
if l_press=true then
 
 RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
 RDS2.ExecuteOptions = 1
 RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
      
   ELSE
 
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================

SUB f1_CLICK()

   L_A="f"
   
   l_int=""
   L_INT=L_INT+L_A
   
 if l_press=true then
  
   RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
     
   ELSE
   l_int=l_old
   
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================

SUB g1_CLICK()

   L_A="g"
   
   l_int=""
   
   l_old=l_int
   L_INT=L_INT+L_A

if l_press=true then
   
   RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
        
   ELSE
   
     l_int=l_old
       
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'==========================
SUB h1_CLICK()

   L_A="h"
   
   l_int=""
   
   L_INT=L_INT+L_A
   
 if l_press=true then     
 
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================
SUB i1_CLICK()

   L_A="i"
   
   l_int=""
   
   L_INT=L_INT+L_A
   
if l_press=true then
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================

SUB j1_CLICK()

   L_A="j"
   
   l_int=""
   
   L_INT=L_INT+L_A
   
 if l_press=true then
       
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================


SUB k1_CLICK()

   L_A="k"
   
   l_int=""
   
   L_INT=L_INT+L_A
 if l_press=true then
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
   IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================
SUB l1_CLICK()

   L_A="l"
   
   l_int=""
   
   L_INT=L_INT+L_A
   
 if l_press=true then     
 
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
   IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================

SUB m1_CLICK()

   L_A="m"
   
   l_int=""
   
   L_INT=L_INT+L_A
if l_press=true then
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================

SUB n1_CLICK()

   L_A="n"
   
   l_int=""
   
   L_INT=L_INT+L_A
if l_press=true then
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================
SUB o1_CLICK()

   L_A="o"
   
   l_int=""
   
   L_INT=L_INT+L_A
if l_press=true then
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
   
  IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
     RDS1.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&l_int&"'+'%'"
     RDS1.ExecuteOptions = 1
     RDS1.Refresh
         
   ELSE
          
  END IF
else

   RDS2.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
   RDS2.ExecuteOptions = 1
   RDS2.Refresh
   
    IF RDS2.Recordset.RECORDCOUNT>0 THEN
     
      RDS1.SQL="select 索书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+LTRIM(RTRIM(次序号)),书名=书名,作者,库存数量 from ttsml where 分类编号  LIKE '"&l_int&"'+'%'"
      RDS1.ExecuteOptions = 1
      RDS1.Refresh
    
        
    ELSE
   
         
   END IF


end if

END SUB

'=========================
SUB p1_CLICK()

   L_A="p"
   
   l_int=""
   
   L_INT=L_INT+L_A
   
if l_press=true then   
      
    RDS2.SQL="SELECT 类别=分类编号,类别名称=分类名称 FROM TFL WHERE 分类编号 LIKE '"&L_INT&"'+'%'"
    RDS2.ExecuteOptions = 1
    RDS2.Refresh
12345

⌨️ 快捷键说明

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