Archief - PREVIEW: Buy & Sell topicgenerator

Wover · 10 mrt 2006

Hey,

ik heb in asp eens een klein topicgeneratortje gemaakt voor het buy & sell forum.

hiervoor heb ik 3 pagina's: form.asp (aantal objecten ingeven), form2.asp (gegevens van objecten ingeven, inleiding en slot ingeven) en resultaat.asp (tekstvak met bbcode).

te testen op http://ccc.1asphost.com/Wover/TopicGen/form.asp

to do's:

- niet ingevulde tekstvakken negeren bij code
- lay-out verzorgen
- lijst voor elke lijn bij tekstarea's bij omschrijving
- code automatisch selecteren en naar klembord kopiëren

probs:

- nog niet getest, maar bv voor schermen, als ge daar met " voor inches gaat werken, gaat het wss een fout geven e, een oplossing hiervoor?
- textarea bij resultaat.asp groter maken, hoe?

Obliv` · 10 mrt 2006

link werkt niet?

Wover · 10 mrt 2006

http://free.7host07.com/Wover/form.asp

daarnet werkte de eerste link nog wel ze

der is ook nog een probleem met aantal, ge moet maar eens zien, hij geeft altijd iets anders dan het aantal vakken da ge ebt ingegeven

kzal de codes weergeven, k eb geen css gebruikt ofzo en de standaard dreamweaver brol staat er ook nog bij:

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Topicgenerator [Stap 1/3]</title>
<style type="text/css">
<!--
body {
	background-color: #000033;
}
body,td,th {
	color: #FFFFFF;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 10pt;
}
.style1 {font-size: 36pt}
.style2 {font-size: 12pt; }
-->
</style></head>

<body>
<div align="center">
  <p class="style1">Buy &amp; Sell automatische topicmaker</p>
  <p class="style2">Via dit formulier wordt automatisch BBcode gegenereerd om Buy&amp;Sell topics te maken. Vul de formulieren hieronder in.</p>
  <form id="frm1" name="formulier1" method="post" action="form2.asp">
    <table width="721" border="0">

      <tr>
        <td width="125">Aantal objecten </td>
        <td width="160"><input name="txtAantalObjecten" type="text" id="txtAantalObjecten" />        </td>
        <td width="422"><em>Geef het aantal objecten dat je wenst te verkopen in </em></td>
      </tr>

      <tr>
        <td height="48">&nbsp;</td>
        <td><div align="center">
          <input name="cmdVolgende" type="submit" id="cmdVolgende" value="&gt;&gt; Verdergaan &gt;&gt;" />
        </div></td>
        <td>&nbsp;</td>
      </tr>
    </table>
  </form>
  <p class="style2">&nbsp; </p>
</div>
</body>
</html>

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
Dim Aantal, Teller

Aantal = request.form("txtAantalObjecten")
aantal = aantal + 1
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Topicgenerator [Stap 2/3]</title>
<style type="text/css">
<!--
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 10pt;
	color: #FFFFFF;
}
body {
	background-color: #000033;
}
-->
</style></head>

<body>
<div align="center">
  <p>Specifeer hier gegevens van de objecten die je wenst te verkopen.</p>
<form id="frm2" name="formulier2" method="post" action="resultaat.asp?aantal=<%=aantal%>">
  <table width="200" border="0">
    <tr>
      <td>Naam</td>
      <td>Omschrijving</td>
      <td>Link naar site </td>
      <td>Link naar afbeelding </td>
      <td>Minimumprijs</td>
      <td>Meeneemprijs</td>
      <td>Richtprijs</td>
    </tr>

<%
For Teller = 1 to aantal
%>
    <tr>
      <td><input name="txtNaam<%=Teller%>" type="text" id="txtNaam" /></td>
      <td><textarea name="txtOmschrijving<%=Teller%>" id="txtOmschrijving"></textarea></td>
      <td><input name="txtLinkInfo<%=Teller%>" type="text" id="txtLinkInfo" /></td>
      <td><input name="txtLinkImage<%=Teller%>" type="text" id="txtLinkImage" /></td>
      <td><input name="txtMinimumPrijs<%=Teller%>" type="text" id="txtMinimumPrijs" /></td>
      <td><input name="txtMeeneemPrijs<%=Teller%>" type="text" id="txtMeeneemPrijs" /></td>
      <td><input name="txtRichtPrijs<%=Teller%>" type="text" id="txtRichtPrijs" /></td>
    </tr>
<%
Teller = Teller+1
Next
%>

  </table>
  <p>Specifeer hier nog een korte inleiding en/of slot </p>
  <table width="721" border="0">
    <tr>
      <td width="125">Inleiding</td>
      <td width="160"><textarea name="txtInleiding" id="txtInleiding"></textarea></td>
      <td width="422"><em>Geef hier een korte inleiding ( bv kameropruiming, of reden van verkoop) </em></td>
    </tr>

    <tr>
      <td>Slot</td>
      <td><textarea name="txtSlot" id="txtSlot"></textarea></td>
      <td><em>Een korte slotzin, bv &quot;Happy bidding&quot; </em></td>
    </tr>
    <tr>
      <td height="48">&nbsp;</td>
      <td><div align="center">
          <input name="cmdVolgende" type="submit" id="cmdVolgende" value="&gt;&gt; Verdergaan &gt;&gt;" />
      </div></td>
      <td>&nbsp;</td>
    </tr>
  </table>
  </form>
  <p>&nbsp;</p>
</div>
</body>
</html>

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
Dim resultaat, naam, omschrijving, richtprijs, meeneemprijs, minimumprijs, linkimage, linkinfo, aantal, inleiding, slot, teller

aantal = request.querystring("aantal")
aantal = aantal +1
inleiding=request.form("txtInleiding")
slot=request.form("txtSlot")
If inleiding<>"" Then
resultaat= resultaat & vbNewLine & "[color=orange].1 Inleiding[/color]" & vbNewLine & vbNewline & inleiding & vbNewLine & Vbnewline & "[color=orange].2 Objecten[/color]" & VbNewline & vbNewline & "[list=1]" & vbNewline & vbnewline
End if


For Teller = 1 to aantal
naam = request.form("txtNaam" & Teller)
omschrijving = request.form("txtOmschrijving" & Teller)
richtprijs = request.form("txtRichtprijs" & Teller)
meeneemprijs=request.form("txtmeeneemprijs" & Teller)
minimumprijs=request.form("txtminimumprijs" & Teller)
linkimage=request.form("txtLinkImage" & Teller)
linkinfo=request.form("txtLinkinfo" & Teller)
resultaat = resultaat & "[*]" & Naam & vbNewline & vbNewline & "[list=2][*]Omschrijving: " & omschrijving & vbNewline & "[*]Afbeelding: " & linkimage & vbNewline & "[*]Info: " & linkinfo & vbNewline & "[*]Richtprijs: [color=green]" & richtprijs & vbNewline & "[/color][*]Minimumprijs: [color=yellow]" & Minimumprijs & vbnewline & "[/color][*]Meeneemprijs: [color=red]" & meeneemprijs & "[/color][/list]"
teller=teller+1
Next

resultaat = resultaat & "[/list]"

If slot <> "" Then
resultaat=resultaat & vbNewLine & "[color=orange].3 Slot[/color]" & vbNewLine & vbNewLine & slot & vbNewLine
End if

%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Topicgenerator [Stap 3/3]</title>
<style type="text/css">
<!--
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 10pt;
	color: #FFFFFF;
}
body {
	background-color: #000033;
}
-->
</style></head>

<body>
<div align="center">
  <p>Kopieer volgende code in je topic</p>
  <p>
    <textarea name="txtResultaat" id="txtResultaat"><%=resultaat%></textarea>
</p>
</div>
</body>
</html>

edit: hoe kan ik bbcode hier afzetten?

Ramm · 10 mrt 2006

1) Om " te kunnen gebruiken:

Code:

text = replace(text, "'", "''")

2) BBCode is niet iets dat je zomaar "af"-zet. Je moet gewoon nagaan waar je code omgezet wordt, en dan zorgen dat dat omzeild wordt voor dat stuk tekst

Wover · 10 mrt 2006

hey, ik heb zo'n " eens geprobeerd, en het lukt toch

aantal tekstvakken is nu ook in orde

Dash · 11 mrt 2006

Een bug is dat als ik bij stap 1 zei dat ik drie objecten wou opgeven, er maar plaats was voor er 2 te specificiëren en uiteindelijk er toch 3 in bb-code stonden. Voor de rest zie ik het nut er niet van in buiten jezelf te trainen op asp, maar swat.

Wover · 11 mrt 2006

Dash zei:
Een bug is dat als ik bij stap 1 zei dat ik drie objecten wou opgeven, er maar plaats was voor er 2 te specificiëren en uiteindelijk er toch 3 in bb-code stonden. Voor de rest zie ik het nut er niet van in buiten jezelf te trainen op asp, maar swat.

die bug is ondertussen opgelost (had bij de for next nen teller+=1 staan omdat er eerst ne Do Loop stond

)

nieuwe url: http://topicgen.menlor.com

en het heeft zeker nut hoor, buy & sell is een van de populairst fora hier en een uniforme template voor topics zal sommige dingen heel wat duidelijker maken

ToMB · 11 mrt 2006

steek nog een legende op uw 3e pagina voor uw kleurkes en lettergroottes enzow

dan ist cava , schoon gedaan

Wover · 11 mrt 2006

hoe bedoelde een legende?

in de code zelf ofwa?

Therif · 13 mrt 2006

Waarom VBScript? Het werkt goed op Win, maar niet op linux of mac...

Gerritn · 13 mrt 2006

Ik geef bij aantal niks in, klik gewoon op verdergaan, en dan krijg ik de volgende pagina, maar met ook dit erop.

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: ""]'

/form2.asp, line 41

Therif · 13 mrt 2006

tja, er is wss geen error handling

Smoerf · 13 mrt 2006

Mss een limiet? Als ik 7100 invul kan ik dus 7100 items verkopen? Hm, ik denk dat dit wel wat serverload kan veroorzaken..

Therif · 13 mrt 2006

de limiet zal wss zitten aan integerlimiet

Het probleem is dat ze gedeclareerd zijn, maar er is geen type toegewezen...

Therif · 14 mrt 2006

Ik kon mezelf niet tegenhouden en ik heb de code herschreven in php... Ik geef de code vrij wanneer deze werkt

Ik heb wel ervoor gezorgd dat er geen serveroverloading is door de server niet te gebruiken, maar alles lokaal te genereren

Mja, jullie zullen wel zien

Therif · 14 mrt 2006

Hier is een kleine Preview(BBCode werkt nog niet=>geen tijd)
Volgende week zou het normaalgezien af moeten zijn
Don't care about lay-out
http://therif.free.fr/testingtg/index.php

Wover · 14 mrt 2006

mor allé, nu haddek et eens helemaal herschreven

http://topicgen.menlor.com

vb:

.1 Inleiding

rzjzrj

.2 Objecten

rethrgthzrth
- Info: zrthzrhjrt
- Richtprijs: rzthrj
- Meeneemprijs: zrhtzrthj
zrthr
- Omschrijving: yyjrzjt
- Afbeelding: rj
- Richtprijs: rtj
- Minimumprijs: rj
- Meeneemprijs: rtj

.3 Slot

rj

updates: fout bij + 100 objecten, niet ingevulde zaken worden niet weergegeven, uitzicht update,...

Therif · 15 mrt 2006

Sorry

ehm, je BBCode, probeer groen en rood te vermijden, zoals ervoor gezegd, zijn er mensen die kleurenblind zijn, en je hebt de kleuren gekozen die ze moeilijk onderscheiden, niet?

MenloR zei:
Ik zou meeneemprijs niet in het rood zette, ik weet niet of het aan men beetje rood - kleurenblindheid geweten is, maar ik moet dat elke keer selecteren om te kunenn lezen

Wover · 15 mrt 2006

ok dan zal ik knaloranje, paars en magenta gebruiken, en nog vet zetten ook misschien

?

Therif · 15 mrt 2006

Archief - PREVIEW: Buy & Sell topicgenerator

Wover

Legacy Member

Obliv`

Legacy Member

Wover

Legacy Member

Ramm

Legacy Member

Wover

Legacy Member

Dash

Legacy Member

Wover

Legacy Member

ToMB

Legacy Member

Wover

Legacy Member

Therif

Legacy Member

Gerritn

Legacy Member

Therif

Legacy Member

Smoerf

Legacy Member

Therif

Legacy Member

Therif

Legacy Member

Therif

Legacy Member

Wover

Legacy Member

Therif

Legacy Member

Wover

Legacy Member

Therif

Legacy Member