class_main.asp

直接附加数据库！ 修改 Include/ Class_Main.asp 为自己信息 后台admin admin 绍兴人才网程序

<%
'//Session保存期
Session.Timeout = 30
'//网站通用参数
Const Cls_WebName    = "绍兴人才网"
Const Cls_WebUrl     = "http://www.eeeb.cn/"
Const Cls_DoMain     = "eeeb.cn"
Const Cls_MainName   = "0575"
Const Cls_WebKey     = "VR"
Const Cls_WebJobs    = 15 '//免费企业会员允许发布的职位数
Const Cls_PersonTopNumber = 10 '//设置个人会员的固顶数目
Const sCacheName     = "Ihost20060515"
Const Cls_Websub     = "www"
'//网站的联系方式
Const Cls_Phone      = "0575-1234567"
Const Cls_QQ         = "677123"
Const Cls_Msn        = "[e-mail]"
Const Cls_Email      = "[e-mail]"
Const Cls_Fax        = "0575-87654321"
Const Cls_Address    = "浙江绍兴"
Const Cls_ZipCode    = "312000"
Const Cls_Icp        = "ICP许可证-浙B2-20080001"

'//网站邮箱参数
Const Cls_Mailname = "baogecms"
Const Cls_Mailpass = "000000"
Const Cls_Mailform = "[e-mail]"
Const Cls_Mailsmtp = "smtp.163.com"

'//发送邮件函数
Sub SendEmail(MailBox,MailBody,MailSubject)
  
  Set Jmail=server.createobject("Jmail.Message")
  Jmail.Charset = "gb2312"
  JMail.ContentType = "text/html"
  Jmail.Silent = true
  Jmail.Priority = 3
  Jmail.MailServerUserName = Cls_Mailname  '有效电子邮件帐号
  Jmail.MailServerPassword = Cls_Mailpass  '有效电子邮件密码
  Jmail.From = Cls_Mailform    
  Jmail.FromName = Cls_WebName             '来自
  Jmail.Subject = MailSubject              '邮件标题
  
  Jmail.AddRecipient  ""&MailBox&""        '收件人的邮件地址  

  Jmail.Body = MailBody     '邮件内容       
  Jmail.Send(Cls_Mailsmtp)  'smtp服务器地址
  Set Jmail=nothing
End Sub

'//学历的输出
Function Cls_Edus(Edus)
 Dim Edu_Str
 Select Case Edus
  Case 10: Edu_Str = "小学"
  Case 20: Edu_Str = "初中"
  Case 30: Edu_Str = "高中"
  Case 40: Edu_Str = "中专"
  Case 50: Edu_Str = "专科"
  Case 60: Edu_Str = "本科"
  Case 70: Edu_Str = "硕士"
  Case 80: Edu_Str = "博士"
  Case 90: Edu_Str = "博士后"
 End Select
 Cls_Edus = Edu_Str
End Function

'//性别输出
Function Cls_Sex(Sex)
 Dim Sex_Str
 If Sex = True Then
  Sex_Str = "男"
 Elseif Sex = False Then
  Sex_Str = "女"
 End if
 Cls_Sex = Sex_Str
End Function

'//个人证件类型输出
Function Cls_CodeType(CodeType)
 Dim CodeType_Str
 Select Case CodeType
  Case 0
   CodeType_Str = "身份证"
  Case 1
   CodeType_Str = "护 照"
  Case 2
   CodeType_Str = "军官证"
  Case 3
   CodeType_Str = "学生证"
  Case 4
   CodeType_Str = "其他证件"
 End Select
 Cls_CodeType = CodeType_Str
End Function

'//婚姻状况输出
Function Cls_Marry(Marry)
 Dim Marry_Str
 Select Case Marry
  Case 0
   Marry_Str = "保密"
  Case 1
   Marry_Str = "未婚"
  Case 2
   Marry_Str = "已婚"
  Case 3
   Marry_Str = "离异"
 End Select
 Cls_Marry = Marry_Str
End Function

