仓酷云

标题: ASP网页编程之ASP有用函数库(1) [打印本页]

作者: 愤怒的大鸟 时间: 2015-1-16 22:16
标题: ASP网页编程之ASP有用函数库(1)
使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。函数<%
判别文件名是不是正当
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
%>在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

作者: 再见西城 时间: 2015-1-17 12:12
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 灵魂腐蚀 时间: 2015-1-20 18:50
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 深爱那片海 时间: 2015-1-29 15:02
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 冷月葬花魂 时间: 2015-2-6 02:20
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 小妖女 时间: 2015-2-15 01:36
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

作者: 莫相离 时间: 2015-3-4 10:55
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

作者: 因胸联盟 时间: 2015-3-11 18:40
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 小魔女 时间: 2015-3-19 07:49
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 飘灵儿 时间: 2015-3-27 16:10
那么，ASP.Net有哪些改进呢？

欢迎光临仓酷云 (http://ckuyun.com/)