PaperModel.cz

<%@ Language=VBScript %> <%option Explicit Response.Buffer = True%> PaperModel.cz <%'On Error Resume Next%>

Všechny články

Vyhledávání:

<%art_section%>

<% If Not Request.QueryString ("art_pub_detail") = "true" And Not Request.QueryString ("detail_comment")= "true" Then art_pub ElseIf Request.QueryString ("art_pub_detail") = "true" And Not Request.QueryString ("detail_comment")= "true" Then Dim art_ID, rating, add_art_comment_ID art_ID = Request.QueryString ("art_ID") rating = Request.QueryString ("rating") add_art_comment_ID = Request.QueryString ("add_art_comment_ID") If rating <> "" Then art_count_rating_diameter rating, art_ID ElseIf art_ID <> "" Then If Request.Cookies(art_ID & "count") = art_ID Then Response.Cookies(art_ID & "count") = "" Else count_entry art_ID End If art_pub_detail art_ID %>
<% End If forum art_ID ElseIf Not Request.QueryString ("art_pub_detail") = "true" And Request.QueryString ("detail_comment")= "true" Then Dim comment_ID comment_ID = Request.QuerySTRing ("comment_ID") detail_comment comment_ID End If%>

<%Response.Flush()%>

<%art_pub_TOP%>

<%Response.Flush()%>

<% '***************************************************************************** Function links If Response.IsClientConnected() Then If connDB() Then Dim SQL, storeDB, recordDB, recordDBF SQL = "SELECT TOP 5 ID, URL, name FROM links" SQL = SQL &" ORDER BY ID ASC" Set storeDB = conn.Execute (SQL) ' Response.Write "

Doporučujeme:" & vbCrLf If storeDB.EOF = True Then recordDBF = "Není zde žádný link." End If Do Until storeDB.EOF recordDB = ""& storeDB("name") &"" & vbCrLf recordDBF = recordDBF + recordDB storeDB.Movenext Loop Response.Write "" & recordDBF & "

" storeDB.close end_conn End If End If End Function '***************************************************************************** 'rubriky '***************************************************************************** Function art_section If Response.IsClientConnected() Then If connDB() Then Dim SQL, storeDB, recordDB, recordDBF SQL = "SELECT section.name, section.poradi, section.id, COUNT(article.ID) AS count_art " SQL = SQL & " FROM section LEFT OUTER JOIN article ON section.ID = article.section_id " SQL = SQL & " GROUP BY section.name, section.poradi, section.id ORDER BY section.poradi ASC" Set storeDB = conn.Execute (SQL) ' Response.Write ("") If storeDB.EOF = True Then recordDBF = "" End If Do Until storeDB.EOF 'original: 'recordDB = ("") recordDB = ("

Rubriky
Není zde žádná sekce.
"& storeDB("name") &" - " & storeDB("count_art") & "
"& storeDB("name") & "	" & storeDB("count_art")) & "	" recordDBF = recordDBF + recordDB storeDB.Movenext Loop Response.Write (recordDBF & "

") storeDB.close end_conn End If End If End Function '***************************************************************************** 'top články '***************************************************************************** Function art_pub_TOP If Response.IsClientConnected() Then If connDB() Then Dim SQL, storeDB, recordDB, recordDBF, count_top, date_range, date_TOP 'date_range určuje za kolik posledních dnů se vyhodnocují nejčtenější články 'date_TOP je datum, od kterého -//- 'do SQL definice nutno zapsat ručně!!! date_range = 50 date_TOP = (date()- date_range) 'Response.Write "date_range: " & date_range & "
" 'Response.Write "date_TOP: " & date_TOP 'SQL = "SELECT TOP 10 ID, title FROM article " 'SQL = SQL & " WHERE date_publication <= date() ORDER BY count_entry DESC" SQL = "SELECT TOP 10 ID, title, subheading, count_entry FROM article " SQL = SQL & "WHERE date_publication > (date() - 50) " SQL = SQL & "ORDER BY count_entry DESC" 'UNION ALL SELECT Jméno... Set storeDB = conn.Execute (SQL) ' Response.Write ("" End If 'original: 'Do Until storeDB.EOF 'recordDB = "" 'recordDBF = recordDBF + recordDB 'storeDB.Movenext 'Loop Do Until storeDB.EOF recordDB = "" recordDBF = recordDBF + recordDB storeDB.Movenext Loop 'original 'recordDB = "" 'original 'recordDB = "" 'count_top=0 'Do Until count_top > 19 'recordDB = "" 'recordDBF = recordDBF + recordDB 'storeDB.Movenext 'count_top = count_top+1 'Loop Response.Write (recordDBF & "

TOP články (dle přístupů) za posledních " & date_range & " dnů
") If storeDB.EOF = True Then recordDBF = "
Není zde žádný článek.
"& 'storeDB("title") &"
"& storeDB("title") & "	" & storeDB("count_entry") & "
" & storeDB("count_entry") & " - " & ""& storeDB("title") & "
" & storeDB("count_entry") & " - " & ""& storeDB("title") & " - " & storeDB("subheading") & "
"& storeDB("title") &"

