fsoxls.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 78 行

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../../Connections/oavbsconn.asp" -->
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_oavbsconn_STRING
rs.Source = "SELECT *  FROM usertertggbng"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>

<table   width="700"   border="1"   align="center"   bordercolor="#CCCCCC">
    <tr>
        <td><div   align="center"><strong>姓名</strong></div></td>
        <td><div   align="center"><strong>帐号</strong></div></td>
        <td><div   align="center"><strong>设备字段</strong></div></td>
        <td><div   align="center"><strong>服务号</strong></div></td>
        <td><div   align="center"><strong>字段</strong></div></td>
        <td><div   align="center"><strong>字段</strong></div></td>
        <td><div   align="center"><strong>字段</strong></div></td>
        <td><div   align="center"><strong>字段</strong></div></td>
        <td><div   align="center"><strong>字段</strong></div></td>
        <td><div   align="center"><strong>字段</strong></div></td>
        <td><div   align="center"><strong>字段</strong></div></td>
        <td><div   align="center"><strong>字段</strong></div></td>
    </tr>
<%
do   while   not   rs.eof
%>
    <tr>
        <td>
        <div   align="left">&nbsp;<%=rs(0)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(1)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(2)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(3)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(4)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(5)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(6)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(7)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(8)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(9)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(10)%></div></td>
        <td>
        <div   align="left">&nbsp;<%=rs(11)%></div></td>
    </tr>
<%
rs.movenext
loop
'end   if

rs.Close
set   rs   =   nothing
'conn.close
'set   conn   =   nothing
Response.ContentType   =   "application/vnd.ms-excel"
Response.AddHeader   "content-disposition",   "inline;   filename=temp.xls"%>
</table>

</body>

</html>