chkuser.asp

程序功能： 1.使Serv-U可自由地在线注册

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
'=========================================================
' Serv-U 用户在线注册管理程序-1.0(odbc+asp版)[2006040819]
' 版权所有：北江科技
' 客服QQ:418322257   E-Mail:[e-mail]
' 欢迎大家联系我们，根据具体情况定制相对应的程序。
' 讨论建议网址：http://asp.6to23.com/qyzz/qystu/forumTopicRead.asp?id=1187
'=========================================================
%>
<!--#include file="md5.asp"-->
<!--#include file="config.asp" -->
<%
	dim sql
	dim rs
	if(Request.Form("username") <> "") then Userusername = Request.Form("username")
	if(Request.Form("password") <> "") then UserPassword = Request.Form("password")


	set rs=server.createobject("adodb.recordset")
	sql="select * from User_accounts where User='"&Userusername&"'"
	rs.open sql,MM_ServU_STRING,1,1
	If Not rs.EOF Or Not rs.BOF Then
	    dbpassword = rs("Password")
		cdbpassword = left(dbpassword,2) & md5(left(dbpassword,2)& UserPassword)
		if trim(cdbpassword) <> trim(dbpassword) then
		Response.Write("<center>对不起，密码错误!<P><a href='login.asp'>返回登录页面</a></p></center>")
		else
	    session("MM_kasak")=Userusername
		Response.Redirect "mycentre.asp"
		end if
	else
			Response.Write("<center>对不起!你还没申请该帐号，请先申请!<P><a href='reg.asp'>返回申请页面</a></p></center>")

 	end if

%>
<% 	rs.close
	set rs=nothing %>
<% 'end if %>