company_inc.asp

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

<%Function UserTypePoint(UserType,GetType)
	If IsNull(UserType) Or UserType="" Then Exit Function
	Dim rsl,sqll
	Set rsl=Server.CreateObject("ADODB.RecordSet")
	sqll="Select * From JOB_Group Where user_type='"&UserType&"'"
	rsl.Open sqll,Conn,1,1
	If Not(rsl.Eof) Then
		Select Case GetType
			Case "升级"
			UserTypePoint=rsl("money")
			Case "加天"
			UserTypePoint=rsl("days")
		End Select
	End If
	rsl.Close
	Set rsl=Nothing
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=rs1("Group_unit")
	Group_term=rs1("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
%>