'//工作年限输出
Function Cls_Works(Works)
 Dim Works_Str
 Select Case Works 
  Case 0: Works_Str = "一年以内"
  Case 1: Works_Str = "一年以上"
  Case 2: Works_Str = "二年以上"
  Case 3: Works_Str = "三年以上"
  Case 4: Works_Str = "四年以上"
  Case 5: Works_Str = "五年以上"
  Case 10: Works_Str = "十年以上"
  Case 20: Works_Str = "二十年以上"
  Case 30: Works_Str = "三十年以上"
  Case 50: Works_Str = "退休人员"
 End Select
 Cls_Works = Works_Str
End Function

'//职称输出
Function Cls_JobTitle(JobTitle)
 Dim JobTitle_Str
 Select Case JobTitle 
  Case 1: JobTitle_Str = "初级职称"
  Case 2: JobTitle_Str = "中级职称"
  Case 3: JobTitle_Str = "高级职称"
  Case 4: JobTitle_Str = "其他"
 End Select
 Cls_JobTitle = JobTitle_Str
End Function

'//企业性质输出
Function Cls_Properity(Properity)
 Dim Properity_Str
 Select Case Properity 
  Case 1: Properity_Str = "国有企业"
  Case 2: Properity_Str = "外资企业"
  Case 3: Properity_Str = "合资企业"
  Case 4: Properity_Str = "私营企业"
  Case 5: Properity_Str = "民营企业"
  Case 6: Properity_Str = "股份制企业"
  Case 7: Properity_Str = "集体企业"
  Case 8: Properity_Str = "集体事业"
  Case 9: Properity_Str = "乡镇企业"
  Case 10: Properity_Str = "行政机关"
  Case 11: Properity_Str = "社会团体"
  Case 12: Properity_Str = "事业单位"
  Case 13: Properity_Str = "跨国企业"
  Case 14: Properity_Str = "其他"  
 End Select
 Cls_Properity = Properity_Str
End Function

'//行业输出
Function Cls_Industry(Industry)
 Dim Industry_Str
 Select Case Industry 
  Case 1: Industry_Str = "互联网、电子商务"
  Case 2: Industry_Str = "计算机业（软件、数据库、系统集成）"
  Case 3: Industry_Str = "计算机业（硬件、网络设备）"
  Case 4: Industry_Str = "电子、微电子技术"
  Case 5: Industry_Str = "通讯、电信业"
  Case 6: Industry_Str = "家电业"
  Case 7: Industry_Str = "批发零售(百货、超市、专卖店)"
  Case 8: Industry_Str = "贸易、商务、进出口"
  Case 9: Industry_Str = "电气"
  Case 10: Industry_Str = "电力、能源、矿产业"
  Case 11: Industry_Str = "石油、化工业"
  Case 12: Industry_Str = "生物工程、制药、环保"
  Case 13: Industry_Str = "机械制造、机电设备、重工业"
  Case 14: Industry_Str = "汽车、摩托车"
  Case 15: Industry_Str = "仪器仪表、电工设备"
  Case 16: Industry_Str = "广告、公关、设计"
  Case 17: Industry_Str = "媒体、影视制作、新闻出版"
  Case 18: Industry_Str = "艺术、文化传播"
  Case 19: Industry_Str = "快速消费品（食品、饮料、粮油、化妆品、烟酒）"
  Case 20: Industry_Str = "纺织品业（服饰、鞋类、家纺用品、皮具）"
  Case 21: Industry_Str = "咨询业（顾问、会计师、审计师、法律）"
  Case 22: Industry_Str = "金融业（投资、保险、证券、银行、基金）"
  Case 23: Industry_Str = "建筑、房地产、物业管理、装潢"
  Case 24: Industry_Str = "餐饮、娱乐、酒店"
  Case 25: Industry_Str = "运输、物流、快递<"
  Case 26: Industry_Str = "旅游业"
  Case 27: Industry_Str = "办公设备、文化体育休闲用品、家居用品"
  Case 28: Industry_Str = "印刷、包装、造纸"
  Case 29: Industry_Str = "生产、制造、加工"
  Case 30: Industry_Str = "教育、培训、科研院所"
  Case 31: Industry_Str = "医疗、保健、卫生服务"
  Case 32: Industry_Str = "英才交流、中介"
  Case 33: Industry_Str = "协会、社团、政府公用事业、社区服务"
  Case 34: Industry_Str = "农、林、牧、副、渔业"
  Case 35: Industry_Str = "其他"  
 End Select
 Cls_Industry = Industry_Str
End Function

'//外语类型输出
Function Cls_Language(Language)
 Dim Language_Str
 Select Case Language
  Case 1: Language_Str = "英语"
  Case 2: Language_Str = "日语"
  Case 3: Language_Str = "法语"
  Case 4: Language_Str = "德语"
  Case 5: Language_Str = "阿拉伯语"
  Case 6: Language_Str = "朝鲜语"
  Case 7: Language_Str = "西班牙语"
  Case 8: Language_Str = "俄语"
  Case 9: Language_Str = "意大利语"
  Case 10: Language_Str = "其他语言"
 End Select
 Cls_Language = Language_Str
End Function

'//普通话水平
Function Cls_Mandarin(Mandarin)
 Dim Mandarin_Str
 Select Case Mandarin
  Case 1: Mandarin_Str = "差"
  Case 2: Mandarin_Str = "较差"
  Case 3: Mandarin_Str = "一般"
  Case 4: Mandarin_Str = "标准"  
 End Select
 Cls_Mandarin = Mandarin_Str
End Function

'//计算机水平输出
Function Cls_Computer(Computer)
 Dim Computer_Str
 Select Case Computer
  Case 1: Computer_Str = "初级"
  Case 2: Computer_Str = "中级"
  Case 3: Computer_Str = "高级"
  Case 4: Computer_Str = "高校非计算机专业二级"
  Case 5: Computer_Str = "高校非计算机专业三级(偏软)"
  Case 6: Computer_Str = "高校非计算机专业三级(偏硬)"
  Case 7: Computer_Str = "初级程序员"
  Case 8: Computer_Str = "程序员"
  Case 9: Computer_Str = "高级程序员"
  Case 10: Computer_Str = "系统分析员"
  Case 11: Computer_Str = "网络程序员"
  Case 12: Computer_Str = "网络设计师"
  Case 13: Computer_Str = "全国计算机等级考试一级"
  Case 14: Computer_Str = "全国计算机等级考试二级"
  Case 15: Computer_Str = "全国计算机等级考试三级"
  Case 16: Computer_Str = "全国计算机等级考试四级"
  Case 17: Computer_Str = "微软认证产品专家(MCP)"
  Case 18: Computer_Str = "微软认证系统工程师(MCSE)"
  Case 19: Computer_Str = "微软认证网站建造专家(MCP+Site Builder)"
  Case 20: Computer_Str = "微软认证数据库管理员(MCDBA)"
  Case 21: Computer_Str = "微软认证开发专家(MCSD)"
  Case 22: Computer_Str = "Cisco职业资格认证CCNA"
  Case 23: Computer_Str = "Cisco职业资格认证CCDP"
  Case 24: Computer_Str = "Cisco职业资格认证CCNP"
  Case 25: Computer_Str = "Cisco职业资格认证CCIE"
  Case 26: Computer_Str = "Oracle8数据库管理员"
  Case 27: Computer_Str = "Lotus资格认证"
  Case 28: Computer_Str = "Lotus-CLS资格认证"
  Case 29: Computer_Str = "Lotus-CLI资格认证"
  Case 30: Computer_Str = "Notes应用开发工程师"
  Case 31: Computer_Str = "Notes系统管理工程师"
  Case 32: Computer_Str = "Notes高级应用开发工程师"
  Case 33: Computer_Str = "Notes高级系统管理工程师"
  Case 34: Computer_Str = "IBM-DB2 Database Administrator"
  Case 35: Computer_Str = "IBM-DB2 Application Developer"
  Case 36: Computer_Str = "IBM-MQSeries Engineer"
 End Select
 Cls_Computer = Computer_Str
End Function

