📄 modpwd.asp

📁 网络教学管理系统

💻 ASP

字号:

<!--#include file="inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<body bgcolor="#B1DB99" topmargin="5" leftmargin="5">
<%
	Dim strUtype ,strID ,strSql ,strPwd ,rs
	strUType = trim(Request.QueryString("Type"))
	strID = trim(Session("ID"))
	If strID = "" Then
		Response.Write("对不起，参数错误！")
		Response.End
	End If
	
	strPwd = trim(Request.Form("Pwd"))
	If strUType = "S" Then
		strSql = "UPDATE Student SET Pwd ='" & strPwd &"' WHERE ID = "& strID
	ElseIf strUType = "T" Then
		strSql = "UPDATE Teacher SET Pwd = '"& strPwd &"' WHERE ID = "& strID
	Else
		Response.Write("对不起，参数错误！")
		Response.End
	End If
	Set rs = Server.CreateObject("ADODB.RecordSet")
	on error resume next
	rs.Open strSql,conn,3,1
	on error resume next
	rs.Close
	Response.Write("<br><Br><Div align=center>修改成功！</div>")
	

%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -