commoncode.asp

嘉缘人才6.0精简 ,很好用的人才系统

CovNumber="六" 
case "7"
CovNumber="七"
case "8"
CovNumber="八"
case "9"
CovNumber="九" 
case else
CovNumber="" 
end select
End Function
'**********************************************************************
'会员期限函数
'**********************************************************************
Function UserTypeDate(UserType)
	If IsNull(UserType) Or UserType="" Then Exit Function
	Dim rsl,sqll
	Set rsl=Server.CreateObject("ADODB.RecordSet")
	sqll="Select * From JOB_Group Where Group_id="&UserType&""
	rsl.Open sqll,Conn,1,1
	If Not(rsl.Eof) Then
	Group_unit=rsl("Group_unit")
	Group_term=rsl("Group_term")
	Select Case Group_unit
			Case "日"
			UserTypeDate=DateAdd("d",Group_term, Date())
			Case "月"
			UserTypeDate=DateAdd("m",Group_term, Date())
			Case "年"
			UserTypeDate=DateAdd("yyyy",Group_term, Date())
		End Select
	End If
	rsl.Close
	Set rsl=Nothing
End Function
'**********************************************************************
'会员费用函数
'**********************************************************************
Function UserTypeoutlay(UserType)
	If IsNull(UserType) Or UserType="" Then Exit Function
	Dim rsl,sqll
	Set rsl=Server.CreateObject("ADODB.RecordSet")
	sqll="Select * From JOB_Group Where Group_id="&UserType&""
	rsl.Open sqll,Conn,1,1
	If Not(rsl.Eof) Then
	UserTypeoutlay=rsl("Group_outlay")
	End If
	rsl.Close
	Set rsl=Nothing
End Function
'*************************************************************
'函数名称：OutInfo
'函数功能：根据ID调出相应表的对应的ID名称
'传递参数：TableName,IDName,InfoName,ID
'          TableName数据表名称
'          IDName要对比的字段ID名称
'          InfoName要示的字段内容名称
'          ID当前的ID值
'**************************************************************
Function OutInfo(TableName,IDName,InfoName,ID,Types)
	Dim rsOut,sqlOut
	If ID="" Or IsNull(ID) Then Exit Function
	If IsNumeric(ID)=False Then
		sqlOut="Select * From "& TableName &" Where "& IDName &"='"&ID&"'"
	Else
		If Types="num" then
		sqlOut="Select * From "& TableName &" Where "& IDName &"="&ID
		Else
		sqlOut="Select * From "& TableName &" Where "& IDName &"='"&ID&"'"
		End If
	End If
	Set rsOut=Server.CreateObject("ADODB.RecordSet")
	rsOut.Open sqlOut,Conn,1,1
	If Not(rsOut.Eof) Then
		OutInfo=rsOut(""& InfoName &"")
	Else
		OutInfo="未知"
	End If
	rsOut.Close
	Set rsOut=Nothing
End Function

'**********************************************************************
'函数名称：PayMoney
'函数功能：会员扣费
'传递参数：UserName,UserType,nValue
'          UserName会员帐号
'          UserType会员类型（1个人、2企业、3培训、4院校）
'          nValue扣除的费用
'**********************************************************************
Function PayMoney(UserName,UserType,nValue)
	If IsNull(UserName) Or UserName="" Or IsNull(UserType) Or UserType="" Or IsNumeric(nValue)=False Then
		Exit Function
	Else
		Dim rsp,sqlp,HavePoint
		sqlp="Select * From JOB_member Where Member_login='"&UserName&"'"
		PointName="Member_balance"
		Set rsp=Server.CreateObject("ADODB.RecordSet")
		rsp.Open sqlp,Conn,1,3
		If Not(rsp.Eof) Then
			If IsNumeric(rsp(""&PointName&""))=False Then
				HavePoint=0
			Else
				HavePoint=rsp(""&PointName&"")
			End If
			HavePoint=CLng(HavePoint)
			nValue=CLng(nValue)
			If nValue>HavePoint Then
				PayMoney=False
			Else
				HavePoint=HavePoint-nValue
				rsp(""&PointName&"")=HavePoint
				rsp.Update
				PayMoney=True
			End If
		End If
		rsp.Close
		Set rsp=Nothing
	End If
	If PayMoney=True Then
		Response.Write("<script>alert(""操作成功!\n当前消费金额"& nValue &"\n您的剩余金额"& HavePoint &""");</script>")
	Else
		Response.Write("<script>alert(""余额不足!\n当前消费金额"& nValue &"\n您的剩余金额"& HavePoint &""");history.back();</script>")
		Response.End
	End If
End Function


'函数名称：PayPoint
'函数功能：会员扣点
'传递参数：UserName,UserType,nValue
'          UserName会员帐号
'          UserType会员类型（1个人、2企业、3培训、4院校）
'          nValue扣除的点数
Function PayPoint(UserName,UserType,nValue)
	If IsNull(UserName) Or UserName="" Or IsNull(UserType) Or UserType="" Or IsNumeric(nValue)=False Then
		Exit Function
	Else
		Dim rsp,sqlp,HavePoint
		'Select Case UserType
			'Case 1:sqlp="Select * From JOB_P_pmember Where pmember_login='"&UserName&"'":PointName="pmember_consumenums"
			'Case 2:sqlp="Select * From JOB_C_cmember Where cmember_login='"&UserName&"'":PointName="cmember_consumenums"
			'Case 3:sqlp="Select * From JOB_T_tmember Where tmember_login='"&UserName&"'":PointName="tmember_consumenums"
			'Case 4:sqlp="Select * From JOB_S_smember Where smember_login='"&UserName&"'":PointName="smember_consumenums"
		'End Select
		sqlp="Select * From JOB_member Where Member_login='"&UserName&"'"
		PointName="Member_balance"
		Set rsp=Server.CreateObject("ADODB.RecordSet")
		rsp.Open sqlp,Conn,1,3
		If Not(rsp.Eof) Then
			If IsNumeric(rsp(""&PointName&""))=False Then
				HavePoint=0
			Else
				HavePoint=rsp(""&PointName&"")
			End If
			HavePoint=CLng(HavePoint)
			nValue=CLng(nValue)
			If nValue>HavePoint Then
				PayPoint=False
			Else
				HavePoint=HavePoint-nValue
				rsp(""&PointName&"")=HavePoint
				rsp.Update
				PayPoint=True
			End If
		End If
		rsp.Close
		Set rsp=Nothing
	End If
	If PayPoint=True Then
		Response.Write("<script>alert(""操作成功!\n当前消费金额"& nValue &"\n您的剩余金额"& HavePoint &""");window.opener.location.reload();window.close();;</script>")
	Else
		Response.Write("<script>alert(""余额不足!\n当前消费金额"& nValue &"\n您的剩余金额"& HavePoint &""");history.back();</script>")
	End If
	Response.End
End Function

'函数名称：PayLog
'函数功能：会员消费日志
'传递参数：UserName,UserType,sValue,nValue,DoType
'          UserName会员帐号
'          UserType会员类型（1个人、2企业、3培训、4院校）
'          sValue消费项目
'          nValue扣除的点数
'          0前台操作 1后台操作
Function PayLog(UserName,UserType,sValue,nValue,DoType)
	Dim rsl,sqll,trueIP,DoWhere
	trueIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If trueIP="" Then trueIP=Request.ServerVariables("REMOTE_ADDR")
	Select Case DoType
		Case 0:DoWhere="前台"
		Case 1:DoWhere="后台"
	End Select
	Set rsl=Server.CreateObject(FR_HR_Rs)
	sqll="Select * From JOB_consume"
	rsl.Open sqll,Conn,1,3
	rsl.AddNew
	rsl("consume_content")=sValue
	rsl("consume_num")=nValue
	rsl("consume_date")=Now()
	rsl("consume_ip")=trueIP
	rsl("consume_member")=UserName
	rsl("consume_userclass")=UserType
	rsl("consume_type")=DoWhere
	rsl.Update
	rsl.Close
	Set rsl=Nothing
End Function
'函数名称：PayItem
'函数功能：会员消费项目
'传递参数：PayItemID,GetDataType
'          PayItemID=消费项目ID
'          GetDataType=消费项目返回值（rPoint返回扣除的点数，rDate返回消费项目天数）
Function PayItem(PayItemID,ShowItemValue)
	If IsNull(PayItemID) Or IsNumeric(PayItemID)=False Then Exit Function
	Dim rsl,sqll
	Set rsl=Server.CreateObject(FR_HR_Rs)
	sqll="Select * From job_prices Where id="&PayItemID
	rsl.Open sqll,Conn,1,1
	If Not(rsl.Eof) Then
		If ShowItemValue=0 Then
			PayItem=rsl("price_value")
		Else
			PayItem=rsl("price_useday")
		End If	
	End If
	rsl.Close
	Set rsl=Nothing
End Function

Function Pay_ItemPoint(UserName,UserType,nValue)
	If IsNull(UserName) Or UserName="" Or IsNumeric(nValue)=False Then
		Exit Function
	Else
		Dim rsp,sqlp,HavePoint
		sqlp="Select * From JOB_member Where member_login='"&UserName&"'":PointName="member_consumenums"
		Set rsp=Server.CreateObject("ADODB.RecordSet")
		rsp.Open sqlp,Conn,1,3
		If Not(rsp.Eof) Then
			If IsNumeric(rsp(""&PointName&""))=False Then
				HavePoint=0
			Else
				HavePoint=rsp(""&PointName&"")
			End If
			HavePoint=CLng(HavePoint)
			nValue=CLng(nValue)
			If HavePoint<nValue Then
				Pay_ItemPoint=False
			Else
				HavePoint=HavePoint-nValue
				rsp(""&PointName&"")=HavePoint
				rsp.Update
				Pay_ItemPoint=True
			End If
		End If
		rsp.Close
		Set rsp=Nothing
	End If
End Function

Function ReCount(CTable,cField,CUser,UserID)
	Dim rsc,sqlc
	Set rsc=Server.CreateObject(FR_HR_Rs)
	sqlc="Select Count("&cField&") From "&CTable&" Where "&CUser&"='"&UserID&"'"
	rsc.Open sqlc,Conn,1,1
	If Not(rsc.Eof) Then
		ReCount=rsc(0)
	End If
	rsc.Close
	Set rsc=Nothing
End Function
function GetExpFilename(str)     '得到文件的扩展名
	for i = len(str) to 1 step -1
		if mid(str, i, 1) = chr(asc(".")) then
			str = right(str, len(str)-i)
			exit for
		end if
	next
	GetExpFilename = str
end function
function bin2str(binstr)                 '将bin2str二进数转化为字符串
	dim varlen, clow, ccc, skipflag
	skipflag = 0
	ccc = ""
	varlen = lenb(binstr)
	for i = 1 to varlen
		if skipflag = 0 then
			clow = midb(binstr, i, 1)
			if ascb(clow) > 127 then
				ccc = ccc & chr(ascw(midb(binstr, i + 1, 1) & clow))
				skipflag = 1
			else
				ccc = ccc & chr(ascb(clow))
			end if
		else
			skipflag = 0
		end if
	next
	bin2str = ccc
end function

function str2bin(str)             '将字符串转化为二进制数
	for i = 1 to len(str)
		str2bin = str2bin & chrb(asc(mid(str, i, 1)))
	next
end function
'***********招聘类别***************
Function Hiretype(str)
	Select Case str
		Case 1:Hiretype="全职"
		Case 2:Hiretype="兼职"
		Case 3:Hiretype="全职、兼职均可"
		Case Else:Hiretype=""
	End Select
End Function
'***********工作经验***************
Function Hireexperience(str)
	Select Case str
		Case "-100":Hireexperience="无"
		Case -1:Hireexperience="在读学生"
		Case 0:Hireexperience="毕业生"
		Case Else:Hireexperience=str&"年以上"
	End Select
End Function
'***********性别***************
Function Hiresex(str)
	Select Case str
		Case 1:Hiresex="男"
		Case 2:Hiresex="女"
		Case Else:Hiresex="不限"
	End Select
End Function
'***********工作地*************
Function Hireworkadds(str)
if str<>"" and not isnull(str) then
	Select Case str
		Case "0000":Hireworkadds="不限"
		Case Else
		str=split(str,",")
			for i=0 to ubound(str)
			province_name=""
			capital_name=""
			city_name=""
			workadd=trim(str(i))
			if workadd<>"" then
			  mystring=split(workadd,"*")
			  length=ubound(mystring)
			  Set Hwasrs=Server.CreateObject(FR_HR_Rs)
			  select case length
			   case "0"
				province=trim(mystring(0))
				Hwassql="select province_city from job_provinceandcity where id="&province&""
				Hwasrs.open Hwassql,conn,1,1
					if not Hwasrs.eof then
					 province_name=Hwasrs("province_city")
					end if
				Hwasrs.close
					if province_name<>"" then
					 Hireworkadds=Hireworkadds&province_name&" "
					end if
			   case "1"
				province=trim(mystring(0))
				capital=trim(mystring(1))
				Hwassql="select province_city from job_provinceandcity where id="&province&""
				Hwasrs.open Hwassql,conn,1,1
					if not Hwasrs.eof then
					 province_name=Hwasrs("province_city")
					end if
				Hwasrs.close
				Hwassql="select province_city from job_provinceandcity where id="&capital&""
				Hwasrs.open Hwassql,conn,1,1
					if not Hwasrs.eof then
					 capital_name=Hwasrs("province_city")
					end if
				Hwasrs.close
					if province_name<>"" and capital_name<>"" then
					 Hireworkadds=Hireworkadds&province_name&capital_name&" "
					end if
			   case "2"
				province=trim(mystring(0))
				capital=trim(mystring(1))
				city=trim(mystring(2))
				Hwassql="select province_city from job_provinceandcity where id="&province&""
				Hwasrs.open Hwassql,conn,1,1
					if not Hwasrs.eof then
					 province_name=Hwasrs("province_city")
					end if
				Hwasrs.close
				Hwassql="select province_city from job_provinceandcity where id="&capital&""
				Hwasrs.open Hwassql,conn,1,1
					if not Hwasrs.eof then
					 capital_name=Hwasrs("province_city")
					end if
				Hwasrs.close
				Hwassql="select province_city from job_provinceandcity where id="&city&""
				Hwasrs.open Hwassql,conn,1,1
					if not Hwasrs.eof then
					 city_name=Hwasrs("province_city")
					end if
				Hwasrs.close
					if province_name<>"" and capital_name<>"" and city_name<>"" then
					 Hireworkadds=Hireworkadds&province_name&capital_name&city_name&" "
					end if
			   end select
			  end if
			 next
	End Select
	else:Hireworkadds="不限"