📄 lx.asp
字号:
<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/md5.asp"-->
<!--#include file="../cook.asp"-->
<%if fla1<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End
end if%>
<%if request("action")="pass" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_yp where SMT_id="&request("id")
rs.open sql,conn,1,3
rs("SMT_pass")=md5(123)
rs.update
rs.close
set rs=nothing
elseif request("action")="save" then
'--------------------取数据-----------------------------
vip=request("vip")
key=request("key")
if key="" then key=0
kdate=request("kdate")
tian=request("tian")
if tian="" then tian=0
tian=int(tian)
ksdate=cdate(request("ksdate"))
onlinepay=request("onlinepay")
'--------------------判断数据---------------------------
if tian=0 then
if vip=2 then
tian=citysyvipdate+365
elseif vip=4 then
tian=citysydate
elseif vip=6 then
tian=365
else
tian=cityjysj
end if
else
if vip=1 or vip=3 or vip=5 then
tian=cityjysj
end if
end if
if kdate<>1 then
ksdate=ksdate
else
ksdate=now()
end if
ktdate=cdate(ksdate+tian)
if key<>0 and ktdate<=now() then key=2
if key=2 and ktdate>now() then key=1
If not (onlinepay="0" or onlinepay="1") Then onlinepay=0
'--------------------存数据-----------------------------
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_yp where SMT_id="&request("id")
rs.open sql,conn,1,3
rs("SMT_key")=key
rs("SMT_vip")=vip
rs("SMT_ksdate")=ksdate
rs("SMT_ktdate")=ktdate
rs("SMT_OnlinePay")=onlinepay
rs.update
rs.close
set rs=nothing
response.write"<script>parent.mm.rows='20,0,10,*';</script>"
response.write"<script>parent.main.document.location.reload();</script>"
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%=citycss%>
<body style="margin:5">
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_yp where SMT_id="&request("id")
rs.open sql,conn,1,1
key=rs("SMT_key")
key1=rs("SMT_key1")
vip=rs("SMT_vip")
ktdate=cdate(year(rs("SMT_ktdate"))&"-"&month(rs("SMT_ktdate"))&"-"&day(rs("SMT_ktdate")))
ksdate=cdate(year(rs("SMT_ksdate"))&"-"&month(rs("SMT_ksdate"))&"-"&day(rs("SMT_ksdate")))
ztian=ktdate-ksdate
onlinepay=rs("SMT_OnlinePay")%>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!--================-->
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="form1" method="post" action="lx.asp">
<input name="id" type="hidden" value="<%=request("id")%>">
<input name="action" type="hidden" value="save">
<input name="ksdate" type="hidden" value="<%=rs("SMT_ksdate")%>">
<tr bgcolor=#efefef><td height=22 colspan="2"> 会员类型管理 - <strong><%=rs("SMT_coname")%></strong></td></tr>
<tr>
<td height=22 width=50%> <input type="radio" name="vip" value="3" style="border:0"<%if vip=3 then%> checked<%end if%>> 试用申请中</td>
<td width=50%> <input type="radio" name="vip" value="4" style="border:0"<%if vip=4 then%> checked<%end if%>> 试用会员</td>
</tr>
<tr>
<td height=22 width=50%> <input type="radio" name="vip" value="5" style="border:0"<%if vip=5 then%> checked<%end if%>> 普通申请中<%if cityuserp=1 then%><font color=red>(等待收费)</font><%end if%></td>
<td width=50%> <input type="radio" name="vip" value="6" style="border:0"<%if vip=6 then%> checked<%end if%>> 普通会员<%if cityuserp=1 then%><font color=red>(已收费)</font><%end if%></td>
</tr>
<tr>
<td height=22 width=50%> <input type="radio" name="vip" value="1" style="border:0"<%if vip=1 then%> checked<%end if%>> VIP 申请中<%if cityvipp=1 then%><font color=red>(等待收费)</font><%end if%></td>
<td width=50%> <input type="radio" name="vip" value="2" style="border:0"<%if vip=2 then%> checked<%end if%>> VIP 会员<%if cityvipp=1 then%><font color=red>(已收费)</font><%end if%></td>
</tr>
<tr>
<td colspan="2" align=center>在线支付工具
<input type="radio" name="onlinepay" value="0" style="border:0"<%if onlinepay=0 then%> checked<%end if%>>不支持
<input type="radio" name="onlinepay" value="1" style="border:0"<%if onlinepay=1 then%> checked<%end if%>>支持
</td>
</tr>
<tr>
<td height=22 colspan=2 align=center><input type="radio" name="key" value="0" disabled=1 style="border:0"<%if key=0 then%> checked<%end if%>>待审
<input type="radio" name="key" value="1" style="border:0"<%if key=1 then%> checked<%end if%>>正常
<input type="radio" name="key" value="2" style="border:0"<%if key=2 then%> checked<%end if%>>到期
<input type="radio" name="key" value="3" style="border:0"<%if key=3 then%> checked<%end if%>>推荐
<input type="radio" name="key" value="4" style="border:0"<%if key=4 then%> checked<%end if%>>待邮件确认</td>
</tr>
<tr>
<td height=22 colspan=2 align=center><input name="kdate" type="checkbox" style="border:0" value=1> 重新计算时间 (选择则该企业收费计算时间从现在开始)</td>
</tr>
<tr>
<td height=22 colspan=2 align=center>重新设定会员开放天数 <input type="text" name="tian" size=5 value="<%=ztian%>"> (指从会员开始到结束的总天数，对各申请中会员无用)</td>
</tr>
<tr align=center><td height=22 colspan="2"><input type="submit" name="Submit" value=" 提 交 "> <input type="button" name="Submit" onclick="javascript:window.open('lx.asp?action=pass&id=<%=request("id")%>','_self')" value="恢复密码为 123"></td></tr>
</form>
</table>
<!--================-->
</td>
</tr>
</table>
<%rs.close
set rs=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -