招聘网站设计项目源代码

招聘网站设计项目源代码清单

1、页面Addresser2.htm源代码如下：

You have entered an invalid e-mail address and or password.

 
• Please go back and re-enter your
      information.

2、页面Addresser.htm源代码如下：

You have entered an e-mail address that already exists in our system.

 
• If you have had an account with us before
    and have lost your password please e-mail the system administrator listed on the main page. If you need to have multiple accounts you will need to use multiple e-mail addresses.

 
• If you have entered your
      e-mail address incorrectly, please go back and re-enter your
      information.

3、页面Cookielog.asp代码如下：

<%Response.Buffer = true %>

<% If Request.Cookies("Shaft").HasKeys Then %>

<%Response.Redirect "memberpage.asp"%>
<%Else%>

<%
If "BadMutha" = Request("ActionType") Then
TheContactName=Request("ContactName")
TheComany=Request("Company")
ThePassword=Request("Password")
TheEmail=Request("Email")
TheStatus=Request("Status")
TheDomain=".www.aspalliance.com"
ThePath="/glenncook/aspjobs"

Response.Cookies("Shaft")("ContactName") = TheContactName
Response.Cookies("Shaft")("Company") = TheCompany
Response.Cookies("Shaft")("Password") = ThePassword
Response.Cookies("Shaft")("Email") = TheEmail
Response.Cookies("Shaft")("Status") = TheStatus
Response.Cookies("Shaft").Expires = #September 3, 2003#
Response.Cookies("Shaft").Domain = TheDomain
Response.Cookies("Shaft").Path = ThePath

%>

<%
  dim Status
  dim Address
 
  Status = Request("Status")
  Session("Status") = Status
  Address = Request("EMail")
  Set Conn = Server.CreateObject("ADODB.Connection")
    
     Set NewCust = Server.CreateObject("ADODB.RecordSet")
  
  Conn.Open "ClassyAds","sa","ccms"
    
  NewCust.Open "SELECT * FROM ASPLoginUserTbl WHERE EMail = '" & Address & "'", Conn , adOpenKeyset , adLockOptimistic
 If NewCust.RecordCount = 0 Then
  NewCust.AddNew
  If Request("ContactName") <> "" Then
  NewCust("ContactName") = Request("ContactName")
  End If
 If Request("Company") <> "" Then
  NewCust("Company") = Request("Company")
  End If
 If Request("Email") <> "" Then
  NewCust("Email") = Request("Email")
  End If
  If Request("Password") <> "" Then
  NewCust("Password") = Request("Password")
  End If
 If Request("Status") <> "" Then
  NewCust("Status") = Request("Status")
  End If
  NewCust.Update
  NewCust.Close
  Response.Redirect "memberpage.asp"
  Else
  Response.Cookies("JonShaft").Expires = Date - 2
  Response.Redirect "addresserr.htm"
  End If
  %>