📄 setuserad.asp
字号:
<%@ language="vbscript"%>
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>修改用户发布权限</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../html/3508.css">
<style type="text/css">
<!--
.areatype { color: #000000; background-color: #FFFFF8; font-size: 12px}
.red { color: #FF0000; background-color: #FFFFF8}
-->
</style>
<script language="JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
function areyousure()
{
var m=document.setbit.qx.value;
if(m==1)
{var showstr="您确认禁止该用户发布广告吗？";}
else
{var showstr="你确认允许该用户发布广告吗？";}
if(confirm(showstr))
{return true;}
else
{return false;}
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<%
if trim(session("3508"))="" then
response.write "您非管理员，不能进行这种设置！"
response.write "<a href='"&"usermanager.asp"&"'>返回</a>"
response.end
end if
function fixQuotes(theString)
fixQuotes=Replace(theString,"'","''")
end function
Set con=Server.CreateObject("ADODB.Connection")
con.Open Application("DBCon_ConnectionString")
strsql="SELECT * FROM yonghu WHERE yonghu='"+fixquotes(request("member"))+"'"
set rs=con.execute(strsql)
if rs.eof then
response.write "此用户不存在！请检查所录入用户名的正确性！"
response.write "<a href='"&"usermanager.asp"&"'>返回设置页</a>"
response.end
end if
%>
<form method="post" action="setbit.asp" name="setbit" onsubmit="return areyousure()">
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td colspan="2" height="107">
<h3>修改用户发布权限</h3>
</td>
</tr>
<tr>
<td width="58">用 户 名</td>
<td width="342"><%=rs("yonghu")%></td>
</tr>
<tr>
<td width="58">单位名称</td>
<td width="342"><%=rs("danwei")%></td>
</tr>
<tr>
<td width="58">所在城市</td>
<td width="342"><%=rs("chengshi")%></td>
</tr>
<tr>
<td width="58">单位地址</td>
<td width="342"><%=rs("dizhi")%></td>
</tr>
<tr>
<td width="58">邮政编码</td>
<td width="342"><%=rs("youbian")%></td>
</tr>
<tr>
<td width="58">联 系 人</td>
<td width="342"><%=rs("lianxiren")%></td>
</tr>
<tr>
<td width="58">联系电话</td>
<td width="342"><%=rs("dianhua")%></td>
</tr>
<tr>
<td width="58">E -MAIL：</td>
<td width="342"><%=rs("e_mail")%></td>
</tr>
<tr>
<td width="58">公司主页</td>
<td width="342"><%=rs("zhuye")%></td>
</tr>
<tr>
<td width="58">注册日期</td>
<td width="342"><%=formatdatetime(rs("zhuceriqi"),vblongdate)%></td>
</tr>
<tr>
<td width="58">发布状态</td>
<td width="342"><%
if trim(rs("youxiao"))="0" then
response.write "<span class='"&"red"&"'>此用户目前不能发布文选广告！</span>"
else
response.write "<span class='"&"red"&"'>该用户可以发布广告！</span>"
end if
%></td>
</tr>
<tr valign="bottom" align="center">
<td colspan="2" height="66">
<input type="hidden" name="qx" value="<%=trim(rs("youxiao"))%>">
<input type="hidden" name="mjjid" value="<%=rs("yonghuid")%>">
<input type="submit" name="Submit" value="改变权限" class="areatype">
<input type="submit" name="Submit2" value="继续设置" onclick="MM_goToURL('parent','manager.asp');return document.MM_returnValue" class="areatype">
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -