<%
Dim Act_Title,Table_Color_Left,Table_Color_Right,Corporation_sum,Resume_sum,Resume_nr_sum
Act_Title="中国企业家网——人才频道"
Table_Color_Left="#FFDB39"
Table_Color_Right="#F7F784"
Corporation_sum=3 '机构可设置数量
Resume_sum=3 '简历可设置数量
Resume_nr_sum=5 '简历里内容可设置数量
%>
<%'警告窗口检测
'空串检测 CheckNullStr ( "警告信息" , "信息类型" , "信息窗口名称" , "动作类型" )
Function Pop ( Info , infoid , infoname , actionTypes )
Response.Write "" & vbcrlf
Response.Write "" & vbcrlf
Response.Write "" & vbcrlf
If Trim ( actionTypes ) = "back" Or Trim ( actionTypes ) = "close" Then
Response.Write "" & vbcrlf
Else
Response.Write ""
End If
Response.Write "" & vbcrlf
Response.Write "" & vbcrlf
Response.Write "" & vbcrlf
Response.Write ""
Response.End
End Function
%>
<%
dbuid="ccboss_Admin" '数据库登陆名
dbpwd="forever_888" '数据库密码
dbname="ccboss200" '数据库名称
dbip="(local)" '数据库所在的IP地址，如果是本地数据库则为："(local)"
'---------------------------------------------------------------------------
set conn=Server.CreateObject("adodb.Connection")
set Rs=Server.Createobject("adodb.recordset")
Conn.Open "PROVIDER=SQLOLEDB.1;Data Source="&dbip&";Initial Catalog="&dbname&";Persist Security Info=True;User ID="&dbuid&";Password="&dbpwd&";Connect Timeout=30"
%>
<%
vvSite=""
qCode=""
qSiteName=""
xSite=Request.ServerVariables("HTTP_HOST")
qHomePage="Http://"&xSite
xWZ=inStr(xSite,".")
if xWZ>0 then
vvSite=mid(xSite,1,xWZ-1)
end if
sql="select * from xsysSite where xName='"&vvSite&"'"
Rs.Open sql,Conn,1,1
If Not Rs.Eof and not Rs.bof then
qCode=rs("xCode")
end if
Rs.close()
if len(qCode)=0 then
qSiteName=""
end if
if len(qCode)=2 then
sql="select * from xCountry where xValue='"&qCode&"'"
Rs.Open sql,Conn,1,1
If Not Rs.Eof and not Rs.bof then
qSiteName="－－－"&Rs("xName")&"－－－ "
end if
Rs.close()
end if
if len(qCode)=4 then
sql="select * from xProvince where xValue='"&qCode&"'"
Rs.Open sql,Conn,1,1
If Not Rs.Eof and not Rs.bof then
qSiteName="－－－"&Rs("xName")&"站－－－ "
end if
Rs.close()
end if
if len(qCode)=6 then
sql="select * from xProvince where xValue='"&mid(qCode,1,4)&"'"
Rs.Open sql,Conn,1,1
If Not Rs.Eof and not Rs.bof then
qSiteName1=Rs("xName")
end if
Rs.close()
sql="select * from xCapital where xValue='"&qCode&"'"
Rs.Open sql,Conn,1,1
If Not Rs.Eof and not Rs.bof then
qSiteName2=Rs("xName")
end if
Rs.close()
if len(qSiteName2)>=4 then
qSiteName="－－"&qSiteName2&"站－－ "
else
qSiteName="－－"&qSiteName1&qSiteName2&"站－－ "
end if
end if
if len(qCode)=8 then
sql="select * from xProvince where xValue='"&mid(qCode,1,4)&"'"
Rs.Open sql,Conn,1,1
If Not Rs.Eof and not Rs.bof then
qSiteName1=Rs("xName")
end if
Rs.close()
sql="select * from xCity where xValue='"&qCode&"'"
Rs.Open sql,Conn,1,1
If Not Rs.Eof and not Rs.bof then
qSiteName3=Rs("xName")
end if
Rs.close()
if len(qSiteName3)>=4 then
qSiteName="－－"&qSiteName3&"站－－ "
else
qSiteName="－－"&qSiteName1&qSiteName3&"站－－ "
end if
end if
response.Cookies("xSiteCode")=qCode
response.Cookies("xSiteCode").Domain="ccboss.com"
%>
<%
Conn.close()
set Rs=nothing
set Conn=nothing
%>
<% =Act_Title%>
中国富人阶层门户网站