ASP网页编程之ASP有用函数库

大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧<%
判别文件名是不是正当
FunctionisFilename(aFilename)
DimsErrorStr,iNameLength,i
isFilename=TRUE
sErrorStr=Array("/","",":","*","?","""","<",">","|")
iNameLength=Len(aFilename)
IfiNameLength<1OriNameLength=nullThen
isFilename=FALSE
Else
Fori=0To8
Ifinstr(aFilename,sErrorStr(i))Then
isFilename=FALSE
EndIf
Next
EndIf
EndFunction
往失落字符串头尾的一连的回车和空格
functiontrimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
endfunction
往失落字符串开首的一连的回车和空格
functionltrimVBcrlf(str)
dimpos,isBlankChar
pos=1
isBlankChar=true
whileisBlankChar
ifmid(str,pos,1)=""then
pos=pos+1
elseifmid(str,pos,2)=VBcrlfthen
pos=pos+2
else
isBlankChar=false
endif
wend
ltrimVBcrlf=right(str,len(str)-pos+1)
endfunction
往失落字符串开端的一连的回车和空格
functionrtrimVBcrlf(str)
dimpos,isBlankChar
pos=len(str)
isBlankChar=true
whileisBlankCharandpos>=2
ifmid(str,pos,1)=""then
pos=pos-1
elseifmid(str,pos-1,2)=VBcrlfthen
pos=pos-2
else
isBlankChar=false
endif
wend
rtrimVBcrlf=rtrim(left(str,pos))
endfunction
判别Email是不是无效,前往1暗示准确
FunctionisEmail(aEmail)
DimiLocat,v,iLength,i,checkletter
Ifinstr(aEmail,"@")=0Orinstr(aEmail,".")=0Then
isEmail=0
EXITFUNCTION
EndIf
iLocat=instr(aEmail,"@")
Ifinstr(iLocat,aEmail,".")=0Orinstr(iLocat+1,aEmail,"@")>0Then
isEmail=0
EXITFUNCTION
EndIf
Ifleft(aEmail,1)="."Orright(aEmail,1)="."Orleft(aEmail,1)="@"Orright(aEmail,1)="@"Then
isEmail=0
EXITFUNCTION
EndIf
v="1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-.@"
iLength=len(aEmail)
Fori=1ToiLength
checkletter=mid(aEmail,i,1)
Ifinstr(v,checkletter)=0Then
isEmail=0
EXITFUNCTION
EndIf
Next
isEmail=1
EndFunction
测试用:显现服务器信息
SubshowServer
Dimname
Response.write"<Tableborder=1bordercolor=lightblueCELLSPACING=0>"
foreachnameinrequest.servervariables
Response.write"<tr>"
Response.write"<td>"&name&"</td>"
Response.write"<td>"&request.servervariables(name)&"<br></td>"
Response.write"</tr>"
next
Response.write"</table>"
EndSub
测试用:显现Rs了局集和字段称号
SubshowRs(rs)
DimstrTable,whatever
Response.write"<center><table><tr>"
foreachwhateverinrs.fields
response.write"<td><b>"&whatever.name&"</B></TD>"
next
strTable="</tr><tr><td>"&rs.GetString(,,"</td><td>","</tr><tr><td>","")&"</td></tr></table></center>"
Response.Write(strTable)
EndSub
用HTML格局显现文本
functionHTMLEncode(fString)
ifnotisnull(fString)then
fString=replace(fString,">",">")
fString=replace(fString,"<","<")
fString=Replace(fString,CHR(32),"")
fString=Replace(fString,CHR(34),""")
fString=Replace(fString,CHR(39),"")
fString=Replace(fString,CHR(13),"")
fString=Replace(fString,CHR(10)&CHR(10),"</P><P>")
fString=Replace(fString,CHR(10),"<BR>")
HTMLEncode=fString
endif
endfunction
测试用:显现调试毛病信息
SubshowError
DimsErrMsg
sErrMsg=Err.Source&""&Err.Description
Response.write"<center>"&sErrMsg&"</center>"
Err.clear
EndSub
显现笔墨计数器
SubshowCounter
Dimfs,outfile,filename,count
filename=server.mappath("count.txt")
Setfs=CreateObject("Scripting.FileSystemObject")
Iffs.fileExists(filename)Then
Setoutfile=fs.openTextFile(filename,1)
count=outfile.readline
count=count+1
Response.write"<center>扫瞄人次："&count&"<center>"
outfile.close
Setoutfile=fs.CreateTextFile(filename)
outfile.writeline(count)
Else
Setoutfile=fs.openTextFile(filename,8,TRUE)
count=0
outfile.writeline(count)
ENDIF
outfile.close
setfs=nothing
EndSub
%>
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.

仓酷云

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")