如何向vbscript传值？请好心人帮助。

例如  vbscript  如下：<SCRIPT LANGUAGE="VBScript">

Sub QLButton_OnClick
       
    DoPrint""
 End Sub

Sub QLButton1_OnClick
       
        DoPrint"Preview.bmp"
 End Sub
     
    '*******************************************************************
    ' 印刷、プレビューモジュール
   '*******************************************************************


Sub DoPrint(strExport)
Const sDataFolder = "D:\WAMP\sugar\SugarPRO-Full-5.2.0e-Ja\cache\modules\Contacts\liu.lbl"
strFilePath = sDataFolder 
Set ObjDoc = CreateObject("BrssCom.Document")
     bRet = ObjDoc.Open(strFilePath)
Dim  full_name,title,department,account_name
      If (bRet <> False) Then
nIndex = ObjDoc.GetTextIndex("顧客名")
ObjDoc.SetText nIndex, full_name
nIndex = ObjDoc.GetTextIndex("役職")
ObjDoc.SetText nIndex, title
            nIndex = ObjDoc.GetTextIndex("顧客部署名1")
ObjDoc.SetText nIndex, department
 nIndex = ObjDoc.GetTextIndex("顧客社名")
ObjDoc.SetText nIndex, account_name
If (strExport = "") Then
ObjDoc.DoPrint 0, "0" '印刷
Else
strExport = sDataFolder & strExport
ObjDoc.Export 2, strExport, 180 'エクスポート
window.navigate strExport
End If
End If
    Set ObjDoc = Nothing
End Sub



在一个tpl文件中，
<script type="text/VBScript" language="VBScript" src="cache/modules/Contacts/vbscript.vbs? full_name = "{$fields.full_name.value}"& title = "{$fields.title.value}"&department = "{$fields.department.value}"& account_name = "{$fields.account_name.value}""></script>   可以把full_name 一类的值传过去么  ？

1 个解决方案

#1

结帖率： 0.00%