activepass.asp

多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态ASP； 无限制添加下载服务器

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!-- #include file="inc/chkinput.asp" -->
<%
Dim username
Dim password
Dim repassword
Dim answer, stats
Dim Rs, SQL
Dim NC_Encode
stats = "取回密码"
Set NC_Encode = Server.CreateObject("NewCloudAsp.MD5Encode")
'*****************************************************************
'*  NewCloud Download System Version 6.0.0
'*  File: activepass.asp
'*  Date: 2004-4-8
'*****************************************************************
'*  Copyright 2002-2004 newasp.net - All Rights Reserved.
'*  newasp is a trademark of newasp.net
'*  HomePage: http://www.newasp.net
'*****************************************************************
If request("username") = "" Or request("pass") = "" Or request("repass") = "" Or request("answer") = "" Then
	Response.Write"<script>alert('非法参数！');history.go(-1)</script>"
Else
	username = Newasp.checkStr(request("username"))
	password = Newasp.checkStr(request("pass"))
	repassword = NC_Encode.md5(checkStr(request("repass")))
	answer = NC_Encode.md5(request("answer"))
	sql = "select password from [NC_user] where username='"&username&"' and password='"&password&"' and answer='"&answer&"'"
	Set rs = server.CreateObject("adodb.recordset")
	rs.Open sql, conn, 1, 3
	If rs.EOF And rs.bof Then
		Response.Write"<script>alert('您返回的用户资料不正确，非法操作！');history.go(-1)</script>"
	Else
		If rs("usergroupid")<4 Then
			Response.Write"<script>alert('非法操作！必须和管理员联系取回密码！');history.go(-1)</script>"
		Else
			rs("password") = repassword
			rs.update
			Response.Write"<script>alert('您的密码成功激活，请登陆!');location.replace('"& Newasp.SetupDir & Newasp.Setting(6) &"')</script>"
		End If
	End If
	rs.Close
	Set rs = Nothing
End If
%>