📄 untitled-2.asp

📁 实现了

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
	color: #FF0000;
}
a:active {
	text-decoration: none;
	color: #FF0000;
}
-->
</style></head>

<body>
<form name="form1" method="post" action="Untitled-2.asp?action=cha">
  <input name="user_name" type="text" id="user_name">
  <input type="submit" name="Submit" value="查询帐号是否存在">
  <%if request("action")="cha" then
  user_name=request("user_name")
set rs=server.CreateObject("adodb.recordset")
rs.open"select*from member where user_name='"&user_name&"'",conn
if rs.eof and rs.bof then
 response.write "<font color=red>恭喜！</font>"
 else
 response.write "<font color=red>该帐号已经存在</font>"
 end if
 end if%>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -