ASP网站制作之之前搜集的一些材料---不必组件上载文件...
因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。文件fformat.inc<SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPT>
functionFoot()
DIMHTML
HTML="<hr><TableBorder=0Width=100%><TR><TD><fontsize=1>Sampleupload/downloadviaASPfrom<ahref=http://www.pstruh.cz>PSTRUHSoftware</a>.</font>"
HTML=HTML&"</td><tdAlign=right><FontSize=1><AHRef=http://www.pstruh.cz/help/ScptUtl/library.htm>ActivexUpload</A>?AHRef=http://www.pstruh.cz/help/usrmgr/library.htm>ActiveXUserManager</A>?AHRef=http://www.pstruh.cz/help/RSConv/library.htm>DBFon-the-fly</A>?AHRef=http://www.pstruh.cz/help/tcpip/library.htm>ActiveXDNS+TraceRoute</A>?AHRef=http://www.pstruh.cz/help/urlrepl/library.htm>URLReplacer</A>?/Font>"
HTML=HTML&"</td></tr></table></Body></HTML>"
Foot=HTML
endfunction
functionHead(Title,Description)
DIMHTML
HTML="<HTML><Head>"
HTML=HTML&"<Title>"&Title&"</Title>"
HTML=HTML&"<MetaContent="""&Description&"""Name=""Description"">"
HTML=HTML&Style()
HTML=HTML&"</Head>"
HTML=HTML&Body()
Head=HTML
endfunction
functionBody()
DIMHTML
HTML="<bodyALINK=YELLOWbgcolor=WhiteLeftMargin=0TopMargin=0>"&vbCrLf
HTML=HTML&ClHead()&vbCrLf
HTML=HTML&Source()
Body=HTML
<LeftMargin=0TopMargin=0Style="margin-right:0pt;margin-top:0pt;margin-left:0pt;">
endfunction
functionStyle()
Style="<STYLETYPE=""text/css""><--BODY{font-size:10pt;font-family:Arial,ArialCE,Helvetica,sans-serif}--></STYLE>"
<LeftMargin=0TopMargin=0Style="margin-right:0pt;margin-top:0pt;margin-left:0pt;">
endfunction
functionClHead()
DIMHTML
HTML=HTML&"<TABLEwidth=100%border=1cellpadding=1cellspacing=0BORDERCOLOR=WHITE><trbgcolor=SILVER>"
HTML=HTML&"<th><ahref=fupload.asp>Multipletextfilesupload</a></th>"
HTML=HTML&"<th><ahref=fdbupl.asp>Uploadtodatabase</a></th>"
HTML=HTML&"<th><ahref=fdbdown.asp>Downloadfromdatabase</a></th>"
HTML=HTML&"<th><ahref="&request.servervariables("script_name")&"?S=1>Viewsource</a></th>"
HTML=HTML&"</tr></table>"
ClHead=HTML
endfunction
functionSource()
DIMHTML
ifrequest.querystring("S")""then
HTML=HTML&"<pre>"&server.htmlencode(CreateObject("Scripting.FileSystemObject").OpenTextFile_
(server.mappath(request.servervariables("script_name")),1,False,False).readall)&"</pre>"
endif
Source=BasicEncode(HTML)
endfunction
FunctionBasicEncode(ByValVBCode)
DimPom,PosStart,PosEnd
PosStart=InStr(VBCode,"")
DoWhilePosStart>0
PosEnd=InStr(PosStart+1,VBCode,vbCrLf)
IfPosEnd=0ThenPosEnd=Len(VBCode)
Pom=Left(VBCode,PosStart-1)&"<fontcolor=green>"
Pom=Pom&Mid(VBCode,PosStart,PosEnd-PosStart-0)&"</font>"
Pom=Pom&Mid(VBCode,PosEnd)
VBCode=Pom
PosStart=InStr(PosEnd+1,VBCode,"")
Loop
VBCode=FilterBeginEnd(VBCode,"",vbCrLf,"green")
VBCode=FilterBeginEnd(VBCode,""",""&</p>由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况； 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。
页:
[1]