
-----------
1.这个是循环,会有好多记算。
把你ASP这里request_width"&i 的&i给去掉。算了,你ASP写的也太繁了,我给你改吧,
<script language="JavaScript">
function jisuan(i){
var Text1 = document.getElementsByName("request_width")
var Text2 = document.getElementsByName("request_length")
//这里计算就当是加吧
document.getElementsByName("ss")[i].value=Text1[i].value*1+Text2[i].value*1}</script>
<% sql="select * from abc"
set dbrs=dbconn.execute(sql)
i=0
do while not dbrs.eof
%>
<input name="request_width" type="text" size="8" maxlength="8" >+
<input name="request_length" type="text" size="8" maxlength="8" >=
<input name="ss" type="text" size="8" maxlength="8" >
<input type="submit" value="计算" onClick="jisuan(<%=i%>)">
<%i=i+1
dbrs.movenext
if dbrs.eof then
exit do
end if
loop
%>
Sub LoadObject(name As String)Dim a As Object
Set a = Controls.Add("vb.label", name) '前一个参数必须定义object类型,比如vb.commandbutton、vb.textbox等
a.Caption = Rnd '此条为显示时的标志符,创建textbox时,设置a.text=rnd
a.Visible = True '此条是必须的,否则创建的控件不可见
End Sub
Private Sub Command1_Click()
Call LoadObject("label1")
Controls("label1").Top = 0 '如何引用,创建了什么控件,就以什么控件的属性列表设置它
End Sub
Private Sub Command2_Click()
Call LoadObject("label2")
Controls("label2").Top = Command2.Top
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)