scoreoutput.asp

工资管理系统功能齐全包括工人工资信息查询.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
dim action,book
action=trim(request.querystring("action"))
book=trim(request.form("book"))
strSheetName = Request("SheetName")
strSubjects = strSheetName & "." & Replace(Request("chkbox"),", ",", " & strSheetName & ".")
strStudentNum= Request("StudentNum")
strName=Request("Name")
strClass=Request("ClassID")
strSQL = "Select " & strSheetName & ".StudentNum,StudentInfo.ClassName, StudentInfo.Name, " & strSubjects & " From " & strSheetName
strSQL = strSQL & " LEFT JOIN StudentInfo ON " & strSheetName & ".StudentNum = StudentInfo.StudentNum"
if (strStudentNum <> "") then
  strSQL = strSQL & " Where " & strSheetName & ".StudentNum Like '%" & strStudentNum & "%'"
elseif (strName<>"") then
  strSQL = strSQL & " Where StudentInfo.Name Like '%" & strName & "%'"
else  
  if strClass="All" then strClass=""
  strSQL = strSQL & " Where StudentInfo.ClassName Like '%" & strClass & "%'"
end if
strSQL = strSQL & " ORDER BY " & strSheetName & ".StudentNum"
select case action
case "daochu":call accesstoexcel(book)
end select
function accesstoexcel(bookname)
    Dim sSourceXLS
    Dim sDestXLS
    sSourceXLS = Server.MapPath(".") & "\" & book
    sDestXLS = Server.MapPath(".") & "\" & bookname
    Dim fso
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    fso.GetFile(sSourceXLS).Copy sDestXLS
    Set fso = Nothing
    Dim oConn
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & sDestXLS & ";" & _
               "Extended Properties=""Excel 8.0;HDR=NO;"""
	Set oOrdersRS = Server.CreateObject("ADODB.Recordset")
	oOrdersRS.ActiveConnection = MM_StudentConn_STRING
	oOrdersRS.Source = strSQL
	oOrdersRS.CursorType = 0
	oOrdersRS.CursorLocation = 3
	oOrdersRS.LockType = 3
'	Response.Write strSQL
'	Response.End()
	oOrdersRS.Open
    Dim oRS 
    Set oRS = Server.CreateObject("ADODB.Recordset")
	SQL="Select * from ["&strSheetName&"$]"
    oRS.Open SQL,oConn,3,3
    Do While Not (oOrdersRS.EOF)
        oRS.AddNew
'		set oRS.Fields(0).Name="编号"
'		oRS.Fields(0).Value=oOrdersRS.Fields(0).Value
        For i = 0 To oOrdersRs.Fields.Count-1
            oRS.Fields(i).Value = oOrdersRS.Fields(i).Value
        Next
        oRS.Update
        oOrdersRS.MoveNext
    Loop
    oOrdersRS.Close
    Set oOrdersRS = Nothing
    oConn.Close
    Set oConn = Nothing
	oRs.Close
	Set oRs=nothing
	down=bookname
	Response.write"<div align=center style='width:100%;height:40;background-color:#A5E0A5;'><font size='3'>数据导出成功！<br>请<a href='"&down&"'><font color='#0000ff'>点击下载Excel表</font></a>到本地查看或打印。</font></div>"
End function
%>
<script language="JavaScript">
function check()
{
  if (daochuf.book.value=="")
  {
   alert("请输入将要生成的Excel表文件名！");
  daochuf.book.focus();
  return false;
  }
  return true;
}
</script>
<form action="?action=daochu" method="post" name="daochuf" id="daochuf" onsubmit="return check();">
<div align="center">
  <table width="600" border="1" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#D5EBF4">
    <tr> 
      <td height="30" colspan="2" align="center">[<strong>把数据库中的信息导出到Excel表，<br>导出后下载回本地打印</strong>]</td>
    </tr>
    <tr> 
      <td height="30" width="200" align="center">Excel表文件名:</td>
      <td height="30"><input name="book" type="text" id="book" value="2007131.xls"> 如:考生录取信息.xls</td>
    </tr>
    <tr align="center"> 
      <td height="30" colspan="2">
	  <input type="hidden" name="sheetname" value="<%=Request("SheetName")%>" />
	  <input type="hidden" name="chkbox" value="<%=Request("chkbox")%>" />
	  <input type="hidden" name="strStudentNum" value="<%=Request("StudentNum")%>" />
	  <input type="hidden" name="Name" value="<%=Request("Name")%>" />
	  <input type="hidden" name="ClassID" value="<%=Request("ClassID")%>" />
	  <input type="submit" name="Submit" value="导出到Excel表">
	  <input type="button" name="back" value="返回" onclick="history.go(-1)">
	  </td>
    </tr>
  </table>
</div>
</form>