3个回答
展开全部
这个可以弄到另一个页处理,或者这个按钮进行传值,值不为空的时候就出现你要的字,我举个例子:
<input type=button value=选择 onclick=window.open(yes.asp?type=2)>
<%
dim type
type=request("type")
if type=2 then
%>
<a href=http://www.baidu.com target=_blank>百度</a><br>
<a href=http://www.sina.com.cn target=_blank>新狼</a><br>
<%
end if
%>
<input type=button value=选择 onclick=window.open(yes.asp?type=2)>
<%
dim type
type=request("type")
if type=2 then
%>
<a href=http://www.baidu.com target=_blank>百度</a><br>
<a href=http://www.sina.com.cn target=_blank>新狼</a><br>
<%
end if
%>
展开全部
'控件:frame1,内有check1(0~2)数组,还有一label1
Private Sub Check1_Click(Index As Integer)
Label1.Caption = Label1.Caption & Check1(Index).Caption
Frame1.Visible = False
End Sub
Private Sub Form_Load()
Frame1.Visible = False
Label1.Caption = "我爱"
Check1(0).Caption = "我家"
Check1(1).Caption = "VB"
Check1(2).Caption = "我的亲人"
End Sub
Private Sub Label1_Click()
Frame1.Visible = True
End Sub
Private Sub Check1_Click(Index As Integer)
Label1.Caption = Label1.Caption & Check1(Index).Caption
Frame1.Visible = False
End Sub
Private Sub Form_Load()
Frame1.Visible = False
Label1.Caption = "我爱"
Check1(0).Caption = "我家"
Check1(1).Caption = "VB"
Check1(2).Caption = "我的亲人"
End Sub
Private Sub Label1_Click()
Frame1.Visible = True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你问的是vb程序还是asp的啊!我认为一楼的好象答非所问啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询