论坛静态页面生成工具

蓝雨

安装方法：将所有文件解压至论坛根目录，然后只需在相应位置加个链接到archive_index.asp就行了。版权自己修改。

如果无意使用此插件，请你在archiver_const.asp里，找到这几个字并删除。

注：如有7.1或者8.0版本的在用精简版，而且有提示未定义的错误，

请把

Dim node,XMLDOM
Set XMLDOM=Application(dvbbs.CacheName&\"_ssboardlist\").cloneNode(True)
If Dvbbs.GroupSetting(37)=\"0\" Then\'去掉隐藏论坛
For each node in XMLDOM.documentElement.getElementsByTagName(\"board\")
If node.attributes.getNamedItem(\"hidden\").text=\"1\" Then
node.parentNode.removeChild(node)
End If
Next
End If
这一段全部屏蔽

然后把下面大概79行

删除，再试试看还有没有什么错误

在archive_view.asp里找到

Dim T_GetMoneyType,Time,Viewname,View,ViewNice

下面加入
dim abgcolor,bgcolor
abgcolor=\"tablebody1\"
bgcolor=\"tablebody2\"
再试验一下。

需要修改的地方：

1　所有参数均在Archive_const.asp里调节，里面有详细说明。
2　打开动网的login.asp，寻找到以下代码：
If instr(lcase(request(\"comeurl\")),\"reg.asp\")>0 or instr(lcase(request(\"comeurl\")),\"login.asp\")>0 or trim(request(\"comeurl\"))=\"\" Then
comeurlname=\"\"
comeurl=\"index.asp\"
Else
comeurl=request(\"comeurl\")
comeurlname=\"

"&request("comeurl")&"

\"
　改成下列代码：
If instr(lcase(request(\"comeurl\")),\"reg.asp\")>0 or instr(lcase(request(\"comeurl\")),\"login.asp\")>0 or instr(lcase(request(\"comeurl\")),\"index.asp\")>0 Then
comeurlname=\"\"
comeurl=\"index.asp\"
Elseif request(\"comeurl\")<>\"\" then\'新
comeurl=request(\"comeurl\")
comeurlname=\"

"&request("comeurl")&"

\"
ElseIf Request.ServerVariables(\"HTTP_REFERER\")<>\"\" Then
Dim Tmpstr
tmpstr=split(Request.ServerVariables(\"HTTP_REFERER\"),\"/\")
comeurl=tmpstr(UBound(tmpstr))
comeurlname=\"

"&comeurl&"

\"
3　打开logout.asp，找到以下代码：
response.write\"