招聘網站設計項目源代碼

招聘網站設計項目源代碼清單

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
? %>