服装人才网_纺织人才网_中国服装人才网_最大的行业人才中心

<%@language=vbscript codepage=936 %> <% 'on error resume next Response.Buffer = True Server.ScriptTimeOut = 9999 %> <% '全局部分 Const WebURL = "http://test.51haojob.com" Const WebTitle = "服装人才网_纺织人才网_纺织服装人才网_最大的行业人才中心_最理想的招聘平台" Const IsClose = "0" Const Web_Languages = "Chinese" Const TitleSecond = "企业服务" Const SiteBeiAn = "京ICP证080000号" Const SiteCopyright = "版权所有 2008 某公司" Const ContentType = "gb2312" Const ContentLanguage = "zh-cn" Const Keywords = "服装,服装网,服装人才,纺织人才,纺织服装人才，服装人才求职,服装人才招聘,服装人才招聘网,中国服装人才网,人才,模特,服装院校,服装网,服装设计,服装杂志,服装设计师,跟单,样板师,精品服装，服装趋势，服装供求,服装加盟,服装代理,流行趋势,服饰,时装,品牌,原料,展会,机械,纺织,代理,库存,休闲服,成衣,男装,女装,童装,丝绸,羽绒,牛仔,鞋袜,毛衣,运动服,染整,皮革,布匹,面料,辅料,拉链,纽扣,里布,口袋布,嵌条,线,腰里,织带,垫肩,拉锁,五金,树脂衬,染料,制版,设计,加工,丝织品,裤子,裙子,鞋帽,帽子,鞋子,袜子,手套,皮带,首饰,棉织品,箱包,旅行包,书包,拉杆包,购物包,休闲包,套包,皮具,皮鞋,供应,招标,商业机会,贸易机会,进口,出口,外贸,商情,电子商务,免费,求购,出售,贸易,资讯,网上商店,网络商店,商城,门户,门户网站,中国,浙江,杭州,专业市场,市场,免费,bbs,论坛,供求,信息,股票,流行,时尚,化装,模特,专题,款式,定单,调剂,饰品,发夹,耳环,吊坠,戒指,手链,脚链,胸针,丝巾扣,鞋扣,鞋花,鞋链,标牌,皮带扣,头扎,头圈,假发,皇冠,www.ccaf.com.cn,china,cloth,clothes,garment,dress,style,fashion,material,machine,spin,tex,sportswear,silk,bronchobuster,shoes,socks,sweater,sport,catch,leather,expect,design,machining,cap,glove,strap,headgear,cotton,box,bag,accommodate,biz,business,trade,commerce,import,exit,export,foreign,market,electron,free,buy,sell,sale,sales,shop,eshop,china,guangdong,speciality,forum,communication,stock,make,model,special,order,relief" Const Description = "服装人才网，纺织人才网作为服装人才行业和纺织人才行业的人才类第一门户网站，全面致力于为服装人才及纺织人才提供各种招聘求职服务，成为服装人才纺织人才行业最理想的交流平台，纺织服装人才的理想场所" '个人部分 Const PER_ContentType = "gb2312" Const PER_ContentLanguage = "zh-cn" Const PER_keywords = "服装,服装网,服装人才,纺织人才,纺织服装人才，服装人才求职,服装人才招聘,服装人才招聘网,中国服装人才网,人才,模特,服装院校,服装网,服装设计,服装杂志,服装设计师,跟单,样板师,精品服装，服装趋势，服装供求,服装加盟,服装代理,流行趋势,服饰,时装,品牌,原料,展会,机械,纺织,代理,库存,休闲服,成衣,男装,女装,童装,丝绸,羽绒,牛仔,鞋袜,毛衣,运动服,染整,皮革,布匹,面料,辅料,拉链,纽扣,里布,口袋布,嵌条,线,腰里,织带,垫肩,拉锁,五金,树脂衬,染料,制版,设计,加工,丝织品,裤子,裙子,鞋帽,帽子,鞋子,袜子,手套,皮带,首饰,棉织品,箱包,旅行包,书包,拉杆包,购物包,休闲包,套包,皮具,皮鞋,供应,招标,商业机会,贸易机会,进口,出口,外贸,商情,电子商务,免费,求购,出售,贸易,资讯,网上商店,网络商店,商城,门户,门户网站,中国,浙江,杭州,专业市场,市场,免费,bbs,论坛,供求,信息,股票,流行,时尚,化装,模特,专题,款式,定单,调剂,饰品,发夹,耳环,吊坠,戒指,手链,脚链,胸针,丝巾扣,鞋扣,鞋花,鞋链,标牌,皮带扣,头扎,头圈,假发,皇冠,www.ccaf.com.cn,china,cloth,clothes,garment,dress,style,fashion,material,machine,spin,tex,sportswear,silk,bronchobuster,shoes,socks,sweater,sport,catch,leather,expect,design,machining,cap,glove,strap,headgear,cotton,box,bag,accommodate,biz,business,trade,commerce,import,exit,export,foreign,market,electron,free,buy,sell,sale,sales,shop,eshop,china,guangdong,speciality,forum,communication,stock,make,model,special,order,relief" Const PER_description = "服装人才网，纺织人才网作为服装人才行业和纺织人才行业的人才类第一门户网站，全面致力于为服装人才及纺织人才提供各种招聘求职服务，成为服装人才纺织人才行业最理想的交流平台，纺织服装人才的理想场所" '定义个人最大求职信数量 Const PER_MaxLetterNum = 5 '定义个人最大简历数量 Const PER_MaxResumeNum = 5 '定义个人最大上传照片数量 Const PER_MaxUploadPicNum = 5 '定义个人最大上传作品数量 Const PER_MaxUploadZuoPinNum = 5 '定义个人网站名称 Const PER_SiteNameString = "我的简历中心" '定义个人网站标题 Const PER_SiteTitleString = "我的信息" '定义个人识别码位数 Const PER_IdcKey = "8" '企业部分 Const COM_ContentType = "gb2312" Const COM_ContentLanguage = "zh-cn" Const COM_keywords = "服装,服装网,服装人才,纺织人才,纺织服装人才，服装人才求职,服装人才招聘,服装人才招聘网,中国服装人才网,人才,模特,服装院校,服装网,服装设计,服装杂志,服装设计师,跟单,样板师,精品服装，服装趋势，服装供求,服装加盟,服装代理,流行趋势,服饰,时装,品牌,原料,展会,机械,纺织,代理,库存,休闲服,成衣,男装,女装,童装,丝绸,羽绒,牛仔,鞋袜,毛衣,运动服,染整,皮革,布匹,面料,辅料,拉链,纽扣,里布,口袋布,嵌条,线,腰里,织带,垫肩,拉锁,五金,树脂衬,染料,制版,设计,加工,丝织品,裤子,裙子,鞋帽,帽子,鞋子,袜子,手套,皮带,首饰,棉织品,箱包,旅行包,书包,拉杆包,购物包,休闲包,套包,皮具,皮鞋,供应,招标,商业机会,贸易机会,进口,出口,外贸,商情,电子商务,免费,求购,出售,贸易,资讯,网上商店,网络商店,商城,门户,门户网站,中国,浙江,杭州,专业市场,市场,免费,bbs,论坛,供求,信息,股票,流行,时尚,化装,模特,专题,款式,定单,调剂,饰品,发夹,耳环,吊坠,戒指,手链,脚链,胸针,丝巾扣,鞋扣,鞋花,鞋链,标牌,皮带扣,头扎,头圈,假发,皇冠,www.ccaf.com.cn,china,cloth,clothes,garment,dress,style,fashion,material,machine,spin,tex,sportswear,silk,bronchobuster,shoes,socks,sweater,sport,catch,leather,expect,design,machining,cap,glove,strap,headgear,cotton,box,bag,accommodate,biz,business,trade,commerce,import,exit,export,foreign,market,electron,free,buy,sell,sale,sales,shop,eshop,china,guangdong,speciality,forum,communication,stock,make,model,special,order,relief" Const COM_description = "服装人才网，纺织人才网作为服装人才行业和纺织人才行业的人才类第一门户网站，全面致力于为服装人才及纺织人才提供各种招聘求职服务，成为服装人才纺织人才行业最理想的交流平台，纺织服装人才的理想场所" Const COM_SiteTitleString = "我的职位中心" ResumeUpdate = FormatDateTime(now()) %> <% IF IsClose = 1 THEN Response.Redirect "Error.asp?Errorid=1008" Response.End() END IF set conn=server.createobject("ADODB.Connection") conn.CommandTimeOut = 999 constr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server={localhost};User ID=51haojob;Password=51haojobfdwefw@2dwwwvfd1;Database=51haojob;" conn.open constr Function CloseDB Conn.close Set conn = Nothing End Function Function CloseRs Rs.Close Set Rs = Nothing End Function %> <% '----------------------------------------------------------------------------------------- ' Definition - Do not translate! '----------------------------------------------------------------------------------------- Const infoAsgTypeLanguage = "chinese" '----------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------- ' Generali '----------------------------------------------------------------------------------------- Const strAsgTxtOrderBy = "Order by" Const strAsgTxtURL = "URL" Const strAsgTxtHits = "Hits" Const strAsgTxtVisits = "Visits" Const strAsgTxtSmHits = "Hits" Const strAsgTxtSmVisits = "Visits" Const strAsgTxtByMonth = "Group by Month" Const strAsgTxtAll = "All" Const strAsgTxtPage = "Page" Const strAsgTxtOf = "of" Const strAsgTxtAsc = "Ascending" Const strAsgTxtDesc = "Descending" Const strAsgTxtLastAccess = "Last Access" Const strAsgTxtShow = "Show" Const strAsgTxtNoRecordInDatabase = "Sorry, there are no current record in the database." Const strAsgTxtGraph = "Graph" Const strAsgTxtStats = "Statistics" Const strAsgTxtOptions = "Options" Const strAsgTxtGeneral = "General" Const strAsgTxtProvenance = "Provenance" Const strAsgTxtExtra = "Extra" Const strAsgTxtByHits = "by Hits" Const strAsgTxtByVisits = "by Visits" Const strAsgTxtNum = "Num" '----------------------------------------------------------------------------------------- ' statistiche.asp '----------------------------------------------------------------------------------------- Const strAsgTxtIndexReport = "Index Report" '----------------------------------------------------------------------------------------- ' visitors.asp '----------------------------------------------------------------------------------------- Const strAsgTxtDate = "Date" Const strAsgTxtGoToPage = "Go to Page" Const strAsgTxtVisitorsDetails = "Visitors Details" '----------------------------------------------------------------------------------------- ' browser.asp '----------------------------------------------------------------------------------------- Const strAsgTxtBrowser = "Browser" '----------------------------------------------------------------------------------------- ' os.asp '----------------------------------------------------------------------------------------- Const strAsgTxtOS = "Operating System" '----------------------------------------------------------------------------------------- ' color.asp '----------------------------------------------------------------------------------------- Const strAsgTxtReso = "Resolution" Const strAsgTxtColor = "Color Deep" Const strAsgTxtSmReso = "Reso" Const strAsgTxtSmColor = "Bit" '----------------------------------------------------------------------------------------- ' browser_lang.asp '----------------------------------------------------------------------------------------- Const strAsgTxtBrowserLanguages = "Browser Languages" '----------------------------------------------------------------------------------------- ' system.asp '----------------------------------------------------------------------------------------- Const strAsgTxtSystems = "Systems" '----------------------------------------------------------------------------------------- ' referer.asp '----------------------------------------------------------------------------------------- Const strAsgTxtReferer = "Referer" Const strAsgTxtRefererIn = "Internal Referers" Const strAsgTxtRefererOut = "External Referers" Const strAsgTxtRefererAll = "All Referers" Const strAsgTxtTypology = "Typology" '----------------------------------------------------------------------------------------- ' engine.asp & query.asp '----------------------------------------------------------------------------------------- Const strAsgTxtSearchQuery = "Search Query" Const strAsgTxtSearchEngine = "Search Engine" Const strAsgTxtQuery = "Query" Const strAsgTxtEngine = "Engine" '----------------------------------------------------------------------------------------- ' country.asp '----------------------------------------------------------------------------------------- Const strAsgTxtCountry = "Country" '----------------------------------------------------------------------------------------- ' ip_address.asp '----------------------------------------------------------------------------------------- Const strAsgTxtIP = "IP" Const strAsgTxtIPAddress = "IP Address" Const strAsgTxtNoInformationSelectedIP = "No available informations about selected IP!" Const strAsgTxtShowIpInformation = "Show IP Information" '----------------------------------------------------------------------------------------- ' accessi.asp '----------------------------------------------------------------------------------------- Const strAsgTxtVisitsPerDay = "Visits per Day" Const strAsgTxtVisitsPerMonth = "Visits per Month" Const strAsgTxtVisitsPerHour = "Visits per Hour" '----------------------------------------------------------------------------------------- ' settings.asp '----------------------------------------------------------------------------------------- Const strAsgTxtGeneralSettings = "General Settings" Const strAsgTxtSecuritySettings = "Security Settings" Const strAsgTxtResetSettings = "Reset Settings" ' NEW FROM VERSION 1.2 '----------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------- ' login.asp '----------------------------------------------------------------------------------------- Const strAsgTxtLogin = "Login" Const strAsgTxtLoginCompleted = "Login successfully completed!" Const strAsgTxtEntryAllowed = "Entry to statt allowed" Const strAsgTxtClickToLogout = "Click here to Logout" Const strAsgTxtWrongPassword = "Typed password is not correct" Const strAsgTxtTypePassword = "Type password" Const strAsgTxtEntryPassword = "Entry Password" '----------------------------------------------------------------------------------------- ' settings.asp '----------------------------------------------------------------------------------------- Const strAsgTxtSiteName = "Site Name" Const strAsgTxtSiteURLlocal = "LOCAL Site URL" Const strAsgTxtSiteURLremote = "REMOTE Site URL" Const strAsgTxtSiteEmail = "Site Email" Const strAsgTxtConfigSettings = "Configuration Settings" Const strAsgTxtCountSettings = "Count Settings" Const strAsgTxtMonitSettings = "Tracking Settings" Const strAsgTxtMonitOptions = "Tracking Options" Const strAsgTxtStartVisits = "Starting Visits" Const strAsgTxtStartHits = "Starting Hits" Const strAsgTxtFilterIPaddr = "Filtered IP Addresses" Const strAsgTxtEnableMonit = "Enable Monitoring" Const strAsgTxtCountServerAsReferer = "Count server as a Referer" Const strAsgTxtstrAsgIPPathQS = "strAsgIP Path Querysting" Const strAsgTxtDailyMonit = "Daily Monitoring" Const strAsgTxtHourlyMonit = "Hourly Monitoring" '----------------------------------------------------------------------------------------- ' settings_security.asp '----------------------------------------------------------------------------------------- Const strAsgTxtNewPassword = "New Password" Const strAsgTxtConfirmPassword = "Confirm Password" Const strAsgTxtUpdateSuccessfullyCompleted = "Update successfully completed!" Const strAsgTxtStatsProtection = "Stats Protection" Const strAsgTxtStatsProtectionLevel = "Protection level" Const strAsgTxtNone = "None" Const strAsgTxtLimited = "Limited" Const strAsgTxtFull = "Full" Const strAsgTypeOnlyToChangePassword = "To fill only if you want to change password!" Const strAsgTxtAttentionPasswordNotMatching = "ATTENTION: typed passwords not matching!" '----------------------------------------------------------------------------------------- ' settings_reset.asp '----------------------------------------------------------------------------------------- Const strAsgTxtErrorOccured = "An error occured!" Const strAsgTxtCheckTableMatching = "Check that table name matches with settings configuration." Const strAsgTxtTableReset = "Reset Table" Const strAsgTxtDetailContent = "Contains general informations and users stats" Const strAsgTxtSystemContent = "Contains users systems informations" Const strAsgTxtHourlyContent = "Contains hourly traking informations" Const strAsgTxtDailyContent = "Contains daily tracking informations" Const strAsgTxtIPContent = "Contains IP addresses" Const strAsgTxtLanguageContent = "Contains users browser languages informations" Const strAsgTxtRefererContent = "Countains refereres informations" Const strAsgTxtPageContent = "Contains pages visited by users" Const strAsgTxtQueryContent = "Contains engines and search queries" Const strAsgTxtResetAllTables = "Reset all Tables" '----------------------------------------------------------------------------------------- ' settings_reset_execute.asp '----------------------------------------------------------------------------------------- Const strAsgTxtExecutionReport = "Execution Report" Const strAsgTxtTable = "Table" Const strAsgTxtCorrectlyDeleted = "correctly deleted!" Const strAsgTxtDatabaseSuccessfullyCompactedOn = "Database successfully compacted on " Const strAsgTxtDatabaseSuccessfullyRenamedTo = "Database successfully renamed to " Const strAsgTxtError = "Error" Const strAsgTxtLogout = "Logout" Const strAsgTxtUpdate = "Update" Const strAsgTxtAnd = "and" '----------------------------------------------------------------------------------------- ' statistiche.asp '----------------------------------------------------------------------------------------- Const strAsgTxtVisitsInformations = "Visits Informations" Const strAsgTxtGeneralInformations = "General Informations" Const strAsgTxtGeneralAverageInformations = "General Average Informations" Const strAsgTxtYearlyInformations = "Yearly Informations" Const strAsgTxtToday = "Today" Const strAsgTxtYesterday = "Yesterday" Const strAsgTxtPerDay = "per Day" Const strAsgTxtPerHour = "per Hour" Const strAsgTxtLastMonth = "last Month" ' NEW FROM VERSION 1.3 '----------------------------------------------------------------------------------------- Const strAsgTxtDetails = "Details" Const strAsgTxtGoingToBeRedirected = "You are going to be redirected" Const strAsgTxtClickToRedirect = "Click here if your browser doesn't redirect you" Const strAsgTxtJanuary = "January" Const strAsgTxtFebruary = "February" Const strAsgTxtMarch = "March" Const strAsgTxtApril = "April" Const strAsgTxtMay = "May" Const strAsgTxtJune = "June" Const strAsgTxtJuly = "July" Const strAsgTxtAugust = "August" Const strAsgTxtSeptember = "September" Const strAsgTxtOctober = "October" Const strAsgTxtNovember = "November" Const strAsgTxtDecember = "December" Const strAsgTxtPath = "Path" Const strAsgTxtGroupByPath = "Group by Path" Const strAsgTxtGroupByPage = "Group by Page" Const strAsgTxtGroupByEngine = "Group by Engine" Const strAsgTxtGroupByQuery = "Group by Query" Const strAsgTxtIPTracking = "IP Tracking" Const strAsgTxtFor = "for" Const strAsgTxtTime = "Time" Const strAsgTxtMissedDataToElab = "Not enoungh information to continue elaboration process!" Const strAsgTxtCloseWindow = "Close Window" Const strAsgTxtView = "View" ' NEW FROM VERSION 1.4 '----------------------------------------------------------------------------------------- Const strAsgTxtInsufficientPermission = "You don't have permissions to view this page!" Const strAsgTxtAction = "Action" Const strAsgTxtAddToList = "Add to List" Const strAsgTxtResetAndAddToList = "Reset List and Add Item" Const strAsgTxtMonthlyCalendar = "Monthly Calendar" Const strAsgTxtSunday = "Sunday" ' NEW FROM VERSION 2.0 '----------------------------------------------------------------------------------------- Const strAsgTxtStatsOfTheMonth = "Statistics of the Month" Const strAsgTxtStatsOfTheYear = "Statistics of the Year" Const strAsgTxtCalendar = "Calendar" Const strAsgTxtDomain = "Domain" Const strAsgTxtGroupByDomain = "Group by Domain" Const strAsgTxtGroupByReferer = "Group by Referer" Const strAsgTxtInformationsToExitByIpRange = "The * wildcard character can be used to block IP ranges.
Ex. To block the range '200.200.200.0 - 255' you would use '200.200.200.*'" Const strAsgTxtServerinformations = "Server Informations" Const strAsgTxtFullVersion = "Full Version" Const strAsgTxtEurope = "Europa" Const strAsgTxtAfrica = "Africa" Const strAsgTxtAsia = "Asia" Const strAsgTxtAmerica = "America" Const strAsgTxtOceania = "Oceania" Const strAsgTxtSkinSettings = "Skin Settings" Const strAsgTxtProgramTools = "Program Tools" Const strAsgTxtReportUnknownIcons = "Report unknow icons" Const strAsgTxtSERPreports = "SERP Reports" Const strAsgTxtExclusionSettings = "Stats Exclusion" Const strAsgTxtExitByIP = "Exclusion by IP" Const strAsgTxtExitByCookie = "Exclusion by Cookie" Const strAsgTxtExcludePC = "Exclude PC from statistics" Const strAsgTxtIncludePC = "Include PC in statistics" Const strAsgTxtDateSettings = "Date Settings" Const strAsgTxtTimeZoneOffSet = "Time zone offset" Const strAsgTxtOffSetClientServer = "from Server time" Const strAsgTxtOffSetServerToGMT = "from Server to Greenwich meridian (GMT)" Const strAsgTxtOffSetGMTtoUser = "from Greenwich meridian (GMT) to your Time" Const strAsgTxtThisPageWasGeneratedIn = "This page was generated in" Const strAsgTxtSeconds = "seconds" Const strAsgTxtOn = "on" Const strAsgTxtAt = "at" Const strAsgTxtServerDateTimeAre = "Server date and time are" Const strAsgTxtReportDateTimeAre = "Report date and time are" Const strAsgTxtCountryContent = "Contains informations about users country" Const strAsgTxtMonth = "Month" Const strAsgTxtMonths = "Monts" Const strAsgTxtWeek = "Week" Const strAsgTxtWeeks = "Weeks" Const strAsgTxtDataReset = "Reset data" Const strAsgTxtOlderThan = "older than" Const strAsgTxtCurrent = "this" Const strAsgTxtOnlineUsers = "Users online" Const strAsgTxtTop = "Top" ' NEW FROM VERSION 2.1 '----------------------------------------------------------------------------------------- Const strAsgTxtSearch = "Search" Const strAsgTxtSearchFoundNoResults = "Sorry, your search found no results." Const strAsgTxtAdvice = "Advice" Const strAsgTxtTablesWithWarningIconNeedsReset = "Tables marked with the alert signal need a data reset." Const strAsgTxtRecords = "Records" Const strAsgTxtFrom = "from" Const strAsgTxtTo = "to" Const strAsgCompactDatabase = "Compact Database" Const strAsgTxtIISversion = "IIS version" Const strAsgTxtProtocolVersion = "Protocol version" Const strAsgTxtYourIpIs = "Your IP is" Const strAsgTxtServerName = "Server Name" Const strAsgTxtThisPCisActually = "This PC is actually" Const strAsgTxtIncluded = "included" Const strAsgTxtExcluded = "excluded" Const strAsgTxtIntoMonitoringProcess = "into monitoring process" Const strAsgTxtUsingApplication = "Using application" Const strAsgTxtPageMonitoringString = "Monitoring string to add in pages you'd like to track" %> <% Function checkstr(strings) if instr(strings,"dEcLaRe") > 0 then response.write "非法字符！" response.end elseif instr(ucase(strings),"DECLARE") >0 then response.write "非法字符！" response.end else if instr(strings,"'")>0 or instr(strings,"chr")>0 or instr(ucase(strings),"AND")>0 then response.write "非法字符！" response.end else checkstr=strings end if end if End Function Sub Check_url() If Instr(Lcase(request.serverVariables("HTTP_REFERER")),Lcase(request.ServerVariables("SERVER_NAME")))=0 then Response.write "对不起！您提交的参数可能存在错误 ;请重新提交..." Response.End() End if End Sub '生成随机编码(经过数据库遍历) Function check_idc(inputidc) Set rs=conn.Execute("select cmember_idc from Fc_Company_member where cmember_idc=" & inputidc) If Not rs.eof Then Randomize timer check_idc=check_idc(CLng(999999999*Rnd+900000000)) Else check_idc=inputidc Exit Function End if End Function '取客户端Ip ws Function getIP() Dim strIPAddr If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then strIPAddr = Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) Else strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If getIP = Trim(Mid(strIPAddr, 1, 30)) End Function Sub check_power(num) if IsArray(session("jobz_power"))=false then Response.Redirect "../showerrC.asp?action=OtherErr&ErrCodes=

