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

<!--#include file="Connections/conn_news.asp" -->
<!--#include file="yns_config.asp" -->
<!--#include file="yns_chklogin.asp" -->
<% chk_user_login(2) %>
<!--#include file="yns_chkerror.asp" -->
<%
dim mm_check
dim mm_rr
mm_rr = cint(request.QueryString("n_check"))
if mm_rr = 0 then
mm_check = 1
else
mm_check = 0
end if
%>
<%

if(mm_check <> "") then
Command1__mmcheck = mm_check
  else
  response.Write yns_err_null
  response.End()
End If

if(request.querystring("n_id") <> "") then
Command1__mmid = request.querystring("n_id")
  else
  response.Write yns_err_null
  response.End()
End If

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conn_news_STRING
Command1.CommandText = "UPDATE t_news  SET n_check = " + Replace(Command1__mmcheck, "'", "''") + "  WHERE n_id = " + Replace(Command1__mmid, "'", "''") + " "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
response.redirect "yns_nlist.asp"

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>湖南百润医药有限公司-------康曼德www.hnicp.com</title>
</head>

<body>

</body>
</html>