sub.asp

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

<%
'-----------------------以下为网站导航信息部分------------------------
'网站导航　操作的表为JOB_navigation
Sub navigation()
	Response.Write "<table width='778' height='40' align='center' cellpadding='0' cellspacing='0' class='dh'>"& vbcrlf
	Response.Write "<tr>"& vbcrlf
	Set Rs_nav=conn.Execute("select * from JOB_navigation where nav_hide=0 order by nav_px asc")
	If Not Rs_nav.eof then
	Response.Write "<td width='30'></td>"& vbcrlf
	Do While Not Rs_nav.eof
	Response.Write "<td width=3><img src='"&SiteUrl&"/images/dh_line.gif' width=3 height=40></td>"& vbcrlf
	Response.Write "<td><a href='"&SiteUrl&Rs_nav("nav_link")&"' target='"&Rs_nav("nav_tc")&"' class='dhtext'>"&Rs_nav("nav_name")&"</a></td>"& vbcrlf
	Rs_nav.MoveNext
	Loop
	Else
	Response.Write "<td>暂无设置导航信息，请联系管理员设置．</td>"&vbcrlf
	End if
	Rs_nav.Close
	Set Rs_nav=Nothing
	Response.Write "<td width=3><img src='"&SiteUrl&"/images/dh_line.gif' width=3 height=40></td>"&vbcrlf
	Response.Write "<td width='30'></td>"&vbcrlf
	Response.Write "</tr>"&vbcrlf
	Response.Write "</table>"
end sub

'-----------------------以下为友情连接信息部分------------------------
'友情连接　操作的表为JOB_links
'num为每行文字连接的个数 如果为0 则不显示
'nums为每行图片连接的个数 如果为0 则不显示
Sub links(num,nums)
        Response.Write "<table width=778 border=0 align=center cellpadding=0 cellspacing=0 class=link1>"& vbcrlf
	Response.Write "<tr>"& vbcrlf
        Response.Write "<td colspan=7 class=link height=30>&nbsp; <strong>友情连接</strong>"
		%>　<a href='#' onclick="window.open('links.asp','','width=600,height=200,scrollbars=yes,resizable = 0');">申请文字LOGO友情互换</A><%
	response.Write "</td>"& vbcrlf
	Response.Write "</tr>"& vbcrlf
	Response.Write "</table>"& vbcrlf
        if num<>0 then
        Response.Write "<br class=br>"& vbcrlf
	Response.Write "<table width=778 border=0 align=center cellpadding=0 cellspacing=0 class=link1>"& vbcrlf
	Response.Write "<tr align=center class=link1>"& vbcrlf
	Set Rs=conn.Execute("select * from JOB_links where link_key=0 and link_key1=1 order by id desc")
	If Not Rs.eof then
	n=0
	Do While Not Rs.eof
	n=n+1
	Response.Write "<td height='25' class=s><a href="&rs("link_url")&" title="&rs("link_sm")&" target='_blank'>"&rs("link_name")&"</a></td>"&vbcrlf
	if n mod num=0 then 
	response.write "</tr><tr align=center>"
        end if
	rs.movenext
        loop
        end if
        rs.close
        set rs=nothing
	Response.Write "</tr>"& vbcrlf
	Response.Write "</table>"& vbcrlf
        end if
        if nums<>0 then
        Response.Write "<br class=br>"& vbcrlf
	Response.Write "<table width=778 border=0 align=center cellpadding=0 cellspacing=0 class=link1>"& vbcrlf
	Response.Write "<tr align=center>"& vbcrlf
	Set Rs=conn.Execute("select * from JOB_links where link_key=1 and link_key1=1 order by id desc")
	If Not Rs.eof then
	n=0
	Do While Not Rs.eof
	n=n+1
	Response.Write "<td height='40'><a href="&rs("link_url")&" title="&rs("link_sm")&" target='_blank'><img src='"&rs("link_name")&"' width=88 height=31 border=0></a></td>"&vbcrlf
        if n mod nums=0 then 
	response.write "</tr><tr align=center>"
        end if
	rs.movenext
        loop
        end if
        rs.close
        set rs=nothing
	Response.Write "</tr>"&vbcrlf
	Response.Write "</table>"
        end if
