📄 membercheck.asp

📁 大家好

💻 ASP

字号:

<% @language="VBSCRIPT"%>
<!-- #include file="adovbs.inc" -->
<%
DIM username,password
username=TRIM(Request.Form("userid"))
password=TRIM(Request.Form("password"))
'再次检查口令和用户名是否为空
On Error Goto 0
if username="" or password="" then
	response.write "操作超时！"&"<br>"
	response.write "<a href='"&"../default.asp"&"'>返回主页</a>"
else
	Set con=Server.CreateObject("ADODB.Connection")
	con.Open Application("DBCon_ConnectionString")
	strSql="select * from yonghu where yonghu='"+username+"' and kouling='"+password+"'"
	Set rs=con.Execute(strSql)
	if rs.EOF then		'错误:没有这个用户
		response.write "请核查您用户名及口令的正确性！如确认无误及登录失败，望及时与我们<a href='"&"mailto:yjkj@3508.com"&"'联系</a>"&"<br>"
		response.write "<a href='"&"../default.asp"&"'>返回主页</a>"
		response.end
	end if 
	session("username")=username
	response.redirect "newtitle.asp"
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF">

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -