这个问题怎么办

ciby 2002-06-27 12:34:19

我是这样子的，先发个消息（通过改变状态栏）给VB，然后VB从数据库里取得数据，之后调用VBSCRIPT里的一个过程，在这个过程里付值给HTML里的文本框，但显示不了，代码如下：
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>

</SCRIPT>
<script language=vbscript>
function set_parameter(a)
window.aaa.value=a
end function
</script>
<BODY bgColor=#006600 >
<p> </p>
<form name="form1" method="post" action="test.htm" >
<font color="#ffffff">输入外检编号：</font>
<input name="a" >
<input type="submit" name="Submit" value="提交" LANGUAGE=javascript onclick="return btnSend_onclick()">
</form>
<p> </p>
<table border="1" style="TEXT-ALIGN: center" width="397" cellspacing="0" bordercolor="#990000" >
<tr>
<td><font color="#0000cc">编号</font></td>
<td><font color="#0000cc">外检编号</font></td>
<td><font color="#0000cc">外检名称</font></td>
</tr>

<tr>
<td><font color="#ffff00">11</font></td>
<TD id=divBrowser width="85%" nowrap>
<iframe id="frmBrowser" name="frmBrowser" width="100%" height="100%" align=top border=0 scrolling=no frameborder=0 framespacing=0 src=""></iframe>
</TD>
<td>
<input name="aaa" id=aaa >

<font color="#ffff00"></font></td>
<td><font color="#ffff00"></font></td>

</tr>
</table>
<LABEL name="ab" id=ab ><font color="#ffffff"><A
href=main.htm>用户设置</A>
</font></LABEL>
</BODY></HTML>

VB里的代码我是这样写的：
Private Sub WebB_StatusTextChange(ByVal Text As String)
Dim strCmd As String
Dim strPara As String
Dim pos As Integer
Dim ServerURL As String
Dim conn As Connection
Dim rs As Recordset
Dim sql As String
Set iDoc = WebB.Document
Set iWin = iDoc.parentWindow
On Error Resume Next
pos = InStr(Text, " ")
If pos > 1 Then
strCmd = Left(Text, pos - 1)
strPara = Mid(Text, pos + 1)
Else
strCmd = Text
strPara = ""
End If

If strCmd Like "_cmdupdate" Then
Set conn = New Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\监管系统\综合检测\RepData.mdb;Persist Security Info=False"
conn.open
sql = "select * from ctl_unit where id=3"
Set rs = New Recordset
rs.open sql, conn, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
Dim a
a = rs(0) & "," & rs(1)
iWin.set_parameter a
End If
End If
End Sub

...全文

82 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

ciby 2002-06-27

打赏
举报

没有写啊，只是用webbrowser调用htm:
webb.navigate "e:\website\test.htm"

nittystone 2002-06-27

打赏
举报

你是用webbrowser自己写了个浏览器？

nittystone 2002-06-27

打赏
举报

晕，为啥不用vb直接给input付直

nittystone 2002-06-27

打赏
举报

晕。为啥一定要通过脚本，不用vb直接给input付直

ciby 2002-06-27

打赏
举报

要这样就太麻烦了，我估计是window.aaa.value=window.self.url这里的问题？

nittystone 2002-06-27

打赏
举报

呵呵我也搞不懂。

ciby 2002-06-27

打赏
举报

错了，是javascript，不是JAVA

ciby 2002-06-27

打赏
举报

关键应该不在这里吧，我试了一种方法，就是HTML采用桢结构就可以显示了，这样写：
包括四个页面，top.htm,left.htm,main.htm和test.htm，前面三个是个三桢的页面。然后这样写：
test.htm
<SCRIPT LANGUAGE=javascript>

</SCRIPT>

main.htm作个连接到test.htm
top.htm这样写：
<SCRIPT LANGUAGE=javascript>


</script>
这样以后就可以了，但我没学过JAVA，所以不明白是怎么回事。

nittystone 2002-06-27