qqcf_admin_manage_4.asp

免费电影程序:系统做免费

<%
' 乘风电影V3.3 Mssql版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，用户无法获取实际链接，可随时更改所有内部影片的链接地址
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>

<!--#include file="QQCF_Style.asp"-->

<%If Action="userlist" Or Action="searchuser" Then%>
点击标题可以选择其相应的排序方式 
	
<%
User_Name=ChkStr(Request("User_Name"),1)
Px=ChkStr(Request("Px"),1)

If Px="" Then Px="ID"

Call PxFilter(Px,"ID,User_Name,Total_Dot,Spend_Dot,Spare_Dot,AddTime,State,VipState")

Sql="Select Count(*) From CFFilm_RegUser" 
Set Rs=Conn.Execute(Sql)
UserTotal=Rs(0)

Sql="Select Top 2000 * From CFFilm_RegUser Where 1=1" 

If Action="searchuser" Then
  If User_Name<>"" Then Sql=Sql&" And User_Name = '"&User_Name&"' Or ParentName='"&User_Name&"'"
End If

Sql=Sql&" Order By "&px&" Desc"

Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,Conn,1,1

If Not Rs.Eof Then
 If ChkStr(Request("Page"),2) = "" Then
  Page = 1
 Else 
  Page = CInt(ChkStr(Request("Page"),2))
 End If

Rs.pagesize=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%></div>
          
        
<table width="98%" align="center" class="tba">
  <tr class="tba_tr_1"> 
      <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=ID">序号</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=User_Name">用户名</a></strong></div></td>
    <td><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=Total_Dot"><strong>总点数</strong></a></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=Spend_Dot">花费点数</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=Spare_Dot">剩余点数</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=AddTime">注册时间</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=State">帐号状态</a></strong></div></td>
    <td><div align="center"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=VipState"><strong>Vip状态</strong></a></div></td>
    <td><div align="center"><strong>操作</strong></div></td>
  </tr>
  <%While Not Rs.Eof And MyPageSize>0%>
  <tr> 
    <td><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
    <td><div align="center"><%=Rs("User_Name")%></div></td>
    <td><div align="center"> 
        <%=Rs("Total_Dot")%>
      </div></td>
    <td><div align="center"><%=Rs("Spend_Dot")%></div></td>
    <td><div align="center"><%=Rs("Spare_Dot")%></div></td>
    <td><div align="center"><%=Rs("AddTime")%></div></td>
    <td><div align="center"> 
        <%if rs("state")=-1 then
			  response.Write "有效"
			  elseif rs("state")=0 then
			  response.Write "无效"
			  end if%>
      </div></td>
    <td><div align="center"> 
        <%if rs("VipState")=-1 then
			  response.Write "<font color=#ff0000>是</font>"
			  elseif rs("VipState")=0 then
			  response.Write "否"
			  end if%>
      </div></td>
    <td><div align="center"><a href="?Action=gotouser&User_Name=<%=Rs("User_Name")%>" target="_blank">查看</a> 
        <a href="?Action=usermodify&User_Name=<%=Rs("User_Name")%>">修改</a> 
        <a href="QQCF.aspx?Action=userdel&User_Name=<%=Rs("User_Name")%>" onClick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
  </tr>
  <%rs.movenext
mypagesize=mypagesize-1
wend%>
</table>
<div align="center"> <br>
  <table border="0" align="center" cellpadding="0" cellspacing="1">
    <tr> 
      <td valign="top"><div align="right"><a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=<%=Px%>&Page=1">第一页</a> 
          <%
if page>1 then%>
          <a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> 
          <%
end if
%>
          <%
if page<rs.pagecount   then%>
          <a href='?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a> 
          <%
end if
%>
          <a href="?Action=<%=Action%>&User_Name=<%=User_Name%>&Px=<%=Px%>&Page=<%=TotalPage%>">最后一页</a> 
          页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=UserTotal%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
      <form name="form1" method="post" action="jczx.asp">
        <td> <Select  name="page" size="1" id="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%For I=1 To TotalPage    
   Response.Write "<option value="&filename&"?Action="&Action&"&User_Name="&User_Name&"&Px="&Px&"&Page="&I    
   If Page=I Then     
     Response.Write " Selected"    
   End If    
   Response.write ">转到第"& i &"页</option>"    
