<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
'=========================================================
' Serv-U 用戶在線注冊(cè)管理程序-1.0(odbc+asp版)[2006040819]
' 版權(quán)所有：北江科技
' 客服QQ:418322257   E-Mail:qystu@163.Com
' 歡迎大家聯(lián)系我們，根據(jù)具體情況定制相對(duì)應(yīng)的程序。
' 討論建議網(wǎng)址：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>對(duì)不起，密碼錯(cuò)誤!<P><a href='login.asp'>返回登錄頁(yè)面</a></p></center>")
		else
	    session("MM_kasak")=Userusername
		Response.Redirect "mycentre.asp"
		end if
	else
			Response.Write("<center>對(duì)不起!你還沒(méi)申請(qǐng)?jiān)搸ぬ?hào)，請(qǐng)先申請(qǐng)!<P><a href='reg.asp'>返回申請(qǐng)頁(yè)面</a></p></center>")

 	end if

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