招聘网站
设计项目源代码清单
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.
Code Document
1
- 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=".aspalliance" 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")
Code Document
2
Conn.Open "ClassyAds","sa","ccms" NewCust.Open "SELECT * FROM ASPLoginUserTbl WHERE EMail = '" &; Address &; "'", Conn , adOpenKeyset , adLockOpti
mistic 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("Pass
word")
<> "" 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 %> <%Else%>