vbscript erklären

[markus lemcke]

Hallo,

ich habe folgendes script:
<pre>
<script language="VbScript">

Sub getPartInfo()

Dim iPartNo
Dim oYmcpc
Dim cPartInfo
Dim bDMSInterface

iPartNo = document.frmPart.partNo.value

On Error Resume Next

' create ActiveX DLL
Set oYmcpc = CreateObject("YMCPC.DMSInterface")
bDMSInterface = IsObject(oYmcpc)

Err.Clear

If bDMSInterface = true Then
' call DMS Part Infomation function
Set cPartInfo = oYmcpc.getPartInfo(iPartNo)

' set form element

document.all.item("onHand").innerText = cPartInfo.Onhand
document.all.item("stockLocation").innerText = cPartInfo.StockLocation

document.all.item("dealerPrice1").innerText = cPartInfo.DealerPrice1
document.all.item("dealerPrice2").innerText = cPartInfo.DealerPrice2
document.all.item("retailPrice1").innerText = cPartInfo.RetailPrice1
document.all.item("retailPrice2").innerText = cPartInfo.RetailPrice2

document.all.item("taxRate").innerText = cPartInfo.TaxRate

document.all.item("description").innerText = cPartInfo.Description
document.all.item("supersession").innerText = cPartInfo.Supersession
document.all.item("finalSupersession").innerText = cPartInfo.FinalSupersession

document.all.item("currencyUnit").innerText = cPartInfo.CurrencyUnit

Else
alert "ActiveX DLL is not installed."
End If

End Sub

</script>

</pre>

das ding ruft wohl die funktion getPartInfo aus einer dll auf, aber könnte mir jemand noch bisserl genauer sagen, was da alles gemacht wird.
habe null ahnung von vbscript!

Gruß

Markus

[markus lemcke]

ich poste doch mal den ganzen code der html-seite:

<pre>
&lt;html&gt;
&lt;head&gt;
&lt;meta http-equiv="Content-Type" content="text/html;charset=UTF-8"&gt;
&lt;meta http-equiv="Pragma" content="no-cache"&gt;
&lt;meta http-equiv="Cache-Control" content="no-cache"&gt;
&lt;meta http-equiv="Content-Style-Type" content="text/css"&gt;
&lt;title&gt;
DMS Part Information
&lt;/title&gt;
&lt;/head&gt;

&lt;style type="text/css"&gt;
.DIV_CONTEXT_DMS {
position : absolute;
white-space : nowrap;
z-index : 4;
}
.TBL_CONTEXT_DMS {
background-color : #FFFFFF;
border : 2px solid #004080;
border-collapse : collapse;
}
.TD_CONTEXT_DMS_LABEL {
background-color : #FFFFCC;
font-weight : bold;
border-bottom : 1px solid #000000;
}
.TD_CONTEXT_DMS {
font-weight : bold;
}

.FORM_SHEET {
margin-bottom : 10px;
}
&lt;/style&gt;

&lt;script language="JavaScript"&gt;
&lt;!--
function startup() {

document.all.item("ContextDMS").style.display ="none";
getPartInfo();
document.all.item("ContextDMS").style.display ="";

}
//--&gt;
&lt;/script&gt;

&lt;script language="VbScript"&gt;

Sub getPartInfo()

Dim iPartNo
Dim oYmcpc
Dim cPartInfo
Dim bDMSInterface

iPartNo = document.frmPart.partNo.value

On Error Resume Next

' create ActiveX DLL
Set oYmcpc = CreateObject("YMCPC.DMSInterface")
bDMSInterface = IsObject(oYmcpc)

Err.Clear

If bDMSInterface = true Then
' call DMS Part Infomation function
Set cPartInfo = oYmcpc.getPartInfo(iPartNo)

' set form element

document.all.item("onHand").innerText = cPartInfo.Onhand
document.all.item("stockLocation").innerText = cPartInfo.StockLocation

document.all.item("dealerPrice1").innerText = cPartInfo.DealerPrice1
document.all.item("dealerPrice2").innerText = cPartInfo.DealerPrice2
document.all.item("retailPrice1").innerText = cPartInfo.RetailPrice1
document.all.item("retailPrice2").innerText = cPartInfo.RetailPrice2

document.all.item("taxRate").innerText = cPartInfo.TaxRate

document.all.item("description").innerText = cPartInfo.Description
document.all.item("supersession").innerText = cPartInfo.Supersession
document.all.item("finalSupersession").innerText = cPartInfo.FinalSupersession

document.all.item("currencyUnit").innerText = cPartInfo.CurrencyUnit

Else
alert "ActiveX DLL is not installed."
End If

End Sub

&lt;/script&gt;

&lt;body allowTransparency="true" style= "border-width:0px; background-color:transparent;" onLoad="JavaScript:startup()"&gt;
&lt;form name="frmPart" method="POST" onSubmit="return false" class="FORM_SHEET"&gt;
&lt;div id="ContextDMS" class="DIV_CONTEXT_DMS"&gt;
&lt;table border="0" cellpadding="3" cellspacing="0" class="TBL_CONTEXT_DMS"&gt;
&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;OnHand:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="onHand"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;StockLocation:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="stockLocation"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;Dealer Price1:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="dealerPrice1"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;Dealer Price2:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="dealerPrice2"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;Retail Price1:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="retailPrice1"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;Retail Price2:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="retailPrice2"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;Tax Rate:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="taxRate"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;Description:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="description"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;Supersession:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="supersession"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;FinalSupersession:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="finalSupersession"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;tr&gt;&lt;td align="left" class="TD_CONTEXT_DMS"&gt;CurrencyUnit:&lt;/td&gt;
&lt;td width="20"&gt;&lt;/td&gt;
&lt;td align="left"&gt;&lt;span id="currencyUnit"&gt;&lt;/span&gt;&lt;/td&gt;&lt;/tr&gt;

&lt;input type="hidden" name="partNo" value=""&gt;

&lt;/table&gt;
&lt;/div&gt;
&lt;/form&gt;
&lt;/body&gt;
&lt;/html&gt;

</pre>

Gruß

Marku

[Stefan Gawlick]

Hallo Markus,

Erst einmal muß ich anmerken, daß ich auch kein VB-Cript kann.

Aber einiges kann ich daraus trotzdem erkennen:
Es gibt in der HTML-Form ein verstecktes Feld mit dem Namen "partNo" (am Ende des HTML-Codes).
In diesem wird vom Server offensichtlich eine bestimmte Nummer, eine ID übergeben.
Das Script versucht über eine Objekt-Instanz zu dieser Nummer (ID) zu erzeugen. Wenn das gelungen ist ("If bDMSInterface = true Then..."), werden die Felder der HTML-Form mit dem Inhalt des erzeugten Objektes initialisiert.

In der Hoffnung, geholfen zu haben,
Stefa

[markus lemcke]

danke stefan

[markus lemcke]

hallo,

nochmal ne frage.
diese zeile:
<pre>
Set oYmcpc = CreateObject("YMCPC.DMSInterface")
</pre>

heißt doch, dass es in meiner dll ein objekt geben muss oder?

Gruß

Marku

[Stefan Gawlick]

CreateObject ist wohl eine Funktion/Methode, die ein Objekt (scheinbar ein Value-Object / DAO) erzeugt.
Das heißt nicht, daß es das Objekt vorher schon in der DLL gibt. Das ist unwahrscheinlich. Beim Aufruf dieser Methode wird zur erst ein Objekt erzeugt

[markus lemcke]

mhmn... okay danke