b2b_userdj.asp

信运网店系统是一套功能完善、简洁美观

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if

dim action,grpid
grpid=SafeRequest("id",1)
action=FormatSQL(SafeRequest("action",0))
select case action

case "add" 
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('添加权限管理员无此操作权限！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("minipost")) then
response.Write "<script language=javascript>alert('等级积分必须是数字！');history.go(-1);</script>"
response.End
end if
if request.form("GRPName") ="" then
response.Write "<script language=javascript>alert('请填写等级名称！');history.go(-1);</script>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from b2b_userjb",conn,1,3
rs.AddNew
rs("GRPName")=trim(request.form("GRPName"))
rs("startgrp")=int(request.form("startgrp"))
rs("minipost")=int(request.form("minipost"))
rs("stars")=request.form("stars")
rs.Update
rs.Close
set rs=nothing
conn.close
set conn = nothing
response.Redirect "b2b_userdj.asp"

case "edit"
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权编辑会员等级！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("minipost")) then
response.Write "<script language=javascript>alert('等级积分必须是数字！');history.go(-1);</script>"
response.End
end if
if request.form("GRPName") ="" then
response.Write "<script language=javascript>alert('请填写等级名称！');history.go(-1);</script>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from b2b_userjb where grpid="&grpid,conn,1,3
rs("GRPName")=trim(request.form("GRPName"))
rs("startgrp")=int(request.form("startgrp"))
rs("minipost")=int(request.form("minipost"))
rs("stars")=request.form("stars")
rs.Update
rs.Close
set rs=nothing
conn.close
set conn = nothing
response.Redirect "b2b_userdj.asp"

end select
%>
<script language = "JavaScript">
<!--
function CheckAdd()
{
    if(checkspace(document.AddForm.GrpNmae.value)) {
	document.AddForm.GrpNmae.focus();
    alert("请输入会员等级名称！");
	return false;
  }

     if(checkspace(document.AddForm.MiniPost.value)) {
	document.AddForm.MiniPost.focus();
    alert("请输入等级积分！");
	return false;
  }
     
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
	function regInput(obj, reg, inputStr)
	{
		var docSel	= document.selection.createRange()
		if (docSel.parentElement().tagName != "INPUT")	return false
		oSel = docSel.duplicate()
		oSel.text = ""
		var srcRange	= obj.createTextRange()
		oSel.setEndPoint("StartToStart", srcRange)
		var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
		return reg.test(str)
	}
//-->
</script>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr> 
    <td height="20" background="images/topbg.gif" bgcolor="#F7F7F7"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="style4">会员等级管理</span></span></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">
	  <br>
	  <table width="80%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
        <tr align="center" bgcolor="#F7F7F7" height="25"> 
          <td width="28%" height="25" background="images/topbg.gif"><strong>等级名称</strong></td>
          <td width="18%" height="25" background="images/topbg.gif"><strong>所需积分</strong></td>
          <td width="18%" height="25" background="images/topbg.gif"><strong>操作</strong></td>
        </tr>
        <%set rs=server.CreateObject("adodb.recordset")
		  rs.Open "select * from b2b_userjb order by grpID",conn,1,1
		  if rs.EOF and rs.BOF then
		  response.Write "<div align=center><font color=red>还没有等级</font></center>"
		  else
		  do while not rs.EOF
		  %>
        <form name="form1" method="post" action="b2b_cs.asp">
          <tr bgcolor="#FFFFFF" align="center">
		  <td height="25"><input name="GRPName" type="text" class="input_sr" id="category" value="<%=trim(rs("GRPName"))%>" size="20"></td>
            <td height="25"><input name=minipost type="text" class="input_sr" value="<% = rs("minipost") %>" size="10"></td>
            <td height="25"><input name="Submit" type="submit" class="input_bot" onClick="return CheckAdd();" value="修 改" <%if rs("grpID")=4 then response.write "disabled=true" end if%>></td>
          </tr>
        </form>
        <%rs.MoveNext
          loop
          end if%>
    </table>
	  <br></td>
  </tr>
</table>