xiugaimimachuli.asp

来自「介绍ASP的基本内容,特别对初学的同学来讲,是一个很好的教程来的,希望大家」· ASP 代码 · 共 51 行

ASP
51
字号
<%'---------------------------------------------------------------
' 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 + =
减小字号Ctrl + -
显示快捷键?