sub.asp

来自「用asp做的一个小的聊天程序」· ASP 代码 · 共 28 行

ASP
28
字号
<!--#include file=cn.asp -->
<html>
<head>
<title>
</title>
</head>
<body bgcolor =darkturquoise>
<%
		dim name,password
		Dim str
		name=trim(request.Form("text4"))
		password=trim(request.Form("text1")) 
		password1=trim(request.Form ("text2"))
		str="select * from leaguer where em_name='" & name & "' and em_password1='" & password & "'"
		rs.open str
		if rs.recordcount<>0 Then
				rs.close
				strsql="update leaguer set em_password1='"& password1 &"',em_password2='"& password1 &"' where em_name='"& name &"'"
				rs.open strsql
				
				server.Transfer "ziliao.asp"
			else
				response.write "<script language=vbscript>msgbox" & """密码错误""</script>"
				server.Transfer "ziliao.asp"
			end if
				%>
				</body>
				</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?