mssql脱裤脚本 --支持千万级别

<%Server.ScriptTimeOut=12000%>
<style type="text/css">
<!–
.STYLE1 {
color: #333333;
font-weight: bold;
}
–>

</style>
<div align="center"><span>mssql导库脚本工具
<script language=javascript>
</script>
</span>
<strong>
<script language=javascript></script>
</strong>
<script language=javascript>function checkform()
{
if(form1.filename.value=="")
{
alert("文件名不能为空");
history.goback(-1);
}
}
</script>

</div>
<form method=post id=form1>
<div align="center">
<blockquote>
<blockquote> ServerIP:   
<input type=text size=20 name=server>
<br>
数据库:     
<input type=text size=20 name=dbname>
<br>
用户名:     
<input type=text size=20 name=sqluser>
<br>
密码:       
<input type=text size=20 name=sqlpass>
<br>
表名:       
<input type=text size=20 name=tablename>
<br>
保存文件名: 
<input type=text size=20 name=filename>
</blockquote>
</blockquote>
<input type=submit value=提交 οnclick=checkform();>
</div>
</form>
<div align="center">
<%
'on error resume next        '错误提示开启
If request("filename")<>"" then
serverip=request("server")
dbname=request("dbname")
sqluser=request("sqluser")
sqlpass=request("sqlpass")
tablename=request("tablename")
SET conn= Server.CreateObject("ADODB.Connection")
conn.open "Provider=SQLOLEDB;Server=" & serverip & ";Database=" & dbname & ";UID=" & sqluser & ";PWD=" & sqlpass        '数据导出工具
sql="select * from [" & tablename & "]"        'SQL语句
set rs=conn.Execute(sql)

set fso=server.CreateObject("Scripting.FileSystemObject")
set file=fso.createtextfile(server.mappath(request("filename")),8,true)

for i=0 to rs.Fields.Count-1
file.write rs(i).name & "###"
next
file.write chr(13) + chr(10)

while not rs.eof
for b=0 to rs.Fields.Count-1
file.write rs(b) & "###"
next
file.write chr(13) + chr(10)
rs.movenext
wend

file.close
set file=nothing
set fso=nothing
conn.Close
End if
%>

</div>