?? sub.asp
字號:
<%
'-----------------------以下為網站導航信息部分------------------------
'網站導航 操作的表為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> <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> </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> "
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>"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -