class_main.asp

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

'//获取院校类型
Function Cls_SchoolType(Sch_Property)
 Dim SchoolType
 Select Case Sch_Property
  Case 10:SchoolType = "高等院校"
  Case 20:SchoolType = "中专学校"
  Case 30:SchoolType = "职业技校"
  Case 40:SchoolType = "培训机构"
  Case 50:SchoolType = "其他"
 End Select
 Cls_SchoolType = SchoolType
End Function

'//获取培训机构类型
Function Cls_EducateType(Sch_Property)
 Dim SchoolType
 Select Case Sch_Property
  Case 10:SchoolType = "团队"
  Case 20:SchoolType = "民营企业"
  Case 30:SchoolType = "外商独资企业"
  Case 40:SchoolType = "合资企业"
  Case 50:SchoolType = "股份制企业"
  Case 60:SchoolType = "集体企业"
  Case 70:SchoolType = "事业单位"
  Case 80:SchoolType = "社会团体"
  Case 90:SchoolType = "行政机关"
  Case 100:SchoolType = "其他类别"
  Case 110:SchoolType = "高等院校"
   
 End Select
 Cls_EducateType = SchoolType
End Function

Function Cls_Valid(Valid)
 Dim Valid_str
 Select Case Valid
  Case 0:Valid_str = "长年招生"
  Case 7:Valid_str = "一星期"
  Case 15:Valid_str = "半个月"
  Case 30:Valid_str = "一个月"
  Case 60:Valid_str = "二个月"
  Case 90:Valid_str = "三个月"
  Case 180:Valid_str = "半年"
 End Select 
 Cls_Valid = Valid_str
End Function


'//分页函数
Function Cls_Page(FileName,PageNo,PCount,RCount)
 Dim Page_Str
 Page_Str = "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" class=""text01"">"
 Page_Str = Page_Str&"<tr><td width=""50%"">共有"&RCount&"条记录 | 分"&PCount&"页显示</td>"
 Page_Str = Page_Str&"<td align=""right"">"
 If PageNo > 1 Then
  Page_Str = Page_Str&"<a href="""&FileName&"?PageNo=1"" class=""a4"">首页</a> "
  Page_Str = Page_Str&"<a href="""&FileName&"?PageNo="&PageNo-1&""" class=""a4"">上页</a> "
 Else
  Page_Str = Page_Str&"<font color=#666666>首页</font> "
  Page_Str = Page_Str&"<font color=#666666>上页</font> "
 End if 
 Page_Str = Page_Str&"<"&PageNo&"> "  
 If PageNo < PCount Then
  Page_Str = Page_Str&"<a href="""&FileName&"?PageNo="&PageNo+1&""" class=""a4"">下页</a> "
  Page_Str = Page_Str&"<a href="""&FileName&"?PageNo="&PCount&""" class=""a4"">尾页</a> "
 Else
  Page_Str = Page_Str&"<font color=#666666>下页</font> "
  Page_Str = Page_Str&"<font color=#666666>尾页</font> "
 End if 
 Page_Str = Page_Str&"</td></tr></table>"

 Cls_Page = Page_Str
End Function

Function Cls_Page2(FileName,PageNo,PCount,RCount)
 Dim Page_Str
 Page_Str = "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"" class=""text01"">"
 Page_Str = Page_Str&"<tr><td width=""50%"">共有"&RCount&"条记录 | 分"&PCount&"页显示</td>"
 Page_Str = Page_Str&"<td align=""right"">"
 If PageNo > 1 Then
  Page_Str = Page_Str&"<a href="""&FileName&"&PageNo=1"" class=""a4"">首页</a> "
  Page_Str = Page_Str&"<a href="""&FileName&"&PageNo="&PageNo-1&""" class=""a4"">上页</a> "
 Else
  Page_Str = Page_Str&"<font color=#666666>首页</font> "
  Page_Str = Page_Str&"<font color=#666666>上页</font> "
 End if 
 Page_Str = Page_Str&"<"&PageNo&"> "  
 If PageNo < PCount Then
  Page_Str = Page_Str&"<a href="""&FileName&"&PageNo="&PageNo+1&""" class=""a4"">下页</a> "
  Page_Str = Page_Str&"<a href="""&FileName&"&PageNo="&PCount&""" class=""a4"">尾页</a> "
 Else
  Page_Str = Page_Str&"<font color=#666666>下页</font> "
  Page_Str = Page_Str&"<font color=#666666>尾页</font> "
 End if 
 Page_Str = Page_Str&"</td></tr></table>"

 Cls_Page2 = Page_Str
End Function

'//生成会员的标记字符串
Dim output,num
Function gen_key(digits)
 Dim char_array(50)
 char_array(0) = "0"
 char_array(1) = "1"
 char_array(2) = "2"
 char_array(3) = "3"
 char_array(4) = "4"
 char_array(5) = "5"
 char_array(6) = "6"
 char_array(7) = "7"
 char_array(8) = "8"
 char_array(9) = "9"
 char_array(10) = "a"
 char_array(11) = "b"
 char_array(12) = "c"
 char_array(13) = "d"
 char_array(14) = "e"
 char_array(15) = "f"
 char_array(16) = "g"
 char_array(17) = "h"
 char_array(18) = "i"
 char_array(19) = "j"
 char_array(20) = "k"
 char_array(21) = "l"
 char_array(22) = "m"
 char_array(23) = "n"
 char_array(24) = "o"
 char_array(25) = "p"
 char_array(26) = "q"
 char_array(27) = "r"
 char_array(28) = "s"
 char_array(29) = "t"
 char_array(30) = "u"
 char_array(31) = "v"
 char_array(32) = "w"
 char_array(33) = "x"
 char_array(34) = "y"
 char_array(35) = "z"
 randomize
 do while len(output) < digits
  num = char_array(Int((35 - 0 + 1) * Rnd + 0))
  output = output + num
 loop
 gen_key = output
End Function
'//生成新闻文件名
Function Makefilename(Fname)
  Fname = Year(Now()) &  Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now()) & Second(Now())
  Makefilename = Fname & ".html"
End Function

'//新闻的列表
Function Cls_News_List(Typeid,Lists,Length)
 'Typeid    类别ID
 'Lists     显示的新闻数目
 'Length    显示的文字长度
 Dim NewList
 NewList = "<table width=""100%""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
 SQL = "Select Top "&Lists&" Title,FileName,Path From [pH_New_Info] Where Typeid="&Typeid&" And Flag=1 Order By DateAndTime Desc"                
 Set Rs1 = Conn.Execute(SQL)
 If Rs1.Eof Then
  NewList = NewList&"<tr><td height=""22"">&middot;没有相关信息...</td></tr>"
 Else
  Tmp = Rs1.GetRows()
  Rs1.Close:Set Rs1 = Nothing
  For i = 0 to Ubound(Tmp,2)
   Title = Left(Tmp(0,i),Length)
   NewList = NewList&"<tr valign=""middle""><td height=""22"">·<a href=""../"&Tmp(2,i)&"/"&Tmp(1,i)&""" target=""_blank"">"&Title&"</a></td></tr>"
  Next
 End if
 NewList = NewList&"<tr><td align=right>| <a href=""../Public/News.asp?Param="&Typeid&""">更多信息</a></td></tr>"
 NewList = NewList&"</table>"
 Cls_News_List = NewList
End Function

'//新闻的列表(跟目录文件显示)
Function Cls_News_List_Root(Typeid,Lists,Length)
 'Typeid    类别ID
 'Lists     显示的新闻数目
 'Length    显示的文字长度
 Dim NewList
 NewList = "<table width=""100%""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
 SQL = "Select Top "&Lists&" Title,FileName,Path From [pH_New_Info] Where Typeid="&Typeid&" And Flag=1 Order By NewId Desc"                
 Set Rs1 = Conn.Execute(SQL)
 If Rs1.Eof Then
  NewList = NewList&"<tr><td height=""22"">&middot;没有相关信息...</td></tr>"
 Else
  Tmp = Rs1.GetRows()
  Rs1.Close:Set Rs1 = Nothing
  For i = 0 to Ubound(Tmp,2)
   Title = Left(Tmp(0,i),Length)
   NewList = NewList&"<tr valign=""middle""><td height=""22"">·<a href="""&Tmp(2,i)&"/"&Tmp(1,i)&""" target=""_blank"">"&Title&"</a></td></tr>"
  Next
 End if
 'NewList = NewList&"<tr><td align=right>| <a href=""Public/News.asp?Param="&Typeid&""">更多信息</a></td></tr>"
 NewList = NewList&"</table>"
 Cls_News_List_Root = NewList
End Function


