📄 xiugaimimachuli.asp
字号:
<%'---------------------------------------------------------------
' AspStudio_Codepage="936"
' 上面这行是软件使用的代码页标记，请不要删除。详情请参考帮助文件。
'
' 档案名称：xiugaimimachuli.asp
' 原创作者：KAVEN
' 作者邮件：
' 创建日期：星期六，2006年09月30日 20:26:03
' 版权所有(C)SCAU
'--------------------------------------------------------------%>
<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<Title>xiugaimimachuli.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<BODY>
<!-- 请在这里输入您的HTML代码 -->
<%
userpsw=request.Form("psw")
newpsw=Request.Form("newpsw")
'response.Write(userpsw)
'response.Write(newpsw)
'response.Write Session("userID")
sql="select psw from student where student_ID='"+Session("userID")+"'"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,2,3
'response.Write(rs("psw"))
if rs("psw")=userpsw then
rs("psw")=newpsw
rs.Update
response.Write("<script>alert('修改成功');</script>")
response.Write("<a href=login.asp>返回登录</a>")
else
response.Write("<script>alert('请输入正确的密码');</script>")
response.Write("<a href=xiugaipsw.asp>返回</a>")
end if
rs.Close()
conn.Close()
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -