ASP教程之ASP罕见成绩及解答(7)
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的解答|成绩1.分类：语法使用成绩形貌：查找两个字符串间的字符呈现次数
办理举措：
functionFindStringTimes(strContent,start_string,end_string)start_string与end_string之间字符出次的数
writtenbyJaron
FindStringTimes=ubound(split(strContent,start_string))
endfunction
示例：查找以下字符串有几张图片
response.writeFindStringTimes(HTML,"<imgsrc=http://www.163design.net/a/q/"c.jpg">
2.遍历目次和目次下文件的函数
<%
functionbianli(path)
setfso=server.CreateObject("scripting.filesystemobject")
onerrorresumenext
setobjFolder=fso.GetFolder(path)
setobjSubFolders=objFolder.Subfolders
foreachobjSubFolderinobjSubFolders
nowpath=path+""+objSubFolder.name
Response.Writenowpath
setobjFiles=objSubFolder.Files
foreachobjFileinobjFiles
Response.Write"<br/>---"
Response.WriteobjFile.name
next
Response.Write"<p>"
bianli(nowpath)递回
next
setobjFolder=nothing
setobjSubFolders=nothing
setfso=nothing
endfunction
%>
<%
bianli("d:")遍历d:盘
%>
3.天生一个不反复的随即数字
SubCalCaPiao()
DimstrCaiPiaoNoArr()AsString
DimstrSQLAsString
DimstrCaiPiaoNoAsString
strCaiPiaoNo="01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33"
DimStrTempArr(7)AsString
DimstrZhongJiangArr(7)AsString
strCaiPiaoNoArr=Split(strCaiPiaoNo,",")
DimintRandAsInteger
DimiAsInteger
DimjAsInteger
i=0
DimfindAsBoolean
DoWhileTrue
find=False
Randomize
intRand=Int((33*Rnd)+1)
Forj=0Toi-1
IfStrTempArr(j)=CStr(intRand)Then
find=True
EndIf
Next
IfNotfindThen
StrTempArr(j)=CStr(intRand)
strZhongJiangArr(i)=CStr(intRand)
Text1(i)=strZhongJiangArr(i)
i=i+1
Ifi=7Then
ExitDo
EndIf
EndIf
Loop
EndSub
4.下载任何文件（特别是IE联系关系翻开的）
<%
DimStream
DimContents
DimFileName
DimFileExt
ConstadTypeBinary=1
FileName=Request.QueryString("FileName")
ifFileName=""Then
Response.Write"有效文件名."
Response.End
Endif
上面是不但愿下载的文件
FileExt=Mid(FileName,InStrRev(FileName,".")+1)
SelectCaseUCase(FileExt)
Case"ASP","ASA","ASPX","ASAX","MDB"
Response.Write"受回护文件,不克不及下载."
Response.End
EndSelect
下载这个文件
Response.Clear
Response.ContentType="application/octet-stream"
Response.AddHeader"content-disposition","attachment;filename="&FileName
SetStream=server.CreateObject("ADODB.Stream")
Stream.Type=adTypeBinary
Stream.Open
Stream.LoadFromFileServer.MapPath(FileName)
WhileNotStream.EOS
Response.BinaryWriteStream.Read(1024*64)
Wend
Stream.Close
SetStream=Nothing
Response.Flush
Response.End
%>
5.背景致变更
<form>
<p><inputTYPE="button"value="背景致变更"onClick="BgButton()"></p>
</form>
<script>functionBgButton(){
if(document.bgColor==#00ffff)
{document.bgColor=#ffffff;}
else{document.bgColor=#00ffff;}
}
</script>
6.点击翻开新窗口
<form>
<p><inputTYPE="button"value="翻开新窗口"onCLICK="NewWindow()"></p>
</form>
<scriptlanguage="javascript"><!--
functionNewWindow(){window.open("http://www.mcmx.com";;;,"","height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no");}
//--></script></body>
7.分页代码:
<%本程叙文件名为：Pages.asp%>
<%包括ADO常量表文件adovbs.inc，可从"ProgramFilesCommonFilesSystemADO"目次下拷贝%>
<!--#IncludeFile="adovbs.inc"-->
<%＊创建数据库毗连，这里是Oracle8.05数据库
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"Prov</p>ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。
页:
[1]