modpwd.asp

来自「网络教学管理系统」· ASP 代码 · 共 31 行

ASP

31 行

<!--#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>")
	

%>

modpwd.asp - 源码说明

本页面展示了「网络教学管理系统」中的 modpwd.asp 源码文件，采用 ASP 编程语言编写，共 31 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?