<!-- #include file="include/onlogin.asp" -->
<!-- #include file="include/csk3000_pagecute.asp" -->
<!-- #include file="include/conn.asp" -->
<!-- #include file="carzcm.asp" -->
<link rel=stylesheet href='images/csk3000.css' type=text/css><script langiage=javascript src='style/mouse_on_title.js'></script>

<%
dim zj,web_up,MaxPerPage,yzcv,sqladd,sql3,rs3,dayer,usercper,power,paymoney,no,carlasttime,dlr,carno,carpws,p,k,s99H
tit="<center><a href=""admin_car.asp?action=3"">查看未充值卡</a>  <a href=""admin_car.asp?action=4"">查看已充值卡</a>  <a href=""admin_car.asp?action=1"">发行固定充值卡</a>  <a href=""admin_car.asp?action=2"">发行自定义充值卡</a>  <a href=""user_emoney.asp?action=card"">进行在线充值</a>"
response.write header(14,tit)
  titt="会员卡系统"
response.write admin_bar(titt,1,"99%")
if request("type")="reg" then
if request("check")="yes" then
zcn=Request("zcn")&s99H
zcv=Request("zcv")
zj=Request.ServerVariables("SERVER_NAME")
if request("zcn")="" or request("zcv")="" then
response.write("<script>alert('注册失败:用户名和注册码不能为空!');history.back();</script>")
error="yes"
elseif len(zcv)>20 then
response.write("<script>alert('注册失败:注册码不能多于20个字符!');history.back();</script>")
elseif IsNumeric(zcv)=false then
response.write("<script>alert('注册失败:注册码只能是数字!');history.back();</script>")
else
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"s99H"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
zcv=zcv+0
if yzcv=zcv then
dim fso,ts1
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set TS1 = FSO.CreateTextFile(Server.MapPath("carzcm.asp"), True) 
TS1.write "<"&chr(37)&"dim zcn,zcv"&chr(13)&"zcn="&chr(34)&zcn&chr(34)&chr(13)&"zcv="&zcv&chr(37)&">"
Set TS1 = Nothing 
Set FSO = Nothing
response.write("<script>alert('注册成攻:!!!恭喜!!!您所填写的信息已成功注册!');location.href='admin_car.asp'</script>")
response.end
else
response.write("<script>alert('注册失败:用户名或注册码错误!');history.back();</script>")
end if
end if
end if
end if
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"s99H"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
'if yzcv<>zcv then
'response.write"<center><form action=""admin_car.asp?type=reg&check=yes"" method=""post"">用户名：<input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' name=""zcn"" size=""10"" value="""&zcn&"""> 注册号：<input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' name=""zcv"" size=""10"" value="""&zcv&"""><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type=""submit"" value=""注册""></form></center>"
'response.write("<b><font color=""#FF0000"">错误：时代在线影院..电.影.系.统.(.ASP.版.8.5)程序尚未注册!</font></b><a href='Http://www.china-shidai.net"'>请点此获得注册码</a></form>")
'response.end
'end if

