动网论坛8.2/8.3首页版主下拉框功能实现的方法
查找index.asp中的If sToken="boardmaster" Then一直到下面的ElseIf sToken="indeximg" And Len(Node.text)>4 Then之间的内容改为If Node.text="" Then
TPL_Echo "<select style=""width:80px;margin-top:12px;margin-left:0px; ""><option>招聘版主</option></select>"
Else
Dim boardmaster
boardmaster = Split(Node.text,"|")
TPL_Echo "<select style=""width:80px;margin-top:12px;margin-left:0px; "" onChange=""window.open(this.options.value,'_blank')""><option>本版版主</option>"
For i=0 To UBound(boardmaster)
TPL_Echo "<option value=""dispuser.asp?name="&boardmaster(i)&""">"&boardmaster(i)&"</option>"
Next
TPL_Echo "</select>"
End If
页:
[1]