vba - ASP ページに vb スクリプトを含める

Question

私はcsvファイルを取り、その内容をデータベースにアップロードするvbscriptを持っています。そのスクリプトを ASP ページに含める必要があります。スクリプトは ASP ページ自体に存在する必要があり、外部には配置されません。つまり、ASP ページが外部にある DLL への参照を設定するのではなく、ASP 自体にコードを含める必要があります。それはできますか？

これは私が持っている vbscript です。

http://pastebin.com/vuzUhTDM

どんな助けでも本当に感謝します。

Answer 1

vb6 コードのほとんどは、従来の asp vbscript で再利用できます。vbscript にはバリアントしかないため、変数を少し異なる方法で宣言する必要があります。

したがって、レコードセットの宣言については、次の代わりに:

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 も同じロジックで作成してください。]

単純な変数の場合、高レベルのバリアント型を作成するだけで、サブタイプ (string、long、integer...) は変数に値を割り当てることによって実行時に割り当てられます。したがって、これの代わりに：

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()