MSSQL脱裤ASP脚本

功能：

将单个表的数据以文本形式，写到当前脚本所在目录下，并以指定分隔符分隔。(不包含表结构)

示例：

ID,UserName,PassWord

10,zhangsan,123

11,lisi,123

说明：

1. 功能单一，###为分隔符，改为`便于导入数据库

2. 当数据量比较大的时候，适当修改此处的值Server.ScriptTimeout=999999

---

界面：

---

代码：

<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:&nbsp;&nbsp;&nbsp;
<input type=text size=20 name=server>
<br>
数据库:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=text size=20 name=dbname>
<br>
用户名:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=text size=20 name=sqluser>
<br>
密码:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=text size=20 name=sqlpass>
<br>
表名:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=text size=20 name=tablename>
<br>
保存文件名:&nbsp;
<input type=text size=20 name=filename>
</blockquote>
</blockquote>
<input type=submit value=提交 onclick=checkform();>
</div>
</form>
<div align="center">
<%
Server.ScriptTimeout=999999
'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>