"
End Function
Function WebLocation()
WebLocation = "招聘信息"&vbCrLf
End Function
Function WebContent()
Dim rs, sql
Dim idCount
Dim pages
pages = JobInfo
Dim pagec
Dim page
page = CLng(request("Page"))
Dim pagenc
pagenc = 5
Dim pagenmax
Dim pagenmin
Dim pageprevious
Dim pagenext
Dim datafrom
datafrom = "Qianbo_Jobs"
Dim datawhere
datawhere = "where ViewFlag "
Dim sqlid
Dim Myself, PATH_INFO, QUERY_STRING
PATH_INFO = request.servervariables("PATH_INFO")
QUERY_STRING = request.ServerVariables("QUERY_STRING")'
If QUERY_STRING = "" Then
Myself = PATH_INFO & "?"
ElseIf InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then
Myself = PATH_INFO & "?" & QUERY_STRING & "&"
Else
Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1)
End If
Dim taxis
taxis = "order by id desc "
Dim i
sql = "select count(ID) as idCount from ["& datafrom &"]" & datawhere
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 0, 1
idCount = rs("idCount")
If(idcount>0) Then
If(idcount Mod pages = 0)Then
pagec = Int(idcount / pages)
Else
pagec = Int(idcount / pages) + 1
End If
sql = "select id from ["& datafrom &"] " & datawhere & taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 1, 1
rs.pagesize = pages
If page < 1 Then page = 1
If page > pagec Then page = pagec
If pagec > 0 Then rs.absolutepage = page
For i = 1 To rs.pagesize
If rs.EOF Then Exit For
If(i = 1)Then
sqlid = rs("id")
Else
sqlid = sqlid &","&rs("id")
End If
rs.movenext
Next
End If
If(idcount>0 And sqlid<>"") Then
sql = "select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
Set rs = server.CreateObject("adodb.recordset")
rs.Open sql, conn, 0, 1
Response.Write "
"&vbCrLf
While Not rs.EOF
If ISHTML = 1 Then
AutoLink = ""&JobNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "JobsView.asp?ID="&rs("ID")&""
End If
Response.Write "
"&vbCrLf
Response.Write "共"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条记录" & vbCrLf
pagenmin = page - pagenc
pagenmax = page+pagenc
If(pagenmin<1) Then pagenmin = 1
If ISHTML = 1 Then
If ID = "" Then
If(page>1) Then response.Write ("9 ")
Else
If(page>1) Then response.Write ("9 ")
End If
Else
If(page>1) Then response.Write ("9 ")
End If
If page - (pagenc * 2 + 1)<= 0 Then
pageprevious = 1
Else
pageprevious = page - (pagenc * 2 + 1)
End If
If ISHTML = 1 Then
If ID = "" Then
If(pagenmin>1) Then response.Write ("3 ")
Else
If(pagenmin>1) Then response.Write ("3 ")
End If
Else
If(pagenmin>1) Then response.Write ("3 ")
End If
If(pagenmax>pagec) Then pagenmax = pagec
For i = pagenmin To pagenmax
If(i = page) Then
response.Write (" "& i &" ")
Else
If ISHTML = 1 Then
If ID = "" Then
response.Write ("["& i &"]")
Else
response.Write ("["& i &"]")
End If
Else
response.Write ("["& i &"]")
End If
End If
Next
If page+(pagenc * 2 + 1)>= pagec Then
pagenext = pagec
Else
pagenext = page+(pagenc * 2 + 1)
End If
If ISHTML = 1 Then
If ID = "" Then
If(pagenmax: ")
If(page:")
Else
If(pagenmax: ")
If(page:")
End If
Else
If(pagenmax: ")
If(page:")
End If
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
rs.Close
Set rs = Nothing
End Function
%>