50个ASP函数

150个ASP函数目录0001截字符串0002过滤html0003打开任意数据表并显示表结构及内容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位长度的唯一标识ID0033用于左填充指定数量的字符0034用于右填充指定数量的字符20035格式化时间(显示)0036测试数据库是否存在0037测试数据库中的表是否存在0038在线HTML编辑器0039判断是否奇数0040生成验证码图像BMP0041生成随机密码0042字符加解密0043解密字符加解密0044创建数据表0045在数据库中插入字段值0046Cookie防乱码写入时用0047Cookie防乱码读出时用0048检测用户名和密码是否正确0049生成时间的整数0050获得栏目的所有子栏目字符串并用,隔开]'**************************************************'''''函数ID：0001[截字符串]'函数名：SubstZFC'作用：截字符串，汉字一个算两个字符，英文算一个字符'参数：str----原字符串'strlen----截取长度'返回值：截取后的字符串'**************************************************PublicFunctionSubstZFC(ByValstr,ByValstrlen)Ifstr=ThenSubstZFC=ExitFunctionEndIfDiml,t,c,i,strTempstr=Replace(Replace(Replace(Replace(str,,),,Chr(34)),,),,)l=Len(str)t=0strTemp=strstrlen=CLng(strlen)Fori=1Tolc=Abs(Asc(Mid(str,i,1)))Ifc255Thent=t+2Elset=t+13EndIfIft=strlenThenstrTemp=Left(str,i)ExitForEndIfNextSubstZFC=Replace(Replace(Replace(Replace(strTemp,,),Chr(34),),,),,)EndFunction**************************************************'函数ID：0002[过滤html]'函数名：GlHtml'作用：过滤html元素'参数：str----要过滤字符'返回值：没有html的字符'**************************************************PublicFunctionGlHtml(ByValstr)IfIsNull(str)OrTrim(str)=ThenGlHtml=ExitFunctionEndIfDimreSetre=NewRegExpre.IgnoreCase=Truere.Global=Truere.Pattern=(\.[^\]*\)str=re.Replace(str,)re.Pattern=(\\/[^\]*\)str=re.Replace(str,)Setre=Nothingstr=Replace(str,',)str=Replace(str,Chr(34),)GlHtml=strEndFunction'**************************************************'函数ID：0003[打开任意数据表并显示表结构及内容]'函数名：OpOtherDB'作用：打开任意数据表并显示表结构及内容'参数：DBtheStr----要打开表的数据库链接字串'参数：Opentdname----要打开表名'返回值：显示表结构及内容'**************************************************PublicFunctionOpOtherDB(ByValDBtheStr,ByValOpentdname)Response.writetableborder='0'width='100%'cellspacing='0'4cellpadding='0'&vbCrlfSetOpdb_Conn=server.createobject(ADODB.Connection)SetOpdb_Rs=server.createobject(ADODB.Recordset)Opdb_Conn.openDBtheStrOpdb_sql_str=select*from&OpentdnameOpdb_Rs.openOpdb_Sql_Str,Opdb_Conn,1,1Nfieldnumber=Opdb_Rs.Fields.countIfNfieldnumber0thenResponse.writetr&vbCrlfFori=0to(Nfieldnumber-1)Response.writetdstyle='border-style:ridge;border-width:1'bgcolor='#E1E1E1'valign='middle'align='center'Response.writeTrim(Opdb_Rs.Fields(i).Name)Response.write/td&vbCrlfNexttemptbi=0DoWhileNotOpdb_Rs.EofResponse.write/tr&vbCrlfFori=0to(Nfieldnumber-1)If(temptbi2)ThenResponse.writetdstyle='border-style:ridge;border-width:1'bgcolor='#F6F6F6'valign='middle'Response.writeTrim(Opdb_Rs.Fields(i))Response.write/td&vbCrlftemptbi=temptbi+1ElseResponse.writetdstyle='border-style:ridge;border-width:1'valign='middle'Response.writeTrim(Opdb_Rs.Fields(i))Response.write/td&vbCrlfIftemptbi=3Thentemptbi=0Elsetemptbi=temptbi+1EndIfEndIfNextOpdb_Rs.MoveNextResponse.write/tr&vbCrlfLoopEndIfOpdb_Rs.CloseOpdb_Conn.CloseSetOpdb_Rs=Nothing5SetOpdb_Conn=NothingResponse.write/table&vbCrlfEndfunction'**************************************************'函数ID：0004[读取两种路径]'函数名：Readsyspath'作用：读取路径'参数：lx----0:服务器IP加路径1:服务物理路径'返回值：路径字串'**************************************************PublicFunctionReadsyspath(ByVallx)Dimtemplj,aryTemp,newpathtemplj=newpath=Iflx=0Thentemplj=http://&Request(SERVER_NAME)&Request(PATH_INFO)aryTemp=Split(templj,/)Elsetemplj=Request(PATH_TRANSLATED)aryTemp=Split(templj,\)EndIfFori=LBound(aryTemp)ToUBound(aryTemp)-1Iflx=0Thennewpath=newpath&aryTemp(i)&/Elsenewpath=newpath&aryTemp(i)&\EndIfNextReadsyspath=newpathEndFunction'**************************************************'函数ID：0005[测试某个文件存在否]'函数名：CheckFile'作用：测试某个文件存在否'参数：ckFilename----被测试的文件名（包括路径）'返回值：文件存在返回True,否则False'**************************************************PublicFunctionCheckFile(ByValckFilename)DimM_fsoCheckFile=FalseSetM_fso=CreateObject(Scripting.FileSystemObject)IfM_fso.FileExists(ckFilename)ThenCheckFile=TrueEndIf6SetM_fso=NothingEndFunction'**************************************************'函数ID：0006[删除某个文件]'函数名：DelFile'作用：删除某个文件'参数：dFilename----被删除的文件名（包括路径）'返回值：文件删除返回True,否则False'**************************************************PublicFunctionDelFile(ByValdFilename)DimM_fsoDelFile=FalseSetM_fso=CreateObject(Scripting.FileSystemObject)IfM_fso.FileExists(dFilename)ThenM_fso.DeleteFile(dFilename)DelFile=TrueEndIfSetM_fso=NothingEndFunction'**************************************************'函数ID：0007[判断目录是否存在]'函数名：CheckDir'作用：判断目录是否存在'参数：ckDirname----目录名（包括路径）'返回值：目录存在返回True,否则False'**************************************************PublicFunctionCheckDir(ByValckDirname)DimM_fsoCheckDir=FalseSetM_fso=CreateObject(Scripting.FileSystemObject)If(M_fso.FolderExists(ckDirname))ThenCheckDir=TrueEndIfSetM_fso=Noth