graderole.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 272 行
ASP
272 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(session("masterflag"),",")
for each ins in in_str
if trim(ins)="11" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<script language="javascript">
function ischeckg()
{
var strn=document.modiform.gradename.value;
if(strn.replace(/^\s+|\s+$/g,'')=="")
{
alert("请输入等级名称！");
document.modiform.gradename.focus();
return false;
}
}
function isokgo()
{
var i=confirm("你确定要修改这些设置吗？请慎重修改会员等级权限，以免造成不必要的错误!");
if(i)
{
return true;
}
else
{
return false;
}
}
</script>
</head>
<%
rid=Replace_Text(request("rid"))
if rid="" then
response.Write("<script >alert('参数传递错误!');history.back(-1);</script>")
response.End()
end if
'^修改设置 ^^start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
msg=Replace_Text(request.Form("msg"))
sj=Replace_Text(request.Form("sj"))
ypj=Replace_Text(request.Form("ypj"))
cp=Replace_Text(request.Form("cp"))
zh=Replace_Text(request.Form("zh"))
gj=Replace_Text(request.Form("gj"))
ts=Replace_Text(request.Form("ts"))
st=Replace_Text(request.Form("st"))
qw=Replace_Text(request.Form("qw"))
sz=Replace_Text(request.Form("sz"))
sw=Replace_Text(request.Form("sw"))
ly=Replace_Text(request.Form("ly"))
ds=Replace_Text(request.Form("ds"))
sh=Replace_Text(request.Form("sh"))
hp=Replace_Text(request.Form("hp"))
wt=Replace_Text(request.Form("wt"))
zp=Replace_Text(request.Form("zp"))
xz=Replace_Text(request.Form("xz"))
xm=Replace_Text(request.Form("xm"))
gjj=Replace_Text(request.Form("gjj"))
gorole=Replace_Text(request.Form("gorole"))
if gorole<>"" then
set rsf=server.CreateObject("adodb.recordset")
sqlf="select rolelist from yixiang_vipgrade where id="&rid
rsf.open sqlf,conn,1,3
if not rsf.eof then
rsf("rolelist")=gjj&","&msg&","&ypj&","&sj&","&cp&","&zh&","&gj&","&ts&","&st&","&qw&","&sz&","&sw&","&ly&","&ds&","&sh&","&hp&","&wt&","&zp&","&xz&","&xm
rsf.update
successmsg="<center><font color=red><b>修改成功</b></font>! <a href='grademanage.asp'><font color=blue>返回等级列表</font></a>"
rsf.close
end if
end if
'^修改设置 ^^end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'初始设置函数 start-------------------------------------------------------
function initdata(str,strs)
if instr(strs,str)>0 then
resultval="checked"
else
resultval=""
end if
initdata=resultval
end function
'初始设置 start-------------------------------------------------------
%>
<body>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr>
<th width="100%" height=25 class="tableHeaderText">会员等级信息修改管理</th>
</tr>
<tr>
<td class="forumRowHighlight"> <B>注意： </B><BR> ①.<font color="red">等级ID</font>是会员直属某类等级的直接<font color=red>关联值</font>，关系整个系统的所有会员的一切信息，请不要随意更改，否则将造成严重后果！
<br />②.等级ID值不能有重复，如有，后果自负！
</td>
</tr>
<tr>
<td class="forumRowHighlight">★<a href="grademanage.asp">等级列表</a></td>
</tr>
</table>
<table border="1" cellpadding="0" bordercolor="#ADE0FD" cellspacing="0" width="98%" align="center">
<tr>
<td>
<%
if rid<>"" then
set rsm=server.CreateObject("adodb.recordset")
sqlm="select * from yixiang_vipgrade where id="&rid
rsm.open sqlm,conn,1,3
if not rsm.eof then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FAFAFA">
<tr align="center" bgcolor="#F3F3F3">
<td height="30" align="right" > </td>
<td align="left"><input type="hidden" name="modiid" value="<%=rid%>" />【<b><font color="#FF0000"><%=rsm("gradename")%></font></b>】---权限设置
<font color="#0099CC">等级ID值</font>：<b><%=rsm("roleid")%></b> <%=successmsg%> <a href="gradeform.asp?fid=<%=rsm("id")%>">表单设置</a> <a href="grademodi.asp?gid=<%=rsm("id")%>">基本设置</a></td>
</tr>
<tr><td colspan="2" height="1" bgcolor="#CCCCCC" ></td></tr>
<tr><td colspan="5" height="1" bgcolor="#FFFFFF" ></td></tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
<form name="modiforms" method="post" action="" onsubmit="return isokgo();">
<tr bgcolor="#7E9EDF" height="25" style=" color:#FFFFFF; font-weight:bold"><td></td><td >项目名称</td>
<td width="15%">是否开放功能</td>
<td width="35%">说明</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'" ><td width="6%"></td>
<td width="44%"> 关键字竞价管理 </td>
<td>
<input type="checkbox" value="gjj" name="gjj" <%=initdata("gjj",rsm("rolelist"))%>/>
</td>
<td style="color:#999999">允许该等级会员进行关键字竞价管理</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'" ><td width="6%"></td>
<td width="44%"><font color="#990000">会员查看其他会员的联系的信息</font></td>
<td>
<input type="checkbox" value="msg" name="msg" <%=initdata("msg",rsm("rolelist"))%>/>
</td>
<td style="color:#999999">允许会员查看其他会员的联系的信息</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'" ><td width="6%"></td>
<td width="44%"> 对其他会员的信息进行评价 </td>
<td>
<input type="checkbox" value="ypj" name="ypj" <%=initdata("ypj",rsm("rolelist"))%>/>
</td>
<td style="color:#999999">允许该等级会员对其他会员的信息进行评价</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'" ><td width="6%"></td>
<td width="44%">商机信息发布与管理</td>
<td><input type="checkbox" value="sj" name="sj" <%=initdata("sj",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员发布、管理供求信息</td>
</tr>
<tr bgcolor="#F5F5F5" onMouseOut="this.style.backgroundColor='#F5F5F5'" onMouseOver="this.style.backgroundColor='#D7E3F3'" height="25"><td></td><td>产品信息添加与管理 </td><td><input type="checkbox" value="cp" name="cp" <%=initdata("cp",rsm("rolelist"))%> /></td>
<td style="color:#999999">是否允许会员添加、管理产品大小类别;发布、管理产品信息</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'"><td></td><td>展会信息发布与管理 </td><td><input type="checkbox" value="zh" name="zh" <%=initdata("zh",rsm("rolelist"))%> /></td>
<td style="color:#999999">是否允许会员发布、管理展会信息</td>
</tr>
<tr bgcolor="#F5F5F5" onMouseOut="this.style.backgroundColor='#F5F5F5'" onMouseOver="this.style.backgroundColor='#D7E3F3'" height="25"><td></td><td>公司介绍信息管理</td><td><input type="checkbox" value="gj" name="gj" <%=initdata("gj",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员查看修改公司的介绍信息</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'"><td></td>
<td>统一文件图片上传管理 </td>
<td><input type="checkbox" value="ts" name="ts" <%=initdata("ts",rsm("rolelist"))%> /></td>
<td style="color:#999999">是否允许会员上传有关产品、供求信息的图片</td>
</tr>
<tr bgcolor="#F5F5F5" onMouseOut="this.style.backgroundColor='#F5F5F5'" onMouseOver="this.style.backgroundColor='#D7E3F3'" height="25"><td></td>
<td>公司Logo图片、形象图片管理</td>
<td><input type="checkbox" value="st" name="st" <%=initdata("st",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员上传、管理公司形象图片和Logo图片</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'">
<td></td>
<td><font color="#BE5B49">建立企业模板网站</font></td>
<td><input type="checkbox" value="qw" name="qw" <%=initdata("qw",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员使用会员网站模板生成企业模板网站(提示:如果不选中则默认使用会员的单名片页进行生成)</td>
</tr>
<tr bgcolor="#F5F5F5" onMouseOut="this.style.backgroundColor='#F5F5F5'" onMouseOver="this.style.backgroundColor='#D7E3F3'" height="25"><td></td>
<td>上传证书 </td><td><input type="checkbox" value="sz" name="sz" <%=initdata("sz",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员上传相关证书</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'"><td></td><td>查看商务指数</td><td><input type="checkbox" value="sw" name="sw" <%=initdata("sw",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员查看管理商务指数</td>
</tr>
<tr bgcolor="#F5F5F5" onMouseOut="this.style.backgroundColor='#F5F5F5'" onMouseOver="this.style.backgroundColor='#D7E3F3'" height="25"><td></td><td>留言信息管理</td><td><input type="checkbox" value="ly" name="ly" <%=initdata("ly",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员进行留言发布、管理</td>
</tr>
<tr><td></td><td>订阅的商机管理</td><td><input type="checkbox" value="ds" name="ds" <%=initdata("ds",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员进行商机订阅、管理</td>
</tr>
<tr bgcolor="#F5F5F5" onMouseOut="this.style.backgroundColor='#F5F5F5'" onMouseOver="this.style.backgroundColor='#D7E3F3'" height="25"><td></td><td>我的商业伙伴管理</td><td><input type="checkbox" value="sh" name="sh" <%=initdata("sh",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员进行商业伙伴的添加、管理</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'"><td></td><td>会员评价管理</td><td><input type="checkbox" value="hp" name="hp" <%=initdata("hp",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员对评价信息进行管理</td>
</tr>
<tr bgcolor="#F5F5F5" onMouseOut="this.style.backgroundColor='#F5F5F5'" onMouseOver="this.style.backgroundColor='#D7E3F3'" height="25"><td></td><td>委托功能</td><td><input type="checkbox" value="wt" name="wt" <%=initdata("wt",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员发布委托信息</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'"><td></td><td>招聘信息管理 </td><td><input type="checkbox" value="zp" name="zp" <%=initdata("zp",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员进行招聘信息的发布、管理</td>
</tr>
<tr bgcolor="#F5F5F5" onMouseOut="this.style.backgroundColor='#F5F5F5'" onMouseOver="this.style.backgroundColor='#D7E3F3'" height="25"><td></td><td>修改注册信息</td><td><input type="checkbox" value="xz" name="xz" <%=initdata("xz",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员修改注册信息</td>
</tr>
<tr height="25" onMouseOut="this.style.backgroundColor='#ffffff'" onMouseOver="this.style.backgroundColor='#D7E3F3'"><td></td><td>修改密码</td><td><input type="checkbox" value="xm" name="xm" <%=initdata("xm",rsm("rolelist"))%>/></td>
<td style="color:#999999">是否允许会员修改登录密码</td>
</tr>
<tr><td colspan="4" height="15" ></td></tr>
<tr><td colspan="4" height="5" bgcolor="#7E9EDF"></td></tr>
<tr><td colspan="4" align="center" height="35"><input type="submit" name="gorole" value="修改设置" /></td></tr>
<tr><td colspan="4" height="25" ></td></tr>
</form>
</table>
<%
end if
end if
%>
</td>
</tr></table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?