") storeDB.close end_conn End If End If End Function 'next REM bleskové zprávy and line 187 '***************************************************************************** 'bleskové zprávy '***************************************************************************** Function express_messages If Response.IsClientConnected() Then If connDB() Then Dim SQL, storeDB, recordDB, recordDBF SQL = "SELECT TOP 2 title, message FROM message WHERE date_publication <= date() ORDER BY date_publication" Set storeDB = conn.Execute (SQL) Response.Write "" If storeDB.EOF = True Then recordDBF = "" End If Do Until storeDB.EOF recordDB = "" recordDBF = recordDBF + recordDB storeDB.Movenext Loop Response.Write recordDBF & "

Bleskové zprávy:

Není zde žádná zpráva.

"& storeDB("title") &" - " & storeDB("message") &"

" storeDB.close end_conn End If End If End Function ''***************************************************************************** 'vyber články '***************************************************************************** Function art_pub If Response.IsClientConnected() Then If connDB() Then Set storeDB = Server.CreateObject("ADODB.RecordSet") Dim SQL, storeDB, recordDB, recordDBF, join_dt, dt, datepub _ , recordDB_count_art, search_string, search_string_s, page_count, page_bn _ , I, page_back, page_next, page_link_back, page_link_next, page _ , act_page_n, p_com, p_new, art_date, art_sec_ID, art_author, pnc_c _ , NazevSekce, Hledej, Dosadit search_string = Request.QueryString ("search_string") page = Request.QueryString ("page") art_date = Request.QueryString ("art_date") art_sec_ID = Request.QueryString ("art_sec_ID") art_author = Request.QueryString ("art_author") If Request.QueryString ("detail_search") = "true" Then If Request.QueryString ("nazev") = "true" Then search_string_s = " AND article.title LIKE '%"&search_string&"%' " End If If Request.QueryString ("podtitul") = "true" Then search_string_s = search_string_s & " AND article.subheading LIKE '%"&search_string&"%' " End If If Request.QueryString ("podtitul") = "true" Then search_string_s = search_string_s & " AND article.full_art LIKE '%"&search_string&"%' " End If SQL = "SELECT (SELECT COUNT(*) FROM forum WHERE art_id = article.ID) As p_com, (SELECT COUNT(*) FROM article INNER JOIN section ON article.section_id=section.ID " SQL = SQL &" WHERE article.full_art LIKE '%"& search_string &"%') As count_art, article.ID, article.title, article.subheading, article.full_art, article.author," SQL = SQL &" (SELECT COUNT(*) FROM forum WHERE created = date() AND art_id = article.ID) As p_new, " SQL = SQL &" article.date_publication, section.name, article.section_id FROM article INNER JOIN section ON article.section_id=section.ID" SQL = SQL &" WHERE article.date_publication <= date() "& search_string_s &" ORDER BY article.date_publication DESC, article.ID DESC" ElseIf search_string <> "" Then SQL = "SELECT (SELECT COUNT(*) FROM forum WHERE art_id = article.ID) As p_com, (SELECT COUNT(*) FROM article INNER JOIN section ON article.section_id=section.ID " SQL = SQL &" WHERE article.title LIKE '%"& search_string &"%') As count_art, article.ID, article.title, article.subheading, article.author," SQL = SQL &" (SELECT COUNT(*) FROM forum WHERE created = date() AND art_id = article.ID) As p_new, " SQL = SQL &" article.date_publication, section.name, article.section_id FROM article INNER JOIN section ON article.section_id=section.ID" 'SQL = SQL &" WHERE article.date_publication <= date() AND title LIKE '%"& search_string &"%'" SQL = SQL &" WHERE article.date_publication <= date() AND full_art LIKE '%"& search_string &"%'" SQL = SQL &" ORDER BY article.date_publication DESC, article.ID DESC" Elseif art_sec_ID <> "" Then SQL = "SELECT (SELECT COUNT(*) FROM forum WHERE art_id = article.ID) As p_com, article.ID, article.title, article.subheading, article.full_art, article.author," SQL = SQL &" (SELECT COUNT(*) FROM forum WHERE created = date() AND art_id = article.ID) As p_new," SQL = SQL &" article.date_publication, section.name, article.section_id FROM article INNER JOIN section ON article.section_id=section.ID" SQL = SQL &" WHERE article.section_id = "& art_sec_ID &" AND article.date_publication <= date() ORDER BY article.date_publication DESC, article.ID DESC" Elseif art_author <> "" Then SQL = "SELECT (SELECT COUNT(*) FROM forum WHERE art_id = article.ID) As p_com, article.ID, article.title, article.subheading, article.full_art, article.author," SQL = SQL &" (SELECT COUNT(*) FROM forum WHERE created = date() AND art_id = article.ID) As p_new," SQL = SQL &" article.date_publication, section.name, article.section_id FROM article INNER JOIN section ON article.section_id=section.ID" SQL = SQL &" WHERE article.date_publication <= date() AND author LIKE '%"& art_author &"%' ORDER BY article.date_publication DESC, article.ID DESC" Elseif art_date <> "" Then SQL = "SELECT (SELECT COUNT(*) FROM forum WHERE art_id = article.ID) As p_com, article.ID, article.title, article.subheading, article.full_art, article.author," SQL = SQL &" (SELECT COUNT(*) FROM forum WHERE created = date() AND art_id = article.ID) As p_new," SQL = SQL &" article.date_publication, section.name, article.section_id FROM article INNER JOIN section ON article.section_id=section.ID" SQL = SQL &" WHERE article.date_publication = #"& Replace(art_date,".","/") &"# ORDER BY article.date_publication DESC, article.ID DESC" date Else SQL = "SELECT (SELECT COUNT(*) FROM forum WHERE art_id = article.ID) As p_com, article.ID, article.title, article.subheading, article.full_art, article.author," SQL = SQL &" (SELECT COUNT(*) FROM forum WHERE created = date() AND art_id = article.ID) As p_new," SQL = SQL & " article.date_publication, section.name, article.section_id FROM article INNER JOIN section ON article.section_id=section.ID" SQL = SQL &" WHERE article.date_publication <= date() ORDER BY article.date_publication DESC, article.ID DESC" End If storeDB.Open SQL,conn,1,1 If page <> "" Then act_page_n = page Else act_page_n = 1 End If If storeDB.EOF = False Then 'počet záznamů na stránce - pro určení odkazu stránkování storeDB.PageSize = 8 storeDB.AbsolutePage = act_page_n page_count = storeDB.PageCount End If If page_bn <> "" Then page_sort = "&page="&page_bn End If ' ' Response.Write "" pnc_c = false If storeDB.EOF = True Then If search_string <> "" Then recordDB_count_art = "" pnc_c = true End If pnc_c = true recordDBF = "" End If 'počet záznamů na stránce - por výpis záznamů For I = 1 To 8 If storeDB.EOF = False Then p_com = storeDB("p_com") p_new = storeDB("p_new") datepub = storeDB("date_publication") join_dt = split(datepub,".") dt = join_dt(1) & "/" & join_dt(0) & "/" & join_dt(2) If search_string <> "" Then recordDB_count_art = "" End If 'zde se z nazvu sekce storeDB("name") odstrani tagy: '
aby se ve stredni casti nazev sekce nezalamoval ' aby byl odkazovaci cely nazev ' aby nebylo moc mezer NazevSekce = storeDB("name") Hledej = "
" Dosadit = " " NazevSekce = Replace (NazevSekce, Hledej, Dosadit, 1, 1, 1) Hledej = "" Dosadit = "" NazevSekce = Replace (NazevSekce, Hledej, Dosadit, 1, 1, 1) Hledej = " " Dosadit = " - " NazevSekce = Replace (NazevSekce, Hledej, Dosadit, 1, 1, 1) 'zápis dat článku: 'original 'recordDB = "" recordDB = "" 'recordDB = "" 'v predchazejicim radku pridana kazdemu zaznamu jedna prazdna bunka 'clanky jsou tak v seznamu opticky oddeleny volnym radkem recordDBF = recordDBF + recordDB storeDB.movenext End If Next Response.Write recordDB_count_art & vbCrLf & recordDBF & "

počet nalezených článků: 0
Nebyl nalezen žádný článek.
počet nalezených článků: "& storeDB("count_art") &"
" & datepub & " - " & NazevSekce _ '&" - " & storeDB("author")&"
" & _ 'storeDB("title") & "
" & storeDB("subheading") & "
komentářů: "& p_com &" nových: "& p_new &"

" & datepub & " - " & NazevSekce _ &" - " & storeDB("author")&"	komentářů: "& p_com &" nových: "& p_new &"
" & _ storeDB("title") & " - " & storeDB("subheading") & "

" & datepub & '" - " & 'storeDB("name") _ '&" - " '& storeDB("author")&"
" & _ 'storeDB("title") & "
" & storeDB("subheading") & "
komentářů: "& p_com &" nových: "& p_new '&"

" storeDB.close end_conn If Request.QueryString ("page") = "" Then page_back = 1 Else page_back = Request.QueryString ("page") - 1 End if If Request.QueryString ("page") = "" Then page_next = 2 Else page_next = page + 1 If CInt(Request.QueryString ("page")) = page_count Then page_next = page_count End If End If If page = "" Then page_bn = 1 Else page_bn = page End If If page_count = "" Then page_count = 1 End If If Not Request.QueryString ("page") = "" Then If Not Request.QueryString ("page") = 1 Then ' page_link_back = "

" page_link_back = page_link_back &"zpět

" End If End If If Not CInt(Request.QueryString ("page")) = page_count And Not page_count = 1 Then ' page_link_next = "

" page_link_next = page_link_next &"další

" End If If pnc_c Then page_bn = 0 page_count = 0 End If ' Response.Write "

"& page_link_back & page_link_next &"["& page_bn & "/" & page_count & "]

" End If End If End Function '***************************************************************************** %>

<% '***************************************************************************** end_conn '***************************************************************************** On Error Goto 0 '***************************************************************************** Response.Flush() Response.End() '***************************************************************************** %>