?? passwd_change.asp
字號:
<%@ Language=VBScript %>
<%
if (isempty(session("username")) or len(session("username"))=0) then
Response.Write "您的登錄已過期，請重新登錄。"
Response.End
end if
set conn = server.CreateObject("adodb.connection")
conn.Open application("dsn")
newpass = Request.Form("newpass")
oldpass = Request.Form("oldpass")
oldpass = replace(oldpass,"'","''")
sql ="select * from usertype where name='" & session("username") & "' and passwd ='" & oldpass & "'"
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn
if rs.EOF then
rs.Close
set rs = nothing
conn.Close
set conn=nothing
Response.Write "用戶名或密碼不正確。"
Response.End
end if
rs.Close
set rs=nothing
sql = "update usertype set passwd='" & newpass & "' where name='" & session("username") & "'"
conn.Execute sql
conn.Close
set conn = nothing
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="xcss.css">
</HEAD>
<BODY background=images/zapsmbknd.gif>
<p>
<TABLE border=0 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD align=center><div class="zTitle">密碼修改成功!</div></TD>
<TR>
<TR>
<TD align=center><INPUT type="button" name=cancel value="確定" onclick="javascript:window.close();"></TD></TR>
</TABLE></P>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -