www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_usertype.asp
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
usertype_id=request("usertype_id")
if request("action")="add" then
set rs=server.createobject("adodb.recordset")
rs.Open "select * from venshop_usertype",conn,1,3
rs.AddNew
rs("usertype_name")=request("usertype_name")
rs("usertype_zhekou")=request("usertype_zhekou")
rs("usertype_up")=request("usertype_up")
rs.Update
rs.Close
set rs=nothing
call addok(addt,"ad_usertype.asp","ad_usertype.asp")
end if
if request("action")="edit" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from venshop_usertype where usertype_id="&usertype_id&"",conn,1,3
rs("usertype_name")=request("usertype_name")
rs("usertype_zhekou")=request("usertype_zhekou")
rs("usertype_up")=request("usertype_up")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_usertype.asp","ad_usertype.asp")
end if
if request("action")="del" then
conn.execute "delete from venshop_usertype where usertype_id="&usertype_id
call deleok(delet,"ad_usertype.asp")
end if
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<tr><td align="center" colspan="4" class="sa"><b>用户等级与折扣修改</b></td></tr>
<tr><td align="center" class="s0">名称</td>
<td align="center" class="s0">享受优惠价</td>
<td align="center" class="s0">升级所需积分</td>
<td align="center" class="s0">操作</td></tr>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from venshop_usertype",conn,1,1
i=0
do while not rs.eof
i=i+1%>
<form method="post" action="ad_usertype.asp?action=edit&usertype_id=<%=rs("usertype_id")%>">
<tr><td align="center" class="s<%=i mod 2%>"><input name="usertype_name" type="text" size="13" value="<%=rs("usertype_name")%>"></td>
<td align="center" class="s<%=i mod 2%>"><input name="usertype_zhekou" type="text" size="3" value="<%=rs("usertype_zhekou")%>">%</td>
<td align="center" class="s<%=i mod 2%>">
<input name="usertype_up" type="text" size="5" value="<%=rs("usertype_up")%>"></td>
<td align="center" class="s<%=i mod 2%>"><input type="submit" name="Submit" value="修改"> <a href=ad_usertype.asp?action=del&usertype_id=<%=rs("usertype_id")%> onClick="return confirm('您确定进行删除操作吗？')">删除</a></td>
</tr></form>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<br>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form method="post" action="ad_usertype.asp?action=add">
<tr>
<td align="center" class="sa">新增用户等级</td>
<td align="center" class="sa">享受折扣</td>
<td align="center" class="sa">升级所需积分</td>
<td align="center" class="sa"></td>
</tr>
<tr>
<td align="center"><input name="usertype_name" type="text" size="11"></td>
<td align="center"><input name="usertype_zhekou" type="text" size="2">%</td>
<td align="center">
<input name="usertype_up" type="text" size="5"></td>
<td align="center"><input type="submit" name="Submit2" value="添 加"></td>
</tr>
</form></table>
<br>
<div class="help">
备注：<br>
客户注册成功后默认为第一个等级；<br>享受优惠价，请输入1-100的数字，比如：一般会员 享受优惠价 99％ ，那一般会员在购物时价格会自动乘99％；<br>
升级所需积分：比如：VIP会员 升级所需积分2000，那客户积分达到2000自动升级VIP会员</div>
<!--#include file="ad_bottom.asp"-->