ASP实用函数库源码(一)

原创 2003年03月23日 11:16:00

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

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 "<Table border=1 bordercolor=lightblue CELLSPACING=0>"
 for each name in request.servervariables
  Response.write "<tr>"
  Response.write "<td>"&name&"</td>"
  Response.write "<td>"&request.servervariables(name)&"<br></td>"
  Response.write "</tr>"
 next
 Response.write "</table>"
End Sub

'测试用:显示Rs结果集以及字段名称
Sub showRs(rs)
 Dim strTable,whatever
 Response.write "<center><table><tr>"
 for each whatever in rs.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)
End Sub

'用HTML格式显示文本
Function txt2Html(str)
 if isnull(str) then
  txt2Html=""
  exit Function
 end if
 str=Replace(str,chr(34),"&quot;")
 str=Replace(str,"<","&lt")
 str=Replace(str,">","&gt")
 str=Replace(str,chr(13)+chr(10),"<br>")
 str=Replace(str,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
 str=Replace(str," ","&nbsp;")
 txt2Html=str
End Function

'测试用:显示调试错误信息
Sub showError
 Dim sErrMsg
 sErrMsg=Err.Source&" "&Err.Description
 Response.write "<center>"&sErrMsg&"</center>"
 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 "<center>浏览人次:"&count&"<center>"
 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
%>

发布中小企业产品展示的ASP网站整站源代码

好长时间没有发点什么可供大家分享和下载的东西了,说实话,CG个人最近比较忙,学校组织我们去常熟的某个学校培训Java课程,之前又出去旅游了一段时间,最近一个星期又因为我的母校单方面的原因,搞得在这里培...
  • yctccg
  • yctccg
  • 2016年08月16日 10:39
  • 794

ASP上传图片代码例子

index.asp
  • tomora
  • tomora
  • 2013年09月15日 10:25
  • 2965

PHP 实用函数库

/** * 删除清除bom头 * $content 文件内容 */ function clear_bom($content){ if(substr($content, 0, 3) == ...
  • zbseoag
  • zbseoag
  • 2016年05月18日 20:45
  • 155

下载的asp源码怎么使用?

关于源码到底应该什么使用的问题 做为一个新手+菜鸟,特别是喜欢搞自己的网站却对源码的概念一窍不 通的人来说 。最大的痛苦莫过于把一个源码下载下来之后,却发现自己不知道什么用。一般 下载下来都是一个 ...
  • pccmy
  • pccmy
  • 2016年06月26日 16:58
  • 409

学校的远程教育网络课程的整站ASP源代码

又有好长时间没有写点什么了,不知道自己什么时候能够忙结束,今天抽点时间写点东西,顺便放一个算是RC版本的网络课程的整站解决方案,说方案其实有点夸张其实只是一个整站的源代码而已,目前正在测试中,另外有些...
  • yctccg
  • yctccg
  • 2016年08月16日 10:39
  • 835

SQL注入系列之环境搭建(一)----ASP+ACCESS注入环境搭建

一、常见网站搭建组合 操作系统:windows linux 搭建平台:iis apache uginx tomcat 脚本格式:asp php aspx jsp cgi war py pl do...
  • u011781521
  • u011781521
  • 2016年12月29日 10:45
  • 2860

asp购物车源码

无标题文档 a{text-decoration:none;} td,div{font-size:12px}
  • quweiie
  • quweiie
  • 2014年05月18日 13:27
  • 3482

文件上传之asp代码,工作原理,以及post包数据格式

代码来源于网络
  • heikefangxian23
  • heikefangxian23
  • 2014年10月30日 10:59
  • 2319

asp+ajax版的购物车

购物车- 我的购物车 选项   商品信息 单价(元) 数量 金额 操作 ...
  • quweiie
  • quweiie
  • 2016年02月02日 16:14
  • 1357

实验三:学生工作管理系统asp和asp.cs代码

粗糙的学生工作管理系统
  • u014646950
  • u014646950
  • 2015年06月15日 12:58
  • 1405
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP实用函数库源码(一)
举报原因:
原因补充:

(最多只允许输入30个字)