📄 -Ԣ

📁 我的图书管理系统
💻
字号:

<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>外借图书目录报表 欢迎使用欣科软件</title>
</head>

<body background="Bkg35.jpg">

<p><font size="6" color="#0000ff">外借图书目录表<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=14 id=rds1 
width=14>
	<PARAM NAME="ExecuteOptions" VALUE="2">
	<PARAM NAME="FetchOptions" VALUE="3">
	<PARAM NAME="SortDirection" VALUE="-1">
	<PARAM NAME="InternetTimeout" VALUE="500000">
</OBJECT></font>
<hr color="#0000ff">

<div align="left">

<table border="0" cellpadding="3" cellspacing="1">
  <tr>
    <td><img src="soft.gif" width="36" height="21">&nbsp;<input type="button" value="生成EXECEL报表"
    onclick="excel_click()" name="report">&nbsp;<input type="button" value="返    回" onclick="backing()"
        style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px; HEIGHT: 24px; WIDTH: 60px"
         name=button1> 
            </td>
  </tr>
</table>
<OBJECT classid=clsid:00028CD1-0000-0000-0000-000000000046 
 CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
 dataSrc=#rds1 height=319 id=msGrid 
style="HEIGHT: 319px; LEFT: 0px; TOP: 0px; WIDTH: 748px" width=748 
VIEWASTEXT></OBJECT></div>

</body>
</div>
<script language="vbscript">
 
   
      RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"

      RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
    

      RDS1.SQL ="EXECUTE P_TS_JSDJ" +"'"+TRIM(<%=session("lbbh")%>)+"'"
    
      rds1.ExecuteOptions = 1
     

      RDS1.Refresh
    
 
   
   
    Sub Excel_Click()
       
    
         
   Set xlApp = CreateObject("Excel.Application") 
 
   xlApp.Visible = True 
 
   Set xlBook =xlApp.Workbooks.Add
   'On Error Resume Next 
 
   Set xlBook = xlApp.Workbooks.Add
 
   'Open("c:\temp\tjh.xls")
 
   Set xlSheet = xlBook.Worksheets(1)
 
  
   Set xlSheet = xlBook.Worksheets(1) 

     xlSheet.Cells(3, 3) = "外借图书目录表"

   for k=0 to rds1.Recordset.fields.count-1 
   
     xlsheet.cells(4,k+1)=rds1.Recordset.fields(k).name
     
    next 
   

    rds1.Recordset.movefirst
    
     while not rds1.Recordset.eof


     For j = 0 To  rds1.Recordset.fields.count-1 

  

      If isnull(rds1.Recordset.fields(j))=false  then   ' or trim(rds1.Recordset.fields(j))<>"" then
    
      
         if IsNumeric(rds1.Recordset.fields(j)) = true  Then
    
         '  msgbox "tt1"
         '  msgbox rds1.Recordset.fields(j)
    
            xlSheet.Cells(i + 5, j + 1) = trim(cstr(rds1.Recordset.fields(j)))
               
         else        

        '   msgbox "tt2"
        '   msgbox rds1.Recordset.fields(j)
          
      
          xlSheet.Cells(i + 5, j + 1) = trim(cstr(rds1.Recordset.fields(j)))

       End If
 
    
    
    end if   

    Next
   
    i=i+1
    rds1.Recordset.movenext
    
 wend 

end sub 

sub backing()
   history.go(-1)
end sub   	
</script>


</html>
⌨️ 快捷键说明

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