adduser.asp

自做的购物网站

<%
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"-->
<!--#include file="css.asp"-->
<%
if request("action")="save" then
    if request("user")="" then response.end
    sql="select * from member"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,3,3
    rs.addnew
    rs("user_name")=request("user")
    rs("user_pass")=request("pass")
    rs("user_type")=request("type")
    rs.update
    rs.close
    response.write request("type") &"用户添加成功"
    response.write "<br>"
    response.write "<a href=adduser.asp>返回</a>"
else
'response.end
%>

 <form method="POST" action="adduser.asp?action=save">
  <TABLE cellSpacing=1 cellPadding=0 width="560" align=center bgColor=#999999 
border=0>
    <TBODY> 
    <TR> 
      <TD width="735" background=images/pics/tile_back.gif id=maintitleback> <TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD><IMG height=8 src="images/pics/nav_m.gif" width=8 
            border=0></TD>
              <TD width="100%" height="30" valign="bottom" id=maintitle>用户管理 -&gt;<b> 
                增加VIP用户</b></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD id=mainbg> <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0 height="125">
          <TBODY>
            <TR> 
              <TD width="122" height="30" noWrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">用户名</font></div></TD>
              <TD width="122" height="30" noWrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"> 
                  <font color="#FFFFFF"> 
                  <input type="text" name="user" size="20" class=input>
                  </font></div></TD>
              <TD width="122" height="30" align=middle noWrap 
          background=images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF">口令</font></div></TD>
              <TD height="30" colspan="2" align=middle noWrap 
          background=images/pics/tile_sub.gif id=titlemedium>　 
                <input type="text" name="pass" size="20" class=input></TD>
            </TR>
            <TR> 
              <TD bgColor=#ffffff height="30"><div align="center">类别</div></TD>
              <TD height="30" colspan="4" align=middle bgColor=#ffffff> <div align="left"> 
                  <select name="type">
                    <option value="vip">VIP会员</option>
                  </select>
                </div>
                <div align="center"></div>
                <div align="center"></div>
                <div align="center"></div></TD>
            </TR>
            <TR> 
              <TD height="30" colspan="5" bgColor=#ffffff><div align="center"><img src="../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
            </TR>
            <TR> 
              <TD id=mainfoot 
colSpan=5 height="30"> <div align="center"> 
                  <table width="30%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="25"><div align="center"> 
                          <input name=submit2 type=image 
      src="../IMAGES/pics/ok.gif" alt=进入 
      align=absMiddle width="45" height="20" cache tppabs="">
                        </div></td>
                      <td><div align="center"> 
                          <input type="reset" value="全部重写" name="B22" class=input>
                        </div></td>
                    </tr>
                  </table>
                </div></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<%
end if
set rs=nothing
conn.close
set conn=nothing
%>
</form>