<!-- #include file="../conn.asp" -->
<!-- #include file="../check.asp" -->
<!-- #include file="function.asp" -->

<% 
 '===========================================================================================
	'软件名称：126 cms 视频影视管理系统
	'程序版权：126电影               '咨询QQ：479025
	'开发作者：magicblack(479025)    '官方网站：http://www.126oo.com/
	'Copyright (C) 2009 - ... 126oo.com  All Rights Reserved.
	'郑重声明:
	'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
	'    2、任何个人或组织不得以盈利为目的发布,修改,本软件及其他副本上一切关于版权的信息；
	'    3、126电影保留此软件的法律追究权利；
'==========================================================================================
%>

<%
response.Charset="GBK"
dim action,show,id,ajaxcontent,name
action = SafeData("RQ","action",0)
show = SafeData("RQ","show",0)
id = SafeData("RQ","id",0) 
name = SafeData("RQ","Name",0) 
ajaxcontent = SafeData("RQ","ajaxcontent",0)


Select case action
	case "tj" : mtuijian
	case "lz" : mstatus
	case "zt" : mtopic
	case "ckname" : mname
End Select


sub mname
dim rs
Set rs = Database.GetRecord("tbl_datas","D_Name = '"& name &"'"," D_ID ASC ")
if not rs.eof then
Response.Write"d_name_ok$<img src=""images/html_no.gif"" border=""0"">" 
else
Response.Write"d_name_ok$<img src=""images/html_ok.gif"" border=""0"">" 
end if
Database.C(rs)
end sub


sub mtuijian
if show = 1 then

Response.Write "<select id=""ajaxcontent"" name=""ajaxcontent""><option value="""">请选择推荐</option><option value=""1"">文字推荐</option><option value=""2"">图片推荐</option></select>"
Response.Write" <input type=""button"" value=""确定"" onclick=""ajaxsubmit('"&id&"','"&action&"');"" class=inputbut> <input type=""button"" value=""取消"" onclick=""closew();"" class=inputbut>"

elseif show = 2 then
Dim tjText
Select case Trim(ajaxcontent)
	case "1" : tjText ="文"
	case "2" : tjText ="图"
End Select
Database.UpdateRecord "Tbl_Datas","D_ID = "& ID ,Array("D_Level:"&Trim(ajaxcontent))
Response.Write"tj"&id&"$<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&id&"','"&action&"')""/> "&tjText&""

elseif show = 3 then
Database.UpdateRecord "Tbl_Datas","D_ID = "& ID ,Array("D_Level:0")
Response.Write"tj"&id&"$<img src=""images/icon_02.gif"" border=""0"" style=""cursor: pointer;"" onClick=""setday('tj','"&id&"')""/>" 
end if
end sub

sub mstatus
if show = 1 then
Response.Write"连载至<input id=""ajaxcontent"" name=""ajaxcontent"" type=""text""  size=""10"">集 <input type=""button"" value=""确定"" onclick=""ajaxsubmit('"&id&"','"&action&"');"" class=inputbut> <input type=""button"" value=""取消"" onclick=""closew();"" class=inputbut>"
elseif show = 2 then
Database.UpdateRecord "Tbl_Datas","D_ID = "& ID ,Array("D_State:"&Trim(ajaxcontent))

Response.Write"lz"&id&"$<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&id&"')""/>"
elseif show = 3 then
Database.UpdateRecord "Tbl_Datas","D_ID = "& ID ,Array("D_State:")

Response.Write"lz"&id&"$<img src=""images/icon_02.gif"" border=""0"" style=""cursor: pointer;"" onClick=""setday('lz','"&id&"')""/>" 
end if

end sub

sub mtopic
if show = 1 then
response.write Getshowselect("Tbl_Topic","T_Name","ajaxcontent","请选择专题","","T_ID","T_Sort")
Response.Write" <input type=""button"" value=""确定"" onclick=""ajaxsubmit('"&id&"','"&action&"');"" class=inputbut> <input type=""button"" value=""取消"" onclick=""closew();"" class=inputbut>"

elseif show = 2 then
Database.UpdateRecord "Tbl_Datas","D_ID = "& ID ,Array("D_Topic:"&Trim(ajaxcontent))
Response.Write"zt"&id&"$<img src=""images/icon_01.gif"" border=""0"" style=""cursor: pointer;"" onClick=""ajaxdivdel('"&id&"','"&action&"')""/>"

elseif show = 3 then
Database.UpdateRecord "Tbl_Datas","D_ID = "& ID ,Array("D_Topic:0")
Response.Write"zt"&id&"$<img src=""images/icon_02.gif"" border=""0"" style=""cursor: pointer;"" onClick=""setday('zt','"&id&"')""/>" 
end if
end sub
%>