仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 569|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页编程之ASP有用函数库

[复制链接]
深爱那片海 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:27:03 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.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则处于劣势.这可能与公司的支持以及技术的培训有关.
蒙在股里 该用户已被删除
9#
发表于 2015-3-25 23:47:24 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
灵魂腐蚀 该用户已被删除
8#
发表于 2015-3-18 14:14:27 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
老尸 该用户已被删除
7#
发表于 2015-3-11 12:25:24 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
柔情似水 该用户已被删除
6#
发表于 2015-3-3 16:38:39 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
金色的骷髅 该用户已被删除
5#
发表于 2015-2-13 06:00:37 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
分手快乐 该用户已被删除
地板
发表于 2015-2-5 18:34:26 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
再现理想 该用户已被删除
板凳
发表于 2015-1-28 07:11:26 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
沙发
发表于 2015-1-19 12:47:05 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-11-15 10:43

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表