Bug描述：生成地图链接有误，且关闭模版调试模式时，无法生成网站地图。
此bug修复方法如下：
打开文件 admin/SiteMap.asp
分别将99行、214行、238行、259行代码
1 |
cURL=Server.HTMLEncode(Replace(Fk_Site_Url&cURL,"//","/")) |
替换为以下代码
1 |
cURL=Server.HTMLEncode(Replace(Replace(Fk_Site_Url&CURL,"//","/"),"http:/","http://")) |
保存文件，这4处替换是解决生成的链接有误(http:/替换为http://)。
接着，我们来解决关闭模版调试模式时，无法生成网站地图的问题。
将第64行代码
1 |
????Dim?c_Rs,cURL |
替换为
1 |
????Dim?mRs,c_Rs,cURL |
将第67行代码
1 |
????Set?c_Rs=Server.Createobject("Adodb.RecordSet") |
替换为以下代码
1 2 |
????Set?mRs=Server.Createobject("Adodb.RecordSet")????Set?c_Rs=Server.Createobject("Adodb.RecordSet") |
将第91行-230行代码
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 |
????'生成栏目页????Sqlstr="Select?Fk_Module_Id,Fk_Module_Type,Fk_Module_Model,Fk_Module_FixedUrl,Fk_Module_Url,Fk_Module_LinkType,Fk_Module_PageSize,Fk_Module_Menu,Fk_Module_GBookReply,Fk_Module_Template?From?[Fk_Module]?Where?Fk_Module_State=1?Order?By?Fk_Module_Id?Asc"????Rs.Open?Sqlstr,Conn,1,1????If?Not?Rs.Eof?Then????????While?Not?Rs.Eof????????????If?(Rs("Fk_Module_LinkType")=1?And?Rs("Fk_Module_Type")=4)?Or?Instr(",0,2,",","&Rs("Fk_Module_Type")&",")>0?Then????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"",Rs("Fk_Module_Url")&"Index","",PageSuffix,1,Rs("Fk_Module_Id"),Rs("Fk_Module_FixedUrl"))????????????????'生成????????????????cURL=Replace(cURL,"Index"&PageSuffix,"")????????????????cURL=Server.HTMLEncode(Replace(Fk_Site_Url&cURL,"//","/"))????????????????CreateHtml=CreateHtml&"<url>"&vbLf????????????????CreateHtml=CreateHtml&"<loc>"&cURL&"</loc>"&vbLf????????????????If?CreateType=1?Then????????????????????CreateHtml=CreateHtml&"<lastmod>"&Date()&"</lastmod>"&vbLf????????????????????CreateHtml=CreateHtml&"<changefreq>daily</changefreq>"&vbLf????????????????????CreateHtml=CreateHtml&"<priority>0.7</priority>"&vbLf????????????????End?If????????????????CreateHtml=CreateHtml&"</url>"&vbLf????????????ElseIf?Instr(",1,3,",","&Rs("Fk_Module_Type")&",")>0?Then????????????????'读取每页数量????????????????PageSizes=Fk_Site_PageSize????????????????If?Rs("Fk_Module_PageSize")>0?Then????????????????????PageSizes=Rs("Fk_Module_PageSize")????????????????End?If????????????????????????????????'读取模型绑定模板????????????????If?Rs("Fk_Module_Type")=1?Then????????????????????Sqlstr="Select?Fk_Model_Template?From?[Fk_Model]?Where?Fk_Model_Id="&Rs("Fk_Module_Model")&""????????????????????c_Rs.Open?Sqlstr,Conn,1,1????????????????????If?Not?c_Rs.Eof?Then????????????????????????mModelTemplate=c_Rs("Fk_Model_Template")????????????????????Else????????????????????????mModelTemplate=""????????????????????End?If????????????????????c_Rs.Close????????????????Else????????????????????mModelTemplate=""????????????????End?If????????????????If?Rs("Fk_Module_Type")=1?Then????????????????????PageTemplate="viewlist"????????????????ElseIf?Rs("Fk_Module_Type")=3?Then????????????????????PageTemplate="gbook"????????????????End?If????????????????????????????????If?Rs("Fk_Module_Template")<>""?Then????????????????????PageTemplate=Rs("Fk_Module_Template")????????????????ElseIf?mModelTemplate<>""?Then????????????????????PageTemplate=mModelTemplate????????????????End?If????????????????????????????????????????????????'菜单信息读取????????????????Sqlstr="Select?Fk_Menu_Dir,Fk_Menu_Template?From?[Fk_Menu]?Where?Fk_Menu_Id="?&?Rs("Fk_Module_Menu")????????????????c_Rs.Open?Sqlstr,Conn,1,1????????????????If?Not?c_Rs.Eof?Then????????????????????MenuDir=c_Rs("Fk_Menu_Dir")????????????????????MenuTemplate=c_Rs("Fk_Menu_Template")????????????????Else????????????????????c_Rs.Close????????????????????Call?FKFun.ShowErr("error:菜单不存在！",0)????????????????End?If????????????????c_Rs.Close????????????????????????????????'目录模板方案_默认模板组合????????????????If?MenuTemplate<>""?Then????????????????????If?Instr(DisTemplate,","&PageTemplate&",")>0?Then????????????????????????PageTemplate=MenuTemplate&"/"&PageTemplate????????????????????End?If????????????????End?If????????????????????????????????'模板标签解析????????????????PageCode=FKTemplate.GetTemplate(PageTemplate)????????????????????????????????PageCounts=1????????????????'读取页数????????????????If?Instr(PageCode,"{$ModulePageCode(")>0?Then????????????????????'内容模块????????????????????If?Rs("Fk_Module_Type")=1?Then????????????????????????Sqlstr="Select?Fk_View_Id?From?[Fk_View]?Where?Fk_View_Show=1?And?Fk_View_Module="&Rs("Fk_Module_Id")&""????????????????????????c_Rs.Open?Sqlstr,Conn,1,1????????????????????????c_Rs.PageSize=PageSizes????????????????????????If?c_Rs.PageCount>0?Then????????????????????????????PageCounts=c_Rs.PageCount????????????????????????End?If????????????????????????c_Rs.Close????????????????????'留言模块????????????????????ElseIf?Rs("Fk_Module_Type")=3?And?Rs("Fk_Module_GBookReply")<>3?Then????????????????????????Sqlstr="Select?Fk_GBook_Id?From?[Fk_GBook]?Where?Fk_GBook_Module="&Rs("Fk_Module_Id")&""????????????????????????If?Rs("Fk_Module_GBookReply")=1?Then????????????????????????????Sqlstr=Sqlstr&"?And?Fk_GBook_ReIp<>''"????????????????????????ElseIf?Rs("Fk_Module_GBookReply")=2?Then????????????????????????????Sqlstr=Sqlstr&"?And?(Fk_GBook_ReIp=''?Or?Fk_GBook_ReIp?Is?Null)"????????????????????????End?If????????????????????????c_Rs.Open?Sqlstr,Conn,1,1????????????????????????c_Rs.PageSize=PageSizes????????????????????????If?c_Rs.PageCount>0?Then????????????????????????????PageCounts=c_Rs.PageCount????????????????????????End?If????????????????????????c_Rs.Close????????????????????Else????????????????????????PageCounts=1????????????????????End?If????????????????????'循环生成????????????????????For?PageNow=1?To?PageCounts????????????????????????'链接地址获取????????????????????????If?Rs("Fk_Module_FixedUrl")<>""?Then?'绝对链接????????????????????????????If?Instr(Rs("Fk_Module_FixedUrl"),".")>0?Then?'绝对链接带后缀????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"","","",PageSuffix,1,Rs("Fk_Module_Id"),Rs("Fk_Module_FixedUrl"))????????????????????????????Else?'绝对链接不带后缀????????????????????????????????If?PageNow=1?Then????????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"","","",PageSuffix,1,Rs("Fk_Module_Id"),Rs("Fk_Module_FixedUrl")&"Index")????????????????????????????????Else????????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"","","",PageSuffix,1,Rs("Fk_Module_Id"),Rs("Fk_Module_FixedUrl")&"Index_"&PageNow)????????????????????????????????End?If????????????????????????????End?If????????????????????????Else?'非绝对链接????????????????????????????If?PageNow=1?Then????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"",Rs("Fk_Module_Url")&"Index","",PageSuffix,1,Rs("Fk_Module_Id"),"")????????????????????????????Else????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"",Rs("Fk_Module_Url")&"Index_"&PageNow,"",PageSuffix,1,Rs("Fk_Module_Id"),"")????????????????????????????End?If????????????????????????End?If????????????????????????'生成????????????????????????cURL=Replace(cURL,"Index"&PageSuffix,"")????????????????????????cURL=Server.HTMLEncode(Replace(Fk_Site_Url&cURL,"//","/"))????????????????????????CreateHtml=CreateHtml&"<url>"&vbLf????????????????????????CreateHtml=CreateHtml&"<loc>"&cURL&"</loc>"&vbLf????????????????????????If?CreateType=1?Then????????????????????????????CreateHtml=CreateHtml&"<lastmod>"&Date()&"</lastmod>"&vbLf????????????????????????????CreateHtml=CreateHtml&"<changefreq>daily</changefreq>"&vbLf????????????????????????????CreateHtml=CreateHtml&"<priority>0.7</priority>"&vbLf????????????????????????End?If????????????????????????CreateHtml=CreateHtml&"</url>"&vbLf????????????????????Next????????????????End?If????????????End?If????????????Rs.MoveNext????????Wend????End?If????Rs.Close |
替换为以下代码
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 |
????'生成栏目页????Sqlstr="Select?Fk_Module_Id,Fk_Module_Type,Fk_Module_Model,Fk_Module_FixedUrl,Fk_Module_Url,Fk_Module_LinkType,Fk_Module_PageSize,Fk_Module_Menu,Fk_Module_GBookReply,Fk_Module_Template?From?[Fk_Module]?Where?Fk_Module_State=1?Order?By?Fk_Module_Id?Asc"????mRs.Open?Sqlstr,Conn,1,1????If?Not?mRs.Eof?Then????????While?Not?mRs.Eof????????????If?(mRs("Fk_Module_LinkType")=1?And?mRs("Fk_Module_Type")=4)?Or?Instr(",0,2,",","&mRs("Fk_Module_Type")&",")>0?Then????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"",mRs("Fk_Module_Url")&"Index","",PageSuffix,1,mRs("Fk_Module_Id"),mRs("Fk_Module_FixedUrl"))????????????????'生成????????????????cURL=Replace(cURL,"Index"&PageSuffix,"")????????????????cURL=Server.HTMLEncode(Replace(Replace(Fk_Site_Url&CURL,"//","/"),"http:/","http://"))????????????????CreateHtml=CreateHtml&"<url>"&vbLf????????????????CreateHtml=CreateHtml&"<loc>"&cURL&"</loc>"&vbLf????????????????If?CreateType=1?Then????????????????????CreateHtml=CreateHtml&"<lastmod>"&Date()&"</lastmod>"&vbLf????????????????????CreateHtml=CreateHtml&"<changefreq>daily</changefreq>"&vbLf????????????????????CreateHtml=CreateHtml&"<priority>0.7</priority>"&vbLf????????????????End?If????????????????CreateHtml=CreateHtml&"</url>"&vbLf????????????ElseIf?Instr(",1,3,",","&mRs("Fk_Module_Type")&",")>0?Then????????????????'读取每页数量????????????????PageSizes=Fk_Site_PageSize????????????????If?mRs("Fk_Module_PageSize")>0?Then????????????????????PageSizes=mRs("Fk_Module_PageSize")????????????????End?If????????????????????????????????'读取模型绑定模板????????????????If?mRs("Fk_Module_Type")=1?Then????????????????????Sqlstr="Select?Fk_Model_Template?From?[Fk_Model]?Where?Fk_Model_Id="&?mRs("Fk_Module_Model")&""????????????????????c_Rs.Open?Sqlstr,Conn,1,1????????????????????If?Not?c_Rs.Eof?Then????????????????????????mModelTemplate=c_Rs("Fk_Model_Template")????????????????????Else????????????????????????mModelTemplate=""????????????????????End?If????????????????????c_Rs.Close????????????????Else????????????????????mModelTemplate=""????????????????End?If????????????????If?mRs("Fk_Module_Type")=1?Then????????????????????PageTemplate="viewlist"????????????????ElseIf?mRs("Fk_Module_Type")=3?Then????????????????????PageTemplate="gbook"????????????????End?If????????????????????????????????If?mRs("Fk_Module_Template")<>""?Then????????????????????PageTemplate=mRs("Fk_Module_Template")????????????????ElseIf?mModelTemplate<>""?Then????????????????????PageTemplate=mModelTemplate????????????????End?If????????????????????????????????????????????????'菜单信息读取????????????????Sqlstr="Select?Fk_Menu_Dir,Fk_Menu_Template?From?[Fk_Menu]?Where?Fk_Menu_Id="?&?mRs("Fk_Module_Menu")????????????????c_Rs.Open?Sqlstr,Conn,1,1????????????????If?Not?c_Rs.Eof?Then????????????????????MenuDir=c_Rs("Fk_Menu_Dir")????????????????????MenuTemplate=c_Rs("Fk_Menu_Template")????????????????Else????????????????????c_Rs.Close????????????????????Call?FKFun.ShowErr("error:菜单不存在！",0)????????????????End?If????????????????c_Rs.Close????????????????????????????????'目录模板方案_默认模板组合????????????????If?MenuTemplate<>""?Then????????????????????If?Instr(DisTemplate,","&PageTemplate&",")>0?Then????????????????????????PageTemplate=MenuTemplate&"/"&PageTemplate????????????????????End?If????????????????End?If????????????????????????????????'模板标签解析????????????????PageCode=FKTemplate.GetTemplate(PageTemplate)????????????????????????????????PageCounts=1????????????????'读取页数????????????????If?Instr(PageCode,"{$ModulePageCode(")>0?Then????????????????????'内容模块????????????????????If?mRs("Fk_Module_Type")=1?Then????????????????????????Sqlstr="Select?Fk_View_Id?From?[Fk_View]?Where?Fk_View_Show=1?And?Fk_View_Module="&mRs("Fk_Module_Id")&""????????????????????????c_Rs.Open?Sqlstr,Conn,1,1????????????????????????c_Rs.PageSize=PageSizes????????????????????????If?c_Rs.PageCount>0?Then????????????????????????????PageCounts=c_Rs.PageCount????????????????????????End?If????????????????????????c_Rs.Close????????????????????'留言模块????????????????????ElseIf?mRs("Fk_Module_Type")=3?And?mRs("Fk_Module_GBookReply")<>3?Then????????????????????????Sqlstr="Select?Fk_GBook_Id?From?[Fk_GBook]?Where?Fk_GBook_Module="&mRs("Fk_Module_Id")&""????????????????????????If?mRs("Fk_Module_GBookReply")=1?Then????????????????????????????Sqlstr=Sqlstr&"?And?Fk_GBook_ReIp<>''"????????????????????????ElseIf?mRs("Fk_Module_GBookReply")=2?Then????????????????????????????Sqlstr=Sqlstr&"?And?(Fk_GBook_ReIp=''?Or?Fk_GBook_ReIp?Is?Null)"????????????????????????End?If????????????????????????c_Rs.Open?Sqlstr,Conn,1,1????????????????????????c_Rs.PageSize=PageSizes????????????????????????If?c_Rs.PageCount>0?Then????????????????????????????PageCounts=c_Rs.PageCount????????????????????????End?If????????????????????????c_Rs.Close????????????????????Else????????????????????????PageCounts=1????????????????????End?If????????????????????'循环生成????????????????????For?PageNow=1?To?PageCounts????????????????????????'链接地址获取????????????????????????If?mRs("Fk_Module_FixedUrl")<>""?Then?'绝对链接????????????????????????????If?Instr(mRs("Fk_Module_FixedUrl"),".")>0?Then?'绝对链接带后缀????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"","","",PageSuffix,1,mRs("Fk_Module_Id"),mRs("Fk_Module_FixedUrl"))????????????????????????????Else?'绝对链接不带后缀????????????????????????????????If?PageNow=1?Then????????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"","","",PageSuffix,1,mRs("Fk_Module_Id"),mRs("Fk_Module_FixedUrl")&"Index")????????????????????????????????Else????????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"","","",PageSuffix,1,mRs("Fk_Module_Id"),mRs("Fk_Module_FixedUrl")&"Index_"&PageNow)????????????????????????????????End?If????????????????????????????End?If????????????????????????Else?'非绝对链接????????????????????????????If?PageNow=1?Then????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"",mRs("Fk_Module_Url")&"Index","",PageSuffix,1,mRs("Fk_Module_Id"),"")????????????????????????????Else????????????????????????????????cURL=FKTemplate.GetUrl(FullSiteDir,"",mRs("Fk_Module_Url")&"Index_"&PageNow,"",PageSuffix,1,mRs("Fk_Module_Id"),"")????????????????????????????End?If????????????????????????End?If????????????????????????'生成????????????????????????cURL=Replace(cURL,"Index"&PageSuffix,"")????????????????????????cURL=Server.HTMLEncode(Replace(Replace(Fk_Site_Url&CURL,"//","/"),"http:/","http://"))????????????????????????CreateHtml=CreateHtml&"<url>"&vbLf????????????????????????CreateHtml=CreateHtml&"<loc>"&cURL&"</loc>"&vbLf????????????????????????If?CreateType=1?Then????????????????????????????CreateHtml=CreateHtml&"<lastmod>"&Date()&"</lastmod>"&vbLf????????????????????????????CreateHtml=CreateHtml&"<changefreq>daily</changefreq>"&vbLf????????????????????????????CreateHtml=CreateHtml&"<priority>0.7</priority>"&vbLf????????????????????????End?If????????????????????????CreateHtml=CreateHtml&"</url>"&vbLf????????????????????Next????????????????End?If????????????End?If????????????mRs.MoveNext????????Wend????End?If????mRs.Close |
保存文件，修复完成。
