coloque este site como sua página inicial <% @ language="Vbscript" %>
<%
'#########################################################
'# #
'# Delas.it news system, a system of news #
'# where every news can be commented. #
'# This is a free code and you can use it as you want #
'# but i enjoy if you want say me that you use it. #
'# P.S.: sorry for my english... i'm italian! #
'# #
'# http://www.delas.it delas@delas.it #
'# #
'# Soon the second relase with many more features... #
'#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~#
'# #
'# These are the variables that must be modificated: #
'# #
'#########################################################
strURLdb = "db/database.mdb" 'Enter here the url of the database
RecPerPag = 5 'Enter here the number of news printed per page
strNoComm = "There aren't comments for this news." 'The message if there aren't comments for the news
strNoNews = "There aren't record in the database." 'The message if there aren't news in the database
strMainTitle = "These are all the news from the datbase." 'The title of the main page
'#########################################################
'# Dont't modify the code under here! #
'# all right reserved, Delas.it #
'#########################################################
'#########################################################
%>
<% strAction = request("action")
iIDNews = request("id")
iIdNewsRif = request("idrif")
if strAction = "sendcomment" then
strName = Request("name")
strText = Request("text")
end if
if strAction = "sendnews" then
strName = Request("name")
strText = Request("text")
strTitle = Request("title")
end if %>
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(strURLdb)
'Recordset for all news
set objNews=server.createobject("adodb.recordset")
sql="select * from news order by news.id desc"
objNews.open sql,conn,3,3
'Recordset for the news details
if strAction="detail" then
set objNewsDett=server.createobject("adodb.recordset")
sql="select * from news where id="& iIDNews &""
objNewsDett.open sql,conn,3,3
end if
'Recordset for the news comments
if strAction="detail" then
set objNewsComm=server.createobject("adodb.recordset")
sql="select * from comments where idrif="& iIDNews &" order by comments.id desc"
objNewsComm.open sql,conn,3,3
end if
'Recordset for add a new comment
if strAction="sendcomment" then
set objAddComm=server.createobject("adodb.recordset")
sql="select * from comments where idrif="& iIdNewsRif &""
objAddComm.open sql,conn,3,3
objAddComm.AddNew
objAddComm("author") = strName
objAddComm("text") = strText
objAddComm("idrif") = iIdNewsRif
objAddComm("date") = Now()
objAddComm.Update
end if
'Recordset for add a new news
if strAction="sendnews" then
set objAddNews=server.createobject("adodb.recordset")
sql="select * from news"
objAddNews.open sql,conn,3,3
objAddNews.AddNew
objAddNews("author") = strName
objAddNews("title") = strTitle
objAddNews("text") = strText
objAddNews("date") = Now()
objAddNews.Update
end if
%>
<% if strAction = "detail" then
response.write ""& objNewsDett("title") &" - Powered by Delas.it"
elseif strAction = "postcomment" then
response.write "Post a new comment - Delas.it news system"
elseif strAction = "postnews" then
response.write "Post a new news - Delas.it news system"
else
response.write "Index news - Delas.it news system"
end if %>
<% if (strAction="") or (strAction="home") then %>
|
<%= strMainTitle %>
Script powered by Delas.it
<%
NomPagina = "index.asp?action=home" '# Indicare la pagina dove è inserito questo script comprese le variabili da passare
VarPagina = "&"
RecPerPagina = RecPerPag
If objNews.EOF = true or objNews.BOF = true then
response.write " "
Response.write strNoNews
response.write " "
Else
TotRecord = objNews.RecordCount
If TotRecord < RecPerPagina Then
Pagine = 1
Else
Pagine = TotRecord / RecPerPagina
End If
ArrPagine = Round(Pagine)
If Pagine > ArrPagine then
Pagine = ArrPagine + 1
Else
Pagine = ArrPagine
End If
Pagina = Request("page")
If Pagina = "" Then Pagina = 1 End If
PrimoRecord = (Pagina * RecPerPagina) - (RecPerPagina - 1)
UltimoRecord = PrimoRecord + RecPerPagina
objNews.Move(PrimoRecord - 1)
For Conteggio = 1 to RecPerPagina
If objNews.Eof then
Conteggio = RecPerPagina
Else
%>
<% objNews.MoveNext
End If
Next
Indietro = Pagina - 1
Avanti = Pagina + 1
response.write ""
If Pagina > 1 then
Response.write "" & "First" & ""
Response.write " - " & "Back" & ""
Response.write " - "
End If
Response.write "Page " & Pagina & " of " & Pagine & " "
If not objNews.EOF then
Response.write " - " & "" & "Next" & " "
Response.write " - " & "" & "Last" & " "
End If
End If
response.write "" %>
For the full news, click on the title.
Post a news.
© by Delas.it
1st relase |
<% end if %>
<% if strAction="detail" then %>
| <%= objNewsDett("title")%>
(<%= objNewsDett("date")%>)
<%= objNewsDett("text")%>
<% if objNewsComm.BOF then
response.write ""& strNoComm &""
else %>
Comments:
<% do while not objNewsComm.EOF %>
| <%= objNewsComm("author")%> |
<%= objNewsComm("date")%> |
|
<%= objNewsComm("text")%> |
<% objNewsComm.MoveNext
Loop %>
<% end if %>
Post a new comment. | Back to index. |
<% end if %>
<% if strAction="postcomment" then %>
<% end if %>
<% if strAction="sendcomment" then %>
<% end if %>
<% if strAction="postnews" then %>
<% end if %>
<% if strAction="sendnews" then %>
|
The news has been inserted.
|
Your name: |
<%= strName %>
|
|
Title: |
<%= strTitle %>
|
|
Text: |
<%= strText %>
|
|
|
|
Back to index |
<% end if %>
<%
if (strAction="") or (strAction="home") then
objNews.close
Set objNews = nothing
end if
if strAction="detail" then
objNewsDett.close
Set objNewsDett = nothing
end if
if strAction="detail" then
objNewsComm.close
Set objNewsComm = nothing
end if
if strAction="sendcomment" then
objAddComm.close
Set objAddComm = nothing
end if
if strAction="sendnews" then
objAddNews.close
Set objAddNews = nothing
end if
conn.close
Set conn=nothing %> |
