利用Asp生成整站静态

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【利用Asp生成整站静态】，下面是详细的分享！

利用Asp生成整站静态

<!--#include file="xmlhttp.asp"-->
<%
url="co.asp?id=2,"
wb_cx=PcMane(url)
                     IF wb_cx<>"" THEN
                     RESPONSE.Write("开始转换静态过程")
                     fso_wstr=split(wb_cx,",")
                            for i=0 to UBound(fso_wstr)-1
                            qman_html_min=(thhs(thhs(fso_wstr(i),"?","~"),".asp","")&".html")       
                            qman_html_min=getHTTPPage(http&fso_wstr(i))
                                   for j=0 to UBound(fso_wstr)-1
                                                 qman_html_min=thhs(qman_html_min,fso_wstr(j),thhs(thhs(fso_wstr(j),"?","~"),".asp","")&".html")
                                                 qman_html_min=thhs(qman_html_min,".html&",".html?")
                                   next
                                          Set fso=Server.CreateObject("Scripting.FileSystemObject")
                                                 FilePath=Server.MapPath(qman_html_url)
                                                        Set fout=fso.CreateTextFile(FilePath)
                                                               qman_html_min=qman_html_min&"<script type='text/javascript'>"&_
                                                               "if (!document.location.search=='')"&_
                                                               "{"&_
                                                               "var h=location.href;"&_
                                                               "var r=new RegExp('[^\\?]*/([^&]*)','i');"&_
                                                               "var t=h.match(r);"&_
                                                               "if (t)"&_
                                                               "{"&_
                                                               "var str=t[1]; "&_
                                                               "newstr=str.replace('.html?','&'); "&_
                                                               "location=newstr+'.html';"&_
                                                               "}"&_
                                                               "}"&_
                                                               "</script>"
                                                               fout.WriteLine qman_html_min
                            NEXT
                     else
                            response.Write("没有成功")
                     END IF



function PcMane(url)
       dim arrID
       arrID=FormateOrderBy(arrID&url)
       http="http://www.gong-z.com/"
       DG_Split=Split(arrID,",")
       for i=0 to Ubound(DG_Split)-1
       DG_href="http://www.chinaz.com/program/2007/0408/<(a href=http://www.chinaz.com/program/2007/0408/)[\w].+?>"
       DG_wstr_1=DG_wstr_1&stripHTML(">",stripHTML("<a href="http://www.chinaz.com/program/2007/0408/,RegExpTest(DG_href,getHTTPPage(http&DG_Split(i)))))
       next
       if len(arrID)=len(FormateOrderBy(DG_wstr_1)) then
       PcMane=FormateOrderBy(DG_wstr_1)
       exit function
       else
       arrID=PcMane(DG_wstr_1)
       end if
       PcMane=FormateOrderBy(arrID)
end function
Function FormateOrderBy(OrderByText)   
Dim   tmp,tmp2,i,j   
tmp3=""   
tmp   =   Split(OrderByText,",")   
For   i=0   To   Ubound(tmp)-1   
For   j=i+1   To   Ubound(tmp)   
If   UCase(Trim(tmp(i)))=UCase(Trim(tmp(j)))   Then   
tmp(j)=""   
End   If   
Next   
Next   
tmp2=""   
For   i=0   To   Ubound(tmp)   
If   tmp(i)<>""Then tmp2=tmp2&tmp(i)&","   
Next   
FormateOrderBy=Left(tmp2,Len(tmp2))   
End Function

'正则函数
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=True
regEx.Global=True
Set Matches=regEx.Execute(strng)
For Each Match in Matches
RetStr=RetStr & Match.Value&","
Next
RegExpTest=RetStr
End Function
Function stripHTML(patrn,strHTML)
Dim objRegExp, strOutput
Set objRegExp=New Regexp
objRegExp.IgnoreCase=True
objRegExp.Global=True
objRegExp.Pattern=patrn
strOutput=objRegExp.Replace(strHTML, "")
stripHTML=strOutput
Set objRegExp=Nothing
End Function
%>

以上所分享的是关于利用Asp生成整站静态，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：asp整站生成静态的问题

　　答：不建议整站生成html的，比如资讯列表倒序排列需要经常生成html 用isapi做url的映射吧 >>详细

　　相关问题：ASP网站如何生成静态页?

　　答：'/* FSO生成文件的函数 '/* 参数file 文件名(带扩展名 带绝对或相对路径) '/* code 文件的内容 Function CreaterFile(file,code) dim MyFile Set fso = CreateObject("scripting.filesystemobject") Set MyFile = fso.CreateTextFile(Server.map... >>详细

　　相关问题：有谁对ASP语言熟悉 并且能够生成生成后台一键生成...

　　答：现在网上开源的ASP CMS都有这功能,不过一键生成所有的不暂成，都是选择性生成，生成所有会很占系统资源 >>详细