CSDN - 文档中心 - ASP　　
　
标题　　 ASP实用函数库源码（一）　　littleyy（原作）
　
关键字　　 ASP
　


下面的代码是我最近正在整理的常用代码的一部分，陆续我将放出更多的实用代码，请大家把自己的代码回复，一边我整理，谢谢！

QQ:393356

<%


判断文件名是否合法
Function isFilename(aFilename)
Dim sErrorStr,iNameLength,i
isFilename=TRUE
sErrorStr=Array("/","\",":","*","?","""","<",">","|")
iNameLength=Len(aFilename)
If iNameLength<1 Or iNameLength=null Then
　isFilename=FALSE
Else
　For i=0 To 8
　 If instr(aFilename,sErrorStr(i)) Then
　　isFilename=FALSE　　
　 End If
　Next
End If
End Function

去掉字符串头尾的连续的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
end function

去掉字符串开头的连续的回车和空格
function ltrimVBcrlf(str)
dim pos,isBlankChar
pos=1
isBlankChar=true
while isBlankChar
　if mid(str,pos,1)=" " then
　 pos=pos+1
　elseif mid(str,pos,2)=VBcrlf then
　 pos=pos+2
　else
　 isBlankChar=false
　end if
wend
ltrimVBcrlf=right(str,len(str)-pos+1)
end function

去掉字符串末尾的连续的回车和空格
function rtrimVBcrlf(str)
dim pos,isBlankChar
pos=len(str)
isBlankChar=true
while isBlankChar and pos>=2
　if mid(str,pos,1)=" " then
　 pos=pos-1
　elseif mid(str,pos-1,2)=VBcrlf then
　 pos=pos-2
　else
　 isBlankChar=false
　end if
wend
rtrimVBcrlf=rtrim(left(str,pos))
end function

判断Email是否有效,返回1表示正确
Function isEmail(aEmail)
Dim iLocat,v,iLength,i,checkletter
If instr(aEmail,"@") = 0 Or instr(aEmail,".") = 0 Then
　isEmail=0
　EXIT FUNCTION
End If
iLocat=instr(aEmail,"@")
If instr(iLocat,aEmail,".")=0 Or instr(iLocat+1,aEmail,"@")>0 Then
　isEmail=0
　EXIT FUNCTION
End If
If left(aEmail,1)="." Or right(aEmail,1)="." Or left(aEmail,1)="@" Or right(aEmail,1)="@" Then
　isEmail=0
　EXIT FUNCTION
End If
v="1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-.@"
iLength=len(aEmail)
For i=1 To iLength
　checkletter=mid(aEmail,i,1)
　If instr(v,checkletter)=0 Then
　 isEmail=0
　 EXIT FUNCTION
　End If
Next
isEmail=1
End Function

测试用:显示服务器信息
Sub showServer
Dim name
Response.write ""
for each name in request.servervariables
　Response.write ""
　Response.write ""
　Response.write ""
　Response.write ""
next
Response.write "

"&name&"

"&request.servervariables(name)&"

"
End Sub

测试用:显示Rs结果集以及字段名称
Sub showRs(rs)
Dim strTable,whatever
Response.write ""
for each whatever in rs.fields
　response.write ""
next
strTable = "

" & whatever.name & "
"&rs.GetString(,,"	","
"," ") &"

"
Response.Write(strTable)
End Sub

用HTML格式显示文本
Function txt2Html(str)
if isnull(str) then
　txt2Html=""
　exit Function
end if
str=Replace(str,chr(34),""")
str=Replace(str,"<","<")
str=Replace(str,">",">")
str=Replace(str,chr(13)+chr(10),"
")
str=Replace(str,chr(9),"    ")
str=Replace(str," "," ")
txt2Html=str
End Function

测试用:显示调试错误信息
Sub showError
Dim sErrMsg
sErrMsg=Err.Source&" "&Err.Description
Response.write ""&sErrMsg&""
Err.clear
End Sub

显示文字计数器
Sub showCounter
Dim fs,outfile,filename,count
filename=server.mappath("count.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileExists(filename) Then
Set outfile=fs.openTextFile(filename,1)
count=outfile.readline
count=count+1
Response.write "浏览人次："&count&""
outfile.close
Set outfile=fs.CreateTextFile(filename)
outfile.writeline(count)
Else
Set outfile=fs.openTextFile(filename,8,TRUE)
count=0
outfile.writeline(count)
END IF
outfile.close
set fs=nothing
End Sub
%>



作者相关文章：
简单WEB开发规范（修正版）(原作)


其它相关文章：
查看ASP Session 变量的小工具(原作)
大中型网络公司的一条发展之路(原作)
把数据插入到数据库的两种方法(原作)
ASP实现最简单的加密。(原作)
轻松打造ASP计数器。(原作)





对该文的评论　


发表评论
你还没有登录：昵称:　密码:　免费注册　 评论：
　
　　　



--------------------------------------------------------------------------------
网站简介 - 广告服务 - 网站地图 - 帮助信息 - 联系方式　
百联美达美公司 版权所有 京ICP证020026号
Copyright © CSDN.net, Inc. All rights reserved