⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 manage_mod.asp

📁 狼道公司源码下载
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="../Inc/Conn.asp" -->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>
<script src="images/admin.js" type="text/javascript"></script>
<div class=menuskin id=popmenu 
      onmouseover="clearhidemenu();highlightmenu(event,'on')" 
      onmouseout="highlightmenu(event,'off');dynamichide(event)" style="Z-index:100"></div>
<div align=center>
  <!--#include file="Top.asp" -->
<%
ID=Request("ID")
Set rs=server.CreateObject("adodb.recordset")
rs.open "select * from LangDaoManage where ID="&ID,Conn,1,1

%>
  <form name="AddForm" method="post" action="Manage_Ok.asp">
  <table cellpadding="2" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
<tr>
  <th colspan=2 height=25>新增管理员</th>
</tr>
<tr><td class=BodyTitle colspan=2 height=23 style="FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;">&nbsp;</td>
</tr>
<tr>
<td width="28%" height=24 align="right" class="forumRowHighlight">&nbsp;登陆账号:</td>
<td width="72%" class="forumRow"><input name="UserName" type="text" id="UserName" value="<%=rs("UserName")%>"></td>
</tr>
<tr>
<td height=24 align="right" class="forumRowHighlight">登录密码:</td>
<td height=31 align="left" class="forumRowHighlight"><input name="PassWord" type="text" id="PassWord" value="<%=rs("PassWord")%>"></td>
</tr>
<tr><td height=24 align="right" class="forumRow">&nbsp;</td>
  <td class="forumRow" height=25><input name="act" type="hidden" id="act" value="mod">
    <input name="ID" type="hidden" id="ID" value="<%=ID%>"></td>
</tr>
<tr>
  <td height=25 colspan=2 align="center" class="forumRow"><input type="submit" name="Submit" value=" 修 改 " onClick="CheckForm()">
    &nbsp;&nbsp; <input type="reset" name="Submit2" value=" 重 置 "></td>
</tr>
</table>
  </form>
  <%
  rs.close
  set rs=nothing
  Conn.close
  set Conn=nothing
  %>
<BR>
<BR>
</div>
</body></html>
<script language="vbscript">
  sub CheckForm()
    if Trim(document.AddForm.LoginName.value)="" then
	   alert("管理员登陆名称不能为空!")
	   document.AddForm.LoginName.focus()
	   window.event.returnvalue=false
	   exit sub
	end if
  end sub
</script>

⌨️ 快捷键说明

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