MSSQL脱裤ASP脚本

功能：

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

示例：

ID,UserName,PassWord

10,zhangsan,123

11,lisi,123

说明：

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

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

界面：

代码：

mssql导库脚本工具









 ServerIP:   



数据库:     



用户名:     



密码:       



表名:       



保存文件名: 







<%
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
wendfile.close
set file=nothing
set fso=nothing
conn.Close
End if
%>

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！