VBS参数化提交数据

最新推荐文章于 2020-10-31 17:15:38 发布

原创

最新推荐文章于 2020-10-31 17:15:38 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

这篇博客探讨了如何利用Visual Basic Script (VBS)实现参数化数据的提交，通过VBS脚本动态地传递不同参数，以适应各种测试或自动化场景。

Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=SQLNCLI;Server=127.0.0.1;Database=XXX;Uid=sa;Pwd=sa;"
Admin = Trim(Request.Form("Admin"))
Pass = Md5(Trim(Request.Form("Pass")))
sql = "SELECT * FROM AdminData WHERE Name=? AND Pass=?"
Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = sql
cmd.CommandType = 1
cmd.Prepared = True
Set prm = cmd.CreateParameter("Name", 200, 1, 50, Admin)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("Pass", 200, 1, 50, Pass)
cmd.Parameters.Append prm
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open cmd, , 1, 3
If rs.BOF And rs.EOF Then
   rs.close
   Set rs = Nothing
   conn.Close
   Set conn = Nothing
   InsertLog(False)
   response.write "<SCRIPT language=JavaS