如果说在我们的常量单元中放入一个变量表示每一页的记录条数。那我们在网站的后台一刷新这个值就会在前台的程序中自动变化了。这样是比较方便的不写死它。
是2003系统吧，在IIS里，在站点名称上右键“属性”-“主目录”-“配置”-“选项”-“启用父目录”
哈哈。终于我知道为什么 以前总是这样写会报：
会报： 包含文件 '../asp/opendb.asp' 不能用 '..' 表示父目录。
原来是配置IIS的问题啊。昏倒了！
收获收获啊哈哈！
ASP中的FileSystemObject对象
FileSystemObject 对象用于访问服务器上的文件系统。此对象可对文件、文件夹以及目录路径进行操作。也可通过此对象获取文件系统的信息。
终于了解了什么叫做ASP中的配置文件啊@
<%
Const SiteName="企业网站管理系统" '网站名称
Const SiteTitle="企业网站管理系统" '网站标题
Const SiteUrl="" '网站地址
Const EnterpriseMail="" '企业邮局
Const WebmasterName="BlackOut" '站长姓名
Const WebmasterEmail="QQ812256@hotmail.com" '站长信箱
Const Copyright="Copyright @ 2006 企业网站管理系统
有问题可联系QQ:812256 电话:13613394168" '版权信息
Const MaxPerPage_Default=5 '首页每页产品或文章数
Const MaxPerPage_Search=10 '文章搜索页每页文章数
Const ShowContentByPage="Yes" '文章内容是否分页显示
Const EnableUploadFile="Yes" '是否开放文件上传
Const PopAnnounce="Yes" '是否弹出公告窗口
Const HitsOfHot=50 '热门文章点击数
Const MaxFileSize=200 '上传文件大小限制
Const SaveUpFilesPath="UploadFiles" '存放上传文件的目录
Const UpFileType="gif|jpg|bmp|png|swf|doc" '允许的上传文件类型
Const DelUpFiles="Yes" '删除文章时是否同时删除文章中的上传文件
Const SessionTimeout=100 'Session会话的保持时间
Const MailObject="Jmail" '邮件发送组件
Const MailServer="pop.163.com" '用来发送邮件的SMTP服务器
Const MailServerUserName="smtp@163.com" '登录用户名
Const MailServerPassWord="888" '登录密码
Const MailDomain="163.com" '域名
%>
然后就可以在程序中直接调用其中的内容进行处理了！
下面介绍两种对文件操作的方法：
'------------------检查某一目录是否存在-------------------
Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso1 = nothing
End Function
'-------------根据指定名称生成目录---------
Function MakeNewsDir(foldername)
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = nothing
End Function
阅读(942) | 评论(0) | 转发(0) |
