动网论坛8.2/8.3首页版主下拉框功能实现的方法

蓝雨

查找index.asp中的

1. If sToken="boardmaster" Then

复制代码

一直到下面的

1. ElseIf sToken="indeximg" And Len(Node.text)>4 Then

复制代码

之间的内容改为

1. If Node.text="" Then
   
2.       TPL_Echo "<select style=""width:80px;margin-top:12px;margin-left:0px; ""><option>招聘版主</option></select>"
   
3.      Else
   
4.       Dim boardmaster
   
5.       boardmaster = Split(Node.text,"|")
   
6.       TPL_Echo "<select style=""width:80px;margin-top:12px;margin-left:0px; "" onChange=""window.open(this.options[this.selectedIndex].value,'_blank')""><option>本版版主</option>"
   
7.       For i=0 To UBound(boardmaster)
   
8.        TPL_Echo "<option value=""dispuser.asp?name="&boardmaster(i)&""">"&boardmaster(i)&"</option>"
   
9.       Next
   
10.       TPL_Echo "</select>"
    
11.      End If

复制代码