您的安全登陆时限已过，请重新登陆！" Response.end elseif session("jobz_power")(num) ="" then Response.Redirect "../showerrC.asp?action=OtherErr&ErrCodes=

您的安全登陆时限已过，请重新登陆！" Response.end elseif session("jobz_power")(num)<>1 then response.Write "" response.Write "" response.end end if End Sub function check_power_nr(num) if IsArray(session("jobz_power"))=false then Response.Redirect "../showerrC.asp?action=OtherErr&ErrCodes=

您的安全登陆时限已过，请重新登陆！" Response.end elseif session("jobz_power")(num) ="" then Response.Redirect "../showerrC.asp?action=OtherErr&ErrCodes=

您的安全登陆时限已过，请重新登陆！" Response.end end if check_power_nr=0 if session("jobz_power")(num)=1 then check_power_nr = 1 end if End function '得到操作系统 Function GetCurrOS() Dim Info Info = Request.ServerVariables("HTTP_USER_AGENT") If Instr(info,"NT 5.1")>0 Then GetCurrOS = "Windows XP" ElseIf Instr(info,"Tel")>0 Then GetCurrOS = "Telport" ElseIf Instr(info,"webzip")>0 Then GetCurrOS = "webzip" ElseIf Instr(info,"flashget")>0 Then GetCurrOS = "flashget" ElseIf Instr(info,"offline")>0 Then GetCurrOS = "offline" ElseIf Instr(info,"NT 5")>0 Then GetCurrOS = "Windows 2000" ElseIf Instr(info,"NT 4")>0 Then GetCurrOS = "Windows NT4" ElseIf Instr(info,"98")>0 Then GetCurrOS = "Windows 98" ElseIf Instr(info,"95")>0 Then GetCurrOS = "Windows 95" Else GetCurrOS = "UnKnow" End If End Function '保存日志 Sub SaveLog() On Error Resume Next Dim RequestStr Dim Sql Dim Tmpstr Tmpstr = Request.ServerVariables("PATH_INFO") Tmpstr = Split(Tmpstr,"/") ScriptName = Lcase(Tmpstr(UBound(Tmpstr))) RequestStr= Request("action") If RequestStr<>"" Then RequestStr="action="&RequestStr RequestStr=RequestExp(RequestStr) RequestStr=Left(RequestStr,250) sql="insert into [Fc_company_log] (l_touser,l_username,l_content,l_ip,l_type,l_useridc,l_os,l_companyid,l_companyname) values ('"&ScriptName&"','"&Session("jobz_cmember")&"','"&RequestStr&"','"&getIP&"',0,"&Session("jobz_idc")&",'"&GetCurrOS&"',"&Session("cmember_companyidc")&",'"&Session("jobz_comname")&"')" conn.Execute(sql) End If If request.form<>"" Then RequestStr=request.form RequestStr=Left(RequestExp(RequestStr),250) sql="insert into [Fc_company_log] (l_touser,l_username,l_content,l_ip,l_type,l_useridc,l_os,l_companyid,l_companyname) values ('"&ScriptName&"','"&Session("jobz_cmember")&"','"&RequestStr&"','"&getIP&"',0,"&Session("jobz_idc")&",'"&GetCurrOS&"',"&Session("cmember_companyidc")&",'"&Session("jobz_comname")&"')" conn.Execute(sql) End If End Sub Rem 简历编号加密解密函数 Function Encrypt(theNumber) On Error Resume Next Dim n, szEnc, t, HiN, LoN, i n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450) If n < 0 Then szEnc = "R" Else szEnc = "J" n = CStr(abs(n)) For i = 1 To Len(n) step 2 t = Mid(n, i, 2) If Len(t) = 1 Then szEnc = szEnc & t Exit For End If HiN = (CInt(t) And 240) / 16 LoN = CInt(t) And 15 szEnc = szEnc & Chr(Asc("M") + HiN) & Chr(Asc("C") + LoN) Next Encrypt = szEnc End Function Function Decrypt(theNumber) On Error Resume Next Dim e, n, sign, t, HiN, LoN, NewN, i e = theNumber If Left(e, 1) = "R" Then sign = -1 Else sign = 1 e = Mid(e, 2) NewN = "" For i = 1 To Len(e) step 2 t = Mid(e, i, 2) If Asc(t) >= Asc("0") And Asc(t) <= Asc("9") Then NewN = NewN & t Exit For End If HiN = Mid(t, 1, 1) LoN = Mid(t, 2, 1) HiN = (Asc(HiN) - Asc("M")) * 16 LoN = Asc(LoN) - Asc("C") t = CStr(HiN Or LoN) If Len(t) = 1 Then t = "0" & t NewN = NewN & t Next e = CDbl(NewN) * sign Decrypt = CLng((7 + sqr(49 - 4 * (-450 - e))) / 2 - 1570) End Function Sub SitMessage(message,title,cmemberid) conn.execute("insert into [Fc_Company_InBox] (Cib_cmemberidc,CIB_Jobid,cib_pername,CIB_AddDate,CIB_Title,CIB_Memo,CIB_Flag,CIB_TypeName) values("& cmemberid &",0,'系统管理员','"& Now() &"','"& title &"','"& message &"',0,0)") End Sub Sub SitMessageSystem(cmemberid) '企业 set rs=conn.execute("select ctitle,company from [Fc_Global_Welcome]") if not rs.eof then ctitle = rs(0) company = rs(0) end if rs.close company = "欢迎贵公司成为企业会员,您的登陆帐号:" & cmember_login & " 请妥善保管,以免遗忘！
" & company conn.execute("insert into [Fc_Company_InBox] (Cib_cmemberidc,CIB_Jobid,cib_pername,CIB_AddDate,CIB_Title,CIB_Memo,CIB_Flag,CIB_TypeName) values("& cmemberid &",0,'系统管理员','"& Now() &"','"& ctitle &"','"& company &"',0,0)") End Sub '个人检测IDC是否重复 Function check_idc(inputidc) Set rs=conn.Execute("select pmember_idc from Fc_person_member where pmember_idc=" & inputidc) If Not rs.eof Then Randomize timer check_idc=check_idc(CLng(999999999*Rnd+900000000)) Else check_idc=inputidc Exit Function End if End Function sub Jpzw() dim rs,rsII set rs=conn.execute("select top 8 cmember_idc,cmember_comname from fc_company_member where cmember_status=2") %> <% do while not rs.eof %> <%for i=1 to 2%> <%if i=1 then%> <%end if%> <%next%> <% loop rs.close %>

