Добро пожаловать на сайт Факультета права БГЭУ!
Проект находится на стадии разработки. На данный момент вы можете ознакомится с информацией по кафедрам, узнать немного о истории создания Факультета права, а также в ближайшее время планируется поместить информацию полезную для тех кто собрался поступать к нам на факультет
<%
'-------------- Sample2.asp -----------------
Sub WriteOtherPages(QueryId, DocCount, CurPage, DocPerPage)
If DocCount <= DocPerPage Then
Exit Sub
End If
PageCount = CInt((DocCount+DocPerPage-1)/DocPerPage)
PageRank = 10
PageFirst = CurPage-PageRank
PageLast = CurPage+PageRank
If PageFirst < 1 Then
PageFirst = 1
End If
If PageLast > PageCount Then
PageLast = PageCount
End If
Response.Write("Другие страницы найденных документов: ")
If CurPage > 1 Then
Str = "
[Пред.]"
Response.Write(Str)
End If
For i = PageFirst To PageLast
If i = CurPage Then
Response.Write(i)
Else
Str = "
" + CStr(i) + ""
Response.Write(Str)
End If
Next
If CurPage < PageLast Then
Str = "
[След.]"
Response.Write(Str)
End If
End Sub
Text = Request("t")
Query = Request("q")
Page = CInt(Request("p"))
If Page = "" Then
Page = 1
End If
DocPerPage =10
Dim Ynd, DocList
If Text <> "" Then
Set Ynd = Server.CreateObject("Yandex.YandexAsp")
Set DocList = Ynd.FindDocuments(Text)
ElseIf Query <> "" Then
Set Ynd = Server.CreateObject("Yandex.YandexAsp")
Set DocList = Ynd.LoadDocuments(Query)
End If
DocFirst = (Page-1)*DocPerPage
DocLast = DocFirst + DocPerPage - 1
If DocLast >= DocList.Count Then
DocLast = DocList.Count - 1
End If
%>
Поисковая страничка
<%If (Text <> "" Or Query <> "") And DocList.Count > 0 Then%>
Документы <%=DocFirst+1%>-<%=DocLast+1%> из <%=DocList.Count%> найденных уникальных документов.
>
<%
For i = DocFirst To DocLast
Set Doc = DocList.Item(i)
%>
- <%=Doc.FileName%>
<%Next%>
<%End If%>
<%
Call WriteOtherPages(DocList.Id, DocList.Count, Page, DocPerPage)
%>
