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

📄 o_excel.asp

📁 家庭理财系统方便您与家人管理财产
💻 ASP
字号:
🔍 
<!--#include file="Inc/const.asp"-->
<!--#include file="cookies.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equtv="Content-Type" content="text/html; charset=gb2312" />
</head>
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=IO2_"&date()&".xls"
dim mysql,mytype
mysql=Request.QueryString("mysql")
mytype=Request.QueryString("mytype")
    If mysql="" then
	Response.Write("导出数据时，SQL出错。")
	Response.End
    End If
    If mytype="" then
	Response.Write("导出数据时，方式出错。")
	Response.End
    End If
    set rs=db(mysql,2)
If mytype="i" then
    if Not rs.eof then
    Response.Write "<table border=""1"" bordercolor=""#999999"" style=""border-collapse: collapse"">"
    Response.Write "<tr> " & vbCrlf
    Response.Write "  <td colspan=""14"">HomeIO2.0收入列表</td></tr>" & vbCrlf
    Response.Write "<tr bgcolor=""#f1f3f5"">" & vbCrlf
    Response.Write "    <td align=""center"">成员名称</td>" & vbCrlf
    Response.Write "	<td align=""center"">记录时间</td>" & vbCrlf
    Response.Write "	<td align=""center"">岗位工资</td>" & vbCrlf
    Response.Write "	<td align=""center"">工龄工资</td>" & vbCrlf
    Response.Write "	<td align=""center"">养老保险</td>" & vbCrlf
    Response.Write "	<td align=""center"">医疗保险</td>" & vbCrlf
    Response.Write "	<td align=""center"">住房公积金</td>" & vbCrlf
    Response.Write "	<td align=""center"">失业保险</td>" & vbCrlf
    Response.Write "	<td align=""center"">年金</td>" & vbCrlf
    Response.Write "	<td align=""center"">个人所得税</td>" & vbCrlf
    Response.Write "	<td align=""center"">奖金/加班</td>" & vbCrlf
    Response.Write "	<td align=""center"">其他收入</td>" & vbCrlf
    Response.Write "	<td align=""center"">实得收入</td>" & vbCrlf
    Response.Write "	<td align=""center"">备注</td>" & vbCrlf
    Response.Write "</tr>" & vbCrlf
    do while not rs.eof
    Response.Write "<tr> " & vbCrlf
    Response.Write "<td height=""30"">"&rs("i_name")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_date")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_gwgz")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_gngz")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_ylbx1")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_ylbx2")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_zfgjj")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_sybx")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_nj")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_sds")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_jj")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_qt")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_sd")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("i_bz")&"</td>" & vbCrlf
    Response.Write "</tr>" & vbCrlf
    rs.movenext
    Loop
    Response.Write "</table>" & vbCrlf
    else
    Response.Write "没有找到相关记录" & vbCrlf
    end If
elseif mytype="o" then
    if Not rs.eof then
    Response.Write "<table border=""1"" bordercolor=""#999999"" style=""border-collapse: collapse"">"
    Response.Write "<tr> " & vbCrlf
    Response.Write "  <td colspan=""12"">HomeIO2.0支出列表</td></tr>" & vbCrlf
    Response.Write "    <tr bgcolor=""#f1f3f5"">" & vbCrlf
    Response.Write "        <td align=""center"">成员名称</td>" & vbCrlf
    Response.Write "	<td align=""center"">记录时间</td>" & vbCrlf
    Response.Write "	<td align=""center"">衣/鞋/帽</td>" & vbCrlf
    Response.Write "	<td align=""center"">主副食品</td>" & vbCrlf
    Response.Write "	<td align=""center"">房租房贷</td>" & vbCrlf
    Response.Write "	<td align=""center"">路费旅游</td>" & vbCrlf
    Response.Write "	<td align=""center"">水电话网</td>" & vbCrlf
    Response.Write "	<td align=""center"">车贷商贷</td>" & vbCrlf
    Response.Write "	<td align=""center"">日用化妆</td>" & vbCrlf
    Response.Write "	<td align=""center"">其他支出</td>" & vbCrlf
    Response.Write "	<td align=""center"">本次小计</td>" & vbCrlf
    Response.Write "	<td align=""center"">备注</td>" & vbCrlf
    Response.Write "    </tr>" & vbCrlf
    do while not rs.eof
    Response.Write "<tr> " & vbCrlf
    Response.Write "<td height=""30"">"&rs("o_name")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_date")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_s")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_y")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_z")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_x")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_sdhw")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_dk")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_ry")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_qt")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_sj")&"</td>" & vbCrlf
    Response.Write "    <td align=""center"">"&rs("o_bz")&"</td>" & vbCrlf
    Response.Write "</tr>" & vbCrlf
    rs.movenext
    Loop
    Response.Write "</table>" & vbCrlf
    else
    Response.Write "没有找到相关记录" & vbCrlf
    end If
end if
    rs.close
    set rs=Nothing
%>

⌨️ 快捷键说明

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