[原创]为新话题添加话题类型

oytktk · 发表于 2005-4-26 01:01:50

演示:

http://www.huasa.org/bbs/

方法:

1.post_newthread.htm

查找:

复制代码

后面加:

/话题类型:<input type="hidden" type="text" name="htname" size="20" value="[无]"><select onchange="loadht(document.input)" size="1" name="huati">
<option value=[无] selected >请选择话题</option>
<OPTION value=[原创]>[原创]</OPTION>
<OPTION value=[转帖]>[转帖]</OPTION>
<OPTION value=[灌水]>[灌水]</OPTION>
<OPTION value=[讨论]>[讨论]</OPTION>
<OPTION value=[求助]>[求助]</OPTION>
<OPTION value=[推荐]>[推荐]</OPTION>
<OPTION value=[公告]>[公告]</OPTION>
<OPTION value=[注意]>[注意]</OPTION>
<OPTION value=[贴图]>[贴图]</OPTION>
<OPTION value=[建议]>[建议]</OPTION>
<OPTION value=[下载]>[下载]</OPTION>
<OPTION value=[超级水水]>[超级水水]</OPTION>
<OPTION value=[世界末日]>[世界末日]</OPTION>
</select>

复制代码

最下面加:

<script LANGUAGE="vbscript">
sub loadht(theform)
if mid(theform.subject.value,1,1)="[" and mid(theform.subject.value,len(theform.htname.value),1)="]" then
theform.subject.value=theform.huati.value+mid(theform.subject.value,len(theform.htname.value)+1)
else
theform.subject.value=theform.huati.value+theform.subject.value
end if
theform.htname.value=theform.huati.value
theform.subject.focus
end sub
</script>

复制代码

若要在快速发表内也增加这个HACK.可以这么做~

1.forumdisplay.htm
查找

复制代码

后面加:

<input type="hidden" type="text" name="htname" size="20" value="[无]"><select onchange="loadht(document.input)" size="1" name="huati">
<option value=[无] selected >请选择话题</option>
<OPTION value=[原创]>[原创]</OPTION>
<OPTION value=[转帖]>[转帖]</OPTION>
<OPTION value=[灌水]>[灌水]</OPTION>
<OPTION value=[讨论]>[讨论]</OPTION>
<OPTION value=[求助]>[求助]</OPTION>
<OPTION value=[推荐]>[推荐]</OPTION>
<OPTION value=[公告]>[公告]</OPTION>
<OPTION value=[注意]>[注意]</OPTION>
<OPTION value=[贴图]>[贴图]</OPTION>
<OPTION value=[建议]>[建议]</OPTION>
<OPTION value=[下载]>[下载]</OPTION>
<OPTION value=[超级水水]>[超级水水]</OPTION>
<OPTION value=[世界末日]>[世界末日]</OPTION>
</select>

复制代码

最下面加:

<script LANGUAGE="vbscript">
sub loadht(theform)
if mid(theform.subject.value,1,1)="[" and mid(theform.subject.value,len(theform.htname.value),1)="]" then
theform.subject.value=theform.huati.value+mid(theform.subject.value,len(theform.htname.value)+1)
else
theform.subject.value=theform.huati.value+theform.subject.value
end if
theform.htname.value=theform.huati.value
theform.subject.focus
end sub
</script>

复制代码

里面的类型名称可以自己添加或修改!

OK.

[ Last edited by oytktk on 2005-5-9 at 11:30 ]

[ 本帖最后由 oytktk 于 2007-8-24 08:52 编辑 ]

freddy · 发表于 2005-4-26 01:17:16

沙发支持！！！
有人成功后说一声！
我加个分！

菜鸟学堂 · 发表于 2005-4-26 01:45:28

我的在后台可以设置话题类型了，用不上这个了，还是支持拿出来共享，值得收藏了

辰宇 · 发表于 2005-4-26 04:52:31

成功了,哈哈.F老大准备给加分分吧

oytktk · 发表于 2005-4-26 10:55:45

重新修改了.另加入一些功能.

kary2005 · 发表于 2005-4-26 11:11:19

好了，刚才没弄好，现在好了，谢谢分享

[ Last edited by kary2005 on 2005-4-26 at 11:13 ]

freddy · 发表于 2005-4-26 11:25:08

OK!
加个精吧!!!并列入收藏..(发现自己好长没整理收藏了

...)

逍遥大仙 · 发表于 2005-4-26 13:08:06

支持~

bingtaire · 发表于 2005-4-26 23:03:22

好的，行来支持一下

jelemy · 发表于 2005-4-28 16:25:21

我试了，成功了！谢谢楼主！

		自动登录	找回密码
密码			立即注册