FileSystem对象常用的文件操作函数有哪些？
鉴于大家对ASP十分关注，我们编辑小组在此为大家搜集整理了“asp、vbscript编码模板”一文，供大家参考学习!
<!-- METADATATYPE="typelib"
FILE="C:\Program Files\Common Files\System\ADO\msado20.tlb"
-->
<%@ Language=VBScript %>
<%Option Explicit%>
<%
''加入的文件
%>
<!-- #include virtual|file="需要包含的文件" -->
<%
''代码版权说明:
''=========================================================
'' File: 文件名.asp
'' Version:1.0
'' Date:
'' Script Written by Tommy xiao
'' Description:
''
'' Revision:
'' Date:
'' Author:
'' Description:
''=========================================================
'' Copyright (C) 2003 Asiagame.Com. All rights reserved.
'' Web: http://www.advancededu.com
'' Need help? Contact: xds2000@msn.com
''=========================================================
%>
<%
''容错机制代码
''--------------------------------
DIM NDEBUG_MSG
NDEBUG_MSG=FALSE
IF NDEBUG_MSG = TRUE THEN
''出错过滤
ON ERROR RESUME NEXT
END IF
''变量声明及定义区
''Boolean error variant
Dim BlnFounderr,sErrmsg
BlnFounderr = FALSE
''触发错误信息
''sErrmsg=sErrmsg+"<br>"+"<li>没有找到您需要的信息，欢迎使用。"
''BlnFounderr = TRUE
Dim oConn,oRs,sSQL ''ADO objects
''Set oConn = Server.CreateObject ("ADODB.Connection")
'' oConn.Open Application("connStr")
''事务定义区
''输出错误
If BlnFounderr = TRUE Then
mError()
End If
''Func,Proc定义区
Function DealInput(exp1)
dim exp2 ''Filter input for invalid characters
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
exp2=Replace(exp2,"''","''''")
exp2=Replace(exp2,"&","&")
DealInput=exp2
End Function
Function CloseDatabase '' CloseDatabase
oConn.close
Set oConn = Nothing
End Function
sub mError()
''Response.Write sErrmsg&"please contact system administrator."
response.write " <html>" & vbCrLf
response.write " <head>" & vbCrLf
response.write " <title>xxx站点--WEB后台管理</title>" & vbCrLf
response.write " <meta NAME=""GENERATOR"" Content=""Microsoft Visual Studio 6.0"">" & vbCrLf
response.write " <link rel=""stylesheet"" type=""text/css"" href=""css/index.css"">" & vbCrLf
response.write " <script type=""text/javascript"" src=""js/fx.js""></script>" & vbCrLf
response.write " <script type=""text/javascript"" src=""js/cooltool.js""></script>" & vbCrLf
response.write "" & vbCrLf
response.write " </head>" & vbCrLf
response.write "" & vbCrLf
response.write " <body>" & vbCrLf
response.write " <table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""95%"" bgcolor=""#777777"" align=""center"">" & vbCrLf
response.write " <tr>" & vbCrLf
response.write " <td>" & vbCrLf
response.write " <table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"">" & vbCrLf
response.write " <tr align=""center""> " & vbCrLf
response.write " <td width=""100%"" bgcolor=""#EEEEEE"">内部管理操作错误信息</td>" & vbCrLf
response.write " </tr>" & vbCrLf
response.write " <tr> " & vbCrLf
response.write " <td width=""100%"" bgcolor=""#FFFFFF""><b>产生错误的