userchklogin.asp

疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top1.asp"-->
<%
function Checkin(s) 
s=trim(s) 
s=replace(s," ","&amp;nbsp;") 
s=replace(s,"'","&amp;#39;") 
s=replace(s,"""","&amp;quot;") 
s=replace(s,"&lt;","&amp;lt;") 
s=replace(s,"&gt;","&amp;gt;") 
Checkin=s 
end function 

founderr=false

sub error()
%>
  
<table cellpadding=0 cellspacing=0 border=0 width=75% align=center>
  <tr>
      <td>
        <table cellpadding=3 cellspacing=1 border=0 width=100%>
          <tr align="center"> 
            <td width="100%">错误信息：</td>
          </tr>
          <tr> 
            
          <td width="100%">产生错误的可能原因：<br>
            <%=errmsg%></td>
          </tr>
          <tr align="center">
            <td width="100%"><a href="javascript:history.go(-1)"> <font color=#FFFFFF><< 返回上一页</font></a></td>
          </tr>  
        </table>
      </td>
    </tr>
  </table>
<%
end sub

UserIP=Request.ServerVariables("REMOTE_ADDR")
if request("username")="" then
	errmsg=errmsg+"<br>"+"<li>请输入您的用户名。"
	founderr=true
else
	username=Checkin(trim(request("username")))
end if
if request("password")="" then
	errmsg=errmsg+"<br>"+"<li>请输入您的密码。"
	founderr=true
else
	password=Checkin(trim(request("password")))
end if
set rs=server.createobject("adodb.recordset")
sql="select username,password,logins,lastlogin,loginIP,points from user where username='"&username&"' and lockuser=0"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	errmsg=errmsg+"<br>"+"<li>管理员已经将用户账号锁定，请和管理员联系，如果是您还没有注册，<a href='UserReg.asp'><font color=#FFFFFF>请先注册</a></font>"
	founderr=true
else
	if rs("password")<>password then
		errmsg=errmsg+"<br>"+"<li>您输入的密码不正确。"
		founderr=true
	else
		rs("logins")=rs("logins")+1
		rs("points")=rs("points")+1
		rs("lastlogin")=Now()
		rs("loginIP")=Request.ServerVariables("REMOTE_ADDR")
		rs.update
       	session("DJ58User")=UserName
		session("HappyMusicPwd")=PassWord
	end if
end if

if founderr=true then
	call error()
else
	if err.number<>0 then 
		Response.write ("数据库操作失败："&err.description)
		Response.End
	end if
	response.redirect("default.asp")
end if
%>