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

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

相關電子資料下載

• Makefile簡介和使用方法 530
• 當一名高職生成為開源代碼頂級貢獻者 111
• git命令的基本使用 361
• 分享一套生產管理MES系統源碼，可以直接拿來搞錢的好項目 142
• C/c++源代碼qt軟件 svn版本管理開發如何防泄密？ 48
• 為什么安秉信息的源代碼防泄密軟件這么穩定？ 76
• C語言必備知識編譯預處理 421
• 非常可靠的c#+svn或git服務器源代碼防泄密方案 全解析 82
• 極狐GitLab—新一代源代碼管理倉庫 153
• 能夠生成java文檔注釋的命令 140