USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Adicionando BLOG em seu site
Postada em 3/10/2003 por ^HEAVY-METAL^            
Para não ficar fora da onda

shouts.asp

<%@ Language=VBScript %>


              
<%
' ban ip addresses
' if Request.ServerVariables("REMOTE_ADDR") = "127.0.0.1" then
' response.redirect("banned.asp")
' end if
%>

<HTML>
<HEAD>
<title>View shouts</title>
<link rel="stylesheet" type="text/css" href="styles/sb.css">
</HEAD>
<BODY>

<h1>Shouts</h1>
<iframe src="sframe.asp" width="200" height="500" frameborder="0">Your browser doesnt support frames</iframe>
<p align="left"><a href="shout.asp" target="_top">Shout again</a></p>

</BODY>
</HTML>

sb.css
BODY
{
    PADDING-RIGHT: 2px;
    PADDING-LEFT: 2px;
    FONT-WEIGHT: lighter;
    FONT-SIZE: 11px;
    PADDING-BOTTOM: 3px;
    MARGIN: 3px 2px;
    COLOR: #000000;
    PADDING-TOP: 3px;
    FONT-FAMILY: Arial, 'Tempus Sans ITC', 'MS Sans Serif';
    BACKGROUND-COLOR: #ffffff
}
P
{
    FONT-WEIGHT: lighter;
    FONT-SIZE: 11px;
    TEXT-TRANSFORM: none;
    COLOR: #000000;
    FONT-STYLE: normal;
    FONT-FAMILY: Arial, Tahoma, 'MS Sans Serif';
    LIST-STYLE-TYPE: square;
    FONT-VARIANT: normal;
    TEXT-DECORATION: none
}
H1
{
    FONT-WEIGHT: bolder;
    FONT-SIZE: 15pt;
    TEXT-TRANSFORM: none;
    COLOR: #00008b;
    FONT-STYLE: normal;
    FONT-FAMILY: Arial, Tahoma, 'MS Sans Serif';
    FONT-VARIANT: normal;
    TEXT-DECORATION: none
}
INPUT
{
    BACKGROUND-COLOR: #f8f8ff
}
TEXTAREA
{
    BACKGROUND-COLOR: #f8f8ff
}
TABLE
{
    FONT-WEIGHT: lighter;
    FONT-SIZE: 12pt;
    TEXT-TRANSFORM: none;
    COLOR: #000000;
    FONT-STYLE: normal;
    FONT-FAMILY: Arial, Tahoma, 'MS Sans Serif';
    FONT-VARIANT: normal;
    TEXT-DECORATION: none
}

banned.asp

<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>IP Address banned</title>
<link rel="stylesheet" type="text/css" href="styles/sb.css">
</HEAD>
<BODY>

<h1>Banned User</h1>

<p>Due to levels of abuse of this shoutbox, this IP address has been banned. To contact the administrator regarding this ban, email admin@some_email.com</p>

</BODY>
</HTML>

connectionstring.asp

<%
' connection string for the web joblist database

dim dbasepath
dim provider

dbasepath = "" & server.mappath("db/shoutdb.mdb") & ""
provider = "Microsoft.Jet.OLEDB.4.0"

%>

sbprocess.asp

<%@ Language=VBScript %>

<!-- #include file="connectionstring.asp" -->

<%
' variables
dim name
dim email
dim posterIP
dim post
dim CS
dim RS
dim iSQL
dim frmName
dim frmEmail
dim frmPost
dim pdate

' parameters
posterIP = Request.ServerVariables("REMOTE_ADDR")

frmName = QuoteReplace(Request.Form("name"))
frmEmail = QuoteReplace(Request.Form("email"))
frmPost = QuoteReplace(Request.Form("post"))

if frmName = "" then
Response.Redirect("shout.asp?incomplete=true")
end if

if frmEmail = "" then
Response.Redirect("shout.asp?incomplete=true")
end if

if frmPost = "" then
Response.Redirect("shout.asp?incomplete=true")
end if

