📄 update.asp

📁 本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
shi.CursorLocation = 2
shi.LockType = 1
shi.Open()
while not shi.eof 
shi_numRows = 0
%>
Citys[<%=i%>] =new Array("<%=shi("部门")%>","<%=shi("names")%>"); 
<% 
i = i + 1 
shi.movenext 
wend 
shi.close 
set shi = nothing 
%>
function changeselect(selvalue){ 
var selvalue = selvalue; 
var i; 
document.form1.City.length = 0 ; 
document.form1.City.options[document.form1.City.length] = new Option("请选择对象",""); 
for (i = 0 ;i <Citys.length;i++){ 
if(Citys[i][0]==selvalue){ 
document.form1.City.options[document.form1.City .length] = new Option(Citys[i][1],Citys[i][1]); 
} 
} 
} 
</script>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
levels_numRows = levels_numRows + Repeat2__numRows
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-size: 13px;
}
.style2 {
	font-size: 12px;
	font-weight: bold;
}
-->
</style>
<link href="../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style3 {font-size: 12px}
-->
</style>
<div align="center">
  <table width="600" height="21" border="0" cellpadding="0" cellspacing="1" background="../../f/asp/filesupadmin/img/1.jpg">
    <tr>
      <td><div align="center" class="style1 style7 style1"><strong>更 新  权 限</strong></div></td>
    </tr>
  </table>
  <table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
    <tr>
      <td bgcolor="#FFFFFF"><form name="form1" method="post" action="uppost.asp" onsubmit="return check()">
          <div align="center">
            <table width="99%" border="0" cellpadding="3" cellspacing="0">
              <tr>
                <td height="18"><div align="right">操　作：</div></td>
                <td>				<select name="quanxian" id="quanxian">
                  <%
While (NOT Recordset4.EOF)
%>
                  <option value="<%=(Recordset4.Fields.Item("操作名称").Value)%>" <%If (Not isNull((r.Fields.Item("操作名称").Value))) Then If (CStr(Recordset4.Fields.Item("操作名称").Value) = CStr((r.Fields.Item("操作名称").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(Recordset4.Fields.Item("操作名称").Value)%></option>
                  <%
  Recordset4.MoveNext()
Wend
If (Recordset4.CursorType > 0) Then
  Recordset4.MoveFirst
Else
  Recordset4.Requery
End If
%>
                </select></td>
              </tr>
              <tr>
                <td height="18"><div align="right">
                  <input name="id" type="hidden" id="id" value="<%=(r.Fields.Item("ID").Value)%>">
                  用 户：</div></td>
                <td><%=(r.Fields.Item("部门").Value)%>                  　                  <%=(r.Fields.Item("姓名").Value)%>                <input name="n" type="hidden" id="n" value="<%=(r.Fields.Item("姓名").Value)%>"></td>
              </tr>
              <tr>
                <td width="20%" height="18"><div align="right">更改用户：</div></td>
                <td width="80%"><div align="left">
<select name="bumen" onchange ="changeselect(document.form1.bumen.options[document.form1.bumen.selectedIndex].value)">
                          <option value="请选择部门" selected>请选择部门</option>
                          <%=DbCombox()%>
                    </select>
                          <select name="City" id="City">
                            <option value="" selected>请选择对象</option>
                          </select>　
（不选择部门与姓名，则不更改用户对象）                          </div></td>
              </tr>
              <tr>
                <td><div align="left"></div></td>
                <td><p align="left">
                    <span class="bg"><span class="bg style2"><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff>
                    <input name="submit" type=submit id="submit" style="FONT-SIZE: 12px; HEIGHT: 24px" value=" 更　新 ">
                    </font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></span></span> 　 <span class="bg"><span class="bg style2"><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff>
                    <input name="submit" type=reset id="submit" style="FONT-SIZE: 12px; HEIGHT: 24px" value=" 重 置 ">
                    </font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></span></span> 　<span class="bg"><span class="bg style2"><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff>
                    <input name="submit" type=reset id="submit" style="FONT-SIZE: 12px; HEIGHT: 24px" value=" 取 消" onclick="javascript:history.go(-1)">
                    <a href="add.asp">　</a></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></span></span></p></td>
              </tr>
            </table>
          </div>
      </form></td>
    </tr>
  </table>
  <br>
</div>
<div align="center"></div>
<div align="center">
  <table width="600" height="21" border="0" cellpadding="0" cellspacing="1" background="../../f/asp/filesupadmin/img/1.jpg">
    <tr>
      <td><div align="center" class="style1 style7 style1"><strong>权 限 列 表</strong></div></td>
    </tr>
  </table>
  <table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#5EAE19">
    <tr bgcolor="#FFFFFF">
      <td>操作权限</td>
      <td>姓名　</td>
      <td>部门</td>
      <td>修改　删除</td>
    </tr>
    <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF)) 
%>
    <tr bgcolor="#FFFFFF">
      <td width="113"><%=(Recordset2.Fields.Item("操作名称").Value)%></td>
      <td width="131"><%=(Recordset2.Fields.Item("姓名").Value)%></td>
      <td width="127"><%=(Recordset2.Fields.Item("部门").Value)%></td>
      <td width="208"><a href="update.asp?id=<%=(Recordset2.Fields.Item("ID").Value)%>">修改</a>　<a href="del.asp?id=<%=(Recordset2.Fields.Item("ID").Value)%>" onClick="return confirm('您确定要删除吗？')">删除</a></td>
    </tr>
    <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset2.MoveNext()
Wend
%>
  </table>
</div>
<p align="center" class="style3">共<%=(r_total)%>条记录 <a href="add.asp">分配权限 </a><a href="../adcencetyerdfghf.asp">后台首页</a></p>
<div align="center"></div>
<p>&nbsp;</p>
  <%
r.Close()
Set r = Nothing
%>
  <%
levels.Close()
Set levels = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>

<%
Recordset4.Close()
Set Recordset4 = Nothing
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -