如何可以让用户自定义选择数据表，选择字段，然后导出成指定的格式Excel？现只要Copy以下两个文件存盘，稍作改动即可通用．
其中conn.asp连接数据库的文件自己写啦。
首先，把以下代码存盘为Data_Import1.asp
<!--#include file="include/conn.asp"-->
<%
TableN=Trim(Request("TableN"))
If TableN="" Then
TableN="TableNameA"
End If
'Response.Write Replace(Request.Form("TableIName"),","," ")
Set Rst=Server.CreateObject("Adodb.RecordSet")
Sqlt="Select * from " & TableN
Rst.Open Sqlt,conn,1,1
%>
<Script Language="JavaScript">
function SendParameter(tablevalue)
{
tvalue=tablevalue;
window.location.href="Data_Import.asp?TableN="+tvalue;
}
</Script>
<Script Language="JavaScript">
var check=0
function checkall() {
if(check==0){
for(var i=0;i<document.form1.TableIName.length;i++)
{
var e=document.form1.TableIName[i];
e.checked=true;
}
check=1;
document.form1.chk.alt="全否";
}else{
for(var i=0;i<document.form1.TableIName.length;i++)
{
var e=document.form1.TableIName[i];
e.checked=false;
}
check=0;
document.form1.chk.alt="全选";
}
}
</Script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>导出数据</title>
</head>
<body>
<form method="POST" name="form1" action="Data_Import2.asp">
<p><select size="1" name="TableName" onchange="SendParameter(this.value);">
<option>---请选择表---</option>
<option value="TableNameA" >表A</option>
<option value="TableNameB" >表B</option>
<option value="TableNameC" >表C</option>
<option value="TableNameD" >表D</option>
<option value="TableNameE" >表E</option>
</select></p>
<p>
</p>
<table border="0" width="100%" id="table1">
<tr>
<%
'将字段名称循环读出
Dim RowCount
RowCount=1
ColCount = Rst.Fields.Count
For intCount= 0 to ColCount-1
%>
<td>
<input type="checkbox" name="TableIName" value="<%=ucase(Rst.Fields(intCount).Name)%>"><%=ucase(Rst.Fields(intCount).Name)%>
上一篇:SQL注入利用的几大步骤
下一篇:防范SQL注入攻击的代码
精品推荐