shoutbox v1.5 updated - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

shoutbox v1.5 updated - Postet den 16 Aug 2005 (6338 Views)

Sonic

New Member

Innlegg: 82

i made a litte mod like a shoutbox

des: every member who is log in can make a message in a box

screenshot:

features:
- flood control
- bad word filter
- smilies are enabeld
- limit db to 15 entries can be edit in the admin pannel
- older entries will be automaticly deleted
- limit the Messages in the admin pannel --> Msg / 30 Sec.
- smile popup page (maybe you link to a other page mine is --> pop_smiles.asp )
can be edit in shoutbox_box.asp line 46
- admin can delete messages
- long words are breaked

red marked are new features since 06-09-2k5

when the limit of the messages are reached
old messages are deleted from the database
so it will be clean

download on http://www.snitzbitz.com/mods/details.asp?Version=All&mid=215
<

ich finds genial... bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag

Sist redigert av

Postet den 17 Aug 2005

Shaggy

Support Moderator

Innlegg: 6780

6780

Looks good, man.

Got a demo running anywhere? What's the resource usage like?
<

Search is your friend “I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

Postet den 17 Aug 2005

Sonic

New Member

Innlegg: 82

test page is runnig on local mashine on GMT+1 at 10:00 till 22:00
--> www.sonic-aug24.mine.nu/page/

on web (but at the moment with db read only) at (site will not work full)
--> www.sonic.augsburg24.de

sorry for my question but what do you mean with "resource usage like?"

for german -->
resourcen auslastung kann so gut wie alles bedeuten cpu oder code oder sonstiges

ich finds genial... bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag

Sist redigert av

Postet den 17 Aug 2005

Sonic

New Member

Innlegg: 82

des:
- it will be shown the last 15 entries (can be edited in the shoutbox_entries.asp)
the oldest messages are at the top the newest at the bottom (automatic scroll to bottom = newest)

- a message can only contains max 200 chars<

ich finds genial... bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag

Postet den 28 Aug 2005

silverman

Starting Member

Innlegg: 4

Hello,
I like your shoutbox, but I couldn't make it work.
I got the following error.

Active Server Pages error 'ASP 0113'

Script timed out
<

Postet den 31 Aug 2005

Sonic

New Member

Innlegg: 82

öha

is in the error tag somewhere a tag like --> error in line ...... ? i will look after my code

------------------------------------

i have published my new code
--> http://www.snitzbitz.com/mods/details.asp?Version=All&mid=215

some smaller bugs removed and small adons

test it normaly it should work
but know the links in the code are pointed to my webpagefolder path .... maybe you have to change it in the code
eg. images are domain.de/img/table/table_tr.gif
webpages are domain.de/pages/shoutbox_box.asp
and so on.....
if there are any bugs found or problems please post it

ich finds genial... bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag

Sist redigert av

Postet den 01 Sep 2005

Sonic

New Member

Innlegg: 82

ah endlich mal einer mit dem nam dütsch reden kann :-)

zur funktion:

Code:


	if row > cint(strShoutEntries) then --> abfrage der max anzahl der einträge in der db
	do until row = cint(strShoutEntries) --> vorgang solange wiederholen bis die max eintragszahl erreicht ist

	strsql = "SELECT S_ID FROM " & strTablePrefix & "SHOUTBOX" --> hier soll die ID des ersten obersten eintrages ausgewählt werden

	set liners = my_conn.execute(TopSQL(strsql,1))
	line_ID = liners("S_ID")
	liners.Close
	Set liners = Nothing
	
	set rrst = my_conn.execute("DELETE * FROM " & strTablePrefix & "SHOUTBOX Where S_ID = "& line_ID & "") --> löschen des eintrages mit dieser ID

	Set rrst = Nothing
	row = row - 1 --> aktuelle anzahl der einträge -1

	loop 
	end if

prob ist ich hab zwar die topsql funktion aus der inc_func_common.asp herausgefunden aber leider hab ich noch keinen iis 6 oder sql server am laufen und konnte da es leider nicht testen....
aber ich bräuchte den genauen sql befehl für --> lösche alles aus der tabelle mit dieser id
dann würde es klappen...
aber trotzdem danke für bug report :-)

------------------------------------------------------------------

in englisch: one bug is found and will be fixed soon if i have the sql server command for
--> delete everything in table wehre id = bla bla bla

------------------------------------------------------------------

