vba - 在 ASP 页中包含 vb 脚本

Question

我有一个 vbscript，它接受一个 csv 文件并将其内容上传到数据库。我需要将该脚本包含在 ASP 页面中。该脚本应该存在于 asp 页面本身中，而不是放在外部，即，我不希望 asp 页面设置对外部 dll 的引用，而是将代码包含在 asp 本身中。可以吗？

这是我拥有的 vbscript。

http://pastebin.com/vuzUhTDM

任何帮助将不胜感激。

Answer 1

大多数 vb6 代码可以在经典的 asp vbscript 中重用。你必须声明你的变量有点不同，因为 vbscript 只有 Variants..

因此对于记录集声明，而不是这样：

Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset
Dim rst As New ADODB.Recordset

你必须这样做

Dim rs1 , rs2, rst 
Set rs1=Server.CreateObject("ADODB.recordset")
Set rs2=Server.CreateObject("ADODB.recordset")
Set rst=Server.CreateObject("ADODB.recordset")

[我在您的代码示例中没有看到任何连接对象.. 只是使用 db.ConnectionString.. 确保您也使用相同的逻辑创建连接对象 db。]

对于简单变量，您还只需创建一个高级变体类型，子类型（字符串、长整数、整数...）将在运行时通过为变量赋值来进行赋值。因此，而不是这样：

Dim eno As Long
Dim fname As String
Dim fname1 As String
Dim fno1 As Integer
Dim fno As Integer
Dim mstr As String
Dim flds() As String
Dim valid_data As Boolean
Dim errstr As String
Dim errcnt As Integer
Dim pickupid As Long
Dim cancel_rec As String
Dim bkno As Double
Dim sReceipt_no As Long

你可以这样做：

Dim eno , fname , fname1 , fno1 , fno , mstr, valid_data, errstr, errcnt, pickupid, cancel_rec, bkno, sReceipt_no 
Dim flds()