📄 time.asp

📁 北京商务网
💻 ASP
字号:
<%@ codepage ="936" %><!--#include file="../../conn/dbconn2.asp" --><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>注册会员审核</title><LINK href="../Style.css" rel=stylesheet type=text/css></head><%IF request("action")="save" Then   call save()Else   call main()End Ifsub main()if not isEmpty(request("id")) then   userid=request("id")else   userid=1end ifSet rs= Server.CreateObject("ADODB.Recordset") sql="select * from qyml where id="&userid&""rs.open sql,conn,1,1%><CENTER><FORM action=time.asp method=post name=form1><INPUT name=action type=hidden value="save"><INPUT name=userid type=hidden value="<%=userid%>"><center>请确认你正在给<font color=green><b><%=rs("user")%></b></font>充值,充值后变成享受收费会员</center><TABLE align=center border=0 cellPadding=3 cellSpacing=0 width=400>  <TBODY>  <TR>    <TD>      <INPUT name=begindate type=text size=30 value="<%=rs("begindate")%>">    </TD>    <TD>     <INPUT name=enddate type=text size=30 value="<%=rs("enddate")%>">    </TD>   </TR>  <TR>    <TD>会员开始时间<font color=red>[按格式填写!!]</font>    </TD>    <TD>会员结束时间<font color=red>[按格式填写!!]</font>    </TD>   </TR>    <TR>    <TD height="40" align="center" colspan=2>    <INPUT type=submit value='确&nbsp;&nbsp;定' name=Submit2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    <input type="button" value="返&nbsp;&nbsp;回" name="B4" onclick="javascript:window.close();">    </TD>  </TR>  </TBODY></TABLE></form><%end subsub save()    set rs=server.createobject("adodb.recordset")    sql="select begindate,enddate,uflag,hybz,flag from qyml where id="&request("userid")&""    rs.open sql,conn,3,3	rs("begindate")=request("begindate")	rs("enddate")=request("enddate")	rs("uflag")=1	rs("hybz")=1	rs("flag")=0    rs.update    response.write "<br><center>"+"操作成功，请<a href=javascript:window.close();><font color=#ff000>关闭窗口</font></a>进行其他操作。"end subrs.closeset rs=nothingconn.closeset conn=nothing%></body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -