📄 cf_admin_manage_4.asp
字号:
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><strong>服务QQ</strong></div></td>
</tr>
<tr>
<td><div align="right">是否启用QQ在线支持面板：</div></td>
<td><input name="QQShow" type="radio" value="-1"<%If Rs("QQShow")=-1 Then Response.Write " Checked"%> onclick="ashow_1()">
是
<input name="QQShow" type="radio" value="0"<%If Rs("QQShow")=0 Then Response.Write " Checked"%> onclick="ashow_2()">
否</td>
</tr>
<tr id="a_1">
<td width="33%"><div align="right">QQ号码：</div></td>
<td><input name="QQ_Code" type="text" id="admin" value="<%=rs("QQ_Code")%>" size="50"></td>
</tr>
<tr id="a_2">
<td> </td>
<td>如果是多个QQ，请用英文状态下的逗号分隔</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit323" value="修改">
<input type="reset" name="Submit5233" value="取消"> </td>
</tr>
</form>
</table>
<%End If%>
<%If Action="enoughcardlist" Or Action="cardcodesearch" Then%>
<%
CardCode=ChkStr(Request("CardCode"),1)
Px=ChkStr(Request("Px"),1)
If Px="" Then Px="ID"
Call PxFilter(Px,"ID,CardCode,CardPassword,CardMoney,LastDate,EnoughOk,UserName,EnoughTime,AddTime")
Sql="Select * From CFFilm_EnoughCard Where 1=1"
If CardCode<>"" Then
Sql=Sql&" And CardCode Like '%"&CardCode&"%'"
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
%>
<table width="98%" align="center" class="tba">
<tr>
<td height="18" colspan="9"><input type="submit" name="Submit3" value="新增充值卡" onClick="location.href='?Action=enoughcardadd';">
</td>
</tr>
<tr class="tba_tr_1">
<td height="18"><div align="center"><strong><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=CardCode">卡号</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=CardPassword">密码</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=CardMoney">金额</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=LastDate">最晚充值日期</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=EnoughOk">已被充入</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=UserName">已充入用户名</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=EnoughTime">充值时间</a></strong></div></td>
<td><div align="center"><strong><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=AddTime">加入时间</a></strong></div></td>
<td><div align="center">操作</div></td>
</tr>
<%
While Not Rs.Eof
I=I+1
%>
<form name="<%="f"&I%>" method="post" action="Admin.aspx?Action=servermodifysave&ID=<%=Rs("ID")%>">
<tr
<%
if I mod 2=1 then
response.write " bgcolor='#ffffff'"
else
response.write " bgcolor='#e8e8e8'"
end if
%>
>
<td align="center"><%=Rs("CardCode")%></td>
<td align="center"><%=Rs("CardPassword")%></td>
<td align="center"><%=Rs("CardMoney")%>元</td>
<td align="center"><%=Rs("LastDate")%></td>
<td align="center">
<%
If Rs("EnoughOk")=0 Then
Response.write "否"
Else
Response.write "是"
End if
%></td>
<td align="center"><%=Rs("UserName")%></td>
<td align="center"><%=Rs("EnoughTime")%></td>
<td align="center"><%=Rs("AddTime")%></td>
<td align="center"><a href="Admin.aspx?Action=enoughcarddel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a> </td>
</tr>
</form>
<%
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td valign="top"><div align="right"><a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=<%=Px%>&Page=1">第一页</a>
<%
if page>1 then%>
<a href='?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
<%
end if
%>
<%
if page<rs.pagecount then%>
<a href='?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
<%
end if
%>
<a href="?Action=<%=Action%>&CardCode=<%=CardCode%>&Px=<%=Px%>&Page=<%=TotalPage%>">最后一页</a>
页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=UserTotal%>条记录 每页显示<%=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=?Action="&Action&"&CardCode="&CardCode&"&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=cardcodesearch">
<tr>
<td><div align="center">卡号
<input name="CardCode" type="text" id="CardCode" size="10">
<input type="submit" name="Submit" value="查找">
</div></td>
</tr>
</form>
</table>
<%end if%>
<%If Action="enoughcardadd" Then%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td colspan="5"><div align="center"><strong>充值卡号增加</strong></div></td>
</tr>
<form name="f" method="post" action="Admin.aspx?Action=enoughcardaddsave">
<tr>
<td align="center"><div align="right">卡号：</div></td>
<td> <input name="CardCode" type="text" value="<%=Gen_Key(16)%>" size="30"> </td>
</tr>
<tr>
<td><div align="right">密码：</div></td>
<td> <input name="CardPassword" type="text" value="<%=Gen_Key(16)%>" size="30">
</td>
</tr>
<tr>
<td><div align="right">金额：</div></td>
<td> <input name="CardMoney" type="text" size="15">
元 </td>
</tr>
<tr>
<td><div align="right">最晚充值日期：</div></td>
<td> <input name="LastDate" type="text" value="<%=DateAdd("yyyy",1,Date())%>" size="15">
</td>
</tr>
<tr>
<td colspan="5" align="center"><input type="submit" name="Submit4" value="增加"></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="ipxzmodify" Then%>
<table width="98%" align="center" class="tba">
<form name="form" method="post" action="Admin.aspx?Action=ipxzmodifysave" onsubmit="javascript:return templetmodify();">
<tr class="tba_tr_1">
<td height="20" colspan="2" valign="top"><div align="center"><strong>IP管理</strong></div></td>
</tr>
<tr>
<td valign="top"><div align="right">只允许IP列表里的IP观看和下载影片</div></td>
<td ><input type="radio" name="IpXzUse" value="-1"<%If RsSet("IpXzUse")=-1 Then Response.write " checked"%>>是
<input type="radio" name="IpXzUse" value="0"<%If RsSet("IpXzUse")=0 Then Response.write " checked"%>>否(默认为否，如果开启请慎重考虑是否有此需要)</td>
</tr>
<tr>
<td width="120" valign="top"><div align="right">所有列表：</div></td>
<td width="639"><textarea name="IpList" cols="90" rows="10"><%=GetConVertStr(RsSet("IpList"))%></textarea></td>
</tr>
<tr>
<td colspan="2">格式,每IP或IP段用*分隔,比如：100.100.100.100*100.100.101.*100.100.102.</td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit3" value="修改">
</div></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="pwdmodify" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">
<form name="form2" method="post" action="Admin.aspx?action=pwdmodifysave">
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><strong>输入原管理员密码</strong></div></td>
</tr>
<tr>
<td><div align="right">原管理员用户名：</div></td>
<td><%=Rs("Admin")%></td>
</tr>
<tr>
<td><div align="right">请输入原管理密码：</div></td>
<td><input name="Pwd_Old" type="password" id="Pwd_Old" value="" size="15"></td>
</tr>
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><strong>新管理员名称和密码</strong></div></td>
</tr>
<tr>
<td width="33%"><div align="right">新管理员名称：</div></td>
<td width="67%"><input name="Admin" type="text" id="admin" value="<%=Rs("Admin")%>" size="15"></td>
</tr>
<tr>
<td><div align="right">新密码：</div></td>
<td><input name="Pwd" type="password" id="Pwd" size="15"></td>
</tr>
<tr>
<td><div align="right">新密码确认： </div></td>
<td><input name="Pwd2" type="password" id="Pwd2" size="15"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit323" value="修改">
<input type="reset" name="Submit5233" value="取消"> </td>
</tr>
</form>
</table>
<%End If%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -