📄 -+-
字号:
<%
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>
<style type="text/css">
td {font-family: "宋体"; font-size: 10pt;}
body {font-family: "宋体"; font-size: 10.5pt;}
select {font-family: "宋体"; font-size: 9pt; }
a{font-style:normal;text-decoration:none;font-color:#0000FF}
a:hover {font-weight:bolder;text-decoration:none;font-color:#FF0000}
a:active {font-style:italic;font-weight:bolder;text-decoration:none;font-color:#ff0000}
</style>
</head>
<body background="Bkg35.jpg">
<p align="left"><font size="6" color="#ff0000">图书目录查询
<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><br><IMG alt="Stripe1.gif (4224 字节)" height=2 src ="../images/Stripe1.gif" width=705 >
<OBJECT classid=clsid:00028CD1-0000-0000-0000-000000000046
CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
dataSrc=#rds1 height=330 id=Grid1
style="HEIGHT: 330px; LEFT: 0px; TOP: 0px; WIDTH: 705px" width=705
VIEWASTEXT></OBJECT>
<div align="left">
<table border="0" cellpadding="3" cellspacing="1">
<tr>
<td>起止分类编号：<input id="start_bh" name="start_bh"
style="FONT-FAMILY: 宋体; FONT-SIZE: 15px; HEIGHT: 21px; LEFT: 18px; TOP: 18px; WIDTH: 90px"
size="10"
> 终止分类编号：<input id="end_bh" name="end_bh"
style="FONT-FAMILY: 宋体; FONT-SIZE: 15px; HEIGHT: 21px; WIDTH: 92px" size="10">
<input id="ss" name="find" type="button" value="查询数据" onclick="find_click()"
style="FONT-FAMILY: 宋体; FONT-SIZE: 15px HEIGHT: 21px; WIDTH: 80px"><input type="button" value="生成EXECEL报表" onclick="excel_click()" name="report"
style="FONT-FAMILY: 宋体; FONT-SIZE: 15px HEIGHT: 21px; WIDTH: 110px"><input name="return" type="button" value="退 出" onclick="returning()"
style="FONT-FAMILY: 宋体; FONT-SIZE: 15px HEIGHT: 21px; WIDTH: 80px">
</td>
</tr>
</table>
</div>
<script language="vbscript">
public text11
' RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
' Rds1.Connect = "database=school;uid=sa;pwd=;dsn=school"
' rds1.SQL="select * from student go select * from tjsz go "
' rds1.Refresh
sub find_click()
RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
Rds1.Connect = "database=school;uid=sa;pwd=;dsn=school"
if (len(trim(start_bh.value))=0 AND len(trim(end_bh.value))=0) or (trim(start_bh.value)="" and trim(end_bh.value)="") _
or (len(trim(start_bh.value))=0 and len(trim(end_bh.value))<> 0) or (trim(start_bh.value)="" and trim(end_bh.value)<>"") then
msgbox "分类编号输入不能为空!请输入.",,"提示窗口"
EXIT SUB
END IF
IF (len(trim(start_bh.value))>0 AND len(trim(end_bh.value))>0) or (trim(start_bh.value)<>"" and trim(end_bh.value)<>"") THEN
Rds1.SQL ="Execute p_tsml_print " +"'"+trim(start_bh.value)+"'," +"'"+trim(end_bh.value)+"',"+"'"+TRIM(<%=session("lbbh")%>)+"'"
ELSE
end_bh.value="0"
Rds1.SQL ="Execute p_tsml_print " +"'"+trim(start_bh.value)+"'," +"'"+trim(end_bh.value)+"',"+"'"+TRIM(<%=session("lbbh")%>)+"'"
END IF
rds1.ExecuteOptions = 1
Rds1.Refresh
end sub
sub b2_click()
' rds1.Recordset.movelast
'<PARAM NAME="ExecuteOptions" VALUE="2">
' <PARAM NAME="FetchOptions" VALUE="3">
'<PARAM NAME="SortDirection" VALUE="-1">
'<PARAM NAME="InternetTimeout" VALUE="300000">
end sub
Sub Excel_Click()
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
'Open("c:\temp\tjh.xls")
Set xlSheet = xlBook.Worksheets(1)
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 4) = "图书目录表"
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 returning()
history.go(-1)
end sub
</script>
<p align="right"><img src="../images/xkrj.gif">
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -