getpass.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

							<tr>
							  <td width="40%" height="50" align="right"><img src="images/dsd.gif" width="29" height="28" /></td>
							  <td width="47%" valign="middle"><table cellspacing="1" cellpadding="1">
								  <tr>
									<td height="24" valign="bottom">取回密码第三步 设置新密码 </td>
								  </tr>
							  </table></td>
							</tr>
						  </table>
					 <form name="myform" method="post" action="?Step=4" onSubmit="return CheckForm();">
							<table bordercolor="#dddddd" cellspacing="1" cellpadding="0" width="96%" align="center" border="1">
                              <tbody>
                                <tr>
                                  <td width="40%" height="22" align="right" bordercolor="#eeeeee" bgcolor="#EAEAEA" class="style6"> 用户名：</td>
                                  <td width="60%" bordercolor="#eeeeee" bgcolor="#f5f5f5"><input type="text" readonly value="<%=UserName%>" name="UserName"></td>
                                </tr>
                              </tbody>
                            </table>
							<table bordercolor="#dddddd" cellspacing="1" cellpadding="0" width="96%" align="center" border="1">
                              <tbody>
                                <tr>
                                  <td width="40%" height="22" align="right" bordercolor="#eeeeee" bgcolor="#EAEAEA" class="style6"> 新密码：</td>
                                  <td width="60%" bordercolor="#eeeeee" bgcolor="#f5f5f5"><input name="PassWord" type="password" id="PassWord" size="20" /></td>
                                </tr>
                              </tbody>
                            </table>
							<table bordercolor="#dddddd" cellspacing="1" cellpadding="0" width="96%" align="center" border="1">
                              <tbody>
                                <tr>
                                  <td width="40%" height="22" align="right" bordercolor="#eeeeee" bgcolor="#EAEAEA" class="style6"> 确认密码：</td>
                                  <td width="60%" bordercolor="#eeeeee" bgcolor="#f5f5f5"><input name="RePassWord" type="password" id="RePassWord" size="20" /></td>
                                </tr>
                              </tbody>
                            </table>
							<table bordercolor="#dddddd" cellspacing="1" cellpadding="0" width="96%" align="center" border="1">
                              <tbody>
                                <tr>
                                  <td height="42" align="center" bordercolor="#eeeeee" class="style6"><input name="Submit22" type="submit" class="button2" value="完成" />
                                    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td>
                                </tr>
                              </tbody>
                            </table>
							<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
							  <tr>
								<td height="4" bgcolor="#999999"></td>
							  </tr>
							</table>
						  </form>
						  <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
							  <tr>
								<td>&nbsp;</td>
							  </tr>
						  </table></td>
					  </tr>
				  </table></td>
				</tr>
			  </table>
				<table width="745"  border="0" align="center" cellpadding="0" cellspacing="0">
							<tr>
							  <td height="4" bgcolor="#EEEEEE">
							  </td>
							</tr>
				</table>


			<% End IF
		  ElseIF Step=4 Then
		  
		  	 Dim PassWord:PassWord=KSCMS.ReplaceBadChar(KSCMS.G("PassWord"))
			 Dim RePassWord:RePassWord=KSCMS.G("RePassWord")
			 If PassWord = "" Then
				 Response.Write("<script>alert('请输入登录密码!');history.back();</script>")
				 Response.End
			 ElseIF RePassWord="" Then
				 Response.Write("<script>alert('请输入确认密码');history.back();</script>")
				 Response.End
			 ElseIF PassWord<>RePassWord Then
				 Response.Write("<script>alert('两次输入的密码不一致');history.back();</script>")
				 Response.End
			 End If

             Set RS=Server.CreateObject("Adodb.RecordSet")
			  RS.Open "Select PassWord From KS_User Where UserName='" & KSCMS.G("UserName") & "'",Conn,1,3
			     RS(0)=KSCMS.MD5(PassWord,16)
				 RS.Update
			 RS.Close
			 Set RS=Nothing
		  %>
		  
		    <table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="8" valign="bottom" bgcolor="#EAEAEA"><table width="742" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="4" bgcolor="#FFFFFF"></td>
                    </tr>
                </table></td>
              </tr>
            </table>
		    <table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td></td>
              </tr>
              <tr>
                <td bgcolor="#EAEAEA"><table width="742" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td valign="top" bgcolor="#FFFFFF"><table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr>
                            <td width="40%" height="50" align="right"><img src="images/dsd.gif" width="29" height="28" /></td>
                            <td width="47%" valign="middle"><table cellspacing="1" cellpadding="1">
                                <tr>
                                  <td height="24" valign="bottom">取回密码成功</td>
                                </tr>
                            </table></td>
                          </tr>
                        </table>
                            <table bordercolor="#dddddd" cellspacing="1" cellpadding="0" width="96%" align="center" border="1">
                              <tbody>
                                <tr>
                                  <td height="50" align="center" bordercolor="#eeeeee" bgcolor="#F5F5F5" class="style6">恭喜你,密码取回成功!您的新密码是:<font color=red><%=PassWord%></font>,请用新密码登录。</td>
                                </tr>
                              </tbody>
                            </table>
                            <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
                              <tr>
                                <td height="4" bgcolor="#999999"></td>
                              </tr>
                            </table>
                        <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr>
                              <td>&nbsp;</td>
                            </tr>
                        </table></td>
                    </tr>
                </table></td>
              </tr>
            </table>
		    <table width="745"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="4" bgcolor="#EEEEEE"></td>
              </tr>
            </table> 
		  <%
           Else
		   %>
		   <script language = "JavaScript">
				function CheckForm()
				{
				if (document.myform.UserName.value=="")
				  {
					alert("请输入用户名！");
					document.myform.UserName.focus();
					return false;
				  }
	              return true;
				  }
				</script>

			<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
			  <tr>
				<td height="8" valign="bottom" bgcolor="#EAEAEA"><table width="742" border="0" align="center" cellpadding="0" cellspacing="0">
				  <tr>
					<td height="4" bgcolor="#FFFFFF">		</td>
				  </tr>
				</table></td>
			  </tr>
			</table>

			<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
			 <form name="myform" method="post" action="?Step=2" onSubmit="return CheckForm();">
			  <tr>
				<td bgcolor="#EAEAEA"><table width="742" border="0" align="center" cellpadding="0" cellspacing="0">
				  <tr>
					<td valign="top" bgcolor="#FFFFFF"><table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
					  <tr>
						<td width="40%" height="50" align="right"> <img src="images/dsd.gif" width="29" height="28"></td>
						<td width="47%" valign="middle"> <table cellspacing="1" cellpadding="1">
						  <tr>
							<td height="24" valign="bottom">取回密码第一步 输入用户名 </td>
						  </tr>
						</table> </td>
					  </tr>
					</table>          
			
					  <TABLE borderColor=#dddddd cellSpacing=1 cellPadding=0 width="96%" align=center border=1>
						<TBODY>
						  <TR>
							<TD width="40%" height=22 align="right" borderColor=#eeeeee bgColor=#EAEAEA class="style6"> 您的用户名：</TD>
							<TD width="60%" borderColor=#eeeeee bgColor=#f5f5f5><input name="UserName" type="text" id="UserName" size="20"></TD>
						  </TR>
						</TBODY>
					  </TABLE>
					  <TABLE borderColor=#dddddd cellSpacing=1 cellPadding=0 width="96%" align=center border=1>
						<TBODY>
						  <TR>
							<TD height=42 align="center" borderColor=#eeeeee class="style6"> 
							<input name="Submit" type="submit" class="button2" value="下一步">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </TD>
						  </TR>
						</TBODY>
					  </TABLE>
					  <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
						<tr>
						  <td height="4" bgcolor="#999999">
						  </td>
						</tr>
					  </table>
					  <table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0">
						<tr>
						  <td>&nbsp;</td>
						</tr>
					  </table>          </td>
				  </tr>
				</table></td>
			  </tr>
			</table>
							  <table width="745"  border="0" align="center" cellpadding="0" cellspacing="0">
						<tr>
						  <td height="4" bgcolor="#EEEEEE">
						  </td>
						</tr>
						</form>
					  </table>
		  	 <%End IF%> 			  
			  <br />
			  </td>
            </tr>
          </table>
		  <%
       KSUser.LoadFoot()
  End Sub
End Class
%>