|
|
我想论坛版主呈下拉菜单显示，选中即进入版主资料页：
源代码：
If Board_Rs(6,Ast) = "" Or IsNull(board_Rs(6,Ast)) Then
BoardAdmin2="暂无":BoardAdmin2="暂无"
Else
Temp=split(board_Rs(6,Ast),"|")
BoardAdmin2=""
BoardAdmin2=BoardAdmin2&"<select id=""select1"" name=""select1"" onchange=""window.open(select1.options [selectedIndex].value,target='_blank','top=20,left=200,width=500,height=460,scrollbars=yes,resizable=yes')""><option selected>查看版主</option>"
for I=0 to ubound(Temp)
BoardAdmin2=BoardAdmin2&"<option value=""http://www.thbwn.com/bbs/Userinfo.asp?Name="&Temp(I)&""">"&Temp(I)&"</option>"
Next
BoardAdmin2=BoardAdmin2&"</select>"
End If
-------------------------------------------------------------------------------------------
浏览网页时代码：
<select id="select1" name="select1" onchange="window.open(select1.options [selectedIndex].value,target='_blank','top=20,left=200,width=500,height=460,scrollbars=yes,resizable=yes')"><option selected>查看版主</option><option value="http://www.thbwn.com/bbs/Userinfo.asp?Name=wn0419">wn0419</option></select>
--------------------------------------------------------------------------------------------
我直接把红色代码做成网页测试是没问题的，能进入超链接。但在论坛页面为什么没有动静呢？请大虾帮忙！ |
|
IP卡
狗仔卡
发表于 2010-1-9 06:52:40
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2010-1-30 23:05:08