?? 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 + -