将VBS转换为Web表单

Question

我需要创建一个网页表单 - 1.检查序列号是否正确。我有在VBScript中执行此操作的脚本，我正在尝试将其合并到一个表单中。它是一个简单的算法，如下所示（许可证格式为9999-999999）：

   Dim strID
   Dim ColCSum3

   Dim ChkVal
   Dim InitVal

   strID = InputBox("Please enter the the serial number to verify", "Verify serial")

   If strID = "" Then wscript.Quit
   If mid(strID, 5, 1) <> "-" Or Len(strID) <> 11 Then MsgBox "Invalid number format...", 16, "Input error": wscript.Quit

   InitVal = CLng(Left(strID, 1))
   ChkVal = CLng(Mid(strID, 2, 3))

   ColCSum3 = (2 * CLng(Mid(strID, 6, 1)) + _
               7 * CLng(Mid(strID, 7, 1)) + _ 
               6 * CLng(Mid(strID, 8, 1)) + _ 
               3 * CLng(Mid(strID, 9, 1)) + _ 
               5 * CLng(Mid(strID, 10, 1)) + _ 
               4 * CLng(Mid(strID, 11, 1))) * 3

   If 11 * InitVal + ColCSum3 + 3 = ChkVal Then
       MsgBox strID & " is a valid serial number..", 64, "Validated"
   Else
       MsgBox strID & " is not a valid serial number", 48, "Invalid"
  End If

和2.一旦这个工作，用户输入的密钥是否能够存储到某个地方的数据库中，以便它不会再次被使用？所以我想表格也必须检查数据库的这个字段。

主站点在WordPress中，但如果需要，我可以将其设置为独立页面。也许有一个好的WP表单插件能够做到这一点？

非常感谢。