if request("action")="delcar" then
conn.execute"delete from car where c_id="&request("id")
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
if request("action")="delc_hidden" then
conn.execute"delete from car where c_hidden=1"
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
if request("action")="delcarlasttime" then
conn.execute"delete from car where carlasttime+tim<=now()"
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
if request("action1")="1" then
sql="update car set c_hidden=0 where c_id="&request("id")
conn.execute(sql)
end if
if request("action")="0" then
sql="update car set c_hidden=1,caruuser='未使用' where c_id="&request("id")
conn.execute(sql)
end if
if request("action")="180" then
sql="update car set carlasttime=180 where c_id="&request("id")
conn.execute(sql)
end if%>
<%if request("action")="carsave" then%>
<%dayer=request("day")
usercper=request("usercp")
power=request("power")
paymoney=request("paymoney")
no=request("no")
carlasttime=request("carlasttime")
dlr=request("dlr")
carno=request("carno")
carpws=request("carpws")
set rs=server.createobject("adodb.recordset")
rs.open "select * from car",conn,1,3
for i=1 to no
randomize
p=Int((objv7.web_var(web_reg,15)*rnd))
k=Int((objv7.web_var(web_reg,14)*rnd))
'p=Int((3957184629*rnd))
'k=Int((6243951646*rnd))
rs.addnew
if carno<>"" then
rs("carid")=carno
else
rs("carid")=p
end if
if carpws<>"" then
rs("carpws")=carpws
else
rs("carpws")=k
end if
rs("power")=power
rs("usercp")=usercper
rs("paymoney")=paymoney
rs("tim")=now()
rs("day")=dayer
rs("carlasttime")=carlasttime
rs("dlr")=dlr
rs.update
next
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_car.asp"
end if%><table bgcolor='#EFEFEF' border="0" cellspacing="1" style="border-collapse: collapse" width="100%" cellpadding="2"><tr></tr></table><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0"><%if request("action")<>"1" and request("action")<>"2" and request("action")<>"user" then%><center><%MaxPerPage=18
dim totalPut  
dim CurrentPage
dim TotalPages
dim typename  
typename=""
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rstype
dim typesql
dim typeid,typename1
if not isEmpty(request("typeid")) then
typeid=request("typeid")
else
typeid=0
end if%><table bgcolor='#EFEFEF' width="100%"></td></tr></table><%sql="select * from car"&sqladd
select case action
case "carid"
sql=sql&" order by carid desc"
case "ps"
sql=sql&" order by carpws desc"
case "usercp"
sql=sql&" order by usercp desc"
case "emoney"
sql=sql&" order by paymoney desc"
case "power"
sql=sql&" order by power desc"
case "usertime"
sql=sql&" order by usertime desc"
case "day"
sql=sql&" order by day desc"
case "tim"
sql=sql&" order by tim desc"
case "carlasttime"
sql=sql&" order by carlasttime desc"
case "c_hidden"
sql=sql&" order by c_hidden desc"
case "4"
sql=sql&" where c_hidden=1"
case "3"
sql=sql&" where c_hidden=0"
case "user"
sql=sql&" where dlr='"&carer&"'"
case else
sql=sql&" order by c_id desc"
end select
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 充 值 卡</p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"admin_car.asp"
showContent
showpage totalput,MaxPerPage,"admin_car.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move  (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"admin_car.asp"
showContent
showpage totalput,MaxPerPage,"admin_car.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"admin_car.asp"
showContent
showpage totalput,MaxPerPage,"admin_car.asp"
end if
end if
end if
sub showContent
dim i
i=0%><div align="center"><center>
  <table border="1" cellspacing="1" width="700" bordercolorlight="#CCCCCC" bordercolordark="#EFEFEF" cellpadding="2"><form method="POST" action="carer.asp?action1=user">查找代理<input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="text" name="user2" size="11"><select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' size="1" name="car"><option value="1">已使用</option><option value="0">未使用</option></select><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="submit" value="提交" name="B1"><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="reset" value="重置" name="B2"></form><tr bgcolor="#CCCCCC">
  <td width="10%" align="center" nowrap><b><a href="admin_car.asp?action=carid">
  <font color="#000080">卡号</font></a></b></td>
  <td width="10%" align="center" nowrap><b><a href="admin_car.asp?action=ps">
  <font color="#000080">密码</font></a></b></td>
  <td width="6%" align="center" nowrap><b><a href="admin_car.asp?action=usercp">
  <font color="#000080">魅力值</font></a></b></td>
  <td width="6%" align="center" nowrap><b><a href="admin_car.asp?action=emoney"><%response.write m_unit%></a></b>　</td>
  <td width="9%" align="center" nowrap><a href="admin_car.asp?action=day">
  <font color="#000080">卡类型</font></a></td>
  <td width="9%" align="center" nowrap><a href="admin_car.asp?action=power"><b>
  <font color="#000080">会员</font></b></a></td>
  <td width="5%" align="center" nowrap><b><a href="admin_car.asp?action=tim">
  <font color="#000080">时间</font></a></b></td>
  <td width="17%" align="center" nowrap><b><a href="admin_car.asp?action=carlasttime">
  <font color="#000080">过期时间</font></a></b></td>
  <td width="7%" align="center" nowrap><a href="admin_car.asp?action=c_hidden">
  <font color="#000080">使用</font></a></td>
  <td width="14%" align="center" nowrap><a href="admin_car.asp?action=dlr">
  <font color="#000080">代理商/使用者</font></a></td>
  <td width="11%" align="center" nowrap><b><a href="admin_car.asp?action=usertime">
  <font color="#000080">使用时间</font></a></td></tr></tr>
  <%do while not rs.eof%><tr onmouseover="javascript:this.bgColor='#EDEDED';" onmouseout="javascript:this.bgColor='#FFFFFF';">
    <td height="4" width="10%"><center><b><%=rs("carid")%></b></td>
    <td width="10%" height="4" align="center"><b><%=rs("carpws")%></b></td>
    <td width="6%" align="center" nowrap><font color="#008000"><%=rs("usercp")%></font> 點</td>
    <td width="6%" align="center" nowrap><%=rs("paymoney")%>　</td>
    <td width="9%" align="center" nowrap><span style="font-size: 9pt"><%if rs("day")="30" then%></span><font color="#0000FF">包月卡</font><%elseif rs("day")="90" then%><font color="#008000">包季卡</font><%elseif rs("day")="365" then%><font color="#000080">包年卡</font><%else%><font color="#FF0000">特别會員卡</font><%end if%></td>
    <td width="9%" align="center" nowrap></font><%if rs("power")="admin" then%>管理员<%elseif rs("power")="vip" then%>vip会员<%elseif rs("power")="gold" then%>黄金會员<%else%>普通會員<%end if%></td>
    <td width="5%" align="center" nowrap><a title="<%=rs("tim")%>" href="admin_car.asp?action=tim">发行</a></td>
    <td width="17%" align="center" nowrap><%if now()>=rs("tim") + rs("carlasttime") then%><%  response.write "<a onclick=""return confirm('是否为该卡增加半年有效使用时间!');"" href='?action=180&id="&rs("c_id")&"'><font color=#808080>过期卡</font></A>"%><%elseif rs("tim") + 3650<=rs("tim") + rs("carlasttime") then%>无限制<%else%><%=rs("carlasttime") + rs("tim")%><%end if%></td>
    <td width="7%" align="center" nowrap><%if rs("c_hidden")=0 then
