标题: [求助]修改代码 [打印本页] 作者: 生活的成功者 时间: 2010-1-17 02:02 标题: [求助]修改代码 %
dim strdir
if request.QueryString("strdir")="" then
strdir=server.MapPath("question")
else
strdir=request.QueryString("strdir")
end if
dim myfo
set myfo=server.CreateObject("scripting.filesystemobject")
dim myfolder
set myfolder=myfo.getfolder(strdir)
dim Item,i,j
i=1
%>
<%for each item in myfolder.files%>
<form action="" method="post" name="form1">
<table width="100%" border="0">
<td width="10%">
<tr><td>问题<%=i%>:</td><td width="90%"><font color="#0000FF"><%response.write(replace(item.name,".txt",""))%></font></td>
<td width="9%"><% response.Write "<a href='modify.asp?strFile="&item.name&"'>修改</a>"&" "%></td>
</tr>
<% Dim FileObject '声明一个filesystemobject对象实例
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Dim SourceFile '声明源文件和目标文件变量
SourceFile=Server.MapPath("question/"&item.name&"")
dim tf
set tf=FileObject.opentextfile(SourceFile)
j=1
do while not tf.atendofstream '读取文件
'下面通过表单和声明变量逐行读取题目和选项
%>
<tr><td>选项<%=j%>:<input type="radio" name="radiobutton<%=i%>" value="<%=j%>" />
<% next%>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>
<%
dim radiobutton,n
n=1
radiobutton=request.Form("radiobutton"&i)
dim fobject
set fobject=server.CreateObject("scripting.filesystemobject")
dim textfile
set textfile=fileobject.opentextfile("d:\asp\答案.txt",8,true)
textfile.writeline("答案是：") & radiobutton
n=n+1
next n
textfile.close