效果如图：

代码长是长了一点，有机会的话，我会把以前写的一个cms(asp的)分享给大家，代码写了70%左右，也许会把部分功能一个个的分享吧:D，这是一个生成静态页面的类，用xml做为template文件，使用直接给SQL语句就可以生成了。还算方便的，具体的细节我也记不清了，大家有什么问题再提吧。

下次就给大家一个用FSO写出的管理服务器代码的文件，95%与真正的windows相象。也有拖动可调节查看的宽度功能。

比竟现在我已经很大程度上不用asp了。

如果需要的话，可以留下Email给我，我会发一些文件给大家（一般都是已经模块化或类化了的）<% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\\-------------------------------------------------------------- '\\ File : cls_BuildstaticFile.asp '\\ Description : a class for build static cache file(shtml, xml, html) '\\ Version : beta 1.0 '\\ Script Written by never-online '\\ last updated Date: 2005-11-22 '\\-------------------------------------------------------------- '\\ Copyright (C) 2005,2006 Miracle Tech. All rights reserved. '\\ Web: http://www.never-online.net '\\ Email: bluedestiny [at] 126 . com '\\-------------------------------------------------------------- '\\ need file(s): '\\ _const.asp '\\ _cls_common.asp '\\ '\\-------------------------------------------------------------- '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 'option explicit Class cls_BuildStaticFile Private dtStart,dtEnd Private oFso, oStream Private sErrMsg, blnErr Private iNoFound Private sTemplateTag Private rstStatic Public TemplatePath public templateStream public StaticFileFolder public StaticFileName public StaticExtName public StaticFilePath Private Sub class_initialize iNoFound=0 dtStart=Timer() StaticExtName=STATICFILE_EXTNAME Set objCommon=new cls_Common Set oFso=server.createObject("SCRIPTING.FileSystemObject") End Sub Private sub class_terminate CloseObject objCommon CloseObject rstStatic CloseObject oStream CloseObject oFso application.Contents.Remove("TemplateStream") End Sub Public Function ReadExeTime dim dtExe dtEnd=Timer() dtExe=FormatNumber(dtEnd-dtStart,4,-1) ReadExeTime=dtExe End Function Private Sub CloseObject(o) if isObject(o) then set o=nothing End Sub Private Function CreateStaticFolder(strVar) dim arrFolder,i strVar = replace(strVar,"\","/") arrFolder = Split(strVar,"/") on error resume next for i = 0 To UBound(arrFolder) If i > 0 Then arrFolder(i) = arrFolder(i-1) & "/" & arrFolder(i) if not oFso.FolderExists(arrFolder(i)) Then oFso.createFolder(PhisicalPath(arrFolder(i))) end if next CreateStaticFolder=true End Function Private Sub WriteLn(strVar) response.Write(strVar & vbCrlf) End Sub Private Function PhisicalPath(strVar) PhisicalPath=server.mappath(strVar) End Function Private Sub callErr(strVar) WriteLn("Build static page " & Ucase(StaticExtName) & " stop folowing this error:") WriteLn("<p><li>" & strVar & "</li></p>") WriteLn("<p>NOTE:if you have problems, pls mail me: bluedestiny [at] 126.com</p>") response.end End Sub Private sub readStream TemplatePath = PhisicalPath(TemplatePath) if not oFso.fileExists(TemplatePath) then callErr("template path(file) not exists!") set oStream = oFso.openTextFile(TemplatePath,1,false) templateStream = oStream.readall call SetStaticTemplateStreamCache() End Sub Private sub SetStaticTemplateStreamCache application.Lock application("TemplateStream")=templateStream application.Unlock End Sub '------------ build StaticFile Property start ---------- Property Let templateString(byVal strVar) templateStream=strVar call SetStaticTemplateStreamCache() End Property Property Let templateTag(byVal strVar) sTemplateTag=strVar End Property Property Let activers(byVal rstVar) if isObject(rstVar) then rstStatic=rstVar else response.Write "record not initialize." end if End Property Property Let ExtensionName(byVal strVar) StaticExtName=strVar End Property '------------ build StaticFile Property end ------------ '------------ build StaticFile Public Function start --- Public Function BuildStaticFile BuildStaticFile = P_BuildStaticFile() End Function Public Function BuildAllStaticFile BuildAllStaticFile = P_BuildAllStaticFile() End Function Public Function DeleteStaticFile DeleteStaticFile = P_DeleteStaticFile() End Function Public Function DeleteAllStaticFile DeleteAllStaticFile = P_DeleteAllStaticFile() End Function '------------ build StaticFile Public Function end ----- public function replaceCT(strTag,strValue) templateStream=objCommon.regExReplace(templateStream,TEMPLATE_CT_S & strTag & TEMPLATE_CT_E,strValue) End function '------------ build StaticFile Private Function start -- Public Function P_BuildStaticFile() on error resume next dim sStaticFileStream dim i, arrTemplateTag if CreateStaticFolder(StaticFileFolder)=false then callErr("create static folder <b>" & StaticFileFolder & "</b> raised a error.") end if StaticFilePath = PhisicalPath(StaticFileFolder & StaticFileName) if templateStream="" or templateStream=null then readStream arrTemplateTag = Split(sTemplateTag,",") sStaticFileStream=application("TemplateStream") for i=0 to Ubound(arrTemplateTag) 'response.Write TEMPLATE_RS_S & arrTemplateTag(i) & TEMPLATE_RS_E if isnull(rstStatic(arrTemplateTag(i))) then sStaticFileStream = Replace(sStaticFileStream,TEMPLATE_RS_S & arrTemplateTag(i) & TEMPLATE_RS_E, "<template:rs></template:rs>") else sStaticFileStream = Replace(sStaticFileStream,TEMPLATE_RS_S & arrTemplateTag(i) & TEMPLATE_RS_E, rstStatic(arrTemplateTag(i))) end if next 'response.Write sStaticFileStream 'response.End Set oStream=oFso.CreateTextFile(StaticFilePath & StaticExtName,true) oStream.Write(sStaticFileStream) P_BuildStaticFile=True End Function Public Function P_DeleteStaticFile() on error resume next StaticFilePath=PhisicalPath(StaticFileFolder & StaticFileName) if oFSO.FileExists(StaticFilePath & StaticExtName) then oFso.deleteFile(StaticFilePath & StaticExtName) else iNoFound=iNoFound+1 WriteLn ("<script>document.getElementById('noFound').innerText='有 " & iNoFound & " 个文件未找到或已经被删除';</script>") end if P_DeleteStaticFile=True End Function End Class Function BuildStaticFile(strSQL) dim oBuildStaticFile, rstObj dim iTotalRecord, i, buildPercent, strTemp dim oTemplate,templateStream,nav_top,nav_foot,copyright Set oTemplate=new cls_Template Set oBuildStaticFile=new cls_BuildStaticFile copyright=oTemplate.loadTemplate("global.xml","COPYRIGHT") nav_top=oTemplate.loadTemplate("navigator.xml","nav_top") nav_foot=oTemplate.loadTemplate("navigator.xml","nav_foot") templateStream=oTemplate.loadTemplate("article.xml","article_detail") call oTemplate.replaceCustom("nav_top",nav_top) call oTemplate.replaceCustom("nav_foot",nav_foot) call oTemplate.replaceCustom("copyright",copyright) strTemp=oTemplate.templateStream Set rstObj=Server.CreateObject("ADODB.RecordSet") rstObj.Open strSQL, Conn, 1, 1 if rstObj.EOF and rstObj.BOF then response.write NO_RECORDS BuildStaticFile=false exit Function end if WriteLn "<table dir='1' cellspacing='0' cellpadding='0' border='0' align='center' style='background:ThreeDFace;border:2px outset;-moz-border-left-colors:ThreeDLightShadow ThreeDHighLight;-moz-border-right-colors:ThreeDDarkShadow THreeDShadow;-moz-border-top-colors:ThreeDLightShadow ThreeDHighLight;-moz-border-bottom-colors:ThreeDDarkShadow ThreeDShadow;width:600px;height:auto;margin-top:30px;'>"_ & " <tr>"_ & " <td valign='top'>"_ & " <table cellspacing='1' cellpadding='0' border='0' width='100%' align='center'>"_ & " <tr>"_ & " <td style='height:20px;vertical-align:top;text-align:left;'>"_ & " <div style='padding:2px 0px 0px 5px;height:20px;overflow:hidden;background:ActiveCaption;font:Caption;color:CaptionText'>"_ & " <span id='progressBarTitle'>Loading...</span>"_ & " </div>"_ & " </td>"_ & " </tr>"_ & " <tr>"_ & " <td style='text-align:center;padding-top:30px;'>"_ & " <div align=center>"_ & " <div style='width:90%;height:20px;border:1px solid ThreeDShadow;background:window;overflow:hidden;text-align:left;padding:1px;font-size:0px;-moz-appearance:progressbar'>"_ & " <div id='progressBar' style='width:1px;height:16px;position:relative;left:0px;background:HighLight;overflow:hidden;-moz-appearance:progresschunk;font-size:0px'>&nbsp;</div>"_ & " </div>"_ & " </div>"_ & " </td>"_ & " </tr>"_ & " </table>"_ & " </td>"_ & " </tr>"_ & " <tr>"_ & " <td style='text-align:center;padding:30px 0px 30px 0px;'>"_ & " <div align='center'>"_ & " <div style='width:90%;text-align:left;vertical-align:middle;font:normal;color:buttontext;'>"_ & " <div id='BuildStaticFileResult'>生成建立静态缓存页，请稍后...</div>"_ & " <div>需生成静态页面数： " & rstObj.recordcount & "</div>"_ & " <div id='BuildStaticFileViewer' name='BuildStaticFileViewer'></div>"_ & " </div>"_ & " </div>"_ & " </td>"_ & " </tr>"_ & "</table>"_ & "<script>"_ & "oBuilded=document.getElementById('BuildStaticFileViewer');"_ & "oResult=document.getElementById('BuildStaticFileResult');"_ & "oProgressBar=document.getElementById('progressBar');"_ & "</script>" for i=1 to rstObj.recordcount oBuildStaticFile.templateString=strTemp call oBuildStaticFile.replaceCT("previous",ArticlesPrevious(rstObj("art_id"),true)) call oBuildStaticFile.replaceCT("next",ArticlesNext(rstObj("art_id"),true)) oBuildStaticFile.TemplateTag ="art_id,art_selimg,art_digest,art_clicked,art_title,art_author,art_from,art_dateCreated,art_content" oBuildStaticFile.activers=rstObj oBuildStaticFile.StaticFileFolder=STATICFILE_ART_FOLDER & Year(rstObj("art_dateCreated")) & "-" & Month(rstObj("art_dateCreated")) & "/" oBuildStaticFile.StaticFileName=rstObj("art_id") call oBuildStaticFile.BuildStaticFile if not response.isClientConnected then response.end buildPercent=FormatNumber(i/rstObj.recordcount*100,0) response.write "<SCRIPT>"_ & "oBuilded.innerHTML='生成百分比： '+" & buildPercent & "+'% <br/>已经生成 " & i & " " & StaticExtName & " 个静态缓存页！';"_ & "oProgressBar.style.width=" & buildPercent & "+'%';"_ & "</SCRIPT>" 'response.Flush rstObj.movenext next response.write "<SCRIPT>"_ & "oResult.innerHTML='生成静态缓存页成功！成功生成 " & i-1 & " 个缓存页面！';"_ & "document.getElementById('progressBarTitle').innerText='操作成功完成';"_ & "</SCRIPT>" response.write "<p align='center'>程序执行时间： " & oBuildStaticFile.ReadExeTime & " Seconds</p>" Set oBuildStaticFile=nothing Set oTemplate=nothing BuildStaticFile=true ReleaseResource End Function Function DeleteStaticFile(strSQL) dim rstObj Set oBuildStaticFile=new cls_BuildStaticFile Set rstObj=Server.CreateObject("ADODB.RecordSet") rstObj.Open strSQL, Conn, 1, 1 if rstObj.EOF and rstObj.BOF then response.write NO_RECORDS DeleteStaticFile=false exit Function end if WriteLn "<table dir='1' cellspacing='0' cellpadding='0' border='0' align='center' style='background:ThreeDFace;border:2px outset;-moz-border-left-colors:ThreeDLightShadow ThreeDHighLight;-moz-border-right-colors:ThreeDDarkShadow THreeDShadow;-moz-border-top-colors:ThreeDLightShadow ThreeDHighLight;-moz-border-bottom-colors:ThreeDDarkShadow ThreeDShadow;width:600px;height:auto;margin-top:30px;'>"_ & " <tr>"_ & " <td valign='top'>"_ & " <table cellspacing='1' cellpadding='0' border='0' width='100%' align='center'>"_ & " <tr>"_ & " <td style='height:20px;vertical-align:top;text-align:left;'>"_ & " <div style='padding:2px 0px 0px 5px;height:20px;overflow:hidden;background:ActiveCaption;font:Caption;color:CaptionText'>"_ & " <span id='progressBarTitle'>Loading...</span>"_ & " </div>"_ & " </td>"_ & " </tr>"_ & " <tr>"_ & " <td style='text-align:center;padding-top:30px;'>"_ & " <div align=center>"_ & " <div style='width:90%;height:20px;border:1px solid ThreeDShadow;background:window;overflow:hidden;text-align:left;padding:1px;font-size:0px;-moz-appearance:progressbar'>"_ & " <div id='progressBar' style='width:1px;height:16px;position:relative;left:0px;background:HighLight;overflow:hidden;-moz-appearance:progresschunk;font-size:0px'>&nbsp;</div>"_ & " </div>"_ & " </div>"_ & " </td>"_ & " </tr>"_ & " </table>"_ & " </td>"_ & " </tr>"_ & " <tr>"_ & " <td style='text-align:center;padding:30px 0px 30px 0px;'>"_ & " <div align='center'>"_ & " <div style='width:90%;text-align:left;vertical-align:middle;font:normal;color:buttontext;'>"_ & " <div id='BuildStaticFileResult'>生成删除静态缓存页，请稍后...</div>"_ & " <div>需删除静态页面数： " & rstObj.recordcount & "</div>"_ & " <div id='BuildStaticFileViewer' name='BuildStaticFileViewer'></div>"_ & " <div id='noFound'></div>"_ & " </div>"_ & " </div>"_ & " </td>"_ & " </tr>"_ & "</table>"_ & "<script>"_ & "oBuilded=document.getElementById('BuildStaticFileViewer');"_ & "oResult=document.getElementById('BuildStaticFileResult');"_ & "oProgressBar=document.getElementById('progressBar');"_ & "</script>" for i=1 to rstObj.recordcount oBuildStaticFile.StaticFileFolder=STATICFILE_ART_FOLDER & Year(rstObj("art_dateCreated")) & "-" & Month(rstObj("art_dateCreated")) & "/" oBuildStaticFile.StaticFileName=rstObj("art_id") oBuildStaticFile.DeleteStaticFile if not response.isClientConnected then response.end buildPercent=FormatNumber(i/rstObj.recordcount*100,0) response.write "<SCRIPT>"_ & "oBuilded.innerHTML='删除百分比： '+" & buildPercent & "+'% <br/>已经删除 " & i & " " & StaticExtName & " 个静态缓存页！';"_ & "oProgressBar.style.width=" & buildPercent & "+'%';"_ & "</SCRIPT>" 'response.Flush rstObj.movenext next response.write "<SCRIPT>"_ & "oResult.innerHTML='删除静态缓存页成功！成功删除 " & i-1 & " 个缓存页面！';"_ & "document.getElementById('progressBarTitle').innerText='操作成功完成';"_ & "</SCRIPT>" response.write "<p align='center'>程序执行时间： " & oBuildStaticFile.ReadExeTime & " Seconds</p>" Set oBuildStaticFile=nothing ReleaseResource DeleteStaticFile=true End Function %>

发表于 @ 2006年06月06日 17:45:00|评论(loading...)|编辑