end sub

'-----------------------以下为帮助信息部分------------------------
'帮助页面左导航
sub help_left()
	 Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=180 border=0>"&vbcrlf
	 Response.Write "<tr>"&vbcrlf
	 Set hrs=conn.Execute("select * from JOB_help_sort order by sortid desc")
	 If Not hrs.eof then
         dim i
         i=0
	 Do While Not hrs.eof
         i=i+1
	 n=n+1
         Response.Write "<TD width='180' class='tb_2' id=menuTitle"&i&" style='cursor:pointer' onclick=menuChange(menu"&i&",80,menuTitle"&i&")> <img src='"&SiteUrl&"images/fold_2.gif' width='22' height='27' align='absmiddle'> <span class='bl_14'>"&hrs("sort")&"</span></TD>"&vbcrlf
	 Response.Write "</tr>"&vbcrlf
	 Response.Write "<tr>"&vbcrlf
	 Response.Write "<td class='tb_1'>"&vbcrlf
         Response.Write "<div class=sec_menu id=menu"&i&" style='DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 100%; HEIGHT: 0px'>"&vbcrlf
         Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'>"&vbcrlf
         Response.Write "<TR>"
	 Set Rs=conn.Execute("select * from JOB_help_type where sortid="&hrs("sortid")&" order by typeid desc")
	 If Not Rs.eof then
	 Do While Not Rs.eof
	 m=m+1
	 Response.Write "<td height='20'><a href='list.asp?typeid="&rs("typeid")&"' class='s' target='list'>"&rs("typename")&"</a></td>"&vbcrlf
	 Response.Write "</tr><tr>"&vbcrlf
	 rs.movenext
     loop
     end if
     rs.close
     set rs=nothing
Response.Write "</tr>"& vbcrlf
Response.Write "</table>"& vbcrlf
Response.Write "</div>"& vbcrlf
Response.Write "</td>"& vbcrlf
Response.Write "</tr><tr>"&vbcrlf
hrs.movenext
loop
end if
hrs.close
set hrs=nothing
Response.Write "</tr>"& vbcrlf
Response.Write "</table>"& vbcrlf
end sub


'帮助信息页面是中间部分
sub help_top()
Response.Write "<table align=center width='778' border='0' cellpadding='0' cellspacing='0' background='"&SiteUrl&"images/top_bg.gif'>"&vbcrlf
Response.Write "<tr>"& vbcrlf
Response.Write "<td><a href='"&Siteurl&"help/index.asp'><img src='"&SiteUrl&"images/top.gif' width='234' height='49' border='0'></a><a href='"&Siteurl&"help/index.asp'><img src='"&SiteUrl&"images/top_gn.gif' width='117' height='49' border='0'></a></td>"& vbcrlf
Response.Write "<td align='center' class=bl_14>还有更多问题？欢迎来<a href='../guestbook/index.asp' target='_blank'><strong><font color=#cc3300>问题意见反馈</font></strong></a> 咨询！</td>"& vbcrlf
Response.Write "<td align='right'><img src='"&SiteUrl&"images/top1.gif' width='4' height='49'></td>"& vbcrlf
Response.Write "</tr>"& vbcrlf
Response.Write "</table>"& vbcrlf
Response.Write "<table align=center width='778' border='0' cellspacing='0' cellpadding='0'>"& vbcrlf
Response.Write "<tr>"& vbcrlf
Response.Write " <td bgcolor='339900'><img src='"&Siteurl&"image/shim.gif' width='1' height='4'></td>"& vbcrlf
Response.Write " </tr>"& vbcrlf
Response.Write "</table>"& vbcrlf
end sub