'//热门或者推荐新闻的列表
Function Cls_News_Param(Param,Lists,Length)
 'Param     查询参数
 'Lists     显示的新闻数目
 'Length    显示的文字长度
 Dim NewList,Param_Str
 Param_Str = Replace_Text(Param)
 NewList = "<table width=""100%""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
 SQL = "Select Top "&Lists&" Title,FileName,Path From [pH_New_Info] Where "&Param_Str&" And Flag=1 Order By DateAndTime Desc"                
 Set Rs1 = Conn.Execute(SQL)
 If Rs1.Eof Then
  NewList = NewList&"<tr><td height=""22"">&middot;没有相关信息...</td></tr>"
 Else
  Tmp = Rs1.GetRows()
  Rs1.Close:Set Rs1 = Nothing
  For i = 0 to Ubound(Tmp,2)
   Title = Left(Tmp(0,i),Length)
   NewList = NewList&"<tr valign=""middle""><td height=""22"">·<a href=""../"&Tmp(2,i)&"/"&Tmp(1,i)&""" target=""_blank"">"&Title&"</a></td></tr>"
  Next
 End if
 NewList = NewList&"</table>"
 Cls_News_Param = NewList
End Function

Function CreateVote(ID,Title,VoteText,Mtype)
	Dim Result,Content,i
	Content=split(VoteText,"|")
	Result="<Table Width=100% ><Form action=../Public/vote.asp method=post target=_blank><tr><td>"&Title&"</td></tr>"
	
	IF Mtype=False Then
		For i=0 To Ubound(Content)
			Result=Result&"<tr><td>"
			Result=Result&"<input type='radio' name='vote' value="&i&">&nbsp;"&Content(i)
			Result=Result&"</td></tr>"
		Next
	End if

	If Mtype=True Then
	For i=0 To Ubound(Content)
			Result=Result&"<tr><td>"
			Result=Result&"<input type='checkbox' name='vote' value="&i&">&nbsp;&nbsp;&nbsp;"&Content(i)
			Result=Result&"</td></tr>"
		Next
	End if
	
	Result=Result&"<tr><td align=center><input name=VoteType type=hidden value="&Mtype&"><input name=VoteID type=hidden value="&ID&"><input type=submit name=submit value=投票 class=LoginInput> <input type=button name=view value=查看 class=LoginInput onclick=window.open('../Public/vote.asp?VoteID="&ID&"','_blank','scrollbars=yes,width=645,height=320')></td></tr>"
	Result=Result&"</Form></Table>"
	CreateVote=Result
End Function


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

'//--------------------------企业性质约定--------------------------------
'//  <option value="1">国有企业</option>
'//  <option value="2">外资企业</option>
'//  <option value="3">合资企业</option>
'//  <option value="4">私营企业</option>
'//  <option value="5">民营企业</option>
'//  <option value="6">股份制企业</option>
'//  <option value="7">集体企业</option>
'//  <option value="8">集体事业</option>
'//  <option value="9">乡镇企业</option>
'//  <option value="10">行政机关</option>
'//  <option value="11">社会团体</option>
'//  <option value="12">事业单位</option>
'//  <option value="13">跨国企业</option>
'//  <option value="14">其他</option>

'//--------------------------资金约定--------------------------------
'//  <option value="1">人民币</option>
'//  <option value="2">美元</option>
'//  <option value="3">欧元</option>
'//  <option value="4">英镑</option>
'//  <option value="5">港币</option>
'//  <option value="6">台币</option>

'//--------------------------员工人数约定--------------------------------
'//  <OPTION value=9>10人以下</OPTION>
'//  <OPTION value=49>10～50人</OPTION>
'//  <OPTION value=199>50～200人</OPTION>
'//  <OPTION value=499>200～500人</OPTION>
'//  <OPTION value=999>500～1000人</OPTION>
'//  <OPTION value=1000>1000人以上</OPTION>

'//--------------------------院校类型约定--------------------------------
'//  <option value="10">高等院校</option>
'//  <option value="20">中专学校</option>
'//  <option value="30">职业技校</option>
'//  <option value="40">培训机构</option>
'//  <option value="50">其他</option>

'//--------------------------工作年限约定--------------------------------
'//  <option value="0">一年以内</option>
'//  <option value="1">一年以上</option>
'//  <option value="2">二年以上</option>
'//  <option value="3">三年以上</option>
'//  <option value="4">四年以上</option>
'//  <option value="5">五年以上</option>
'//  <option value="10">十年以上</option>
'//  <option value="20">二十年以上</option>
'//  <option value="30">三十年以上</option>
'//  <option value="50">退休人员</option>

'//--------------------------外语类型约定--------------------------------
'//  <option  value="1">英语</option>
'//  <option  value="2">日语</option>
'//  <option  value="3">法语</option>
'//  <option  value="4">德语</option>
'//  <option  value="5">阿拉伯语</option>
'//  <option  value="6">朝鲜语</option>
'//  <option  value="7">西班牙语</option>
'//  <option  value="8">俄语</option>
'//  <option  value="9">意大利语</option>
'//  <option  value="10">其他语言</option>

'//--------------------------普通话水平约定-------------------------------- 
'//  <option value="4">标准</option>
'//  <option value="3">一般</option>
'//  <option value="2">较差</option>
'//  <option value="1">差</option>

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

'//--------------------------到岗位时间约定-------------------------------- 
'//  <option  value="10">三天内</option>
'//  <option  value="20">一周内</option>
'//  <option  value="30">两周内</option>
'//  <option  value="40">三周内</option>
'//  <option  value="50">一个月内</option>
'//  <option  value="60">三个月内</option>
'//  <option  value="70">半年内</option>
'//  <option  value="80">一年内</option>               
 %>