response.write "<a href='?action="&rs("c_hidden")&"&id="&rs("c_id")&"'>未使用</a>"
else
response.write "<a onclick=""return confirm('把该卡设为未使用并删除使用者  "&rs("caruuser")&"  的在  "&rs("usertime")&"  充值时的使用信息，为了使用者知道密码建议删除!');"" href='?action1="&rs("c_hidden")&"&id="&rs("c_id")&"'><font class=red>已使用</font></a>"
end if%>　</td>
    <td width="14%" align="center" nowrap><%if rs("dlr")=""&objv7.web_var(web_config,3)&"" then%><a href="carer.asp?action=user&user2=<%=objv7.web_var(web_config,3)%>">本站留用</a><%else%><a href="carer.asp?action=user&user2=<%=rs("dlr")%>"><%=rs("dlr")%></a><%end if%>/<%if rs("caruuser")<>"" then%><a href='user_view.asp?username=<%=rs("caruuser")%>' target=_blank><%=rs("caruuser")%></a><%else%>未使用<%end if%></td>
    <td width="11%" align="center" nowrap><a href="?action=delcar&id=<%=rs("c_id")%>"><font color="#000000">删除</font></a></td></tr><% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop%></table></center></div><%end sub 
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<p align=""center""><form method=Post action="&filename&"?typeid="&typeid&">"
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
else
response.write "<a href="&filename&"?page=1&typeid="&typeid&">首页</a>&nbsp;"
response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&">上一页</a>&nbsp;"
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&typeid="&typeid&">尾页</a>"
end if
response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'>&nbsp;共<b>"&totalnumber&"</b>张卡 <b>"&maxperpage&"</b>张卡/页</font> "
response.write " <font color='#000080'>转到：</font><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type='text' name='page' size=4 maxlength=10 class=smallInput value="&currentpage&">"
response.write " <input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' class=buttonface type='submit'  value='Goto'  name='cndok'></span></p></form></p>"     
end function
rs.close
set rs=nothing  
conn.close
set conn=nothing
end if 
if request("action")="1" then%><div align="center"><center>
  <table bgcolor='#EFEFEF' border="1" cellspacing="1" id="AutoNumber2" width="700" bordercolorlight="#CCCCCC" bordercolordark="#EFEFEF"><form method="POST" action="admin_car.asp?action=carsave">  <tr><td><b>自定义天数增加充值卡：</b></td></tr><tr>
    <td nowrap><font size="2">发行<select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" size="1" name="no"><option value="1">1张</option><option value="10">10张</option><option value="50">50张</option><option value="100">100张</option><option value="150">150张</option></select>卡给</font><select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" name=dlr size="1"><%sql3="select * from user_data where power"