'帮助信息
sub help()
help_top '调用中间部分信息
Response.Write "<table width='778' border='0' align='center' cellpadding='0' cellspacing='0'>"& vbcrlf
Response.Write "<tr>"& vbcrlf
Response.Write "<td width='179' valign='top' style='BORDER-TOP: #D2D2D2 1px solid;'>"& vbcrlf
help_left '调用调用帮助左导航信息
Response.Write "<SCRIPT language=javascript>"& vbcrlf            
Response.Write "var whichOpen='';   "& vbcrlf         
Response.Write " var whichContinue=''; "& vbcrlf           
Response.Write "</SCRIPT>"& vbcrlf
Response.Write "  </td>"& vbcrlf
Response.Write " <td width='14'> </td>"& vbcrlf
Response.Write " <td width='763' valign='top' class='lh15'>"& vbcrlf
Response.Write "   <iframe name=list src='list.asp' width='100%' height='100%' frameborder='0'></iframe>"& vbcrlf
Response.Write "   <div class='smalltoppad'></div></td>"& vbcrlf
Response.Write " </tr>"& vbcrlf
Response.Write "</table>"& vbcrlf
Response.Write "<table width='778' border='0' align='center' cellpadding='0' cellspacing='0'>"& vbcrlf
Response.Write "  <tr>"& vbcrlf
Response.Write "<td bgcolor='339900' width='1' height='3'></td>"& vbcrlf
Response.Write "</tr>"& vbcrlf
Response.Write "</table>"& vbcrlf
end sub


'-----------------------以下为留言信息部分------------------------
'快速留言
sub guestbook_fillin()
Response.Write "<table cellspacing=0 cellpadding=0 width='100%' border=0>"&vbcrlf
Response.Write "<tbody>"&vbcrlf
Response.Write "<tr>"&vbcrlf
Response.Write "<form name=adv onSubmit='return false;' action=guestok.asp method=post enctype='text/plain'>"&vbcrlf
Response.Write "<input type=hidden name=message>"&vbcrlf
Response.Write "<td valign=top align=left>"&vbcrlf
Response.Write "<table cellspacing=0 cellpadding=0 width='90%' border=0>"&vbcrlf
Response.Write "<tbody>"&vbcrlf
Response.Write "<tr>"&vbcrlf
Response.Write "<td width='84%' align=middle><div align='left'>"&vbcrlf
Response.Write "<textarea name=content cols='50' rows='10'class=textarea1></textarea>"&vbcrlf
Response.Write "<input name=sender_email class=input_g onClick='if(document.adv.sender_email.value=='请输入您的电子邮箱'){document.adv.sender_email.select();document.adv.sender_email.focus();}' value=请输入您的电子邮箱 size=26 maxlength='50'><a href='javascript:showSubmit()'><img style='CURSOR: hand' height=22 src='"&SiteUrl&"images/search.gif' width=65 alt='发送' align=absmiddle border=0></a></div></td>"&vbcrlf
Response.Write "<td width='16%' align=middle>&nbsp;</td>"&vbcrlf
Response.Write "</tr>"&vbcrlf
Response.Write "<SCRIPT LANGUAGE='JavaScript' SRC='../js/showsubmit.js' TYPE='text/javascript'></script>"&vbcrlf
Response.Write "</table></td>"&vbcrlf
Response.Write "</form>"&vbcrlf
Response.Write "</tr>"&vbcrlf
Response.Write "</table>"&vbcrlf
end sub


'-----------------------以下为HR资讯信息部分------------------------
'最新资讯信息,横向显示
sub new_news(num) 'num为调用的最新信息条数，ttid为返回的分类ID,横向显示
if ttid="" then
str=""
else
str="where typeid="&ttid&""
end if
sql="select top "&num&" * from JOB_hrnews "&str&" order by NewsID Desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write"<font color='#FFFFFF' class=white>此类暂无新增资讯</font>"
else
do while not rs.eof
response.write"<a href='"&Siteurl&"news/shownews.asp?newsid="&rs("newsid")&"' target='_blank' class=s1><font color='#OOOOOOs'>"&rs("title")&"</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
rs.movenext
loop
end if
rs.close
end sub


