Question

有关asp的路径问题

<% dim fso,fld,f,i
set fso=server.CreateObject("scripting.filesystemobject")
fld=fso.getfolder(server.MapPath("./图像"))
i=1
%>
<style>
table,input,textarea{font-size:9px}
</style>
<div align="center">
<form name="frmMSG" method="post" action="savetheme.asp">
<table cellpadding="3">
<tr>
<th colspan="2" bgcolor="#FF0000">发起讨论主题</th>
</tr>
<tr bgcolor="#99FF33" >
<th>作者</th>
<td><input type="text" name="txtauthor" size="50" value=<%=request.Form("txtauthor")%> /></td>
</tr>
<tr bgcolor="#33FF99">
<th>主题</th>
<td><input type="text" name="txttheme" size="50" value=<%=request.Form("txttheme")%>></td>
</tr>
<tr >
<th>图像</th>
<td>
<% for each f in fld.files %>
<input type="radio" name="optpic" value=<%=f.name%>
<if i=1 then response.Write space(1)& "checked" %>>
<img src=<%="C:\Inetpub\wwwroot\图像"&f.name%>>
<%
i=i+1
next
%>
</td></tr>
<tr bgcolor="#FF0000">
<th>内容</th>
<td><textarea rows="6" name="txtcontent" cols="50">
<%=request.Form("txtcontent")%></textarea></td>
</tr>
<tr align="center" bgcolor="#003399">
<td colspan="2"><input type="submit" value="发表" name="btnsubmit" />  <input type="reset" value="全部重写" name="btnreset" /></td>
</tr></table></form>
请大侠们帮帮我
我的虚拟目录在'C:\Inetpub\wwwroot\图像'
我上面代码的fld=fso.getfolder(server.MapPath("./图像"))
和<% for each f in fld.files %>
<input type="radio" name="optpic" value=<%=f.name%>
<if i=1 then response.Write space(1)& "checked" %>>
<img src=<%="C:\Inetpub\wwwroot\图像"&f.name%>>存在路径问题
我不知道怎么改 请帮帮我 我给25分（这是一个发表论坛的一部分 （发表主题））
缺少对象: 'C:\Inetpub\wwwroot\图'
/newtheme.asp, 第 35(<% for each f in fld.files %>) 行
这是运行后出现的 我的是在本机上运行 也就是用iis当服务器 那我应该怎么改！帮我写写

Answer 1

你这程序是在本地吗?还是在虚拟主机上?

如果是在虚拟主机上,用"C:\Inetpub\wwwroot\图像"这样的地址是错误的,用根目录的绝对路径或程序所在文件夹的相对路径即可,如果是在本地,那样的方法也是无法找寻的.

还有,建议不要用中文作为文件夹名,容易出错.把图像换成picture不也可以?

在wwwroot根目录下,新建个文件夹picture

<% dim fso,fld,f,i
set fso=server.CreateObject("scripting.filesystemobject")
fld=fso.getfolder(server.MapPath("/picture"))
i=1
%>
<style>
table,input,textarea{font-size:9px}
</style>
<div align="center">
<form name="frmMSG" method="post" action="savetheme.asp">
<table cellpadding="3">
<tr>
<th colspan="2" bgcolor="#FF0000">发起讨论主题</th>
</tr>
<tr bgcolor="#99FF33" >
<th>作者</th>
<td><input type="text" name="txtauthor" size="50" value=<%=request.Form("txtauthor")%> /></td>
</tr>
<tr bgcolor="#33FF99">
<th>主题</th>
<td><input type="text" name="txttheme" size="50" value=<%=request.Form("txttheme")%>></td>
</tr>
<tr >
<th>图像</th>
<td>
<% for each f in fld.files %>
<input type="radio" name="optpic" value=<%=f.name%>
<if i=1 then response.Write space(1)& "checked" %>>
<img src="/picture<%=f.name%>" alt=""/>
<%
i=i+1
next
%>
</td></tr>
<tr bgcolor="#FF0000">
<th>内容</th>
<td><textarea rows="6" name="txtcontent" cols="50">
<%=request.Form("txtcontent")%></textarea></td>
</tr>
<tr align="center" bgcolor="#003399">
<td colspan="2"><input type="submit" value="发表" name="btnsubmit" /> <input type="reset" value="全部重写" name="btnreset" /></td>
</tr></table></form>

Answer 2

第 35 行 是哪行？