WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

MemberGetPass.Asp：源码内容
							<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%call SiteInfo
headid=2
Seotitle=" Find Password "
%>
<!--#include file="Head.Asp" -->
<div class="clear"></div>
<div id="contant">
  <div class="cleft">
	<div class="news">
      <div class="title">
	  &nbsp;<b>Member Center</b>
	  </div>
	  <div>
	  <ul>
<%=WebMenu()%>
</ul>
	  </div>
    </div>
	<div class="news">
      <div class="title">
	  &nbsp;<b>Hot Product</b>
	  </div>
	  <div>
	  <ul>
<%=Producthot(10)%>
</ul>
	  </div>
    </div>
  </div>
<div class="cright">
	<div class="crightb">
	  <div class="crightbtitle">
	    <div class="crightbtitlel">
		Location：
		</div>
		<div class="crightbtitler">
		<%=WebLocation()%>
		</div>
	  </div>
	  <div class="crightbcontent"><%=WebContent()%></div>
	</div>
  </div>
</div>
<!--#include file="Foot.Asp"-->
<%
Function WebMenu()
If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberRegister.asp"">Register</a></li>"
Else
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberInfo.asp"">Edit Information</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberMessage.asp"">My Message</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberOrder.asp"">My Orders</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberTalent.asp"">My Candidates</a></li>"
  response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberLogin.asp?Action=Out"">Login Out</a></li>"
End If
End Function
function WebLocation()
  WebLocation="&nbsp;Location：<a href=""index.asp"" class=""agray"">Home</a> - <a href=""MemberCenter.asp"" class=""agray"">Member Center</a> - 密码找回"&VbCrLf
end Function
function MemGroup(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from Wygkcnflash_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  MemGroup=rs("GroupName"&Language)
  rs.close
  set rs=nothing
end function
function WebContent()
  dim rs,sql,NewPassword
  if request.QueryString("Step")="" then
%>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="5">
<form action="MemberGetPass.asp?Step=EnterNameMail" method="post" name="form" id="form">
  <tr>
    <td width="200" align="right">Member Name：</td>
    <td><input name="MemName" type="text" id="MemName" size="30" maxlength="16" /></td>
  </tr>
  <tr>
    <td align="right">Email：</td>
    <td><input name="Email" type="text" id="Email" size="30" maxlength="50" /></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input name="Next2" type="submit" value="Next" /></td>
  </tr>
  </form>
</table>
<%
  elseif request.QueryString("Step")="EnterNameMail" then
    set rs = server.createobject("adodb.recordset")
    sql="select * from Wygkcnflash_Members where MemName='"&request.form("MemName")&"' and Email='"&request.form("Email")&"'"
	rs.open sql,conn,1,1
	if rs.eof then
	  WriteMsg("Member name or e-mail address error！")
      exit function
	end if
%>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="5">
<form action="MemberGetPass.asp?Step=EnterAnswer&ID=<%=rs("ID")%>" method="post" name="form" id="form">
  <tr>
    <td width="200" align="right">Member Name：</td>
    <td><%=rs("MemName")%></td>
  </tr>
  <tr>
    <td align="right">Email：</td>
    <td><%=rs("Email")%></td>
  </tr>
  <tr>
    <td align="right">Question：</td>
    <td><%=rs("Question")%></td>
  </tr>
  <tr>
    <td align="right">Answer：</td>
    <td><input name="Answer" type="text" size="30" maxlength="100" /></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input name="Next" type="submit" value="Next" /></td>
  </tr>
  </form>
</table>
<%
  elseif request.QueryString("Step")="EnterAnswer" Then
    If trim(request("Answer"))="" Then
	WriteMsg("Please fill in password-protected answer！")
	exit function
	End If
    set rs = server.createobject("adodb.recordset")
    sql="select * from Wygkcnflash_Members where ID="&request.QueryString("ID")
    rs.open sql,conn,1,3
	if rs.eof then
	  WriteMsg("Parameter error！")
      exit function
	end if
    if rs("Answer")<>MD5(trim(request("Answer"))) then
      WriteMsg("Password-protected answer wrong！")
      exit function
    end if
    randomize timer
    NewPassword=Int(899999*Rnd() +100000)
    rs("Password")=MD5(NewPassword)
    rs.update
    rs.close
    set rs=nothing
	Response.Write "<script language=javascript>alert('Congratulations! Successfully retrieve your password!  n new password is: "& NewPassword &"  n Please log in to amend the new password！');window.location.href='Index.asp';</script>"
    exit function
  end if
end function
%>

						