'最新资讯  
'最近7天的资讯信息
sub newdate_news(num)
if Chkrequest(num) then
if num>30 then '要调用的条数太大，这样会大大降低服务器效率，建议50条以下!
num=20
end if
sql="select top "&num&" * from JOB_hrnews where dateandtime>=date()-7 order by NewsID Desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "今日暂无资讯更新"
else
do while not rs.eof
response.write "·<a href='"&Siteurl&"news/shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='s'>"&left(rs("title"),15)&"</a><br>"
rs.movenext
loop
end if
rs.close
end if
end sub


'热点资讯信息
sub hot_news(num)
if Chkrequest(num) then
if num>30 then
num=20
end if
sql="select top "&num&" * from JOB_hrnews order by hits,newsid Desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
do while not rs.eof
response.write"·<a href='"&Siteurl&"news/shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='lh15 s' title='"&rs("title")&"'>"&left(rs("title"),15)&"</a><br>"&vbCrlf
rs.movenext
loop
end if
rs.close
end sub

'资讯图片推荐信息
sub pictj_news(num)
if Chkrequest(num) then
sql="select top "&num&" * from JOB_hrnews where typeid="&ttid&" and homehot<>1 and picture<>'nopicture.gif' order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write" <br><br><font class=s>此类暂无推荐图片资讯</font>"
else
do while not rs.eof
response.write"<DIV align=center><a href='"&Siteurl&"news/shownews.asp?newsid="&rs("newsid")&"' target='_blank' class=s><img src='../upimages/newsuppic/"&rs("picture")&"' width='216' height='150' hspace='5' vspace'5' class='porductborder'><br><br class=br>"
response.write""&left(rs("title"),16)&"</a></div>"
rs.movenext
loop
end if
end if
rs.close
end sub

'资讯子栏目热点图片信息
sub pichot_news(num)
if Chkrequest(num) then
sql="select top "&num&" * from JOB_hrnews where typeid="&ttid&" and homehot=1 and picture<>'nopicture.gif' order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write" <br><br><font class=s>此类暂无推荐图片资讯</font>"
else
do while not rs.eof
response.write"<DIV align=center><a href='"&Siteurl&"news/shownews.asp?newsid="&rs("newsid")&"' target='_blank' class=s><img src='../upimages/"&rs("picture")&"' width='170' height='142' hspace='5' vspace'5' class='porductborder'><br><br>"
response.write""&left(rs("title"),13)&"</a></div>"
rs.movenext
loop
end if
end if
rs.close
end sub


'资讯分类相关信息
sub xg_news(num)
if Chkrequest(num) then
sql="select top "&num&" * from JOB_hrnews where typeid="&ttid&" order by newsid Desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "暂无此栏目相关资讯"&vbCrlf
else
do while not rs.eof
response.write"·<a href='"&Siteurl&"news/shownews.asp?newsid="&rs("newsid")&"' class='lh15 s' title='"&rs("title")&"'>"&left(rs("title"),13)&" ("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</a><br>"&vbCrlf
rs.movenext
loop
end if
end if
rs.close
end sub

'资讯分类热点信息
sub typehot_news(num)
if Chkrequest(num) then
sql="select top "&num&" * from JOB_hrnews where typeid="&ttid&" order by hits,newsid Desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "暂无此栏目热点资讯"&vbCrlf
else
do while not rs.eof
response.write"·<a href='"&Siteurl&"news/shownews.asp?newsid="&rs("newsid")&"' class='lh15 s' title='"&rs("title")&"'>"&left(rs("title"),13)&" ("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</a><br>"&vbCrlf
rs.movenext
loop
end if
end if
rs.close
end sub

