mappath.asp
文件代码;
<%
'建立文件存取组件
set fs=server.createobject("scripting.filesystemobject")
'取得所要指定的目录
pathstr=server.mappath("\")&"\"&"carlos\"
fs.getfolder(pathstr)
'发生错误，表示该目录不存在
if err.number<>0 then
'建立目录
fs.createfolder(pathstr)
end if
'在该目录建立一个asp文件
ser ts=fs.CreateTextfile(pathstr&"index.asp",true)
'写入内容
ts.write"<html>"
ts.write"<title>项强的个人主页</title>"
ts.write"<body>"
ts.write"<h2>欢迎光临项强的个人主页！</h2>"
ts.write"<font color=red>现在时间是:"&"<"&"%=now%"&"></font>"
ts.write"</body>"
ts.write"</html>"
'关闭文件
ts.close
'显示主页的超文本连接
response.write"<a href=""http://"&request.servervariables("remote_host")&"/carlos/index.asp"">我的个人主页请由此进入!</a>"
'释放文件存取组件示例
set fs=nothing
%>
-----------------------------------------------------------------
无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法
/mappath.asp, 第 13 行
response.write"<a href=""http://"&request.servervariables("remote_host")&"/carlos/index.asp"">错误!
改为response.write"<a href=http://"&request.servervariables("remote_host")&"/carlos/index.asp">
ser ts=fs.CreateTextfile(pathstr&"index.asp",true)
改为set ts=fs.CreateTextfile(pathstr&"index.asp",true)
打印文档
推荐好友 
返回顶部
增大字体 
减少字体