?? user_edit.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
conn = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>紅笛軟件</title>
<style type="text/css">
<!--
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
.style3 {font-size: 12px}
.style4 { color: #FFFFFF;
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
.STYLE9 {
font-size: 36px;
font-family: "黑體";
font-weight: bold;
color: #FFFF00;
}
.STYLE10 {color: #FF0000}
.STYLE13 {
font-weight: bold;}
a:link {
text-decoration: none;
color: #000066;
}
a:visited {
text-decoration: none;
color: #000066;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.B A:link {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.STYLE12 {font-family: "黑體"; font-size: 16px;color: #ffffff;}
body {
background-color: #DEE7FF;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(../Image/bg.gif);
}
-->
</style>
<script language="JavaScript">
<!--
function chk(theForm){
if (theForm.a.value == ""){
alert("原密碼不能為空!");
theForm.name.focus();
return (false);
}
if (theForm.b.value == ""){
alert("新密碼不能為空!");
theForm.pwd.focus();
return (false);
}
if (theForm.c.value == ""){
alert("請重復新密碼!");
theForm.pwd.focus();
return (false);
}
}
//-->
</script>
</head>
<body onmouseover="self.status='紅笛軟件:服務網址[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3399fd">
<tr>
<td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
</tr>
<tr>
<td height="28" align="center" valign="middle" background="../Image/bg01a.jpg"><span class="b"><a href="LoginList.asp">日志</a> <a href="SQlist.asp">授權</a> <a href="BF.asp">備份</a> <a href="Bak/HFa.asp">恢復</a> <a href="User_Edit.asp">管理密碼</a> <a href="User_Edit.asp">老師密碼</a> <a href="passstu.asp">學生密碼</a></span></td>
</tr>
<tr>
<td height="400" align="center" valign="top" bgcolor="#3399FD">
<p> </p>
<p>
<%
dim Use_nam
Use_nam=session("AdminUser")
If Request.QueryString("action")="" Then
%>
</p>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
<tr>
<td height="28" align="center" background="../Image/bg01.jpg"> </td>
</tr>
<tr>
<td><table cellpadding="0" cellspacing="0" border="0" width="100%" class="tableBorder" align=center>
<form action="?action=add" method=post id=form1 name=form1 onSubmit="return chk(this)">
<tr align="center" bgcolor=ffffff>
<td height="40" colspan="2" class=forumrow><span class="style6">修 改 密 碼</span></td>
</tr>
<tr bgcolor=ffffff>
<td height="30" align="right" class=forumrow>教師名：</td>
<td class=forumrow><input name="La" type=text class="style1" id="La" value="<%=Use_nam%>" maxlength="16"></td>
</tr>
<tr bgcolor=ffffff>
<td width="42%" height="30" align="right" class=forumrow>原密碼：</td>
<td width="58%" class=forumrow><input name="Lb" type=password class="style1" id="Lb" maxlength="16"> </td>
</tr>
<tr bgcolor=ffffff>
<td width="42%" height="30" align="right" class=forumrow>新密碼：</td>
<td class=forumrow><input name="Lc" type="password" class="style1" id="Lc" maxlength="16"> </td>
</tr>
<tr align="center" bgcolor=ffffff>
<td height="30" align="right" class=forumrow>新密碼：</td>
<td align="left" class=forumrow><input name="Ld" type="password" class="style1" id="Ld" maxlength="16"></td>
</tr>
<tr align="center" bgcolor=ffffff>
<td class=forumrow> </td>
<td class=forumrow><div align="left">
<input type="submit" name="Submit" value="修改">
</div></td>
</tr>
<tr align="center" bgcolor=ffffff>
<td height="40" colspan="2" class=forumrow> </td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="28" background="../Image/bg01.jpg"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" background="../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
</body>
</html>
<%
else
LA=Request.Form("La")
Lb = Request.Form("Lb")
Lb=hdobj.md(Lb)
Lc = Request.Form("Lc")
Ld =trim(Request.Form("Ld"))
userb = Mid(La, 1, 3)
If userb = "adm" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [admin] Where c='"&La&"'"
rs.Open Sql,Conn,1,3
pas=rs("d")
if mid(Lb,1,15)<>mid(pas,1,15) then
response.write "<br><br><br><div align='center'><span class='style6'>原密碼錯誤!</span></div>"
response.end
end if
if Lc<>Ld then
response.write "<br><br><br><div align='center'><span class='style6'>兩次輸入的新密碼不相同!</span></div>"
response.end
end if
rs("d")=hdobj.md(Lc)
rs.update
response.write "<br><br><br><div align='center'><span class='style6'>修改成功，請記住新密碼，否則沒人能幫你!</span></div>"
response.end
else
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [HRworker] Where c='"&La&"'"
rs.Open Sql,Conn,1,3
pas=rs("pass")
if len(pas)>5 and mid(Lb,1,15)<>mid(pas,1,15) then
response.write "<br><br><br><div align='center'><span class='style6'>原密碼錯誤!</span></div>"
response.end
end if
if Lc<>Ld then
response.write "<br><br><br><div align='center'><span class='style6'>兩次輸入的新密碼不相同!</span></div>"
response.end
end if
rs("pass")=hdobj.md(Lc)
rs.update
response.write "<br><br><br><div align='center'><span class='style6'>修改成功，請記住新密碼，否則沒人能幫你!</span></div>"
response.end
End If
End if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -