开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
JobsList.Asp
资源名称：utifulstyleatmosphereFLASH.rar　[点击查看]
上传用户：mtjhgs
上传日期：2021-12-08
资源大小：3755k
文件大小：10k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

JobsList.Asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <!--#include file="../Include/Const.asp" -->
  3. <!--#include file="../Include/NoHackSql.Asp" -->
  4. <!--#include file="../Include/ConnSiteData.asp" -->
  5. <%
  6. call SiteInfo
  7. if ISHTML = 1 then
  8. Response.expires = 0
  9. Response.expiresabsolute = Now() - 1
  10. Response.addHeader "pragma", "no-cache"
  11. Response.addHeader "cache-control", "private"
  12. Response.CacheControl = "no-cache"
  13. End If
  14. headid=4
  15. Seotitle="Company Recruitment"
  16. %>
  17. <!--#include file="Head.Asp" -->
  18. <div class="clear"></div>
  19. <div id="contant">
  20.   <div class="cleft">
  22. <div class="news">
  23.       <div class="title">
  24.   &nbsp;<b>Recruitment List</b>
  25.   </div>
  26.   <div>
  27.   <ul>
  28.   <%=WebMenu()%>
  29.   </ul>
  30.   </div>
  31.     </div>
  32. <div class="news">
  33.       <div class="title">
  34.   &nbsp;<b>Hot Product</b>
  35.   </div>
  36.   <div>
  37.   <ul>
  38.   <%=Producthot(10)%>
  39.   </ul>
  40.   </div>
  41.     </div>
  42.   </div>
  43. <div class="cright">
  44. <div class="crightb">
  45.   <div class="crightbtitle">
  46.     <div class="crightbtitlel">
  47. Location：
  48. </div>
  49. <div class="crightbtitler">
  50. <%=WebLocation()%>
  51. </div>
  52.   </div>
  53.   <div class="crightbcontent">
  54.  
  56. <table cellspacing="0" cellpadding="0" width="100%" bgcolor="#ffffff" border="0" heihgt="">
  57.     <tbody>
  58.         <tr>
  59.             <td>
  60. <%=WebContent()%>
  61.             </td>
  62.         </tr>
  63.     </tbody>
  64. </table>
  65.  </div>
  66. </div>
  67.   </div>
  68. </div>
  69. <!--#include file="Foot.Asp"-->
  70. <%
  71. function WebMenu()
  72.   response.write "<li><img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""JobsList.asp"" style=""margin-left:5px;"">Recruitment Information</a></li>"
  73.   response.write "<li><img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /><a href=""MemberTalent.asp"" style=""margin-left:5px;"">My Candidates</a></li>"
  74. end function
  76. function WebLocation()
  77.   WebLocation="&nbsp;Location：<a href=""index.asp"" class=""agray"">Home</a> - <a href=""JobsList.asp"" class=""agray"">Recruitment Information</a>"&VbCrLf
  78. end Function
  80. function WebContent()
  81.   dim rs,sql
  82.   dim idCount
  83.   dim pages
  84.       pages=JobInfo
  85.   dim pagec
  86.   dim page
  87.       page=clng(request("Page"))
  88.   dim pagenc
  89.       pagenc=5
  90.   dim pagenmax
  91.   dim pagenmin
  92.   dim pageprevious
  93.   dim pagenext
  94.   dim datafrom
  95.   datafrom="Wygkcnflash_Jobs"
  96.   dim datawhere
  97.   datawhere="where ViewFlag"&Language&"  "
  98.   dim sqlid
  99.   dim Myself,PATH_INFO,QUERY_STRING
  100.       PATH_INFO = request.servervariables("PATH_INFO")
  101.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  102.       if QUERY_STRING = "" then
  103.     Myself = PATH_INFO & "?"
  104.   elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  105.     Myself= PATH_INFO & "?" & QUERY_STRING & "&"
  106.   else
  107.     Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  108.   end if
  109.   dim taxis
  110.       taxis="order by id desc "
  111.   dim i
  112.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  113.   set rs=server.createobject("adodb.recordset")
  114.   rs.open sql,conn,0,1
  115.   idCount=rs("idCount")
  116.   if(idcount>0) then
  117.     if(idcount mod pages=0)then
  118.   pagec=int(idcount/pages)
  119.     else
  120.       pagec=int(idcount/pages)+1
  121.     end if
  122.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  123.     set rs=server.createobject("adodb.recordset")
  124.     rs.open sql,conn,1,1
  125.     rs.pagesize = pages
  126.     if page < 1 then page = 1
  127.     if page > pagec then page = pagec
  128.     if pagec > 0 then rs.absolutepage = page
  129.     for i=1 to rs.pagesize
  130.   if rs.eof then exit for
  131.   if(i=1)then
  132.     sqlid=rs("id")
  133.   else
  134.     sqlid=sqlid &","&rs("id")
  135.   end if
  136.   rs.movenext
  137.     next
  138.   end if
  139.   if(idcount>0 and sqlid<>"") then
  140.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  141.     set rs=server.createobject("adodb.recordset")
  142.     rs.open sql,conn,0,1
  143. Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
  144. Response.Write "  <tr height=""26"">"&VbCrLf
  145. Response.Write "    <td style=""color:#FFFFFF; font-weight:bold; background:url(Images/split.gif) no-repeat right center; background-color:#cccccc"">&nbsp;&nbsp;&nbsp;&nbsp;Job Title</td>"&VbCrLf
  146. Response.Write "    <td style=""color:#FFFFFF; font-weight:bold; background:url(Images/split.gif) no-repeat right center; background-color:#cccccc"">&nbsp;&nbsp;Recruitment units</td>"&VbCrLf
  147. Response.Write "    <td style=""color:#FFFFFF; font-weight:bold; background:url(Images/split.gif) no-repeat right center; background-color:#cccccc"">&nbsp;&nbsp;Place of work</td>"&VbCrLf
  148. Response.Write "    <td style=""color:#FFFFFF; font-weight:bold; background:url(Images/split.gif) no-repeat right center; background-color:#cccccc"">&nbsp;&nbsp;Recruits Number</td>"&VbCrLf
  149. Response.Write "    <td style=""color:#FFFFFF; font-weight:bold; background:url(Images/split.gif) no-repeat right center; background-color:#cccccc"">&nbsp;&nbsp;State</td>"&VbCrLf
  150. Response.Write "    <td bgcolor=""#cccccc"" style=""color:#FFFFFF; font-weight:bold"">&nbsp;&nbsp;Update Time</td>"&VbCrLf
  151. Response.Write "  </tr>"&VbCrLf
  152.     while not rs.eof
  153. If ISHTML = 1 Then
  154. AutoLink = ""&JobNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
  155. Else
  156. AutoLink = "JobsView.asp?ID="&rs("ID")&""
  157. End If
  158. Response.Write "  <tr height=""28"">"&VbCrLf
  159. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&rs("JobName"&Language)&"</a></td>"&VbCrLf
  160. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">&nbsp;&nbsp;&nbsp;"&rs("eEmployer"&Language)&"</td>"&VbCrLf
  161. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">&nbsp;&nbsp;&nbsp;"&rs("JobAddress"&Language)&"</td>"&VbCrLf
  162. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">&nbsp;&nbsp;&nbsp;"&rs("JobNumber")&"</td>"&VbCrLf
  163. If rs("EndDate")>now() Then
  164. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">&nbsp;&nbsp;&nbsp;Recruitment</td>"&VbCrLf
  165. Else
  166. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">&nbsp;&nbsp;&nbsp;Ended</td>"&VbCrLf
  167. End If
  168. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">&nbsp;&nbsp;&nbsp;"&FormatDate(rs("Addtime"),13)&"</td>"&VbCrLf
  169. Response.Write "  </tr>"&VbCrLf
  170. rs.movenext
  171.     Wend
  172. Response.Write "</table>"&VbCrLf
  173.   else
  174.     response.write "<center>No relevant information</center>"
  175. exit function
  176.   end if
  177.   Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
  178.   Response.Write "  <tr height=""35"">"&VbCrLf
  179.   Response.Write "    <td align=""center"">"&VbCrLf
  180.   Response.Write "Total:<strong style=""color:red"">"&idcount&"</strong>Records&nbsp;&nbsp;Page:<strong style=""color:red"">"&page&"</strong>/"&pagec&" PageSize:<strong style=""color:red"">"&pages&"</strong>Records" & vbCrLf
  181.   pagenmin=page-pagenc
  182.   pagenmax=page+pagenc
  183.   if(pagenmin<1) then pagenmin=1
  184.   If ISHTML = 1 Then
  185.   If ID = "" Then
  186.   if(page>1) then response.write ("<a href="""&JobSortName&""&Separated&"1."&HTMLName&""" title=""Return to page 1""><font face=""webdings"" color=""#000000"">9</font></a> ")
  187.   Else
  188.   if(page>1) then response.write ("<a href="""&JobSortName&""&Separated&""&ID&""&Separated&"1."&HTMLName&""" title=""Return to page 1""><font face=""webdings"" color=""#000000"">9</font></a> ")
  189.   End If
  190.   Else
  191.   if(page>1) then response.write ("<a href="""& myself &"Page=1"" title=""Return to page 1""><font face=""webdings"" color=""#000000"">9</font></a> ")
  192.   End If
  193.   if page-(pagenc*2+1)<=0 then
  194. pageprevious=1
  195.   else
  196. pageprevious=page-(pagenc*2+1)
  197.   end If
  198.   If ISHTML = 1 Then
  199.   If ID = "" Then
  200.   if(pagenmin>1) then response.write ("<a href="""&JobSortName&""&Separated&""&pageprevious&"."&HTMLName&""" title=""page"& pageprevious &"""><font face=""webdings"" color=""#000000"">3</font></a> ")
  201.   Else
  202.   if(pagenmin>1) then response.write ("<a href="""&JobSortName&""&Separated&""&ID&""&Separated&""&pageprevious&"."&HTMLName&""" title=""page"& pageprevious &"""><font face=""webdings"" color=""#000000"">3</font></a> ")
  203.   End If
  204.   Else
  205.   if(pagenmin>1) then response.write ("<a href="""& myself &"Page="& pageprevious &""" title=""page"& pageprevious &"""><font face=""webdings"" color=""#000000"">3</font></a> ")
  206.   End If
  207.   if(pagenmax>pagec) then pagenmax=pagec
  208.   for i = pagenmin to pagenmax
  209. if(i=page) then
  210.   response.write ("&nbsp;<strong style=""color:red"">"& i &"</strong>&nbsp;")
  211. Else
  212. If ISHTML = 1 Then
  213. If ID = "" Then
  214. response.write ("[<a href="""&JobSortName&""&Separated&""&i&"."&HTMLName&""">"& i &"</a>]")
  215. Else
  216. response.write ("[<a href="""&JobSortName&""&Separated&""&ID&""&Separated&""&i&"."&HTMLName&""">"& i &"</a>]")
  217. End If
  218. Else
  219. response.write ("[<a href="""& myself &"Page="&i&""">"& i &"</a>]")
  220. End If
  221. end if
  222.   next
  223.   if page+(pagenc*2+1)>=pagec then
  224.     pagenext=pagec
  225.   else
  226.     pagenext=page+(pagenc*2+1)
  227.   end If
  228.   If ISHTML = 1 Then
  229.   If ID = "" Then
  230.   if(pagenmax<pagec) then response.write (" <a href="""&JobSortName&""&Separated&""&pagenext&"."&HTMLName&""" title=""Go to page"&pagenext&"""><font face=""webdings"" color=""#999999"">:</font></a> ")
  231.   if(page<pagec) then response.write (" <a href="""&JobSortName&""&Separated&""&pagec&"."&HTMLName&""" title=""Go to page"&pagec&"""><font face=""webdings"" color=""#000000"">:</font></a>")
  232.   Else
  233.   if(pagenmax<pagec) then response.write (" <a href="""&JobSortName&""&Separated&""&ID&""&Separated&""&pagenext&"."&HTMLName&""" title=""Go to page"&pagenext&"""><font face=""webdings"" color=""#999999"">:</font></a> ")
  234.   if(page<pagec) then response.write (" <a href="""&JobSortName&""&Separated&""&ID&""&Separated&""&pagec&"."&HTMLName&""" title=""Go to page"&pagec&"""><font face=""webdings"" color=""#000000"">:</font></a>")
  235.   End If
  236.   Else
  237.   if(pagenmax<pagec) then response.write (" <a href="""& myself &"Page="& pagenext &""" title=""Go to page"&pagenext&"""><font face=""webdings"" color=""#999999"">:</font></a> ")
  238.   if(page<pagec) then response.write (" <a href="""& myself &"Page="& pagec &""" title=""Go to page"&pagec&"""><font face=""webdings"" color=""#000000"">:</font></a>")
  239.   End If
  240.   Response.Write "    </td>"&VbCrLf
  241.   Response.Write "  </tr>"&VbCrLf
  242.   Response.Write "</table>"&VbCrLf
  243.   rs.close
  244.   set rs=nothing
  245. end function
  246. %>