?? pass.asp
字號:
<!--#include file="Conn.asp"-->
<!--#include file="md5.asp"-->
<%
'--------------------------------------------
'修改用戶密碼
'文件：ModifPassword.asp
'日期：2004-11-5
'---------------------------------------------
If Session("administrator")="" Then
Response.Write "<script>window.close()</script>"
End If
if Request.Cookies("admin")<>"guoxue" then
response.redirect "login.asp"
end if
Dim Action
Action = Request.QueryString("action")
Head()
If Action = "modifsave" Then
ModifSave()
Else
admin()
ModifFace()
End If
if action= "del" then
del()
end if
Foot()
'----------------------------------------------
'文件頭
'----------------------------------------------
Sub Head()
Dim HtmlStr
HtmlStr = ""
HtmlStr = HtmlStr & "<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN>"&vbCrLf
HtmlStr = HtmlStr & "<HTML>"&vbCrLf
HtmlStr = HtmlStr & "<HEAD>"&vbCrLf
HtmlStr = HtmlStr & "<meta http-equiv='Content-Type' content='text/html'; charset='gb2312'>"&vbCrLf
HtmlStr = HtmlStr & "<TITLE> 修改登錄密碼 </TITLE>"&vbCrLf
Response.Write HtmlStr
%>
<style type="text/css">
<!--
td { font-size: 12px; line-height: 17px }
body { font-size: 12px; line-height: 17px }
p { margin-top: 1; margin-bottom: 1 }
a:link { text-decoration: none; color: black }
a:visited { text-decoration: none; color: black }
a:active { text-decoration: none }
a:hover { text-decoration: underline; color: red }
-->
</style>
<script language="javascript">
function checkmodif() {
if(document.modif.oldpwd.value=="")
{
alert("請輸入舊密碼，然后輸入新密碼！");
document.modif.oldpwd.focus();
return false;
}
if(document.modif.newpwd1.value=="")
{
alert("新密碼不能為空，請輸入新密碼！");
document.modif.newpwd1.focus();
return false;
}
if(document.modif.newpwd2.value=="")
{
alert("請再次輸入新密碼！");
document.modif.newpwd2.focus();
return false;
}
if(document.modif.newpwd1.value!=document.modif.newpwd2.value)
{
alert("兩次輸入的新密碼不匹配，請重新輸入");
document.modif.newpwd2.focus();
return false;
}
}
</script>
<%
HtmlStr = "</HEAD>"&vbCrLf
HtmlStr = HtmlStr & "<BODY>"&vbCrLf
Response.Write HtmlStr
End Sub
'----------------------------------------------
'File Foot
'----------------------------------------------
Sub Foot()
Response.Write "</BODY></HTML>"
End Sub
'-----------------------
'Modif Face
'-----------------------
Sub admin()
strHtml = "<TABLE align='center' width='300' cellpadding='3' border='0' cellspacing='1'>"
Set rsa=Server.CreateObject("Adodb.Recordset")
sqla="select * from admin ORDER BY ID DESC"
rsa.open sqla,conn,1,1
do while not rsa.eof
strHtml = strHtml & "<TR><td align='center'>"
strHtml = strHtml & "用戶：<a href='?id="&rsa("id")&"'>"&rsa("admin")&"</a> ["
strHtml = strHtml & "<a href='?action=del&id="&rsa("id")&"'>刪除</a>]"
strHtml = strHtml & "</td></TR>"
rsa.movenext
loop
rsa.close
Set rsa=Nothing
strHtml = strHtml & "</TABLE>"
Response.Write strHtml
end sub
Sub ModifFace()
if Request.QueryString("id")="" then
strHtml = "<TABLE align='center' width='300' cellpadding='3' border='0' cellspacing='1'>"
strHtml = strHtml & "<TR><form name='modif' action='?action=modifsave' method='post' onsubmit=""return checkmodif()"">"
'strHtml = strHtml & " <TD width='30%' align='center'>舊密碼</TD>"
'strHtml = strHtml & " <TD><INPUT TYPE='password' NAME='oldpwd'>必須正確</TD>"
strHtml = strHtml & "</TR>"
strHtml = strHtml & "<TR>"
strHtml = strHtml & " <TD align='center'>新用戶</TD>"
strHtml = strHtml & " <TD><INPUT TYPE='text' NAME='newname' size='19' maxlength='64'>不可重復</TD>"
strHtml = strHtml & "</TR>"
strHtml = strHtml & "<TR>"
strHtml = strHtml & " <TD align='center'>新密碼</TD>"
strHtml = strHtml & " <TD><INPUT TYPE='password' NAME='newpwd1'size='20' maxlength='64' ></TD>"
strHtml = strHtml & "</TR>"
strHtml = strHtml & "<TR>"
strHtml = strHtml & " <TD align='center'>確 認</TD>"
strHtml = strHtml & " <TD><INPUT TYPE='password' NAME='newpwd2' size='20' maxlength='64'></TD>"
strHtml = strHtml & "</TR>"
strHtml = strHtml & "<TR>"
strHtml = strHtml & " <TD align='center' colspan='2'><INPUT TYPE='submit' value='修 改'> <INPUT TYPE='reset' value='重 填'> <INPUT TYPE='button' value='取 消' onclick=""window.close()""></TD></form>"
strHtml = strHtml & "</TR>"
strHtml = strHtml & "</TABLE>"
Response.Write strHtml
else
id=trim(Request.QueryString("id"))
strHtml = "<TABLE align='center' width='300' cellpadding='3' border='0' cellspacing='1'>"
strHtml = strHtml & "<TR><form name='modif' action='?action=modifsave' method='post' onsubmit=""return checkmodif()"">"
strHtml = strHtml & "<input type='hidden' name='id' value="&trim(Request.QueryString("id"))&" >"
strHtml = strHtml & "<TD width='30%' align='center' size='20' maxlength='64' >舊密碼</TD>"
strHtml = strHtml & "<TD><INPUT TYPE='password' NAME='oldpwd'>必須正確</TD>"
strHtml = strHtml & "<input type='hidden'newname='' value='' >"
strHtml = strHtml & "</TR>"
'strHtml = strHtml & "<TR>"
'strHtml = strHtml & " <TD align='center'>新用戶</TD>"
'strHtml = strHtml & " <TD><INPUT TYPE='text' NAME='newname'>不添留空</TD>"
'strHtml = strHtml & "</TR>"
strHtml = strHtml & "<TR>"
strHtml = strHtml & " <TD align='center'>新密碼</TD>"
strHtml = strHtml & " <TD><INPUT TYPE='password' NAME='newpwd1' size='20' maxlength='64'></TD>"
strHtml = strHtml & "</TR>"
strHtml = strHtml & "<TR>"
strHtml = strHtml & " <TD align='center'>確 認</TD>"
strHtml = strHtml & " <TD><INPUT TYPE='password' NAME='newpwd2' size='20' maxlength='64'></TD>"
strHtml = strHtml & "</TR>"
strHtml = strHtml & "<TR>"
strHtml = strHtml & " <TD align='center' colspan='2'><INPUT TYPE='submit' value='修 改'> <INPUT TYPE='reset' value='重 填'> <INPUT TYPE='button' value='取 消' onclick=""window.close()""></TD></form>"
strHtml = strHtml & "</TR>"
strHtml = strHtml & "</TABLE>"
Response.Write strHtml
end if
End Sub
sub del()
Set Rs = Conn.execute("Select count(*) From admin")
if rs(0)>1 then
if Request.QueryString("id")<>"" then
conn.execute("delete admin From admin Where ID="&Request.QueryString("id")&"")
Call AlertMessage("刪除成功。","location.href='Pass.asp'")
end if
else
Call AlertMessage("必須有一個用戶存在","location.href='Pass.asp'")
end if
end sub
Sub ModifSave()
Dim UserID,OldPassword,NewPassword,Rs
if Request.Form("id")="" then
UserID =session("id")
else
UserID =Request.Form("id")
end if
if userid="" then
response.write "未知錯誤"
response.end
end if
OldPassword = ucase(MD5(Request.Form("oldpwd")))
NewPassword = ucase(MD5(Request.Form("newpwd2")))
newname=request.form("newname")
Set Rs = Conn.execute("Select pws From admin Where ID="&UserID&"")
If Not Rs.Eof Then
'更新密碼
On Error Resume Next
if Request.Form("newname")="" then
If OldPassword = Rs(0) Then
Call AlertMessage("舊密碼輸入錯誤，請重新輸入。","location.href='Pass.asp'")
End If
Conn.Execute("Update admin Set pws = '"&NewPassword&"' Where ID="&UserID&"")
Call AlertMessage("密碼修改成功……","window.close()")
else
Set Rsx = Conn.execute("Select * From admin Where admin='"&newname&"'")
If Rsx.Eof Then
conn.execute("insert into admin (admin,pws,qx) VALUES ('"&Newname&"','"&NewPassword&"','1')")
Conn.Execute("Update admin Set pws = '"&NewPassword&"' and admin = '"&Newname&"' Where ID="&UserID&"")
Call AlertMessage("添加成功。","location.href='Pass.asp'")
else
Call AlertMessage("這個用戶已存在。","location.href='Pass.asp'")
end if
Set Rsx = Nothing
end if
If Err Then
Err.Clear()
End If
'Call AlertMessage("密碼修改成功……","window.close()")
Else
Call AlertMessage("參數錯誤，沒有記錄存在。","window.close()")
End If
Set Rs = Nothing
End Sub
'===============JavaScript彈出提示信息=====================
Sub AlertMessage(Messages,UrlStr)
Response.Write "<script language='JavaScript'>"
Response.Write "alert('"&Messages&"');"
Response.Write ""&UrlStr&";"
Response.Write "</script>"
End Sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -