<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="Connections/conn_news.asp" -->
<!--#include file="yns_config.asp" -->
<!--#include file="yns_list_create.asp" -->
<!--#include file="yns_list_del.asp" -->
<!--#include file="yns_chklogin.asp" -->
<% chk_user_login(3) %>
<!--#include file="yns_chkerror.asp" -->
<%
dim mm_cntsid
if request.QueryString("t_id") <> "" then
mm_cntsid = cint(request.QueryString("t_id"))
else
mm_cntsid = cint(request.QueryString("ts_id"))
end if
Dim rs_cst__MMColParam
rs_cst__MMColParam = "1"
If (mm_cntsid <> "") Then
  rs_cst__MMColParam = mm_cntsid
End If
%>
<%
Dim rs_cst
Dim rs_cst_numRows

Set rs_cst = Server.CreateObject("ADODB.Recordset")
rs_cst.ActiveConnection = MM_conn_news_STRING
if request.QueryString("t_id") <> "" then
rs_cst.Source = "SELECT *  FROM t_type_son  WHERE ts_pid = " + Replace(rs_cst__MMColParam, "'", "''") + ""
else
  if request.QueryString("ts_id") <> "" then
  rs_cst.Source = "SELECT *  FROM t_type_son  WHERE ts_id = " + Replace(rs_cst__MMColParam, "'", "''") + ""
  else
  rs_cst.Source = "SELECT *  FROM t_type_son"
  end if
end if
rs_cst.CursorType = 0
rs_cst.CursorLocation = 2
rs_cst.LockType = 1
rs_cst.Open()

rs_cst_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_cst_numRows = rs_cst_numRows + Repeat1__numRows
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>湖南百润医药有限公司-------康曼德www.hnicp.com</title>
<link href="style/css.css" rel="stylesheet" type="text/css">
</head>

<body>
全部完成, <a href="yns_type.asp">返回</a>
<hr size="1" noshade>
<p></p>
    <%
While ((Repeat1__numRows <> 0) AND (NOT rs_cst.EOF))
%>
   对小类 <font color="#FF0000"><%= (rs_cst.Fields.Item("ts_name").Value) %></font> 进行操作:<br>
    <%
 dim mm_del_tsid
 dim mm_create_tsid
 mm_del_tsid= (rs_cst.Fields.Item("ts_id").Value)
 mm_create_tsid= (rs_cst.Fields.Item("ts_id").Value)
 %>
<ul>清除原有文件:<% mm_del_list(mm_del_tsid) %></ul>
<ul>创建新的文件:<% mm_create_list(mm_create_tsid) %></ul>

    <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_cst.MoveNext()
Wend
%>
<hr size="1" noshade>
全部完成, <a href="yns_type.asp">返回</a>
</body>
</html>
<%
rs_cst.Close()
Set rs_cst = Nothing
%>