pdate = now()

' objects
Set CS = Server.CreateObject("ADODB.Connection")

' connection string (info in connectionstring.asp)
CS.ConnectionString = dbasepath
CS.Provider = provider
CS.Open

' sql queries
iSQL = "INSERT INTO shoutbox(name,email,post,posterIP,pdate) VALUES ('" & frmName & "','" & frmEmail & "','" & frmPost & "','" & posterIP & "','" & pdate & "')"

CS.Execute(iSQL)

Function QuoteReplace(formVar)
QuoteReplace = Replace (formVar, Chr(34),"&quot;")
QuoteReplace = Replace (QuoteReplace,"'","&#39;")
End Function

' display shouts
Response.Redirect("shout.asp")
%>

sframe.asp

<!-- #include file="connectionstring.asp" -->
              
<html>
<head>
<link rel="stylesheet" type="text/css" href="styles/sb.css">
</head>
<body>  
            
<%
dim sql
dim CS
dim RS
dim x

' objects
Set CS = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")

' connection string (info in connectionstring.asp)
CS.ConnectionString = dbasepath
CS.Provider = provider
CS.Open

sql = "SELECT TOP 10 * FROM shoutbox ORDER BY postID DESC"

Set RS = CS.Execute(sql)

Response.Write "<p align=left>"

while RS.EOF = false

     Response.Write "<strong>" & RS("name") & "</strong>"
     Response.Write "<br>"
     Response.Write "<a href='mailto:" & RS("email") & "'>" & RS("email") & "</a>"
     Response.Write "<br>"
     Response.Write "" & RS("post") & ""
     Response.Write "<br>"
     Response.Write "<em>Posted at: " & RS("pdate") & "</em>"
     Response.Write "<br><hr size=1 noshade color=#c0c0c0>"
     
     RS.MoveNext
     
wend

Response.Write "</p>"
%>

</body>
</html>

shout.asp
<%@ Language=VBScript %>

<%
Option Explicit
%>

<%
' ban ip addresses
' if Request.ServerVariables("REMOTE_ADDR") = "127.0.0.1" then
' response.redirect("banned.asp")
' end if
%>
              
<HTML>
<HEAD>
<title>ASP Shoutbox by designplace.org</title>
<link rel="stylesheet" type="text/css" href="styles/sb.css">

<SCRIPT LANGUAGE="javascript" TYPE="text/javascript">
<!--
function validate() {
    /*Validate textarea length before submitting the form*/

    var maxChar = 200
    if (document.forms[0].post.value.length > maxChar) {
        diff=document.forms[0].post.value.length - maxChar;
        if (diff>1)
            diff = diff + " characters";
        else
            diff = diff + " character";
            
        alert("This field is limited to " + maxChar + " characters\n" + "Please reduce the text by " + diff);
        document.forms[0].post.focus();
        return (false);
    }
}

//-->
</SCRIPT>

</HEAD>
<BODY>

<h1>Shoutbox</h1>

<table width="99%" cellspacing="2" cellpadding="2">
<tr>
<td valign="top" width="79%">
<%
if Request.QueryString("incomplete") > "" then
Response.Write "you <strong>must</strong> enter information for all fields."
end if
%>
<form name="shoutbox_post_form" action="sbProcess.asp" method="post">
Name:<br>
<input type="text" name="name" size="30" maxlength="40" autocomplete="off" /><br>
Email<br>
<input type="text" name="email" size="30" maxlength="40" autocomplete="off" /><br>
Shout<br>
<textarea name="post" cols="23" rows="10" maxlength="200" />
</textarea>
<br>

<input type="submit" value="submit" onclick="return validate();" />
<input type="reset" value="reset" />
</form></td>

<td width="20%" valign="top" style="border: #c0c0c0 1px dotted;">
<iframe src="sframe.asp" width="200" height="500" frameborder="0">Your browser doesnt support frames</iframe>
</td>
</tr>
</table>


</BODY>
</HTML>

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página