[ÇóÖú]Ð޸ĴúÂë

Éú»îµÄ³É¹¦Õß

%
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%>" />

</td>
<td><%Response.write tf.readline%></td> <%j=j+1%><%loop%>
</tr>
</td><%i=i+1%>
</table>

<% 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

%>

»ðÖ®ÐÛʨ

Çë¸÷λͬѧ°ï²é¿´ÒÔÏ£¬ÄıߴíÁË