<% function mm_del_list(mm_del_tsid) %>
<%
Dim rsts_del__mmid
rsts_del__mmid = "0"
If (mm_del_tsid <> "") Then
  rsts_del__mmid = mm_del_tsid
End If
%>
<%
Dim rsts_del
Dim rsts_del_numRows

Set rsts_del = Server.CreateObject("ADODB.Recordset")
rsts_del.ActiveConnection = MM_conn_news_STRING
rsts_del.Source = "SELECT *  FROM t_type_son inner join t_type on t_type_son.ts_pid=t_type.t_id  WHERE ts_id = " + Replace(rsts_del__mmid, "'", "''") + ""
rsts_del.CursorType = 0
rsts_del.CursorLocation = 2
rsts_del.LockType = 1
rsts_del.Open()

rsts_del_numRows = 0
%>
<%
Dim Repeat1_del__numRows
Dim Repeat1_del__index

Repeat1_del__numRows = -1
Repeat1_del__index = 0
rsts_del_numRows = rsts_del_numRows + Repeat1_del__numRows
%>
<%
dim mmd_path
dim mmd_fpath
dim fso_del
Set fso_del = CreateObject("Scripting.FileSystemObject")
%>
<% While ((Repeat1_del__numRows <> 0) AND (NOT rsts_del.EOF)) %>
<% mmd_path = (rsts_del.Fields.Item("t_dir").Value) &"/"&(rsts_del.Fields.Item("ts_dir").Value) %>
<% for i = 1 to 1000
mmd_fpath = mmd_path&"/list_"&i&".htm"
%>
<%
If not (fso_del.FileExists(server.MapPath(mmd_fpath))) Then
exit for
else
response.Write "<li>"&mmd_fpath
fso_del.DeleteFile(server.MapPath(mmd_fpath))
response.Write " <font color=red >±»É¾³ý</font></li>"
end if
%>
<% next %>
<%
  Repeat1_del__index=Repeat1_del__index+1
  Repeat1_del__numRows=Repeat1_del__numRows-1
  rsts_del.MoveNext()
Wend
%>
<%
rsts_del.Close()
Set rsts_del = Nothing
%>
<% end function %>