50个ASP函数Word格式文档下载.docx
《50个ASP函数Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《50个ASP函数Word格式文档下载.docx（95页珍藏版）》请在冰点文库上搜索。
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
Ift>
=strlenThen
strTemp=Left（str,i）
ExitFor
Next
SubstZFC=Replace（Replace（Replace（Replace（strTemp,"
）,Chr（34）,"
EndFunction
0002[过滤html]
GlHtml
过滤html元素
str----要过滤字符
没有html的字符
PublicFunctionGlHtml（ByValstr）
IfIsNull（str）OrTrim（str）="
GlHtml="
Dimre
Setre=NewRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="
（\<
.[^\<
]*\>
）"
str=re.Replace（str,"
\/[^\<
Setre=Nothing
str=Replace（str,"
str=Replace（str,Chr（34）,"
GlHtml=str
EndFunction
0003[打开任意数据表并显示表结构及内容]
OpOtherDB
打开任意数据表并显示表结构及内容
DBtheStr----要打开表的数据库链接字串
Opentdname----要打开表名
显示表结构及内容
PublicFunctionOpOtherDB（ByValDBtheStr,ByValOpentdname）
Response.write"
tableborder='
0'
width='
100%'
cellspacing='
cellpadding='
&
vbCrlf
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
tr>
Fori=0to（Nfieldnumber-1）
tdstyle='
border-style:
ridge;
border-width:
1'
bgcolor='
#E1E1E1'
valign='
middle'
align='
center'
Response.writeTrim（Opdb_Rs.Fields（i）.Name）
/td>
temptbi=0
DoWhileNotOpdb_Rs.Eof
/tr>
If（temptbi<
2）Then
#F6F6F6'
Response.writeTrim（Opdb_Rs.Fields（i））
temptbi=temptbi+1
Iftemptbi>
=3Then
Opdb_Rs.MoveNext
Loop
Opdb_Rs.Close
Opdb_Conn.Close
SetOpdb_Rs=Nothing
SetOpdb_Conn=Nothing
/table>
Endfunction
0004[读取两种路径]
Readsyspath
读取路径
lx----0:
服务器IP加路径1:
服务物理路径
路径字串
PublicFunctionReadsyspath（ByVallx）
Dimtemplj,aryTemp,newpath
templj="
newpath="
Iflx=0Then
http:
//"
Request（"
SERVER_NAME"
）&
PATH_INFO"
aryTemp=Split（templj,"
/"
templj=Request（"
PATH_TRANSLATED"
\"
Fori=LBound（aryTemp）ToUBound（aryTemp）-1
newpath=newpath&
aryTemp（i）&
Readsyspath=newpath
0005[测试某个文件存在否]
CheckFile
测试某个文件存在否
ckFilename----被测试的文件名（包括路径）
文件存在返回True,否则False
PublicFunctionCheckFile（ByValckFilename）
DimM_fso
CheckFile=False
SetM_fso=CreateObject（"
Scripting.FileSystemObject"
IfM_fso.FileExists（ckFilename）Then
CheckFile=True
SetM_fso=Nothing
0006[删除某个文件]
DelFile
删除某个文件
dFilename----被删除的文件名（包括路径）
文件删除返回True,否则False
PublicFunctionDelFile（ByValdFilename）
DelFile=False
IfM_fso.FileExists（dFilename）Then
M_fso.DeleteFile（dFilename）
DelFile=True
0007[判断目录是否存在]
CheckDir
判断目录是否存在
ckDirname----目录名（包括路径）
目录存在返回True,否则False
PublicFunctionCheckDir（ByValckDirname）
CheckDir=False
If（M_fso.FolderExists（ckDirname））Then
CheckDir=True
0008[创建目录]
CreateDir
创建目录
crDirname----目录名（包括路径）
目录创建成功返回True,否则False
PublicFunctionCreateDir（ByValcrDirname）
CreateDir=False
If（M_fso.FolderExists（crDirname））Then
M_fso.CreateFolder（crDirname）
CreateDir=True
0009[删除目录]
DelDir
删除目录
DlDirname----目录名（包括路径）
目录删除成功返回True,否则False
PublicFunctionDelDir（ByValDlDirname）
DelDir=False
If（M_fso.FolderExists（DlDirname））Then
M_fso.DeleteFolder（DlDirname）
DelDir=True
0010[指定目录的文件列表]
ListFiles
指定目录的文件列表
Dirname----目录名（包括路径）
文件列表字符串，之间用“|”相隔
PublicFunctionListFiles（ByValDirname）
DimM_fso,fNS,fLS,Fnames,FnamesN
If（M_fso.FolderExists（Dirname））Then
SetfNS=M_fso.GetFolder（Dirname）
SetfLS=fNS.Files
ForEachFnamesNinfLS
Fnames=Fnames&
FnamesN.name
|"
ListFiles=Fnames
0011[指定目录的目录列表]
ListDirs
指定目录的目录列表
目录列表字符串，之间用“|”相隔
PublicFunctionListDirs（ByValDirname）
SetfLS=fNS.SubFolders
ListDirs=Fnames
0012[创建文本文件]
WritTextFile
创建文本文件
Fname----文本文件名称（包括路径）
WritString----写入的内容
创建成功返回True，否则False
PublicFunctionWritTextFile（ByValFname,ByValWritString）
DimM_fso,FnameN
WritTextFile=False
SetFnameN=M_fso.OpenTextFile（Fname,2,True）
FnameN.WriteWritString
FnameN.Close
WritTextFile=True
0013[读取文本文件]
ReadTextFile
读取文本文件
返回读取的文本内容
PublicFunctionReadTextFile（ByValFname）
DimM_fso,FnameN,Fnr
ReadTextFile="
SetFnameN=M_fso.OpenTextFile（Fname,1,True）
Fnr=FnameN.ReadAll
ReadTextFile=Fnr
0014[检测ID是否为数字类型]
JCID
检测ID是否为数字类型
ParaValue----被检测的ID值
返回ID值，如果不为数字类型返回0
PublicFunctionJCID（ByValParaValue）
If（（NotisNumeric（ParaValue））OR（T
升级会员 