代码如下:<% function CheckFileContent(FileName) dim ClientFile,ClientText,ClientContent,DangerString,DSArray,AttackFlag,k set ClientFile=Server.CreateObject("Scripting.FileSystemObject") set ClientText=ClientFile.OpenTextFile(Server.MapPath(FileName),1) ClientContent=LCase(ClientText.ReadAll) set ClientText=nothing set ClientFile=nothing AttackFlag=false DangerString=".getfolder|.createfolder|.del...
可以把本功能写成一个函数，函数的处理过程描述如下： 首先调用adodb.connection对象中的openSchema函数，这样会得到一个Recordset，其中每一条“纪录”对应着数据库中的一张表，“纪录”的每个“字段”包含了对应表的某方面信息。其中TABLE_NAME字段包含了对应表的名称 然后遍历这个Recordset，如果“当前纪录”的TABLE_NAME字段的值和要查找的表的名字一样，证明要查找的表存在。 函数如下所示: 代码如下:function check_gived_...
代码如下:Function CheckFields(FieldsName,TableName) Flag=False sql="select * from "&TableName Set RS=Conn.Execute(sql) for i = 0 to RS.Fields.Count - 1 if RS.Fields(i).Name=FieldsName then Flag=True Exit For else Flag=False end if Next CheckFields=Flag End Function
'------------------------- '--检查目录是否存在 '---------------------- Function CheckDir(byval FolderPath) dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FolderExists(Server.MapPath(folderpath)) then '存在 CheckDir = True Else '不存在 CheckDir = False End if Set fso = nothing End Function '------------------------- '--建立...