Next    
%>
          </select> </td>
      </form>
    </tr>
  </table>
  <table border="0" align="center" cellpadding="3" cellspacing="0">
      <tr> 
        <td><div align="center"><strong>搜索</strong><br>
          </div></td>
      </tr>
	      <form name="form2" method="post" action="?action=searchuser">
      <tr>
        <td><div align="center">用户名
<input name="User_Name" type="text" id="User_Name" size="10">
            <input type="submit" name="Submit" value="查找">
          </div></td>
      </tr>
    </form>
  </table>
<%End If%>


<%If Action="usermodify" Then%>
<SCRIPT>
function ashow_1(){
a_1.style.display = "";
a_2.style.display = "";
}
function ashow_2(){
a_1.style.display = "none";
a_2.style.display = "none";
}
</script>
          
          
<table width="98%" align="center" class="tba">
  
  <form name="form2" method="post" action="QQCF.aspx?Action=usermodifysave&User_Name=<%=User_Name%>">
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>修改资料</strong> </div></td>
    </tr>
    <tr> 
      <td width="150"><div align="right">用户名：</div></td>
      <td><font size="2"><%=Rs("User_Name")%> </font></td>
    </tr>
    <tr> 
      <td><div align="right">账号状态：</div></td>
      <td><input type="radio" name="State" value="-1"<%If Rs("State")=-1 Then Response.write " checked"%>>
        有效 
        <input type="radio" name="State" value="0"<%If Rs("State")=0 Then Response.write " checked"%>>
        无效</td>
    </tr>
    <%If RsSet("UserUseDayState")=-1 Then%>
    <%End If%>
    <%If Rs("ParentName")="-" Then'为父账号时出现VIP状态%>
    <tr> 
      <td><div align="right">Vip状态：</div></td>
      <td><input type="radio" name="VipState" value="-1"<%If Rs("VipState")=-1 Then Response.write " checked"%> onclick="ashow_1()">
        是 
        <input type="radio" name="VipState" value="0"<%If Rs("VipState")=0 Then Response.write " checked"%> onclick="ashow_2()">
        否</td>
    </tr>
    <tr id="a_1"> 
      <td><div align="right">Vip到期：</div></td>
      <td><input type="text" name="VipEndDate" value="<%=Rs("VipEndDate")%>"></td>
    </tr>
    <%End If%>
    <tr> 
      <td><div align="right">修改为新密码：</div></td>
      <td><input name="Pwd_New" type="text" id="Pwd_New">
        (留空则原密码不会被修改)</td>
    </tr>
    <tr>
      <td valign="top"><div align="right">为用户加减点数：</div></td>
      <td><input name="DotAddNum" type="text" id="DotAddNum">(正数为加点，负数为减点，留空则不进行点数操作)</td>
    </tr>
    <tr> 
      <td valign="top"><div align="right">管理员说明：</div></td>
      <td><textarea name="admindesc" cols="30" rows="6" id="notes"><%=rs("admindesc")%></textarea></td>
    </tr>
    <tr> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit3" value="修改">
          　　 
          <input type="reset" name="Submit523" value="取消" onClick="javascript:history.go(-1)">
        </div></td>
    </tr>
  </form>
</table>

  <%end if%>
  
  

<%If Action="sysmodify" Then%>
<SCRIPT>
function dshow_1(){
d_1.style.display = "none";
d_2.style.display = "none";
d_3.style.display = "none";
}
function dshow_2(){
d_1.style.display = "";
d_2.style.display = "";
d_3.style.display = "";
}

</SCRIPT>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">
  
  <tr> 
    <td colspan="2" class="td_1"><strong>注意：</strong><br>
      程序必须在支持Asp.net的空间上运行，请打开下面的Asp.net探针测试你的空间是否支持Asp.net,必须保证探针运行后能显示正常信息程序才能正常使用</td>
  </tr>
  <tr> 
    <td colspan="2" class="td_1"><strong><a href="QQCF_AspxCheck.aspx" target="_blank">点击打开探针测试</a></strong></td>
  </tr>
  <form name="form2" method="post" action="QQCF.aspx?action=sysmodifysave">
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>系统</strong></div></td>
    </tr>
    <tr> 
      <td width="34%"><div align="right">系统名称：</div></td>
      <td width="66%"><input name="Title" type="text" id="Title" value="<%=Rs("Title")%>" size="25"></td>
    </tr>
    <tr> 
      <td><div align="right">是否允许用户注册：</div></td>
      <td><input name="RegState" type="radio" value="-1"<%If Rs("RegState")=-1 Then Response.Write " checked"%>>
        是