【asp源码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。
网学会员整理了asp源码-招聘网站设计项目源代码清单 - 计算机教材的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
Code Document 1 招聘网站设计项目源代码清单 1、页面Addresser2.htm源代码如下 lthtmlgt ltheadgt ltmeta namequotGENERATORquot contentquotMicrosoft FrontPage 3.0quotgt lttitlegtE-mail address errorlt/titlegt lt/headgt ltbody bgcolorquotFFFFFFquotgt ltpgtltfont facequotVerdanaquot colorquotFF0000quotgtltbiggtltstronggtYou have entered an invalid e-mail address and or password.lt/stronggtlt/biggtlt/fontgt ltulgt ltligtltfont facequotVerdanaquot colorquot408080quotgtltbiggtltstronggtPlease go back and lta hrefquotcookielog.aspquotgtre-enterlt/agt your information.lt/stronggtlt/biggtlt/fontgtlt/ligt lt/ulgt lt/bodygt lt/htmlgt 2、页面Addresser.htm源代码如下 lthtmlgt ltheadgt ltmeta namequotGENERATORquot contentquotMicrosoft FrontPage 3.0quotgt lttitlegtE-mail address conflictlt/titlegt lt/headgt ltbody bgcolorquotFFFFFFquotgt ltpgtltfont facequotVerdanaquot colorquotFF0000quotgtltbiggtltstronggtYou have entered an e-mail address that already exists in our system.lt/stronggtlt/biggtlt/fontgt ltulgt ltligtltfont facequotVerdanaquot colorquot408080quotgtltbiggtltstronggtIf 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.lt/stronggtlt/biggtlt/fontgtlt/ligt lt/ulgt Code Document 2 ltulgt ltligtltfont facequotVerdanaquot colorquot408080quotgtltbiggtltstronggtIf you have entered your e-mail address incorrectly please go back and lta hrefquotcookielog.aspquotgtre-enterlt/agt your information.lt/stronggtlt/biggtlt/fontgtlt/ligt lt/ulgt lt/bodygt lt/htmlgt 3、页面Cookielog.
asp代码如下 ltResponse.Buffer true gt lt--INCLUDE filequotadovbs.incquot--gt lt If Request.CookiesquotShaftquot.HasKeys Then gt ltResponse.Redirect quotmemberpage.aspquotgt ltElsegt lt If quotBadMuthaquot RequestquotActionTypequot Then TheContactNameRequestquotContactNamequot TheComanyRequestquotCompanyquot ThePasswordRequestquotPasswordquot TheEmailRequestquotEmailquot TheStatusRequestquotStatusquot TheDomainquot.www.aspalliance.comquot ThePathquot/glenncook/aspjobsquot Response.CookiesquotShaftquotquotContactNamequot TheContactName Response.CookiesquotShaftquotquotCompanyquot TheCompany Response.CookiesquotShaftquotquotPasswordquot ThePassword Response.CookiesquotShaftquotquotEmailquot TheEmail Response.CookiesquotShaftquotquotStatusquot TheStatus Response.CookiesquotShaftquot.Expires September 3 2003 Response.CookiesquotShaftquot.Domain TheDomain Response.CookiesquotShaftquot.Path ThePath gt lt dim Status dim Address Status RequestquotStatusquot SessionquotStatusquot Status Address RequestquotEMailquot Set Conn Server.CreateObjectquotADODB.Connectionquot Set NewCust Server.CreateObjectquotADODB.RecordSetquot Code Document 3 Conn.Open quotClassyAdsquotquotsaquotquotccmsquot NewCust.Open quotSELECT FROM ASPLoginUserTbl WHERE EMail quot amp Address amp quotquot Conn adOpenKeyset adLockOptimistic If NewCust.RecordCount 0 Then NewCust.AddNew If RequestquotContactNamequot ltgt quotquot Then NewCustquotContactNamequot RequestquotContactNamequot End If If RequestquotCompanyquot ltgt quotquot Then NewCustquotCompanyquot RequestquotCompanyquot End If If RequestquotEmailquot ltgt quotquot Then NewCustquotEmailquot RequestquotEmailquot End If If RequestquotPasswordquot ltgt quotquot Then NewCustquotPasswordquot RequestquotPasswordquot End If If RequestquotStatusquot ltgt quotquot Then NewCustquotStatusquot RequestquotStatusquot End If NewCust.Update NewCust.Close Response.Redirect quotmemberpage.aspquot Else Response.CookiesquotJonShaftquot.Expires Date - 2 Response.Redirect quotaddresserr.htmquot End If gt ltElsegt ltHTMLgt ltHEADgt ltTITLEgtNew Member Login Screenlt/TITLEgt lt/HEADgt ltbodygt ltform METHODquotPOSTquot ACTIONquotltRequest.ServerVariablesquotSCRIPT_NAMEquotgtquot NamequotMyFormquotgt ltinput typequothiddenquot namequotActionTypequot valuequotBadMuthaquotgtltpgtltfont facequotVerdanaquot colorquot408080quotgtltbiggtltstronggtNew Member Loginlt/stronggtlt/biggtlt/fontgtlt/pgt ltpgtltsmallgtltfont facequotVerdanaquotgtOur site does not recognize you as an existing member. If you do not have an account yet please fill in your personal information below to recieve your quotmember cookiequot. If you have somehow Code Document 4 lost or deleted your quotmember cookiequot and you remember your user name and password you may proceed to the member login page.lt/fontgtlt/smallgtlt/pgt lttable borderquot1quot widthquot100quot bgcolorquotFFFFA2quot stylequotborder: 2px solid rgb64128128quotgt lttrgt lttd widthquot18quotgtltsmallgtltfont facequotVerdanaquotgtContact NameFirstampLast:lt/fontgtlt/smallgtlt/tdgt lttd widthquot82quotgtltsmallgtltfont facequotVerdanaquotgtltinput typequottextquot namequotContactNamequot sizequot30quotgtltfont colorquotFF0000quotgtlt/fontgtlt/fontgtlt/smallgtlt/tdgt lt/trgt lttrgt lttd widthquot18quotgtltsmallgtltfont facequotVerdanaquotgtCompany:lt/fontgtlt/smallgtlt/tdgt lttd widthquot82quotgtltsmallgtltfont facequotVerdanaquotgtltinput typequottextquot namequotCompanyquot sizequot30quotgtltfont colorquotFF0000quotgtlt/fontgtlt/fontgtlt/smallgtlt/tdgt lt/trgt lttrgt lttd widthquot18quotgtltsmallgtltfont facequotVerdanaquotgtE-mail:lt/fontgtlt/smallgtlt/tdgt lttd widthquot82quotgtltsmallgtltfont facequotVerdanaquotgtltinput typequottextquot namequotEMailquot sizequot30quotgtltfont colorquotFF0000quotgtlt/fontgtlt/fontgtlt/smallgtlt/tdgt lt/trgt lttrgt lttd widthquot18quotgtltsmallgtltfont facequotVerdanaquotgtPassword:lt/fontgtlt/smallgtlt/tdgt lttd widthquot82quotgtltsmallgtltfont facequotVerdanaquotgtltinput typequotpasswordquot namequotPasswordquot sizequot10quotgtltfont colorquotFF0000quotgtlt/fontgtlt/smallgtlt/tdgt lt/trgt lttrgt lttd widthquot18quotgtltsmallgtltfont facequotVerdanaquotgtVerify Password:lt/fontgtlt/smallgtlt/tdgt lttd widthquot82quotgtltsmallgtltfont facequotVerdanaquotgtltinput typequotpasswordquot namequotPassword2quot sizequot10quotgtltfont colorquotFF0000quotgtlt/fontgtlt/smallgtlt/tdgt lt/trgt lttrgt lttd widthquot18quotgtltstronggtltsmallgtltfont facequotVerdanaquotgtMembership categorySelect a profile for your account:lt/fontgtlt/smallgtlt/stronggtlt/tdgt lttd widthquot82quotgtltsmallgtltfont facequotVerdanaquotgtltselect namequotStatusquot sizequot1quotgt ltoption valuequotEmployerquotgtEmployerlt/optiongt ltoption valuequotDeveloperquotgtDeveloperlt/optiongt ltoption valuequotGraphics DesignerquotgtGraphics Designerlt/optiongt ltoption valuequotContractsquotgtContracts To Postlt/optiongt Code Document 5 lt/selectgtlt/fontgtlt/smallgtlt/tdgt lt/trgt lttrgt lttd widthquot100quot colspanquot2quotgtltdiv alignquotleftquotgtltpgtltsmallgtltfont facequotVerdanaquotgtltinput typequotresetquot valuequotClear Formquot idquotreset1quot namequotreset1quotgt ltinput TYPEquotsubmitquot VALUEquotSubmit Infoquot idquotsubmit1quot namequotsubmit1quotgtlt/formgt ltform METHODquotPOSTquot ACTIONquotltRequest.ServerVariablesquotSCRIPT_NAMEquotgtquot NamequotForm2quotgt ltinput TYPEquotsubmitquot VALUEquotProceed to Login Screenquot idquotsubmit2quot namequotsubmit2quotgtlt/formgtlt/fontgtlt/smallgtlt/tdgt lt/trgt lt/tablegt ltpgtltfont facequotVerdanaquot colorquotFF0000quotgtltsmallgtltstronggt Required information for new members. No information collected will be redistributed or used for spamming.lt/stronggtlt/smallgtlt/fontgtlt/pgt lt/BODYgt lt/HTMLgt ltEnd Ifgt ltEnd Ifgt lt If Request.Formquotsubmit2quot quotProceed to Login Screenquot Then Response.Redirect quotmemberpage.aspquot End Ifgt ltScript LanguagequotVBScriptquotgt lt-- Option Explicit dim validation dim Header Header quotClassified Adsquot Function MyForm_OnSubmit validation true Call CheckDocument.MyForm.ContactName.Value quotPlease enter your first and last name.quot Call CheckDocument.MyForm.Company.Value quotPlease enter your a company name or type N/Aquot Call CheckDocument.MyForm.EMail.Value quotPlease enter your e-mail address.quot Call CheckDocument.MyForm.Password.Value quotPlease enter a password. Although you will be issued a member cookie that will remember your password its a good idea to write it down.quot Call CheckDocument.MyForm.Status.Value quotPlease select a category for your membership postings.quot If Validation True Then MyForm_OnSubmit True Else Code Document 6 MyForm_OnSubmit False End If If Document.MyForm.Password.Value ltgt Document.MyForm.Password2.Value Then MsgBox quotPlease enter your both of your passwords again. There appears to be an error.quot8 Header MyForm_OnSubmit False End If End Function Sub CheckByVal FieldValue ByVal strMsg If FieldValue quotquot Then MsgBox strMsg 8 Header validation False End If End Sub --gt lt/Scriptgt 4、页面Default.
asp代码如下 lt--INCLUDE filequotadovbs.incquot--gt lt Set Conn Server.CreateObjectquotADODB.Connectionquot Set RS Server.CreateObjectquotADODB.RecordSetquot Conn.Open quotClassyAdsquotquotsaquotquotccmsquot RS.Open quotSELECT FROM Adsquot Conn adOpenKeysetadLockReadOnly If NOT Rs.EOF Then Rs.MoveLast Count Rs.RecordCount End If gt ltheadgt ltmeta namequotGENERATORquot contentquotMicrosoft FrontPage 3.0quotgt lttitlegtOnine Oppurtunitieslt/titlegt lt/headgt ltbodygt ltdiv alignquotleftquotgt lttable borderquot0quot cellpaddingquot0quot widthquot675quot cellspacingquot0quotgt lttrgt lttd widthquot260quotgtltdiv alignquotleftquotgtlttable borderquot0quot cellpaddingquot0quot widthquot204quotgt lttrgt Code Document 7 lttd VALIGNquottopquot NOWRAP widthquot200quot bgcolorquot008000quot alignquotleftquot stylequotPADDING-BOTTOM: 3px PADDING-LEFT: 3px PADDING-RIGHT: 3px PADDING-TOP: 3pxquot gt ltform NAMEquotsearch.aspquot ACTIONquotSearch.aspquot METHODquotgetquotgt ltinput typequothiddenquot namequotPagequot valuequot0quotgtltfont facequotVerdanaquot colorquotc0c0c0quotgtltbiggtltstronggtIts Simple...lt/stronggtlt/biggtlt/fontgtltbrgt ltstronggtltfont facequotVerdanaquot size quot1quot colorquotffffffquot quotarialquotquothelveticaquotquottahomaquotgt1. Focus your search below.ltbrgt lt/fontgtltfont face quotVerdanaquot sizequot1quot colorquotc0c0c0quot quotarialquotquothelveticaquotquottahomaquotgt2. Click on hyperlinks for samples mini-resumes job descriptions and e-mail.lt/fontgtltfont facequotVerdanaquot size quot1quot colorquotffffffquot quotarialquotquothelveticaquotquottahomaquotgtltbrgt 3. Post your own mini-resume or job/contract opportunities by becoming a memberlt/fontgtlt/stronggtlthr sizequot3quotgt ltfont facequotVerdanaquot size quot1quot colorquotffffffquot quotarialquotquothelveticaquotquottahomaquotgtltbrgtltsmallgtMore advanced searches will be available as the site grows Although we officially open on Monday now is your chance to be the first take hold of your future before the rest beat you to it There are ltCountgt postings in the database today.lt/smallgtltpgtltstronggtCATEGORIES:lt/stronggtlt/fontgt ltbrgtltfont facequothelveticaarialquot sizequot2quotgtltselect namequotCategoryquot sizequot1quotgt ltoption valuequotContractsquot selectedgtAll Contracts ltoption valuequotGraphics DesignerquotgtResumes from Graphic Designers ltoption valuequotDeveloperquotgtResumes from Web Programmers ltoption valuequotEmployerquotgtAll Job Opportunities lt/selectgtlt/fontgtlt/Pgt ltp alignquotleftquotgtltfont facequotVerdanaquot size quot1quot colorquotffffffquot quotarialquotquothelveticaquotquottahomaquotgtltstronggtSALARIES ABOVE: lt/stronggtlt/fontgtltbrgt Code Document 8 ltfont facequothelveticaarialquot sizequot2quotgtltselect namequotSalaryquot sizequot1quotgt ltoption value quot0quot selected slectedgtAny Salary or Contract ltoption valuequot25000quotgt 25000 ltoption valuequot30000quotgt 30000 ltoption valuequot35000quotgt 35000 ltoption valuequot40000quotgt 40000 ltoption valuequot45000quotgt 45000 ltoption valuequot50000quotgt 50000 ltoption valuequot55000quotgt 55000 ltoption valuequot60000quotgt 60000 ltoption valuequot65000quotgt 65000 ltoption valuequot70000quotgt 70000 ltoption valuequot75000quotgt 75000 ltoption valuequot80000quotgt 80000 ltoption valuequot85000quotgt 85000 ltoption valuequot100000quotgt 100000 lt/selectgtlt/fontgtltpgt ltstronggtltfont facequotVerdanaquot size quot1quot colorquotffffffquot quotArialquotquotHelveticaquotquotTahomaquotgtREGIONS:lt/fontgtlt/stronggtltbrgtltfont facequothelveticaarialquot sizequot2quotgtltselect namequotRegionquot sizequot1quotgt ltoption valuequotALLquot selectedgtAll Regions ltoption valuequotNEquotgtNE: VA and up ltoption valuequotSEquotgtSE: NC and below ltoption valuequotCentralquotgtCentral States ltoption valuequotNWquotgtNW ltoption valuequotSWquotgtSW ltoption valuequotIntquotgtInternational lt/selectgtlt/fontgt lt/pgt lthr sizequot3quotgt ltp alignquotleftquotgtltinput typequotresetquot valuequotResetquot namequotB2quotgt ltinput typequotsubmitquot valuequotSearchquot namequotB1quotgt lt/formgtlt/Pgt lthr sizequot3quotgt lt/tdgt lt/trgt lt/tablegt lt/divgtlt/tdgt lttd widthquot33quot alignquotleftquot valignquottopquot stylequotPADDING-BOTTOM: 3px PADDING-LEFT: 3px PADDING-RIGHT: 9px PADDING-TOP: 3pxquotgtltp alignquotleftquotgtltfont facequotVerdanaquotgtltfont colorquot800040quotgtltsmallgtltstronggtThe Mini- Resumelt/stronggtlt/smallgtlt/fontgtltbrgt Eltsmallgtltsmallgtveryone hates Code Document 9 resumes so we decided to make them smaller. Forget about reading or writing a bunch of.... well you know what we mean- Get to the point and save yourself and others a lot of timelt/smallgtlt/smallgtltbrgt ltsmallgtltsmallgtHey if a prospective employer likes your mini-resume they can e-mail you on the spot to request a quotdetailedquot resume and you can provide a hyperlink so they can see some of your work.lt/smallgtlt/smallgtltbrgt ltsmallgtltsmallgtIf you work for a Human Resources Department you can post multiple positions in a matter of minutes and you can come back to update add or delete any of them in seconds. You canampnbsp provide hyperlinks to your site and force the developer to send their information the way YOU want it Or just read the available mini-resumes and contact the ones you like.lt/smallgtlt/smallgtlt/fontgtlt/pgt ltp alignquotleftquotgtltfont facequotVerdanaquotgtltsmallgtltsmallgtIts free for everyone Were serious Its free for employers headhunters developers everyone Enjoylt/fontgtlt/pgt ltpgtltfont facequotVerdanaquotgtampnbsplt/fontgtlt/pgtlt/SMALLgtlt/SMALLgtlt/tdgt lttd widthquot33quot alignquotleftquot valignquottopquot stylequotPADDING-BOTTOM: 3px PADDING-LEFT: 3px PADDING-RIGHT: 3px PADDING-TOP: 3pxquot gtltfont facequotVerdanaquotgtltbiggtltfont colorquot008000quotgtHave you posted your opportunitylt/fontgtlt/biggtltbrgt ltbiggtAlt/biggtltsmallgtre you are a web developer looking for contract work or a Fortune-500 company looking for new recruits Well here is a free opportunity for everyone to make contacts and contracts. Your free account allows you to post add edit or delete any item. ltpgtltA hrefquotcookielog.aspquot gtClick here to set up your free account. It is recommended that IE is your browser to take full advantage of the Code Document 10 member cookie.lt/Agtlt/smallgtlt/fontgtltpgtltfont facequotVerdanaquotgtltstronggtElt/stronggtltsmallgtxisting member and need to edit add or delete some info ltA hrefquotcookielog.aspquot gtClick herelt/Agtltbrgt lt/smallgtlt/fontgtlt/pgtlt/tdgt lt/trgt lttrgt lttd widthquot758quot colspanquot3quotgtlt/tdgt lt/trgt lttrgt lttd widthquot758quot colspanquot3quotgtlt/tdgt lt/trgt lt/tablegt lt/divgt lt/bodygt lt/htmlgt 5、Global.asa代码如下 lt ltSCRIPT LANGUAGEVBScript RUNATServergt Sub Application_OnStart End Sub Sub Application_OnEnd End Sub Sub Session_OnStart SessionquotClassyAdsquot quotDSNClassyAdsUIDsaPWDccmsquot SessionquotItemCountquot 0 SessionquotBeanieBabyquot 0 SessionquotAuthquot 0 SessionquotCategoryquot 0 SessionquotEmailquot 0 SessionquotPassquot 0 SessionquotItemIdquot 0 End Sub Sub Session_OnEnd End Sub lt/SCRIPTgt Code Document 11 6、页面Itemadd.
asp代码如下 lt--INCLUDE filequotadovbs.incquot--gt lt If quotSubmit Infoquot Request.Formquotsubmit1quot Then SessionquotAuthquot quotdoneaddquot Set Conn Server.CreateObjectquotADODB.Connectionquot Set RS Server.CreateObjectquotADODB.RecordSetquot Conn.Open quotClassyAdsquotquotsaquotquotccmsquot rs.Open quotSELECT FROM Adsquot Conn adOpenKeyset adLockOptimistic If intSessionquotItemIdquot gt intSession.SessionID Then SessionquotItemIdquot SessionquotItemIdquot 33 Else dim Sally Sally rs.RecordCount Sally Sally 1 Sally Sally intSession.SessionID SessionquotItemIdquot Sally End If dim qualify If RequestquotQual1quot ltgt quotquot Then qualify qualify RequestquotQual1quot qualify qualify quot quot End If If RequestquotQual2quot ltgt quotquot Then qualify qualify RequestquotQual2quot.