set rs3=conn.execute(sql3)
response.write "<option value='"&objv7.web_var(web_config,3)&"' class=bg_2 selected>留给自己用</option>"
do while not rs3.eof
if rs3("power")="carer" then
response.write vbcrlf&"<option value='"&rs3("username")&"' class=bg_2 selected>"&rs3("username")&"</option>"
end if
rs3.movenext
loop
rs3.close:set rs3=nothing%></select><font size="2"><select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" size="1" name="day"><option value="3650">点卡</option><option value="30">月卡</option><option value="90">季卡</option><option value="365">一年卡</option><option value="3650">无限制</option></select>卡类型<select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" size="1" name="carlasttime"><option value="180">半年过期</option><option value="365">一年过期</option><option value="730">二年过期</option><option value="1250">三年过期</option><option value="3650">无限制</option></select><select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" size="1" name="power"><option value="user">普通会员</option><option value="vip">VIP会员</option><option value="gold">黄金会员</option><option value="admin">管理员</option></select><select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" size="1" name="usercp"><option value="1">1點</option><option value="10">10點</option><option value="50">50點</option><option value="100">100點</option><option value="150">150點</option><option value="200">200點</option><option value="300">300點</option><option value="500">500點</option><option value="800">800點</option><option value="1000">1000點</option></select></font>魅力值<font size="2"><select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" size="1" name="paymoney"><option value="1">1<%response.write m_unit%></option><option value="10">10<%response.write m_unit%></option><option value="50">50<%response.write m_unit%></option><option value="100">100<%response.write m_unit%></option><option value="150">150<%response.write m_unit%></option><option value="200">200<%response.write m_unit%></option><option value="500">500<%response.write m_unit%></option><option value="1000">1000<%response.write m_unit%></option><option value="1500">1500<%response.write m_unit%></option></select></font><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" type="submit" value="发行" name="B2"><br>注意:月卡为30天,季卡90天,年卡365天. <br>选中普通会员，VIP会员，黄金会员，管理员，充值后将自动成为相应等级的用户</td></tr></table></center></div></body><%end if%> <%if request("action")="2" then%><div align="center"><center>
  <table bgcolor='#EFEFEF' border="1" cellspacing="1" id="AutoNumber2" bordercolorlight="#CCCCCC" bordercolordark="#EFEFEF" width="700"><form method="POST" action="admin_car.asp?action=carsave">  <tr><td><b>自定义天数增加充值卡：</b></td></tr><tr>
    <td nowrap>
  卡号<input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="text" name="carno" size="10">密码<input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="text" name="carpws" size="9"><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="text" name="no" size="6"><font size="2">张卡给</font><select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' name=dlr size=1><%sql3="select * from user_data where power"
set rs3=conn.execute(sql3)
response.write "<option value='"&objv7.web_var(web_config,3)&"' class=bg_2 selected>留给自己用</option>"
do while not rs3.eof
if rs3("power")="carer" then
response.write vbcrlf&"<option value='"&rs3("username")&"' class=bg_2 selected>"&rs3("username")&"</option>"
end if
rs3.movenext
loop
rs3.close:set rs3=nothing%></select>
<input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="text" name="day" size="8"><font size="2">天(<font color="#808080">卡类型</font>)<select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" size="1" name="carlasttime"><option value="180">半年过期</option><option value="365">一年过期</option><option value="730">二年过期</option><option value="3650">无限制</option></select><select onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" size="1" name="power"><option value="user">普通会员</option><option value="vip">VIP会员</option><option value="gold">黄金会员</option><option value="admin">管理员</option></select></font><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="text" name="usercp" size="7">魅力值<input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' type="text" name="paymoney" size="7"><%response.write m_unit%><input onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' onmouseover=this.style.borderColor='#486841';this.style.backgroundColor='#E2F1A6' onmouseout=this.style.borderColor='#006D91';this.style.backgroundColor='#EFEFEF' style="border: 1px solid #2693FF; background-color: #F2F8FF" type="submit" value="发行" name="B2"><br>注意:月卡为30天,季卡90天,年卡365天. <br>选中普通会员，VIP会员，黄金会员，管理员，充值后将自动成为相应等级的用户</td></tr></table></center></div><%end if%>
<script language="JavaScript">
<!--
document.write("<center>删除选项：<a href=\"?action=delc_hidden\">删除所有已经使用的卡</a>&nbsp;<a href=\"?action=delcarlasttime\">删除所有过期卡</a>");
//-->
</script><br>
<% response.write web_up 
response.write admin_bar(titt,2,"99%")
response.write ender()%>