'资讯分类推荐信息
sub typetj_news(num)
if Chkrequest(num) then
sql="select top "&num&" * from JOB_hrnews where typeid="&ttid&" and tjnews=1 order by newsid Desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "暂无此栏目推荐资讯"&vbCrlf
else
do while not rs.eof
response.write"·<a href='shownews.asp?newsid="&rs("newsid")&"' class='lh15 s' title='"&rs("title")&"'>"&left(rs("title"),13)&" ("&month(rs("dateandtime"))&"-"&day(rs("dateandtime"))&")</a><br>"&vbCrlf
rs.movenext
loop
end if
end if
rs.close
end sub

'分类版头最新推荐
sub tjnews()
	
	sql="select * from JOB_hrnews where typeid="&ttid&" and tjnews=1 order by NewsID Desc"
	Set rs= Server.CreateObject("ADODB.Recordset") 
	rs.open sql,conn,1,1
	if rs.eof then
		response.write "<FONT class=S color=#3D362B>暂无此栏目推荐资讯</font>"
	else
		response.write "<a href='shownews.asp?newsid="&rs("newsid")&"' target='_blank' class='white'><FONT class=S color=#3D362B>"&rs("title")&"</font></a>"
	end if
	rs.close
end sub

'统计今日信息数
sub sumtoday()
sql="select * from JOB_hrnews where typeid="&ttid&" and DateDiff('d',date(),dateandtime)=0 order by NewsID Desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
response.write(rs.recordcount)
rs.close
end sub


'----------------------以下为资讯评论部分------------------------
'资讯发表评论部分
sub news_pl()
response.Write "<table width='100%' border=0 cellpadding=0 cellspacing=1 bgcolor=#999999>"
response.Write "<form name=form method=post action='news_guestok.asp' onsubmit='return checkComment(this)' target=_blank>"
response.Write "<input type=hidden name=bpjid value='"&newsid&"'>"
response.Write "<tr>"
response.Write "<td align=center bgcolor=F1F1F1>"
response.Write "<table width='98%' border=0 cellpadding=3 cellspacing=0>"
response.Write "<tr align=right>"
response.Write "<td colspan=3 class=listtopwd>（带<font color=#FF3300>*</font>号为必填项）</td>"
response.Write "</tr>"
response.Write "<tr>"
response.Write "<td width='20%'>登陆名：</td>"
response.Write "<td width='2%' valign=top class=S><font color=#FF3300>*</font></td>"
response.Write "<td width='78%'> <input name=pjrname type=text id=pjrname value='' size=10>"
response.Write "Email："
response.Write "<input name=pjremail type=text id=pjremail value='' size=10>"
response.Write "</td>"
response.Write "</tr>"
response.Write "<tr>"
response.Write "<td>标　题：</td>"
response.Write "<td valign=top class=S><font color=#FF3300>*</font></td>"
response.Write "<td> <input name=pj_name type=text id=pj_name size=30></td>"
response.Write "</tr>"
response.Write "<tr>"
response.Write "<td valign=top>内　容：</td>"
response.Write "<td valign=top class=S><font color=#FF3300>*</font></td>"
response.Write "<td valign=top style='line-height:120%'> <textarea name=pj_count cols=30 rows=6 id=pj_count></textarea>"
response.Write "</td>"
response.Write "</tr>"
response.Write "<tr><td colspan=3>"
response.Write "<span class=listtopwd>"
response.Write "<b> 发表评论须知：</b><br>"
response.Write "一、所发文章必须遵守《互联网电子公告服务管理规定》；<br>"
response.Write "二、严禁发布供求代理信息、公司介绍、产品信息等广告宣传信息；<br>"
response.Write "三、严禁对个人、实体、民族、国家等进行漫骂、污蔑、诽谤。 </span>"
response.Write "</td></tr>"
response.Write "<tr align=center>"
response.Write "<td height=41 colspan=3> <input type=submit name=Submit value=' 同意(发表评论须知)  提 交  ' class='inputa4' >"
response.Write "<input type=reset name=button value='　重 写　' class='inputa3'></td>"
response.Write "</tr>"
response.Write "</table>"