รหัสต้นฉบับเพื่อการศึกษา

File : delrec.asp. ID : 2406

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame

<body>
<form action=delrec.asp method=post>
<input name=getkey><input type=submit>
</form><hr>
<%
dim ar, opt, allrec, findpos
opt = clng(request.form("getkey"))
set ftxt=createobject("scripting.filesystemobject")
set ln = ftxt.opentextfile(server.mappath("/cgi-bin/search.dat"))
allrec = ln.readall
set ln = ftxt.createtextfile(server.mappath("/cgi-bin/search.dat"),true)
ar = split(allrec,chr(13)&chr(10),-1,1)
response.write("<pre>Total record : " & ubound(ar) &chr(13)&chr(10))
for i = 0 to ubound(ar)-1
  if i = opt - 1 then
    response.write("<b>"&ar(i)&"</b><br>")
  else
    response.write(ar(i)&"<br>")  
    ln.writeline(ar(i))
  end if
next
ln.close
%>
</body>