ASP网站制作之使用Asp天生整站静态
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。良多人在网说要全站转静态程序可是年夜多半都没了局的，以是小mm凭着一孔之见的写了这个代码但愿有懂得asp转静态手艺交换一下QUOTE:<%
OnErrorResumeNext
Server.ScriptTimeOut=9999999
FunctiongetHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
Endfunction
FunctionGetBody(url)
onerrorresumenext
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
FunctionNewstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
ifNewstring<=0thenNewstring=Len(wstr)
EndFunction
%>
xmlhttp.asp
QUOTE:<!--#includefile="xmlhttp.asp"-->
<%
url="co.asp?id=2,"
wb_cx=PcMane(url)
IFwb_cx""THEN
RESPONSE.Write("入手下手转换静态历程")
fso_wstr=split(wb_cx,",")
fori=0toUBound(fso_wstr)-1
qman_html_min=(thhs(thhs(fso_wstr(i),"?","~"),".asp","")&".html")
qman_html_min=getHTTPPage(http&fso_wstr(i))
forj=0toUBound(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
Setfso=Server.CreateObject("Scripting.FileSystemObject")
FilePath=Server.MapPath(qman_html_url)
Setfout=fso.CreateTextFile(FilePath)
qman_html_min=qman_html_min&"<scripttype=text/javascript>"&_
"if(!document.location.search==)"&_
"{"&_
"varh=location.href;"&_
"varr=newRegExp([^?]*/([^&]*),i);"&_
"vart=h.match(r);"&_
"if(t)"&_
"{"&_
"varstr=t;"&_
"newstr=str.replace(.html?,&);"&_
"location=newstr+.html;"&_
"}"&_
"}"&_
"</script>"
fout.WriteLineqman_html_min
NEXT
else
response.Write("没有乐成")
ENDIF
functionPcMane(url)
dimarrID
arrID=FormateOrderBy(arrID&url)
http="http://www.gong-z.com/"
DG_Split=Split(arrID,",")
fori=0toUbound(DG_Split)-1
DG_href="<(ahref=).+?>"
DG_wstr_1=DG_wstr_1&stripHTML(">",stripHTML("<ahref=",RegExpTest(DG_href,getHTTPPage(http&DG_Split(i)))))
next
iflen(arrID)=len(FormateOrderBy(DG_wstr_1))then
PcMane=FormateOrderBy(DG_wstr_1)
exitfunction
else
arrID=PcMane(DG_wstr_1)
endif
PcMane=FormateOrderBy(arrID)
endfunction
FunctionFormateOrderBy(OrderByText)
Dimtmp,tmp2,i,j
tmp3=""
tmp=Split(OrderByText,",")
Fori=0ToUbound(tmp)-1
Forj=i+1ToUbound(tmp)
IfUCase(Trim(tmp(i)))=UCase(Trim(tmp(j)))Then
tmp(j)=""
EndIf
Next
Next
tmp2=""
Fori=0ToUbound(tmp)
Iftmp(i)""Thentmp2=tmp2&tmp(i)&","
Next
FormateOrderBy=Left(tmp2,Len(tmp2))
EndFunction
正则函数
FunctionRegExpTest(patrn,strng)
DimregEx,Match,Matches
SetregEx=NewRegExp
regEx.Pattern=patrn
regEx.IgnoreCase=True
regEx.Global=True
SetMatches=regEx.Execute(strng)
ForEachMatchinMatches
RetStr=RetStr&Match.Value&","
Next
RegExpTest=RetStr
EndFunction
FunctionstripHTML(patrn,strHTML)
DimobjRegExp,strOutput
SetobjRegExp=NewRegexp
objRegExp.IgnoreCase=True
objRegExp.Global=True
objRegExp.Pattern=patrn
strOutput=objRegExp.Replace(strHTML,"")
stripHTML=strOutput
SetobjRegExp=Nothing
EndFunction
%>
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 那么，ASP.Net有哪些改进呢？ 不能只是将它停留在纸上谈兵的程度上。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
页:
[1]