动网论坛教程:发帖语气重修改
2010-07-22 18:58:33 来源:WEB开发网function GetSpeakSelect(id){
aSpeak[0] = '选择语气...';
if(!id){id=0}
var sSpeak;
for (i = 0;i <= aSpeak.length-1;i++){
sSpeak += '<option value="' + i + '">' + aSpeak + '</option>';
}
sSpeak = '<select name="Speak">' + sSpeak + '</select>';
document.write(sSpeak);
}
/******************************************************************************
* 论坛发帖子语气插件添加JS部分结束 *
******************************************************************************/
2、打开dispbbs.asp文件,做以下修改:
找到
'========随机广告节点
Set CNode = XMLDOM.createNode(2,"ads","")
Cnode.text=Topic_Ads()
node.attributes.setNamedItem(Cnode)
Rs.MoveNext
在
Set CNode = XMLDOM.createNode(2,"ads","")
Cnode.text=Topic_Ads()
node.attributes.setNamedItem(Cnode)
和
Rs.MoveNext
之间添加
'发帖语气
Set CNode = XMLDOM.createNode(2,"Speak","")
Cnode.text= Split(node.attributes.getNamedItem("Ubblist").text,",")(0)
node.attributes.setNamedItem(Cnode)
'发帖语气
即改成
'========随机广告节点
Set CNode = XMLDOM.createNode(2,"ads","")
Cnode.text=Topic_Ads()
node.attributes.setNamedItem(Cnode)
'发帖语气
Set CNode = XMLDOM.createNode(2,"Speak","")
Cnode.text= Split(node.attributes.getNamedItem("Ubblist").text,",")(0)
更多精彩
赞助商链接