我这个网页的目的是选择图片粘贴,即从QQ的文件夹列出其里面的图片文件,供选择.
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
<%
dim fso, fld ,f
set fso=server.createobject("scripting.filesystemobject")
set fld=fso.getfolder(server.mappath("qq"))
%>
<p>帖子内容</p>
<form method="POST" action="pict.asp">
<p>
<% for each f in fld.files
i=1
%>
<input type="radio" value=<%=f.name %> name="options">
<% if i=1 then
response.write space(1) & "checken" %>
<img src=<%="qq/"& f.name %>>
<%
i=i+1
next
%>
</p>
<p>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
</body>
</html>
执行后浏览器显示以下错误:
错误类型：
Microsoft VBScript 编译器错误 (0x800A041F)
错误的 'Next'
/asp/lt/bj.asp, line 32
next
[此贴子已经被作者于2006-5-18 22:37:04编辑过]