to my page:
i have a browser selection script enabled
it checks if a browser supports table, cookies, java and frames
but firefox did not tell to the IIS that it supports it all ---> so the error apears

to see the page klick after the text
---> ...... angezeigt werden und versuche es erneut. on the link called ---> weiter

so you will see my page :-)

updates: time for site running is : --> 18:30 till 23:00 on GMT +1 (because i'm working)
if someone want to see the testsite on other times please tell me i will turn on my pc 24h on for one day

<

ich finds genial... bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag

Postet den 03 Sep 2005

scorpswolle

Medlem er låst

Innlegg: 39

Also ich habs jetzt hingekriegt:

Der * muss weg:

Code:

	set rrst = my_conn.execute("DELETE FROM " & strTablePrefix & "SHOUTBOX Where S_ID = "& line_ID & "")

Die admin_config_features.asp hab ich so bearbeitet, da die Schleifen bei mir komischerweise nicht funktionierten:

Code:

			"<!--##### Shoutbox Mod #####-->" & vbNewLine
                    if MemberID = intAdminMemberID then 
                    Response.Write "              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Shoutmessages:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                <select name=""strShoutMaxMsg"">" & vbNewLine & _
			"                	<option value=""1""" & chkSelect(strshoutmaxmsg,1) & ">1</option>" & vbNewLine & _
			"                	<option value=""2""" & chkSelect(strshoutmaxmsg,2) & ">2</option>" & vbNewLine & _
			"                	<option value=""3""" & chkSelect(strshoutmaxmsg,3) & ">3</option>" & vbNewLine & _
			"                	<option value=""4""" & chkSelect(strshoutmaxmsg,4) & ">4</option>" & vbNewLine & _
			"                	<option value=""5""" & chkSelect(strshoutmaxmsg,5) & ">5</option>" & vbNewLine & _
			"                	<option value=""10""" & chkSelect(strshoutmaxmsg,10) & ">10</option>" & vbNewLine & _
			"                	<option value=""20""" & chkSelect(strshoutmaxmsg,20) & ">20</option>" & vbNewLine & _
			"                	<option value=""30""" & chkSelect(strshoutmaxmsg,30) & ">30</option>" & vbNewLine & _
			"                	<option value=""40""" & chkSelect(strshoutmaxmsg,40) & ">40</option>" & vbNewLine & _
			"                	<option value=""50""" & chkSelect(strshoutmaxmsg,50) & ">50</option>" & vbNewLine & _
			"                	<option value=""60""" & chkSelect(strshoutmaxmsg,60) & ">60</option>" & vbNewLine & _
			"                	<option value=""70""" & chkSelect(strshoutmaxmsg,70) & ">70</option>" & vbNewLine & _
			"                	<option value=""80""" & chkSelect(strshoutmaxmsg,80) & ">80</option>" & vbNewLine & _
			"                	<option value=""90""" & chkSelect(strshoutmaxmsg,90) & ">90</option>" & vbNewLine & _
			"                	<option value=""100""" & chkSelect(strshoutmaxmsg,100) & ">100</option>" & vbNewLine & _
			"                </select> Msg. / 30 Sec." & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                <select name=""strShoutEntries"">" & vbNewLine & _
			"                	<option value=""10""" & chkSelect(strshoutentries,10) & ">10</option>" & vbNewLine & _
			"                	<option value=""15""" & chkSelect(strshoutentries,15) & ">15</option>" & vbNewLine & _
			"                	<option value=""20""" & chkSelect(strshoutentries,20) & ">20</option>" & vbNewLine & _
			"                	<option value=""25""" & chkSelect(strshoutentries,25) & ">25</option>" & vbNewLine & _
			"                	<option value=""30""" & chkSelect(strshoutentries,30) & ">30</option>" & vbNewLine & _
			"                	<option value=""35""" & chkSelect(strshoutentries,35) & ">35</option>" & vbNewLine & _
			"                	<option value=""40""" & chkSelect(strshoutentries,40) & ">40</option>" & vbNewLine & _
			"                	<option value=""45""" & chkSelect(strshoutentries,45) & ">45</option>" & vbNewLine & _
			"                	<option value=""50""" & chkSelect(strshoutentries,50) & ">50</option>" & vbNewLine & _
			"                </select> Msg." & vbNewLine & _
	        "              </tr>" & vbNewLine
                    end if
			Response.Write "              <tr valign=""middle"">" & vbNewLine & _
			"<!--#########################################-->" & vbNewLine & _

Gruß Wolfgang

http://www.the-scorpions.com/forum<