📄 login.asp

📁 1.拼客信息发布 2.在线报名 3.群组讨论 4.程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站 5.其他的直接看演示吧
💻 ASP
字号:
<%
'########################################
'
'XinYou-pK(CMS)(v1.0)拼客内容管理系统
'
'使用过程中,如有问题,请联系QQ:16129825   E-mail:liuxing99@tom.com
'
'演示地址：http://www.XinYou88.net
'
'程序简单易用,基本设置都有后台设置,不需要专业的知识就可以建立一个拼客网站
'
'如有BUG,请通知一声,谢谢!!!
'
'########################################
%>
<!--#include file="inc/config.asp"-->
<%
'######################## 退出系统
if request("action")="out" then
response.cookies("xinyou88")=""
response.redirect "login.asp"
response.End
end if
'########################
dim act,name,pwd,lrs,lsql
act=request("action")
user=replace(trim(request("name")),"'","‘")
pwd=replace(trim(request("pwd")),"'","‘")
if act="login" then
 If Trim(Request.Form("validatecode"))=Empty Or Trim(Session("cnbruce.com_ValidateCode"))<>Trim(Request.Form("validatecode")) Then
  response.write "<script language='javascript'>alert('请输入正确的验证码');history.back();</script>"
  response.end
  end if
set lrs =server.createObject("adodb.recordset")
lsql="select * from [user] where name='"&User&"' and pwd='"&pwd&"'"
lrs.open lsql,conn,1,3
'response.end
  if lrs.eof then
     'response.write sql
     response.write "<script language='javascript'>alert('用户名或密码错误!请重新登陆!');history.back();</script>"
	 response.end
	 else
	 response.cookies("xinyou88")("domain")=Request.ServerVariables("SERVER_NAME")
	 response.cookies("xinyou88")("user")=user
	 response.cookies("xinyou88")("password")=pwd
	 dlcs=lrs("dlcs")
	 dlcs=dlcs+1
	 lrs("dlcs")=dlcs
	 lrs("zhdl")=now()
	 lrs("zhip")=request.serverVariables("remote_host")
	 lrs.update
	 Response.Write "<script language='javascript'>alert('恭喜,登陆成功!');</script>" 
     response.write "<meta http-equiv=refresh content=""0;URL=user.asp"">"
     response.end
	 end if
	 lrs.close
     set lrs=nothing
else%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<meta name="keywords" content="<%=rs("key")%>">
<meta name="author" content="版权所有:XINYOU(QQ:16129825 TEL:0518-5526465)连云港信友科技有限公司,诚接各种网站建设,程序编写!">
<title><%=rs("title")%>-用户登陆</title>
<style type="text/css">
<!--
body {
	margin-top: 0px;
}
-->
</style>
<SCRIPT language=javascript>
<!--
function CheckForm()
{
if(document.thisForm.name.value.length<1)
	{
	    alert("用户名称不能为空!");
	    return false;
	}
                
	if(document.thisForm.pwd.value.length<1)
	{
	    alert("用户密码不能为空");
	    document.thisForm.pwd.focus();
	    return false;
	}

}
//-->
</SCRIPT>

</head>
<body>
<% call top() %>
<div align="center">
<table width="980">
      <tr>
	  <!--左侧-->
	  <td width="250">
	  <div align="center">
	  <table width="99%">
	  <Tr><td>
	  <table width="100%" class="table">
	  <tr>
	  <td height="30" class="title"><li>注册的好处:</li></td>
	  </tr>
	  <tr>
	  <td> 非注册用户: <br>
1：不可以查看发布者联系方式； <br>
2：不能发布任何信息； <br>
3：不可以创建俱乐部； <br>
4：不能加入俱乐部； <br>
5：不能使用高级功能； <br>
<br>
注册用户: <br>
1：可以查看发布者联系方式； <br>
2：可进行信息发布； <br>
3：可以享受各种高级功能,包括信息收藏,添加好友等； <br>
4：可以加入俱乐部； <br>
5：可以创建俱乐部.</td>
	  </tr>
	  </table>
	  </td></Tr>
	  </table>
	  </div>
	  </td>
	  <!--左侧结束-->
	  <!--中部-->
	  <Td width="720" align="center" valign="top"><div align="center">
	  <table width="100%" align="center">
	  <tr><td>
	  <table width="100%" class="table" >
	  <tr>
	    <td height="30" class="title" ><div align="center">会员登陆</div></td>
	  </tr>
	  <form name="thisForm" action="?action=login" method="post">
	  <tr><Td>
	  <table width="62%" align="center">
	  <tr>
	  <td width="20%" height="30"><div align="right">登陆帐号:</div></td>
	  <td height="30"><input name="name" type="text" size="30" maxlength="16"> </td>
	  </tr>
	  <tr>
	  <td width="20%" height="30"><div align="right">密码:</div></td>
	  <td height="30"><input name="pwd" type="password" size="30" maxlength="16"> </td>
	  </tr>
	  <tr>
	  <td width="20%" height="30"><div align="right">验证码:</div></td>
	  <td height="30"><input name='validatecode' type='text' size='10'>
	    &nbsp;<img src='../inc/validatecode.asp' align='absmiddle' border='0'> 
	    </td>
	  </tr>
	  <tr>
	  <td height="30" colspan="2"><div align="center"><input type="submit" value="登 陆" onclick="javascript:return CheckForm();" >&nbsp;&nbsp;<input type="reset" value="取消"></div></td>
	  </tr>
	  <tr><td height="30" colspan="2"><div align="center"><a href="reg.asp">没有帐号,我要注册>>></a></div></td></tr>
	  </table></Td>
	  </tr></form>
	  </table>
	  </td></tr>
	  </table>
	  </div></Td>
	 
    </tr>
</table>
</div>
<% end if%>
<% call foot() %>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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