50个ASP函数.docx
- 文档编号:3770214
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:95
- 大小:44.63KB
50个ASP函数.docx
《50个ASP函数.docx》由会员分享,可在线阅读,更多相关《50个ASP函数.docx(95页珍藏版)》请在冰点文库上搜索。
50个ASP函数
50个ASP函数
目录
0001截字符串
0002过滤html
0003打开任意数据表并显示表结构及内容
0004读取两种路径
0005测试某个文件存在否
0006删除某个文件
0007判断目录是否存在
0008创建目录
0009删除目录
0010指定目录的文件列表
0011指定目录的目录列表
0012创建文本文件
0013读取文本文件
0014检测ID是否为数字类型
0015正则表达式测试
0016获得执行程序的名称
0017读取用户IP地址信息
0018上传文件到指定目录并改文件名称
0019过滤HTML脚本
0020创建MsAccess数据库
0021创建MsSQLServer数据库
0022通过JMAIL发信
0023测试组件是否安装
0024上传文件的窗口
0025取得数据库链接字串
0026取得multipart/form-data形式上传文件
0027保存或查看上传到数据库中的数据,带调用上传窗口
0028取得图像的类型|宽|高
0029将本地文件进行二进制分析,并保存到服务器的指定目录下
0030将本地数据表或库上传并导入到服务器数据库的表中
0031返回服务器信息
0032产生20位长度的唯一标识ID
0033用于左填充指定数量的字符
0034用于右填充指定数量的字符
0035格式化时间(显示)
0036测试数据库是否存在
0037测试数据库中的表是否存在
0038在线HTML编辑器
0039判断是否奇数
0040生成验证码图像BMP
0041生成随机密码
0042字符加解密
0043解密字符加解密
0044创建数据表
0045在数据库中插入字段值
0046Cookie防乱码写入时用
0047Cookie防乱码读出时用
0048检测用户名和密码是否正确
0049生成时间的整数
0050获得栏目的所有子栏目字符串并用","隔开]
'**************************************************''''
'函数ID:
0001[截字符串]
'函数名:
SubstZFC
'作用:
截字符串,汉字一个算两个字符,英文算一个字符
'参数:
str----原字符串
'strlen----截取长度
'返回值:
截取后的字符串
'**************************************************
PublicFunctionSubstZFC(ByValstr,ByValstrlen)
Ifstr=""Then
SubstZFC=""
ExitFunction
EndIf
Diml,t,c,i,strTemp
str=Replace(Replace(Replace(Replace(str,"",""),""",Chr(34)),">",">"),"<","<")
l=Len(str)
t=0
strTemp=str
strlen=CLng(strlen)
Fori=1Tol
c=Abs(Asc(Mid(str,i,1)))
Ifc>255Then
t=t+2
Else
t=t+1
EndIf
Ift>=strlenThen
strTemp=Left(str,i)
ExitFor
EndIf
Next
SubstZFC=Replace(Replace(Replace(Replace(strTemp,"",""),Chr(34),"""),">",">"),"<","<")
EndFunction
**************************************************
'函数ID:
0002[过滤html]
'函数名:
GlHtml
'作用:
过滤html元素
'参数:
str----要过滤字符
'返回值:
没有html的字符
'**************************************************
PublicFunctionGlHtml(ByValstr)
IfIsNull(str)OrTrim(str)=""Then
GlHtml=""
ExitFunction
EndIf
Dimre
Setre=NewRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.Replace(str,"")
re.Pattern="(\<\/[^\<]*\>)"
str=re.Replace(str,"")
Setre=Nothing
str=Replace(str,"'","")
str=Replace(str,Chr(34),"")
GlHtml=str
EndFunction
'**************************************************
'函数ID:
0003[打开任意数据表并显示表结构及内容]
'函数名:
OpOtherDB
'作用:
打开任意数据表并显示表结构及内容
'参数:
DBtheStr----要打开表的数据库链接字串
'参数:
Opentdname----要打开表名
'返回值:
显示表结构及内容
'**************************************************
PublicFunctionOpOtherDB(ByValDBtheStr,ByValOpentdname)
Response.write"
SetOpdb_Conn=server.createobject("ADODB.Connection")
SetOpdb_Rs=server.createobject("ADODB.Recordset")
Opdb_Conn.openDBtheStr
Opdb_sql_str="select*from"&Opentdname
Opdb_Rs.openOpdb_Sql_Str,Opdb_Conn,1,1
Nfieldnumber=Opdb_Rs.Fields.count
IfNfieldnumber>0then
Response.write"
Fori=0to(Nfieldnumber-1)
Response.write" ridge;border-width: 1'bgcolor='#E1E1E1'valign='middle'align='center'>" Response.writeTrim(Opdb_Rs.Fields(i).Name) Response.write""&vbCrlf Next temptbi=0 DoWhileNotOpdb_Rs.Eof Response.write"
Fori=0to(Nfieldnumber-1)
If(temptbi<2)Then
Response.write" ridge;border-width: 1'bgcolor='#F6F6F6'valign='middle'>" Response.writeTrim(Opdb_Rs.Fields(i)) Response.write""&vbCrlf temptbi=temptbi+1 Else Response.write" ridge;border-width: 1'valign='middle'>" Response.writeTrim(Opdb_Rs.Fields(i)) Response.write""&vbCrlf Iftemptbi>=3Then temptbi=0 Else temptbi=temptbi+1 EndIf EndIf Next Opdb_Rs.MoveNext Response.write""&vbCrlf Loop EndIf Opdb_Rs.Close Opdb_Conn.Close SetOpdb_Rs=Nothing SetOpdb_Conn=Nothing Response.write""&vbCrlf Endfunction '************************************************** '函数ID: 0004[读取两种路径] '函数名: Readsyspath '作用: 读取路径 '参数: lx----0: 服务器IP加路径1: 服务物理路径 '返回值: 路径字串 '************************************************** PublicFunctionReadsyspath(ByVallx) Dimtemplj,aryTemp,newpath templj="" newpath="" Iflx=0Then templj="http: //"&Request("SERVER_NAME")&Request("PATH_INFO") aryTemp=Split(templj,"/") Else templj=Request("PATH_TRANSLATED") aryTemp=Split(templj,"\") EndIf Fori=LBound(aryTemp)ToUBound(aryTemp)-1 Iflx=0Then newpath=newpath&aryTemp(i)&"/" Else newpath=newpath&aryTemp(i)&"\" EndIf Next Readsyspath=newpath EndFunction '************************************************** '函数ID: 0005[测试某个文件存在否] '函数名: CheckFile '作用: 测试某个文件存在否 '参数: ckFilename----被测试的文件名(包括路径) '返回值: 文件存在返回True,否则False '************************************************** PublicFunctionCheckFile(ByValckFilename) DimM_fso CheckFile=False SetM_fso=CreateObject("Scripting.FileSystemObject") IfM_fso.FileExists(ckFilename)Then CheckFile=True EndIf SetM_fso=Nothing EndFunction '************************************************** '函数ID: 0006[删除某个文件] '函数名: DelFile '作用: 删除某个文件 '参数: dFilename----被删除的文件名(包括路径) '返回值: 文件删除返回True,否则False '************************************************** PublicFunctionDelFile(ByValdFilename) DimM_fso DelFile=False SetM_fso=CreateObject("Scripting.FileSystemObject") IfM_fso.FileExists(dFilename)Then M_fso.DeleteFile(dFilename) DelFile=True EndIf SetM_fso=Nothing EndFunction '************************************************** '函数ID: 0007[判断目录是否存在] '函数名: CheckDir '作用: 判断目录是否存在 '参数: ckDirname----目录名(包括路径) '返回值: 目录存在返回True,否则False '************************************************** PublicFunctionCheckDir(ByValckDirname) DimM_fso CheckDir=False SetM_fso=CreateObject("Scripting.FileSystemObject") If(M_fso.FolderExists(ckDirname))Then CheckDir=True EndIf SetM_fso=Nothing EndFunction '************************************************** '函数ID: 0008[创建目录] '函数名: CreateDir '作用: 创建目录 '参数: crDirname----目录名(包括路径) '返回值: 目录创建成功返回True,否则False '************************************************** PublicFunctionCreateDir(ByValcrDirname) DimM_fso CreateDir=False SetM_fso=CreateObject("Scripting.FileSystemObject") If(M_fso.FolderExists(crDirname))Then CreateDir=False Else M_fso.CreateFolder(crDirname) CreateDir=True EndIf SetM_fso=Nothing EndFunction '************************************************** '函数ID: 0009[删除目录] '函数名: DelDir '作用: 删除目录 '参数: DlDirname----目录名(包括路径) '返回值: 目录删除成功返回True,否则False '************************************************** PublicFunctionDelDir(ByValDlDirname) DimM_fso DelDir=False SetM_fso=CreateObject("Scripting.FileSystemObject") If(M_fso.FolderExists(DlDirname))Then M_fso.DeleteFolder(DlDirname) DelDir=True EndIf SetM_fso=Nothing EndFunction '************************************************** '函数ID: 0010[指定目录的文件列表] '函数名: ListFiles '作用: 指定目录的文件列表 '参数: Dirname----目录名(包括路径) '返回值: 文件列表字符串,之间用“|”相隔 '************************************************** PublicFunctionListFiles(ByValDirname) DimM_fso,fNS,fLS,Fnames,FnamesN SetM_fso=CreateObject("Scripting.FileSystemObject") If(M_fso.FolderExists(Dirname))Then SetfNS=M_fso.GetFolder(Dirname) SetfLS=fNS.Files ForEachFnamesNinfLS Fnames=Fnames&FnamesN.name Fnames=Fnames&"|" Next ListFiles=Fnames EndIf SetM_fso=Nothing EndFunction '************************************************** '函数ID: 0011[指定目录的目录列表] '函数名: ListDirs '作用: 指定目录的目录列表 '参数: Dirname----目录名(包括路径) '返回值: 目录列表字符串,之间用“|”相隔 '************************************************** PublicFunctionListDirs(ByValDirname) DimM_fso,fNS,fLS,Fnames,FnamesN SetM_fso=CreateObject("Scripting.FileSystemObject") If(M_fso.FolderExists(Dirname))Then SetfNS=M_fso.GetFolder(Dirname) SetfLS=fNS.SubFolders ForEachFnamesNinfLS Fnames=Fnames&FnamesN.name Fnames=Fnames&"|" Next ListDirs=Fnames EndIf SetM_fso=Nothing EndFunction '************************************************** '函数ID: 0012[创建文本文件] '函数名: WritTextFile '作用: 创建文本文件 '参数: Fname----文本文件名称(包括路径) '参数: WritString----写入的内容 '返回值: 创建成功返回True,否则False '************************************************** PublicFunctionWritTextFile(ByValFname,ByValWritString) DimM_fso,FnameN WritTextFile=False SetM_fso=CreateObject("Scripting.FileSystemObject") SetFnameN=M_fso.OpenTextFile(Fname,2,True) FnameN.WriteWritString FnameN.Close SetM_fso=Nothing WritTextFile=True EndFunction '************************************************** '函数ID: 0013[读取文本文件] '函数名: ReadTextFile '作用: 读取文本文件 '参数: Fname----文本文件名称(包括路径) '返回值: 返回读取的文本内容 '************************************************** PublicFunctionReadTextFile(ByValFname) DimM_fso,FnameN,Fnr ReadTextFile="" SetM_fso=CreateObject("Scripting.FileSystemObject") SetFnameN=M_fso.OpenTextFile(Fname,1,True) Fnr=FnameN.ReadAll FnameN.Close SetM_fso=Nothing ReadTextFile=Fnr EndFunction '************************************************** '函数ID: 0014[检测ID是否为数字类型] '函数名: JCID '作用: 检测ID是否为数字类型 '参数: ParaValue----被检测的ID值 '返回值: 返回ID值,如果不为数字类型返回0 '************************************************** PublicFunctionJCID(ByValParaValue) If((NotisNumeric(ParaValue))OR(T
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 50 ASP 函数