dv8.2把版主下拉框功能实现-修改方法还有跳转功能
查找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; \"\"><option>本版版主</option>\"
For i=0 To UBound(boardmaster)
TPL_Echo \"<option>\"&boardmaster(i)&\"</option>\"
Next
TPL_Echo \"</select>\"
End If
即改后为
If sToken=\"boardmaster\" 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; \"\"><option>本版版主</option>\"
For i=0 To UBound(boardmaster)
TPL_Echo \"<option>\"&boardmaster(i)&\"</option>\"
Next
TPL_Echo \"</select>\"
End If
ElseIf sToken=\"indeximg\" And Len(Node.text)>4 Then
页:
[1]