行业网站建设论坛,开源论坛,中国建站论坛,.net程序员社区-易想论坛

首页 » YxB2B商务网交流 » 安装使用 » 原创 3.0-3.4版 人才招聘 翻页问题 解决方案 【申精】

yam2s - 2008-10-9 17:54:00

3.3以后版本修改方法

1.打开inc/safe.asp 在分页2代码之后增加

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

'分页人才
Function listPages3(LinkFile)
  if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1

If LCase(Request.ServerVariables("HTTPS")) = "off" Then
    strTemp = "http://"
    Else
    strTemp = "https://"
    End If
    strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
    If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
    strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
    lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then

if blockPage = 1 Then
  Response.Write "<span disabled>【←前10页</span> "
Else
  Response.Write("<span disabled>【</span><a href=" & LinkFile & "&page="&blockPage-10&">←前10页</a> ")
End If
  i=1
  Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
  Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
Else
  Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">["&blockPage&"]</a> ")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
if blockPage > totalpage Then
  Response.Write " <span disabled>后10页→】"
Else
  Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">后10页→</a><span disabled>】")
End If
response.write" 直接到第 "
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
    for i=1 to totalpage
    response.write"<option value='" & LinkFile & "&page=" & i & "'"
    if i=gopage then response.write"selected"
    response.write">"&i&"</option>"
    next
    response.write"</select>"
    response.write" 页<Br><Br>"

else

if blockPage = 1 Then
  Response.Write "<span disabled>【←前10页</span> "
Else
  Response.Write("<span disabled>【</span><a href=" & LinkFile & "?typeid=2&page="&blockPage-10&">←前10页</a> ")
End If
  i=1
  Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
  Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
Else
  Response.Write(" <a href=" & LinkFile & "?typeid=2&page="&blockPage&">["&blockPage&"]</a> ")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
if blockPage > totalpage Then
  Response.Write " <span disabled>后10页→】"
Else
  Response.Write(" <a href=" & LinkFile & "?typeid=2&page="&blockPage&">后10页→</a><span disabled>】")
End If
response.write" 直接到第 "
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
    for i=1 to totalpage
    response.write"<option value='" & LinkFile & "?typeid=2&page=" & i & "'"
    if i=gopage then response.write"selected"
    response.write">"&i&"</option>"
    next
    response.write"</select>"
    response.write" 页<Br><Br>"

End If

Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
  Response.Write("  共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")
end if
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

2.打开job/search_person.asp

找到：<%=listPages(""&HOPE_InstallDir&"job/jobsearch.asp")%>
改为：<%=listPages3(""&HOPE_InstallDir&"job/search_person.asp")%>

3.将修改后的两个文件夹上传覆盖原文件即可 【注意备份】

3.3以前修改方法

1.复制job/jobsearch.asp 将复制好的文件重命名为search_person.asp

2.打开search_person.asp

找到：<%=listPages(""&HOPE_InstallDir&"job/jobsearch.asp")%>
改为：<%=listPages3(""&HOPE_InstallDir&"job/search_person.asp")%>

3.打开inc/safe.asp 在分页2代码之后增加

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

'分页人才
Function listPages3(LinkFile)
  if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1

If LCase(Request.ServerVariables("HTTPS")) = "off" Then
    strTemp = "http://"
    Else
    strTemp = "https://"
    End If
    strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
    If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
    strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
    lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then

if blockPage = 1 Then
  Response.Write "<span disabled>【←前10页</span> "
Else
  Response.Write("<span disabled>【</span><a href=" & LinkFile & "&page="&blockPage-10&">←前10页</a> ")
End If
  i=1
  Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
  Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
Else
  Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">["&blockPage&"]</a> ")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
if blockPage > totalpage Then
  Response.Write " <span disabled>后10页→】"
Else
  Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">后10页→</a><span disabled>】")
End If
response.write" 直接到第 "
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
    for i=1 to totalpage
    response.write"<option value='" & LinkFile & "&page=" & i & "'"
    if i=gopage then response.write"selected"
    response.write">"&i&"</option>"
    next
    response.write"</select>"
    response.write" 页<Br><Br>"

else

if blockPage = 1 Then
  Response.Write "<span disabled>【←前10页</span> "
Else
  Response.Write("<span disabled>【</span><a href=" & LinkFile & "?typeid=2&page="&blockPage-10&">←前10页</a> ")
End If
  i=1
  Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
  Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
Else
  Response.Write(" <a href=" & LinkFile & "?typeid=2&page="&blockPage&">["&blockPage&"]</a> ")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
if blockPage > totalpage Then
  Response.Write " <span disabled>后10页→】"
Else
  Response.Write(" <a href=" & LinkFile & "?typeid=2&page="&blockPage&">后10页→</a><span disabled>】")
End If
response.write" 直接到第 "
response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
    for i=1 to totalpage
    response.write"<option value='" & LinkFile & "?typeid=2&page=" & i & "'"
    if i=gopage then response.write"selected"
    response.write">"&i&"</option>"
    next
    response.write"</select>"
    response.write" 页<Br><Br>"

End If

Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
  Response.Write("  共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")
end if
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

4.打开manage/makehtml/index/temp_inc.asp
找到：<a href="&HOPE_InstallDir&"job/jobsearch.asp?typeid=2>个人求职</a>
改为：<a href="&HOPE_InstallDir&"job/search_person.asp?typeid=2>个人求职</a>

5.将所有修改文件上传到各自文件夹内 修改完毕。

天意 - 2008-10-9 21:34:00

这块我们会尽快测试并修复

yam2s - 2008-10-10 13:37:00

问题以解决，以上方案为原创方案，欢迎转载。

yam2s - 2008-10-10 14:52:00

需要的朋友可以看看。

yam2s - 2008-10-22 13:42:00

:default1:  居然没人需要

best2088 - 2008-10-24 18:18:00

已经修改了 看效果如何

还有我的 人才展示不显示 全部显示的是代码 升级到3.4就这样啦

红超志明 - 2008-10-25 0:46:00

人才显示标签代码问题见:http://bbs.changehope.com/showtopic-19457.aspx

1

查看完整版本: 原创 3.0-3.4版 人才招聘 翻页问题 解决方案 【申精】

Powered by Discuz!NT Archiver 2.5.0 2001-2008 Comsenz Inc.