password.asp

北京商务网

<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp" -->
<%
if session("userid")="" then
response.redirect "login.asp"
response.end
end if
%>
<LINK href="style.css" rel=stylesheet type=text/css>
<%
if request("action")="edit" then
call save()
else
call edit()
end if
rs.close
set rs=noting
sub edit()
userId=Session("UserId")
set rs=server.createobject("adodb.recordset")
sql="select * from company where userid='"&userId&"'"
rs.open sql,conn,1,1
%>
<SCRIPT language=javascript>
//函数名：chksafe
//功能介绍：检查是否含有"'",'\\',"/"
//参数说明：要检查的字符串
//返回值：0：是 1：不是
function chksafe(a)
{ 
return 1;
/* fibdn = new Array ("'" ,"\\", "、", ",", ";", "/");
i=fibdn.length;
j=a.length;
for (ii=0;ii<i;ii++)
{
for (jj=0;jj<j;jj++)
{
temp1=a.charAt(jj);
temp2=fibdn[ii];
if (tem';p1==temp2)
{
return 0; 
}
}
}
return 1;
*/ 
}
//函数名：chkspc
//功能介绍：检查是否含有空格
//参数说明：要检查的字符串
//返回值：0：是 1：不是
function chkspc(a)
{
var i=a.length;
var j = 0;
var k = 0;
while (k<i)
{
if (a.charAt(k) !=" ")
j = j+1;
k = k+1;
}
if (j==0)
{
return 0;
}
if (i!=j)
{
return 2; 
}
else
{
return 1;
}
}
//函数名：fucPWDchk
//功能介绍：检查是否含有非数字或字母
//参数说明：要检查的字符串
//返回值：0：含有 1：全部为数字或字母
function fucPWDchk(str)
{
var strSource ="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
var ch;
var i;
var temp;
for (i=0;i<=(str.length-1);i++)
{
ch = str.charAt(i);
temp = strSource.indexOf(ch);
if (temp==-1) 
{
return 0;
}
}
if (strSource.indexOf(ch)==-1)
{
return 0;
}
else
{
return 1;
} 
}
//函数名：fucCheckLength
//功能介绍：检查字符串的长度
//参数说明：要检查的字符串
//返回值：长度值
function fucCheckLength(strTemp)
{
var i,sum;
sum=0;
for(i=0;i<strTemp.length;i++)
{
if ((strTemp.charCodeAt(i)>=0) && (strTemp.charCodeAt(i)<=255))
sum=sum+1;
else
sum=sum+2;
}
return sum;
}
function form1_onsubmit()
{
if (document.form1.oldpassword.value!=document.form1.password1.value)
{
alert ("您输入的旧密码不正确。");
document.form1.oldpassword.value=''; 
document.form1.oldpassword.focus();
return false;
}
if ((chksafe(document.form1.password.value)==0)||(fucPWDchk(document.form1.password.value)==0))
{
alert("请填写正确的新密码。")
document.form1.password.focus();
return false; 
}
if ((fucCheckLength(document.form1.password.value)<4)||(fucCheckLength(document.form1.password.value)>12))
{
alert("密码至少4位，不要超过12位");
document.form1.password.focus();
return false;
}
if (document.form1.confirmpassword.value!=document.form1.password.value)
{
alert ("请确认您的密码。");
document.form1.confirmpassword.value=''; 
document.form1.confirmpassword.focus();
return false;
}
if (chkspc(document.form1.question.value)==0)
{
alert ("请填写密码提示问题。");
document.form1.question.focus();
return false;
}
if (chkspc(document.form1.answer.value)==0)
{
alert ("请填写密码取出答案。");
document.form1.answer.focus();
return false;
}
}
</SCRIPT>
<LINK href="style.css" rel=stylesheet>
<center>
<TABLE border=0 cellPadding=1 cellSpacing=0 width=600>
<TBODY>
<TR>
<TD>
<TABLE border=0 cellPadding=5 cellSpacing=0 width="100%">
<TBODY>
<tr> 
<td colspan=2 height=25>您现在的位置：首页 >> 网站维护 >> 用户密码管理</td> 
</tr>
<tr><td height=30></td></tr>
<TR>
<TD colSpan=2>
<FORM name=form1 onsubmit="return form1_onsubmit();" action=password.asp method=post>
<INPUT name=action type=hidden value="edit">
<INPUT name=UserId type=hidden value="<%=userid%>">
<INPUT name=password1 type=hidden value="<%=rs("password")%>">
</TD>
</TR>
<TR vAlign=top>
<TD align=left width="40%"><BR><B>旧密码</B><br>请在此输入您原先设置的密码</TD>
<TD><BR><INPUT maxLength=20 name=oldpassword type=password size="20"> <FONT color=#990000><SMALL>*</SMALL></FONT><BR></FONT></TD>
</TR>
<TR vAlign=top>
<TD align=left width="40%"><B>新的密码</B><br>请您在此输入新的密码。6-12 个字符，只允许数字、英文字母和下划线“_”，有大小写区分。 </TD>
<TD><INPUT maxLength=20 name=password type=password size="20"> <FONT color=#990000>*</FONT>
</TD>
</TR>
<TR vAlign=top>
<TD align=left width="40%"><B>请确认密码</B><br>请您在此输入确认密码。</TD>
<TD><INPUT maxLength=20 name=confirmpassword type=password size="20"> 
<FONT color=#990000><SMALL>*</SMALL></FONT><BR></FONT></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD align=middle width="50%"><INPUT name=Change type=submit value=" 确 定 "> </TD>
<TD align=middle width="50%"> <INPUT name=Reset type=reset value=" 重 输 "></TD>
</TR>
</TBODY>
</TABLE>
</FORM>
</CENTER>
<%end sub
sub save()
set rs=server.CreateObject ("adodb.recordset")
sql="select * from company where userid='"&session("userid")&"'"
rs.open sql,conn,3,3
rs("password")=request("password")
rs.update
response.write"<br>"+"用户密码修改成功，请[<a href=login.asp><font color=#ff000>返回管理首页</font></a>]"
end sub
%>