<!--#include file="QvodCms_Conn.asp"-->
<%Response.Charset="GB2312"
Dim action,dataid,valuestr
action=Trim(Request.QueryString("action"))
dataid=QvodCms_CLng(Request.QueryString("dataid"))
valuestr=Trim(Request.QueryString("value"))
Call OpenConn()
Select Case action
Case "ct"'连载
    Conn.Execute(" update [qvodcms_name] set data_reurl='"&valuestr&"' where name_id="&dataid&" ")
	Set lrs=Conn.Execute("select data_reurl from [qvodcms_name] where name_id="&dataid&" ")
	If len(lrs("data_reurl"))>1 then
	Response.Write "<span onClick=""setday('ct',"&dataid&")"" style=""cursor:hand"" title=""修改集数状态"">"&lrs("data_reurl")&"</span>" 
	Else 
	Response.Write"<img src=""Images/ct_01.gif"" title=""设置连载状态"" style=""cursor:pointer"" onClick=""setday('ct',"&dataid&")""/>"
	End If
Case "gb"'留言置顶
    Conn.Execute(" update [adnim_gb] set gb_top="&Cint(valuestr)&" where gb_id="&dataid&" ")
	If QvodCms_CLng(valuestr)=1 then
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",0)""><img src=""images/icon_01.gif"" border=""0"" /></a>" 
	Else 
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",1)""><img src=""images/icon_02.gif"" border=""0"" /></a>"
	End If
Case "el"'推荐
    Conn.Execute(" update [qvodcms_name] set data_elite="&QvodCms_CLng(valuestr)&" where name_id="&dataid&" ")
	If QvodCms_CLng(valuestr)=1 then
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",0)""><img src=""images/icon_01.gif"" border=""0"" /></a>" 
	Else 
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",1)""><img src=""images/icon_02.gif"" border=""0"" /></a>"
	End If
Case "newel"'推荐
    Conn.Execute(" update [qvodcms_news] set Elite="&QvodCms_CLng(valuestr)&" where id="&dataid&" ")
	If QvodCms_CLng(valuestr)=1 then
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",0)""><img src=""images/icon_01.gif"" border=""0"" /></a>" 
	Else 
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",1)""><img src=""images/icon_02.gif"" border=""0"" /></a>"
	End If	
Case "newsh"'审核
    Conn.Execute(" update [qvodcms_news] set status="&QvodCms_CLng(valuestr)&" where id="&dataid&" ")
	If QvodCms_CLng(valuestr)=1 then
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",0)""><img src=""images/icon_01.gif"" border=""0"" /></a>" 
	Else 
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",1)""><img src=""images/icon_02.gif"" border=""0"" /></a>"
	End If	
Case "sh"'审核
    Conn.Execute(" update [qvodcms_name] set data_status="&QvodCms_CLng(valuestr)&" where name_id="&dataid&" ")
	If QvodCms_CLng(valuestr)=1 then
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",0)""><img src=""images/icon_01.gif"" border=""0"" /></a>" 
	Else 
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",1)""><img src=""images/icon_02.gif"" border=""0"" /></a>"
	End If
Case "jc"'检查重名
	Set rs = Conn.Execute("Select name_id from qvodcms_name where data_name='"&valuestr&"'")
	If Not rs.eof then
	Response.Write"发现重名影片 ID:"&rs("name_id")
	Else
	Response.Write"恭喜.没有发现重名影片！" 
	End if
	rs.close
	Set rs = nothing	
Case "Pjc"'首字母拼音转换
	Response.Write getpy(valuestr)	
Case "rm"'热门
   Conn.Execute(" update [qvodcms_name] set data_hits="&QvodCms_CLng(valuestr)&" where name_id="&dataid&" ")
   'Set rs=Conn.Execute("Select data_hits from qvodcms_name where name_id="&dataid&" ")
	If QvodCms_CLng(valuestr)>=Clng(AdminId(28)) then
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&","&Clng(AdminId(28)-1)&")""><img src=""images/icon_01.gif"" border=""0"" /></a>" 
	Else 
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&","&Clng(AdminId(28))&")""><img src=""images/icon_02.gif"" border=""0"" /></a>"
	End If
Case "vip"'会员设置 2.5新加功能
    Conn.Execute(" update [qvodcms_name] set data_vip="&QvodCms_CLng(valuestr)&" where name_id="&dataid&" ")
	If QvodCms_CLng(valuestr)=1 then
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",0)""><img src=""images/icon_01.gif"" border=""0"" /></a>" 
	Else 
	Response.Write"<a href=""javascript:setajax('"&action&"',"&dataid&",1)""><img src=""images/icon_02.gif"" border=""0"" /></a>"
	End If	
Case "sp"'首字母拼音转换
    Set rs = Conn.Execute("Select data_playpath from qvodcms_name where  name_id="&dataid&"")
	PlayPath=Rs("data_playpath")
	Pfm="<div id=""playurl""><span onclick=""closeLayer()"">关闭<img src=""images/close.gif""/></span><li>"
	If PlayPath<>"" then
	   PathName=Split(PlayPath,"$$")
	   for i=0 to Ubound(PathName)
	   pfm=pfm&"<a title="""&Trim(PathName(i))&""">"&PathName(i)&"</a>"
	   Next
	Else
	   pfm=pfm&"<a title=""没有来源"">没有来源</a>"  
	End If 
	rs.close:Set rs = nothing
	Response.Write Pfm&"</li><div>"
End Select
Call CloseConn()
%>