论坛静态页面生成工具

蓝雨发表于 2007-8-10 14:07:00

安装方法：将所有文件解压至论坛根目录，然后只需在相应位置加个链接到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行<script language=\"javascript\" type=\"text/javascript\"> var boardxml=\'<?xml version=\"1.0\" encoding=\"gb2312\"?><%=replace(XMLDom.documentElement.XML ,\"\'\",\"\\\'\")%>\'; </script> 删除，再试试看还有没有什么错误在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=\"<li><a href=\"&request(\"comeurl\")&\">\"&request(\"comeurl\")&\"</a></li>\" 　改成下列代码： 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=\"<li><a href=\"&request(\"comeurl\")&\">\"&request(\"comeurl\")&\"</a></li>\" ElseIf Request.ServerVariables(\"HTTP_REFERER\")<>\"\" Then Dim Tmpstr tmpstr=split(Request.ServerVariables(\"HTTP_REFERER\"),\"/\") comeurl=tmpstr(UBound(tmpstr)) comeurlname=\"<li><a href=\"&request(\"comeurl\")&\">\"&comeurl&\"</a></li>\" 3　打开logout.asp，找到以下代码： response.write\"<script language=JavaScript>\" response.write\"setTimeout(\"\"window.location=\'\"&Dvbbs.Forum_Info(11)&\"\'\"\",1000);\" 　把它改为下列代码： Dim url if Request(\"comeurl\")<>\"\" then url=Request(\"comeurl\") else url=Dvbbs.Forum_Info(11) end if response.write\"<script language=JavaScript>\" response.write\"setTimeout(\"\"window.location=\'\"&url&\"\'\"\",1000);\"此两种更改是为了配合精简论坛的登录口调用，并且也适用于其它的登录口调用，你可以把archive_const.asp里的  与  之间的代码单独拿出来稍加修改链接后做登录口调用。4　打开savepost.asp，找到以下代码（22日新改动，如果不在乎快速回复后会返回到原论坛的话，可以不改） tourl=\"dispbbs.asp?boardid=\"&Dvbbs.boardid&\"&id=\"&RootID&\"&star=\"&Star&\"#\"&Announceid PostRetrunName=template.Strings(16) 　　改为： If InStr(LCase(Request.ServerVariables(\"HTTP_REFERER\")),\"archive_view.asp\")<>0 Then Dim Tmpstr tmpstr=split(Request.ServerVariables(\"HTTP_REFERER\"),\"/\") tourl=tmpstr(UBound(tmpstr))&\"&star=\"&Star&\"#\"&Announceid PostRetrunName=template.Strings(16)&\"精简版\" Else tourl=\"dispbbs.asp?boardid=\"&Dvbbs.boardid&\"&id=\"&RootID&\"&star=\"&Star&\"#\"&Announceid PostRetrunName=template.Strings(16) End If 改完此处的同时，也请确认你的论坛设置为发帖后返回帖子，否则没有效果。5 打开后台，风格界面总管理，在page_index的template.html(0)模板里，搜索 <form action=\"login.asp?action=chk\" method=\"post\"> 改成 <form action=\"login.asp?action=chk& amp;comeurl=index.asp\" method=\"post\">注意修改的时候，把&和a中间的空格要去掉，否则不会成功，这句是为了修正在原论坛登录的时候有时会出现手机号不符的情况。红色为新增，蓝色为修改。10月20号更新：加入首页公告调用版面参数，0为只调用首页公告，1为调用全部页面。 2007年8月10日10点44分更新:现在给出一个彻底的解决方法。请安装了老庙的群发克星插件的网友注意一下，这个版本是针对这个插件而更新的。请安装了此插件的用户重新下载更新并帮忙测试。此版本是针对安装了老庙的群发克星插件的用户而更新，加入了快速回复的时候群发克星的辨别语句，开关还是在archive_const.asp里，FuckAD参数。请此前下载的过的用户重新下载更新。 <div></div>

页: [1]

蓝雨动力's Archiver

论坛静态页面生成工具