Html - ASP Converter

22 svar · 639 visningar · startad av Jesper T 13 juni 2002

Jesper TMedlem sedan nov. 20017 144 inlägg

13 juni 2002 23:59#1

Lat som jag är så har jag snickrat ihop en html-asp konverterare som skall konvertera htmlkod till aspkod. Funkar ganska hyffsat tycker jag men ibland så buggar den.

1.) Jag har en listbox där jag vill att man ska kunna använda en radbrytningsfunktion efter si och så många tecken men den funkar inte om jag byter ut "100" emot "totalchar".

2.) I vissa fall när den bryter rad så blir det konstigt tex så här: color='#000000'&g"&_
I stället för:
color='#000000'>"&_

Hur göra?

<% 
textfield=request.form("textfield")
send=request.querystring("send")
[red]totalchar=FormatNumber(request("totalchar"))[/red]
response.write " <html><head"&_
"><title>HTML-ASPConverter Ver 1.0</title> <meta http-equiv='Content-Type' content='text/"&_
"html; charset=iso-8859-1'></head><body bgcolor='#FFFFFF' text='#000000'>" 
response.write "<br><b>HTML - ASP Converter 1.0</b><br><br>Htmlcode<form name='form1' method='post' action='translate.asp?send=yes'>"&_
"<textarea name='textfield'></textarea><br><input type='submit' name='Submit' value='Translate'><INPUT TYPE='button' VALUE='Reset form' onClick=""top.location='translate.asp'""><br>"&_
"<br>Characters before linefeed<br>[red]<select name='totalchar'><option>50</option><option>100</option><option>150</option> <option>200</option></select>[/red]"&_
"</form><br>--------------------------------------------------------------------------------------------------------<br><br>"

'bryter av raden efter ett visst antal tecken
Function br(str)
	Dim antal, tecken, count
	antal = [red]100 'Antal tecken som raden skall vara.[totalchar][/red]

	for tecken = 1 to len(str)
	     count = count + 1
	     Response.Write Mid(str, tecken, 1)
	     If count > antal Then Response.Write "<font color='#993333'>&quot;</font><font color='#000000'>&amp;_</font><BR><font color='#993333'>&quot;</font>": count = 0
	next
