📄 adduser.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用

💻 ASP

字号:

<%
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=css.css rel=STYLESHEET type=text/css>
</head>
<%
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
%>


<table border="0" width="50%" cellspacing="1" align=center>
 <form method="POST" action="adduser.asp?action=save">
  <tr>
    <td>用户名：</td><td> 
          <input type="text" name="user" size="20" class=input>
     </td></tr><tr><td>
          口令： </td><td>
          <input type="text" name="pass" size="20" class=input>
     </td></tr><tr><td>
          类别：</td><td>
          <select name="type">
		    <option value="代理">代理商</option>
            <option value="批发">批发商</option>
		  </select>
 </td></tr><tr><td colspan=2>
<input type="submit" value="提交" name="B1" class=input>
    </td>
  </tr>
 </form>
</table>
<%
end if
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -