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
升级会员 