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

📄 user_admin.asp

📁 一套简单的教师办公系统,ASP+ACCESS开发
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="tcconn.asp" -->
<%
if request.Cookies("flag")<>"teacher" then
response.write "<script language=JavaScript>{window.alert('网络超时或你还未登录,请重新登陆!');window.location.href='index.htm';}</script>"
response.end
end if
uid=request.Cookies("adminuser")
select case request("ac")
case "edit"
	call user_edit()
end Select
%>

<html>
<head>
<title>兰州理工大学石油化工学院教师业务管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta http-equiv="keywords" content="兰州理工大学石油化工学院学院,明星设计,lyz.cn@126.com,L.Y.Z">
<LINK href="css.css" type=text/css rel=stylesheet>
</head>

<body background="img/bg.gif" topmargin="0" leftmargin="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#99CC00">
  <tr>
    <td height="30">&nbsp;</td>
  </tr>
  <tr>
    <td><img src="img/admin_top.gif" width="778" height="66"></td>
  </tr>
  <tr>
    <td>&nbsp;&nbsp;&nbsp; &nbsp;
    您现在正在操作:<span class="style8">管理帐户</span>
    <p>&nbsp;</p></td>
  </tr>
  <tr>
    <td>
        <table width="754" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="img/admin_admin.gif" width="754" height="27"></td>
          </tr>
          <tr>
            <td background="img/table_bg.gif">
			<form name="form1" method="post" action="">
			<table width="754"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="115">&nbsp;</td>
                <td width="60"><input name="ac" type="hidden" id="ac" value="edit"></td>
                <td width="130">&nbsp;</td>
                <td width="85">&nbsp;</td>
                <td width="153">&nbsp;</td>
                <td width="58">&nbsp;</td>
                <td width="65">&nbsp;</td>
                <td width="88">&nbsp;</td>
              </tr>
<%set rs=conn.execute("select tc_name,tc_pwd from tcinfor where tc_id="&uid&"")%>
              <tr>
                <td>&nbsp;</td>
                <td>用户名:</td>
                <td><%=rs("tc_name")%></td>
                <td align="center">密码:</td>
                <td><input name="txt_pwd" type="text" id="txt_pwd" value="<%=rs("tc_pwd")%>" size="20"></td>
                <td><input name="btm01" type="submit" id="btm01" value="修改"></td>
                <td><input name="btm02" type="reset" id="btm02" value="重置"></td>
                <td>&nbsp;</td>
              </tr>
<%set rs=nothing%>
              <tr>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
            </table>
			</form>
			</td>
          </tr>
          <tr>
            <td background="img/table_btom.gif">&nbsp;</td>
          </tr>
        </table>
    </td>
  </tr>
  <tr>
    <td height="300"><p>&nbsp;</p>    </td>
  </tr>
</table>
</body>
</html>
<%
sub user_edit()
admin_pwd=request("txt_pwd")
conn.execute("update tcinfor set tc_pwd='"&admin_pwd&"' where tc_id="&uid&"")
response.write "<script language=JavaScript>{window.alert('修改成功!');window.location.href='user_admin.asp';}</script>"
response.end
end sub
%>

⌨️ 快捷键说明

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