<%if not rs.eof then%>

	·" target="_blank" class="lianjie"><%=rs("cmember_comname")%>
	<% set rsII=conn.execute("select top 2 hire_id,hire_place from fc_company_job where company_id=" & rs("cmember_idc") & " and hire_status=2 order by hire_istop desc,hire_createdate desc") do while not rsII.eof %> " target="_blank"><%=rsII("hire_place")%> <% rsII.movenext loop rsII.close %>

<% rs.movenext end if%>

<%end sub%> <%sub zwxx()%>

公司名称	招聘职位	职位类型	工作地点	以布时间	申请职位
现代时装有限公司	商店形象设计人员	财务经理/主管	北京市	2007.07.26

<%end sub%> <% Function gotTopic(ByVal str, ByVal strlen) If str = "" Then gotTopic = "" Exit Function End If Dim l, t, c, i, strTemp str = Replace(str," ","") l = Len(str) t = 0 strTemp = str strlen = CLng(strlen) For i = 1 To l c = Abs(Asc(Mid(str, i, 1))) If c > 255 Then t = t + 2 Else t = t + 1 End If If t >= strlen Then strTemp = Left(str, i)&".." Exit For End If Next If strTemp <> str Then strTemp = strTemp End If gotTopic = Replace(strTemp," ","") End Function %>服装人才网_纺织人才网_中国服装人才网_最大的行业人才中心_最理想的招聘平台

用户名：

密码：

	忘记密码

	新会员注册

·温州 ·江苏 ·福建 ·山东

推荐企业招聘

猎头职位

知名企业招聘

浙江巴拉巴拉童装

职场News

	经营家纺店解决库存的方法
	青岛人力资源市场将办8场招聘
	中国纺织业失业状况调查
	奥运后首场大型招聘会国…
	第六届中国重庆服装节将开…
	西北地区最大服装城陕西“…
	陕西本月举办１７场招聘会
	点评四大门户奥运报道
	28％职场人忘了老师六…
	新兴职业：猎头顾问走俏 …
	我国或扶持服装企业走“品…

支持伙伴：	中国服装网	中国服装人	中国服装时尚网	大中华人才网	北京人才网	易职通	滔天服装论坛	广州服装批发网	中国people258人才网
	中国服装经营网	虎门服装网	中国服饰网	时尚服装网	国际童装网	中国男装网	BB08服装批发网	韩国服装批发	北京服装批发网