动网8.2无组件伪静态插件

蓝雨 · 发表于 2009-11-6 10:15:01

修改地址定向： conn.asp 找到isUrlreWrite = 0修改为isUrlreWrite = 1 最后一行添加： inc/Dv_ClsMain.asp 136行左右找到isapi_write 将Public Function ArchiveHtml(Textstr)和End Function之间的内容替换为 Str=Textstr If isUrlreWrite = 1 Then Dim Str,re,Matches,Match Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern = \"]*)index\\.asp\\?boardid=(\\d+)(&|&)topicmode=(\\d+)?(&|&)list_type=([\\d,]+)?(&|&)page=(\\d+)?\" str = re.Replace(str,\"]*)index\\.asp\\?boardid=(\\d+)(&|&)action=(.[^&]*)?(&|&)topicmode=(\\d+)?(&|&)list_type=([\\d,]+)?(&|&)page=(\\d+)?\" str = re.Replace(str,\"]*)index\\.asp\\?boardid=(\\d+)(&|&)page=(\\d+)?(&|&)action=(.[^<>\"\"\\\\s]*)?\" str = re.Replace(str,\"]*)index\\.asp\\?boardid=(\\d+)(&|&)topicmode=(\\d+)?\" str = re.Replace(str,\"]*)index\\.asp\\?boardid=(\\d+)(&|&)page=(\\d+)?\" str = re.Replace(str,\"]*)index\\.asp\\?boardid=(\\d+)\" str = re.Replace(str,\"|_]*)index\\.asp\" str = re.Replace(str,\"]*)dispbbs\\.asp\\?boardid=(\\d+)(&|&)replyid=(\\d+)?(&|&)id=(\\d+)?(&|&)skin=(\\d+)?(&|&)page=(\\d+)?(&|&)star=(\\d+)?\" str = re.Replace(str,\"]*)dispbbs\\.asp\\?boardid=(\\d+)(&|&)replyid=(\\d+)?(&|&)id=(\\d+)?(&|&)skin=(\\d+)?(&|&)star=(\\d+)?\" str = re.Replace(str,\"]*)dispbbs\\.asp\\?boardid=(\\d+)(&|&)replyid=(\\d+)?(&|&)id=(\\d+)?(&|&)skin=(\\d+)?\" str = re.Replace(str,\"]*)dispbbs\\.asp\\?boardid=(\\d+)(&|&)id=(\\d+)?(&|&)page=(\\d+)?(&|&)star=(\\d+)?\" str = re.Replace(str,\"]*)dispbbs\\.asp\\?boardid=(\\d+)(&|&)id=(\\d+)?(&|&)page=(\\d+)?(&|&)move=(\\d+)?\" str = re.Replace(str,\"]*)dispbbs\\.asp\\?boardid=(\\d+)(&|&)id=(\\d+)?(&|&)page=(\\d+)?\" str = re.Replace(str,\"]*)dispbbs\\.asp\\?boardid=(\\d+)(&|&)id=(\\d+)?\" str = re.Replace(str,\"]*)dv_rss\\.asp\\?s=(.[^<|>|\"\"|\\|\\s]*)\" str = re.Replace(str,\"]*)dv_rss\\.asp\" str = re.Replace(str,\"inc/Main82.js 查找if (ISAPI_ReWrite==1) 将他下面到else之间改为 html+=\""+ outtext + "" + boardtype +"
\" + getboardmenu(boardlist,LoadBoard); Login.asp 查找If isUrlreWrite = 1 Then 共两处相同的代码全都修改成下面的 If isUrlreWrite = 1 Then Comeurl=\"index.html\" Else Comeurl=\"index.asp\" End If 修改变量传递 inc/Dv_ClsMain.asp 找到BoardID = Request(\"BoardID\") 修改为 if IsUrlreWrite = 1 then BoardID=UBoardID if Request(\"BoardID\")<>\"\" then BoardID = Request(\"BoardID\") index.asp 找到action=Request(\"action\") 修改为 if IsUrlreWrite = 1 then action=Uaction if Request(\"action\")<>\"\" then action=Request(\"action\") 找到Page=Request(\"Page\") 修改为 if IsUrlreWrite = 1 then Page=Upage if Request(\"Page\")<>\"\" then Page=Request(\"Page\") 找到 If Request(\"topicmode\")<>\"\" and IsNumeric(Request(\"topicmode\")) Then 将其到End if之间的代码修改为 If Request(\"topicmode\")<>\"\" and IsNumeric(Request(\"topicmode\")) Then TopicMode=Cint(Request(\"topicmode\")) Else if IsUrlreWrite = 1 then topicmode=Cint(Utopicmode) else TopicMode=0 end if End If 找到if Request(\"list_type\")<>\"\" then list_type=Replace(Request(\"list_type\"),\" \",\"\")在其上方添加 if IsUrlreWrite = 1 then list_type=Ulisttype topicmode=Cint(Utopicmode) end if 找到Case \"showpage\"将其下方的代码修改为 Dim gaction,Ulisttype1 if IsUrlreWrite = 1 then Ulisttype1=Ulisttype else if Request(\"list_type\")<>\"\" then Ulisttype1=Replace(Request(\"list_type\"),\" \",\"\") end if If action<>\"\" Then gaction= \"&action=\"&action TPL_ShowPage Page,Count, Dvbbs.CheckNumeric(Dvbbs.Board_Setting(26)),10, \"index.asp?boardid=\"&Dvbbs.BoardID & gaction &\"&TopicMode=\"&TopicMode&\"&List_Type=\"&Ulisttype1&\"&Page=\" dispbbs.asp 找到Page=Request(\"page\")在其下方添加 if IsUrlreWrite = 1 then Page=UPage 找到Sub LoadTopicInfo() 将其下方的代码修改为 If isUrlreWrite = 1 Then AnnounceID = Dvbbs.CheckNumeric(UID) if Request(\"ID\")<>\"\" then AnnounceID = Dvbbs.CheckNumeric(Request(\"ID\")) If 0=AnnounceID Then Dvbbs.AddErrCode(30)

vbbs.Showerr() If isUrlreWrite = 1 Then G_CurrentPage = Dvbbs.CheckNumeric(Ustar) if Request(\"star\")<>\"\" then G_CurrentPage = Dvbbs.CheckNumeric(Request(\"star\")) If 0=G_CurrentPage Then G_CurrentPage=1 If isUrlreWrite = 1 Then Skin=Uskin if Request(\"Skin\")<>\"\" then Skin=Request(\"Skin\") If Skin=\"\" Or Not IsNumeric(Skin) Then Skin=Dvbbs.Board_setting(42) Dim Rs, SQL, iLockSet, iTopicMode, sMove If isUrlreWrite = 1 Then sMove = Umove if request(\"move\")<>\"\" then sMove = request(\"move\") 找到ReplyID = Dvbbs.CheckNumeric(UReplyID)修改为 If isUrlreWrite = 1 Then ReplyID = Dvbbs.CheckNumeric(UReplyID) if Request(\"ReplyID\")<>\"\" then ReplyID = Dvbbs.CheckNumeric(Request(\"ReplyID\")) 下载附件解压后将UrlreWrite.ASP文件上传至根目录下的INC文件夹...

账号		自动登录	找回密码
密码			注册

动网8.2无组件伪静态插件

终身成就奖

LY官方团队

会员身份ID卡

网站公告 /2