📄 attribute1.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %>
<%
if instr(session("flag_fyadmin"),"03")=0 then
response.redirect "../login.asp"
response.end
end if
%><!--#include file="../../inc/config.asp"-->
<!--#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 If
sub main()
if not isEmpty(request("id")) then
   userid=request("id")
else
   userid=1
end if
Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select * from qyml where id="&userid&""
rs.open sql,conn,1,1
%>
<CENTER>
<FORM action=attribute1.asp method=post name=form1>
<INPUT name=action type=hidden value="save">
<INPUT name=userid type=hidden value="<%=userid%>">
<TABLE align=center border=0 cellPadding=3 cellSpacing=0 width=400>
  <TBODY>
  <TR>
    <TD>
      <INPUT name=uflag type=radio value="0">待审免费会员
    </TD>
    <TD>
     <INPUT name=uflag type=radio value="1">正式免费会员
    </TD>
   </TR>
   <TR>
    <TD>
      <INPUT <%if rs("uflag")="0" then response.write "checked"%> name=uflag type=radio value="2">待审收费会员
    </TD>
    <TD>
     <INPUT  <%if rs("uflag")="1" then response.write "checked"%> name=uflag type=radio value="3">正式未付费会员
    </TD>
  </TR>
   <TR>
    <TD>
     <INPUT name=uflag type=radio value="4">享受付费会员[加一年使用期]
    </TD>
    <TD>
     <a href=add.asp target=_blank><font color=red>充值其他时间</font></a>
    </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 sub
sub save()
    set rs=server.createobject("adodb.recordset")
    sql="select id,flag,uflag,hybz,begindate,enddate from qyml where id="&request("userid")&""
    rs.open sql,conn,3,3
    Select Case request("uflag")
	case "0" '待审免费会员
	    rs("uflag")=0
	    rs("hybz")=0
	    rs("flag")=5
	case "1" '正式免费会员
	    rs("uflag")=1
	    rs("hybz")=0
	    rs("flag")=4
	case "2" '待审收费会员
	    rs("uflag")=0
	    rs("hybz")=1
	    rs("flag")=3
	case "3" '正式未付费会员
	    rs("uflag")=1
	    rs("hybz")=1
	    rs("flag")=2
	case "4" '享受付费会员
	    rs("uflag")=1
	    rs("hybz")=1
	    rs("flag")=0
	    rs("begindate")=date()
	    rs("enddate")=date()+365
	case else msgbox "Out of the select!"
	End select

    rs.update
    response.write "<br><center>"+"操作成功，请<a href=javascript:window.close();><font color=#ff000>关闭窗口</font></a>进行其他操作。"
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
%></body></html>
⌨️ 快捷键说明

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