End Function
asptext = replace(textfield,"""","'")
asptext = replace(replace(asptext, "<","&lt;"),">","&gt;")
text="<b>ASP:</b><br><br><font color='#993333'>&lt;% response.write &quot; </font><font color='#009900'>"& asptext &"</font>"
if send ="yes" then
if len(text)>200 then
response.write br(text)
else
response.write text
end if
Response.write "<font color='#993333'>""</font><font color='#993333'> %&gt;</font><br><br><b>&copy; Inovart 2002</b>"
end if
Response.write "</body></html>"
%>

Är det någon mot förmodan som vill använda detta script så är det bara varsågod.

MVH Jesper

cupyMedlem sedan apr. 2002299 inlägg

14 juni 2002 00:15#2

Jag ville testa den men fick den här:
Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/asp/n4/zzzz/test/jesper.asp, line 21, column 62
If count > antal Then Response.Write ""&_ "": count = 0
-------------------------------------------------------------^

Jesper TMedlem sedan nov. 20017 144 inlägg

14 juni 2002 00:28#3

du måste döpa filen till translate.asp :)

cupyMedlem sedan apr. 2002299 inlägg

14 juni 2002 00:31#4

nej, jag får samma.

Jesper TMedlem sedan nov. 20017 144 inlägg

14 juni 2002 00:34#5

...

cupyMedlem sedan apr. 2002299 inlägg

14 juni 2002 00:49#6

nu funkar det så här:
<%
textfield=request.form("textfield")
send=request.querystring("send")
totalchar=FormatNumber(request("totalchar"))
response.write " <html><head"&_
"><title>HTML-ASPConverter Ver 1.0</title> <meta http-equiv='Content-Type' content='text/"&_
"html; charset=iso-8859-1'></head><body bgcolor='#FFFFFF' text='#000000'> "
response.write "HTML - ASP Converter 1.0 Htmlcode<form name='form1' method='post' action='translate.asp?send=yes'>"
response.write"<textarea name='textfield'></textarea> <input type='submit' name='Submit' value='Translate'> "
response.write" Characters before linefeed <select name='totalchar'><option>50</option><option>100</option><option>150</option> <option>200</option></select>"
response.write"</form> -------------------------------------------------------------------------------------------------------- "

'bryter av raden efter ett visst antal tecken
Function br(str)
Dim antal, tecken, count
antal = 100 'Antal tecken som raden skall vara.[totalchar]

for tecken = 1 to len(str)
     count = count + 1
     Response.Write Mid(str, tecken, 1)
     If count \> antal Then Response.Write "\<font color='#993333'\>\</font\>\<font color='#000000'\>\</font\>\<BR\>\<font color='#993333'\>\</font\>": count = 0
next

End Function
asptext = replace(textfield,"""","'")
asptext = replace(replace(asptext, "<","<"),">",">")
text="ASP: <%"
response.write " "& asptext &""
if send ="yes" then
Response.write br(text)
Response.write """ %> © Inovart 2002"
end if
Response.write "</body></html>"
%>

Jesper TMedlem sedan nov. 20017 144 inlägg

14 juni 2002 00:51#7

Vad gjorde du?

cupyMedlem sedan apr. 2002299 inlägg

14 juni 2002 00:54#8

den raden var fel:
text="ASP: <% response.write " "& asptext &""

i övrigt jag vet inte om det funkar riktigt funktionelt men nu får jag inte felmedelande

Jesper TMedlem sedan nov. 20017 144 inlägg

14 juni 2002 00:59#9

Nej, den är ju inte helt smidig men jag man slipper ju i alla fall ta bort dubbelfnuttar och annat! :)

Problemet med totalchar kvarstår dock...

Jag har även tagit bort "formatNumber" utan resultat!

MVH Jesper

Jesper TMedlem sedan nov. 20017 144 inlägg

14 juni 2002 08:18#10

Någon som vet?

Jesper TMedlem sedan nov. 20017 144 inlägg

14 juni 2002 16:05#11

Någon som vet?

solbulleMedlem sedan mars 20015 287 inlägg

14 juni 2002 17:03#12

Vad ska det där scriptet eg göra?
Tycker inte det händer så mycket när jag testar det.
Red. njo, det gör det väl iofs... men...

Jesper TMedlem sedan nov. 20017 144 inlägg

14 juni 2002 17:59#13

Vad ska det där scriptet eg göra?
Tycker inte det händer så mycket när jag testar det.
Red. njo, det gör det väl iofs... men...

Jo, scriptet skall generera response.write-kod ifrån html.
Ta bort, dubbelfnuttar osv... Det jag vill kunna ändra är antal tecken innan det blir radbryt med &_
Hoppas att du fattar?!

Och ibland så blir det fel när den byter rad i stället för > så blir det &-gt;

MVH Jesper

solbulleMedlem sedan mars 20015 287 inlägg

14 juni 2002 18:31#14

Hur skall egentligen denna rad se ut:

If count > antal Then Response.Write "<font color='#993333'>"</font><font color='#000000'>&_</font><BR><font color='#993333'>"</font>": count = 0

Jesper TMedlem sedan nov. 20017 144 inlägg

15 juni 2002 11:23#15

Hur skall egentligen denna rad se ut:

Vad menar du? :q Den ser väl ut som den skall eller? :OO
Om antalet tecken är fler än 100 så skriv: "&_ " :bire

solbulleMedlem sedan mars 20015 287 inlägg

15 juni 2002 11:45#16

Jag får felmeddelande på den raden, tycker det ser ut som om fnuttarna sitter fel!?!

Jesper TMedlem sedan nov. 20017 144 inlägg

15 juni 2002 12:15#17

Oj, det skall se ut så här (utan_):

If count > antal Then Response.Write "<font color='#993333'>&_quot;</font><font color='#000000'>&_amp;_</font><BR><font color='#993333'>&_quot;</font>": count = 0

Jesper TMedlem sedan nov. 20017 144 inlägg

15 juni 2002 12:19#18

Det blir ju lite fel när man vill skriva &_quot; osv. i detta forum! :r

solbulleMedlem sedan mars 20015 287 inlägg

15 juni 2002 15:40#19

Grej nummer ett är att jag hade nog kört med:

totalchar=request("totalchar")
antal = cint(totalchar)

På så sätt får man med sig talet i alla fall, sen delar den ju lite konstigt men det är nästa problem...

solbulleMedlem sedan mars 20015 287 inlägg

15 juni 2002 15:44#20

Så som jag ser det måste du få funktionen att inte dela mit i ett ord så att säga, eller rättare sagt mitt i en html-tagg.