'//可到岗时间输出
Function Cls_Posts(Posts)
 Dim Posts_Str
 Select Case Posts
  Case 10: Posts_Str = "三天内"
  Case 20: Posts_Str = "一周内"
  Case 30: Posts_Str = "两周内"
  Case 40: Posts_Str = "三周内"
  Case 50: Posts_Str = "一个月内"
  Case 60: Posts_Str = "三个月内"
  Case 70: Posts_Str = "半年内"
  Case 80: Posts_Str = "一年内"
 End Select
 Cls_Posts = Posts_Str
End Function

'//职位中年龄要求输出
Function Cls_Age(Min,Max)
 Dim Age_Str
 If Min = 0 And Max = 0 Then
    Age_Str = "不限"
 Elseif Min = 0 And Max <> 0 Then
    Age_Str = Max&"岁以下"
 Elseif Min <> 0 And Max = 0 Then
    Age_Str = Min&"岁以上"
 Else
    Age_Str = Min&"岁-"&Max&"岁"
 End if
 Cls_Age = Age_Str
End Function

'//判断企业会员能否发布职位
Function Cls_PublishJob_Flag(Vip,PublishCount)
 Dim Flag
 Select Case Vip
  Case 0
    If PublishCount >= Cls_WebJobs Then
     Flag = 0
	Else
     Flag = 1
	End if
  Case 1
    Flag = 1
  Case 2
    Flag = 0
 End Select
 Cls_PublishJob_Flag = Flag
End Function

'//企业职位的状态
Function Cls_JobFlag(JobFlag)
 Dim JobFlag_Str
 Select Case JobFlag
  Case 1:JobFlag_Str = "中"
  Case 2:JobFlag_Str = "<font color=#666666>已屏蔽</font>"
 End Select
 Cls_JobFlag = JobFlag_Str
End Function

'//个人用户类型
Function Cls_Usertype(Usertype)
 Dim Usertype_Str
 Select Case Usertype
  Case 1:Usertype_Str = "社会人士"
  Case 2:Usertype_Str = "应届毕业生"
 End Select
 Cls_Usertype = Usertype_Str
End Function

'//资金类型输出
Function Cls_Currency(Currencys)
 Dim Currency_Str
 Select Case Currencys
  Case 1:Currency_Str = "人民币"
  Case 2:Currency_Str = "美元"
  Case 3:Currency_Str = "欧元"
  Case 4:Currency_Str = "英镑"
  Case 5:Currency_Str = "港币"
  Case 6:Currency_Str = "台币"
 End Select
 Cls_Currency = Currency_Str
End Function

'//企业VIP会员的期限
Function Cls_Vip_Level(Level)
 Dim Level_Str
 Select Case Level
  Case 1:Level_Str = "一个月"
  Case 2:Level_Str = "两个月"
  Case 3:Level_Str = "三个月"
  Case 4:Level_Str = "四个月"
  Case 5:Level_Str = "五个月"
  Case 6:Level_Str = "六个月"
  Case 9:Level_Str = "九个月"
  Case 12:Level_Str = "一年"
  Case 24:Level_Str = "两年"
  Case 36:Level_Str = "三年"
 End Select
 Cls_Vip_Level = Level_Str
End Function


'//员工人数输出
Function Cls_Workers(Workers)
 Dim Workers_Str
 Select Case Workers
  Case 9:Workers_Str = "10人以下"
  Case 49:Workers_Str = "10～50人"
  Case 199:Workers_Str = "50～200人"  
  Case 499:Workers_Str = "200～500人"  
  Case 999:Workers_Str = "500～1000人"  
  Case 1000:Workers_Str = "1000人以上"    
 End Select
 Cls_Workers = Workers_Str
End Function

'//员工人数输出
Function Cls_Workers2(Workers)
 Dim Workers_Str
 Select Case Workers
  Case 1:Workers_Str = "1-20人"
  Case 20:Workers_Str = "20～100人"
  Case 100:Workers_Str = "100～1000人"    
  Case 1000:Workers_Str = "1000人以上"    
 End Select
 Cls_Workers2 = Workers_Str
End Function

'//职位类型输出
Function Cls_JobType(JobType)
 Dim JobType_Str
 Select Case JobType
  Case 1:JobType_Str = "全职"
  Case 2:JobType_Str = "兼职"
 End Select
 Cls_JobType = JobType_Str
End Function