MSSQL语句执行工具

<% Dim Sql_serverip,Sql_linkport,Sql_username,Sql_password,Sql_database,Sql_content Sql_serverip=Trim(Request("Sql_serverip")) Sql_linkport=Trim(Request("Sql_linkport")) Sql_username=Trim(Request("Sql_username")) Sql_password=Trim(Request("Sql_password")) Sql_database=Trim(Request("Sql_database")) Sql_content =Trim(Request("Sql_content")) If Sql_linkport="" Then Sql_linkport="1433" If Sql_serverip<>"" and Sql_linkport<>"" and Sql_username<>"" and Sql_password<>"" and Sql_content<>"" Then Response.Write "

执行结果如下：

" Dim SQL,conn,linkStr SQL=Sql_content set conn=Server.createobject("adodb.connection") If Len(Sql_database)=0 Then linkStr="driver={SQL Server};Server=" & Sql_serverip & "," & Sql_linkport & ";uid=" & Sql_username & ";pwd=" & Sql_password Else linkStr="driver={SQL Server};Server=" & Sql_serverip & "," & Sql_linkport & ";uid=" & Sql_username & ";pwd=" & Sql_password & ";database=" & Sql_database End If conn.open linkStr ' "Driver={SQL Server};SERVER=IP,端口号;UID=sa;PWD=xxxx;DATABASE=DB" conn.execute SQL on error resume next if err<>0 then response.write "错误："&err.Descripting else response.write Replace(SQL,vbcrlf,"
") & "

成功！" end if Response.End End If If Request("do")<>"" Then Response.Write "请填写数据库连接参数" Response.End End If %> MSSQL语句执行工具