cf_manage_2.asp

支持多种播放器RealPlayer,MediaPlayer

<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>

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

<%If Action="datamodify" Then%>
<script language="JavaScript">
function modifyuser()
{
var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;
var pwdReg = /[a-z0-9]$/;

if ((document.form2.email.value)=="")
{
window.alert ('email必须填写');
document.form2.email.focus();
return false;
}


if ((!emailReg.test(document.form2.email.value))&&(document.form2.email.value!=''))
{
window.alert ('email的格式不正确');
document.form2.email.focus();
return false;
}

return true;
}
</script>

<%
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFFilm_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1
%>

<table width="98%" align="center" class="tba">
 <form name="form2" method="post" action="User.aspx?Action=datamodifysave">
<tr class="tba_tr_1"> 
      <td height="19" colspan="2"> <div align="center"><strong>修改注册资料(带*为必填项）</strong></div></td>
    </tr>
    <tr align="center"> 
      <td width="150" align="left" bordercolor="#33CCCC"><div align="right">Email：</div></td>
      <td width="654" align="left"> <input name="email" type="text"  value="<%=GetConVertStr(Rs("email"))%>" size="20"> 
        <font color="#0000FF">*</font></td>
    </tr>
    <tr align="center"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">QQ号码：</div></td>
      <td align="left"> <input name="qq" type="text" id="qq"  value="<%=GetConVertStr(Rs("QQ"))%>" size="12"> 
      </td>
    </tr>
    <tr align="center">
      <td align="left" bordercolor="#33CCCC"><div align="right">请输入密码确认：</div></td>
      <td align="left"><input name="Pwd" type="password"  value="" size="20"><font color="#0000FF">*</font></td>
    </tr>
	<tr align="center"> 
      <td align="left" bordercolor="#33CCCC">&nbsp;</td>
      <td align="left"><input type="submit" name="Submit6" value="修改"></td>
    </tr>
  </form>
</table>
<%End If%>

<%If Action="statview" Then%>

<%
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFFilm_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1
%>

<table width="98%" align="center" class="tba">
<form name="form2" method="post" action="?Action=datamodifysave" onsubmit="return modifyuser()">
<tr class="tba_tr_1"> 
      <td height="19" colspan="2"> <div align="center"><strong>用户状态</strong></div></td>
    </tr>
    <tr align="center"> 
      <td width="150" align="left" bordercolor="#33CCCC"><div align="right">总点数：</div></td>
      <td width="654" align="left"><%=Rs("Total_Dot")%></td>
    </tr>
    <tr align="center"> 
      <td width="150" align="left" bordercolor="#33CCCC"><div align="right">花费点数：</div></td>
      <td width="654" align="left"><%=Rs("Spend_Dot")%></td>
    </tr>
    <tr align="center"> 
      <td width="150" align="left" bordercolor="#33CCCC"><div align="right">剩余点数：</div></td>
      <td width="654" align="left"><%=Rs("Spare_Dot")%></td>
    </tr>
    <tr align="center"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">VIP状态：</div></td>
      <td align="left"> <%If Rs("VipState")=-1 Then
	     Response.write "<font color=ff0000>是</font>"
		Else
		 Response.write "否"
		End If
	   
	   %> </td>
    </tr>
    <tr align="center"> 
      <td align="left" bordercolor="#33CCCC"><div align="right">VIP到期时间：</div></td>
      <td align="left" bordercolor="#33CCCC"> <%
	  If Rs("VipState")=-1 Then Response.write Rs("VipEndDate")
	  Response.write"[注：Vip用户在到期时间之前可以不花点数观看和下载全部影片,VIP到期时间可以多次升级累加]"
	  %></td>
    </tr>
<tr class="tba_tr_1"> 
      <td colspan="2" align="left"><div align="center"><strong>升级到VIP方案</strong></div></td>
    </tr>
<%If IsNumeric(GetMySet("DotToVip_30")) Then%>
<tr align="center"> 
      <td align="left"><div align="right">包30天VIP：</div></td>
      <td align="left">消费<%=GetMySet("DotToVip_30")%>点 <a href="User.aspx?Action=dottovip_30" onClick="{if(confirm('确定要升级到这个方案么?')){return true;}return false;}">升级到此方案</a></td>
    </tr>
<%End If%>
<%If IsNumeric(GetMySet("DotToVip_120")) Then%>
<tr align="center"> 
      <td align="left"><div align="right">包120天VIP：</div></td>
      <td align="left">消费<%=GetMySet("DotToVip_120")%>点 <a href="User.aspx?Action=dottovip_120" onClick="{if(confirm('确定要升级到这个方案么?')){return true;}return false;}">升级到此方案</a></td>
    </tr>
<%End If%>
<%If IsNumeric(GetMySet("DotToVip_365")) Then%>
<tr align="center"> 
      <td align="left"><div align="right">包365天VIP：</div></td>
      <td align="left">消费<%=GetMySet("DotToVip_365")%>点 <a href="User.aspx?Action=dottovip_365" onClick="{if(confirm('确定要升级到这个方案么?')){return true;}return false;}">升级到此方案</a></td>
    </tr>
<%End If%>
<%
If IsNumeric(GetMySet("DotToVip_AllTime")) Then%>
<tr align="center"> 
      <td align="left"><div align="right">永久VIP：</div></td>
      <td align="left">消费<%=GetMySet("DotToVip_AllTime")%>点 <a href="User.aspx?Action=dottovip_alltime" onClick="{if(confirm('确定要升级到这个方案么?')){return true;}return false;}">升级到此方案</a></td>
    </tr>
<%End If%>
  </form>
</table>
<%End If%>


<%If Action="spendlist" Then%> 

<%

Sql="Select a.id,a.FilmID,a.PartNum,a.DoType,a.Spend_Dot,a.AddTime,b.FilmName From CFFilm_UserLog a Left Join CFFilm_Film b On a.FilmID=b.ID Where a.UserName='"&UserName&"' Order By a.id 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
%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1"> 
    <td colspan="7"><div align="center"><strong>消费记录(<%=GetMySet("OnlineSpaceTime")%>分钟内重复观看或<%=GetMySet("DownSpaceTime")%>分钟内下载电影的同一集数不收费，此类电影集数文字为红色)</strong></div></strong></div></td>
  </tr>
  <tr> 
    <td><div align="center">序 号</div></td>
    <td><div align="center">电影ID</div></td>
    <td><div align="center">电影名称</div></td>
    <td><div align="center">第几集</div></td>
    <td><div align="center">花费</div></td>
    <td><div align="center">类型</div></td>
    <td><div align="center">时间</div></td>
  </tr>
  <%
While not rs.eof and mypagesize>0

Link=""
If RsSet("HtmOpen")=-1 Then
 Link=Path_Index&"Htm/Show_"&Rs("FilmID")&".htm"
Else
 Link=Path_Index&"Show/Show.asp?ID="&Rs("FilmID")
End IF

Link_2=""
If Rs("DoType")=1 Then
 Link_2=Path_Index&"Play.aspx?ID="&Rs("FilmID")&"&PartNum="&Rs("PartNum")
ElseIf Rs("DoType")=2 Then
 Link_2=Path_Index&"Down.aspx?ID="&Rs("FilmID")&"&PartNum="&Rs("PartNum")
End IF
%>
  <tr
  <%if mypagesize mod 2=0 then
  response.write " bgcolor='#ffffff'"
 else
  response.write " bgcolor='#eeeeee'"
 end if
 %>> 
    <td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%></div></td>
    <td><div align="center"><%=rs("FilmID")%></div></td>
    <td><div align="center"><a href="<%=Link%>" target="_blank">
	<%=rs("FilmName")%></a></div></td>
    <td><div align="center"><a href="<%=Link_2%>" target="_blank">
	<%
If Rs("DoType")=1 Then
 If DateDiff("n",Rs("AddTime"),Now())<=CInt(GetMySet("OnlineSpaceTime")) Then
  Response.write "<font color=ff0000>第"&rs("PartNum")&"集</font>"
 Else
  Response.write "第"&rs("PartNum")&"集"
 End If
ElseIf Rs("DoType")=2 Then
 If DateDiff("n",Rs("AddTime"),Now())<=CInt(GetMySet("DownSpaceTime")) Then
  Response.write "<font color=ff0000>第"&rs("PartNum")&"集</font>"
 Else
  Response.write "第"&rs("PartNum")&"集"
 End If
End If	  
%>
</a></div></td>
    <td><div align="center"><%=rs("Spend_Dot")%>点</div></td>
    <td><%
If Rs("DoType")=1 Then
 Response.write "在线观看"
ElseIf Rs("DoType")=2 Then
 Response.write "下载"
End If%></td>
    <td><div align="center"><%=rs("AddTime")%></div></td>
  </tr>
  <%
mypagesize=mypagesize-1
rs.movenext
Wend%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td valign="top"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a>
            <%
if page>1 then%>
            <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
            <%
end if
%>
            <%
if page<rs.pagecount   then%>
            <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
            <%
end if
%>
            <a href="?Action=<%=Action%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td>
        <Select  name="select" size="1" class=smallselsect id="select4" style='BACKGROUND-COLOR:#ffffff;font-family: 宋体; font-size: 9pt;' onChange="window.location=form.page.options[form.page.selectedIndex].value">
          <%for i=1 to totalpage    
   response.write "<option value="&filename&"?action="&action&"&page="& i     
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next