asp版mssql导库脚本工具

<!--

.STYLE1 {

color: #333333;

font-weight: bold;

}

-->

</style>

<div align="center"><span class="STYLE1">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=提交 onclick=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>