vbscript תjavascript£¬Ð¡µÜллÁË
<SCRIPT ID="clientdoscheckVBS" LANGUAGE="vbscript">
Sub dogcheck_onclick
On Error resume next
dim aObject,DevicePath
set aObject = CreateObject("Syunew3A.s_simnew3")
DevicePath = aObject.FindPort(0)
if aObject.LastError <> 0 then
msgbox "δÕÒµ½£¬ÔÙ½øÐеǼ!"
exit sub
end if
form1.lockbhText.value = aObject.YReadString(0, 11, "ffffffff", "ffffffff", devicepath)
If aObject.LastError <> 0 Then
MsgBox "¶Á´íÎó!"
Exit Sub
end if
MsgBox "¶Á³É¹¦!"
end sub
</SCRIPT>
ÁíÍ⣬jsÊÇÑϸñÇø·Ö´ó
Ïà¹ØÎÊ´ð£º
ÎÒÏëÎÊÒ»ÏÂÈçºÎÓÃjavascript¶¯Ì¬ÊµÏÖÏñÎÒÃÇÕâ¸öÍøÕ¾×ó±ßµÄĿ¼£¬Ð»À²£¡
??
ºÇºÇ£¡Ð»Ð»°¡£¡
¶¥Ò»ÏÂ
ÄãÃÇÊÇÊ²Ã´ÍøÕ¾°¡£¬ÒªÊǺǫ́ÊÇjavaÖ±½Ójsp£¬Èç¹ûºǫ́ÊÇc£¬ÄǾÍÓÃcgiÉú³Éxml£¬js¶¯Ì¬È¥¶ÁxmlµÄÊý¾Ý
Ó ......
ÒÔÏÂÊÇÒ»¶ÎJavsScript½Å±¾£¬µ«ÔËÐÐʱ×Ü»á²úÉú ¡°Microsoft JScript ÔËÐÐʱ´íÎó: 'null' Ϊ¿Õ»ò²»ÊǶÔÏó¡±Òì³££¬´ó¼Ò°ï¿´Ò»Ï¡£
<form id="form1" runat="server">
< ......
²úÆ·µÄÅäÖÃÒ³Ãæ¹²ÓÃÒ»¸öÓÃJavaScriptµÄdTreeʵÏÖµÄÊ÷Ðνṹ£¬ÏÔʾµÄʱºò£¬Ê÷Ðνṹ¿¿ÔÚÒ³ÃæµÄ×î×ó±ß£¬¸úÎÒµÄÅäÖÃÒ³ÃæÖмä¸ôÁËÒ»´ó¿é£¬ÏÖÔÚÏë°ÑÊ÷ÐÎĿ¼¾ÓÖУ¬½ô¿¿ÔÚÅäÖÃÄÚÈÝÅԱߣ¬ÈçºÎ¿ØÖÆÊ÷ÐÎĿ¼µÄλÖã¬ÒÔ¼°¿É²»¿ ......
ÎÒÍêÈ«²»¶®µÃµ÷ÊÔ°¡£¬ËùÒÔÏëÇëÄǸö¸ßÊִͽÌһϰ¡¡£Ð»Ð»£¡
ÊÖ¶¯£¬
´úÂëǰºó¼Óalert("sdfds")¿´ÓÐûÓÐÖ´ÐÐ
ÔÙÒ»ÖÖ¾ÍÊÇÄ£¿éɾ³ý·¨£¬É¾³ýÁË¿´¿´»¹ÓÐûÓдíÎó
ÎÒÓùýÊÇIE8°¡£¬¶Ô²»Æð£¬ÎÒÎʵÃÓеãÃÔºýÁ ......
ÉÏÁª£ºJavaºÍJavaScript
×Ô¼ºÊÔÊÔ£º
ÏÂÁª£ºÃæ°üºÍÃæ°ü³µ
ÏÂÁª£ºSQLºÍMySQL
ºÇºÇ¡£
me and myself
ÏÂÁª£ºJavaScriptºÍJava
ÍÃ×ÓºÍÍÃ×Óʺ£¡
£¡
ÔÙÀ´Ò»¸ö£ºCºÍC++
ÒýÓÃ
ÏÂÁª£ºJavaScriptºÍJav ......