lx.asp
来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 100 行
ASP
100 行
<%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
id=request("id")
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
response.write"<script>parent.main.document.location.reload();</script>"
end if
%>
<%
if request("action")="save" then
'--------------------取数据-----------------------------
vip=request("vip")
key=request("key")
sdate=request("11")
kdate=request("22")
'--------------------存数据-----------------------------
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from SMT_yp where SMT_id="&request("id")
rs.open sql,conn,1,3
rs("SMT_vip")=vip
rs("SMT_key")=key
rs("SMT_ksdate")=sdate
rs("SMT_ktdate")=kdate
rs.update
rs.close
set rs=nothing
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%>
<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 height=22 colspan=2 align=center><input type="radio" name="key" value="0" 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%>>推荐</td>
</tr>
<tr>
<td height=22 colspan=2 align=center>会员开放时间：
<input name="11" type="text" id="11" value="<%=ksdate%>" size="10"></td>
</tr>
<tr>
<td height=22 colspan=2 align=center>会员到期时间：
<input name="22" type="text" id="22" value="<%=ktdate%>" size="10"></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 + =
减小字号Ctrl + -
显示快捷键?