ad_pass2.asp

一个企业客户信息收集管理系统.软件下载 源码下载 站长教程 建站资讯 素材下载┆ ┆站长论坛 免费服务 虚拟主机 域名注册 免费代码┆ ┆网站评测 人才交流 酷站赏析 业界新闻 程序发布

 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="cs_conn.inc.asp"-->

 <%
if not session("userClass")>=1 then
	response.redirect "login.asp"
end if
%>
<!-- #Include File="pro.inc.asp" -->
 
<%
dim username,password,password2,password3,successmess,backurl,founderr,rs,tt
username=trim(replace(request("username"),"'",""))
password=trim(replace(request("password"),"'",""))
password2=trim(replace(request("password2"),"'",""))
password3=trim(replace(request("password3"),"'",""))

if username="" or Len(username)>20 then
	errmsg=errmsg+"<br>"+"<li>请输入您的用户名(长度不能大于20)!"
	founderr=true
	else
	username=username
end if

if Instr(request("username"),"=")>0 or Instr(request("username"),"%")>0 or Instr(request("username"),chr(32))>0 or Instr(request("username"),"?")>0 or Instr(request("username"),"&")>0 or Instr(request("username"),";")>0 or Instr(request("username"),",")>0 or Instr(request("username"),"'")>0 or Instr(request("username"),",")>0 or Instr(request("username"),chr(34))>0 or Instr(request("username"),"+") >0 then
	errmsg=errmsg+"<br>"+"<li>您的用户名中含有非法字符!"
	founderr=true
	else
	username=trim(request("username"))
end if

if request("password")="" or len(request("password"))>20 then
	errmsg=errmsg+"<br>"+"<li>请输入您的密码(长度不能大于20)!"
	founderr=true
	else
	password=request("password")
end if

if request("password2")="" or len(request("password"))>20 then
	errmsg=errmsg+"<br>"+"<li>请输入您的新密码(长度不能大于20)!"
	founderr=true
	else
	password2=request("password2")
end if

if request("password3")="" or len(request("password"))>20 then
	errmsg=errmsg+"<br>"+"<li>请输入您的确认新密码(长度不能大于20)!"
	founderr=true
	else
	password3=request("password3")
end if

if password2<>password3 then
	errmsg=errmsg+"<br>"+"<li>您输入的密码和确认密码不一致!"
	founderr=true
	else
	password2=password2
end if

'----------------------------------检验用户是否合法
'response.write (username)
'response.write (password)
set rs=server.createobject("adodb.recordset")
sql = "Select * From market_user Where username='"&Username&"' And password='"&password&"'"	
'response.write (sql)
rs.open sql, conn,1,3
If rs.EOF Then
	errmsg=errmsg+"<br>"+"<li>用户名和密码不正确 !"
	founderr=true
	
end if



if founderr=true then 
	call error
else 
	call saveinfo()
	successmess="密码更改成功"
	backurl="ad_pass.asp"
	call success
end if

sub saveinfo ()
rs("password")=password2
rs.update
rs.close
set rs=nothing
Conn.Close
Set Conn=Nothing
end sub
'===================================
'箫子居
'===================================

%>