📄 sub.asp

📁 用asp做的一个小的聊天程序

💻 ASP

字号:

<!--#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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -