Html - ASP Converter
22 svar · 640 visningar · startad av Jesper T · sida 2 av 2
Frågan, av Jesper T
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 konstig
Läs frågan i sin helhet →
<%
textfield=request.form("textfield")
send=request.querystring("send")
totalchar=request("totalchar")
response.write " <html><head"&_
"><title>HTML-ASPConverter Ver 1.1</title> <meta http-equiv='Content-Type' content='text/"&_
"html; charset=iso-8859-1'></head><body bgcolor='#FFFFFF' text='#000000'>"
response.write "<!-- © Inovart 2002 All rights reserved --><b>HTML - ASP Converter 1.1</b><br><br>Htmlcode<form name='form1' method='post' action='translate.asp?send=yes'>"&_
"<textarea name='textfield' cols='40' rows='5'>"&textfield&"</textarea><br>"&_
"<br>Characters before linefeed<br><select name='totalchar'><option>50</option><option>100</option><option>150</option> <option>200</option></select>"&_
"<br><input type='submit' name='Submit' value='Translate'><INPUT TYPE='button' VALUE='Reset form' onClick=""top.location='translate.asp'""></form><br><br>--------------------------------------------------------------------------------------------------------<br><br>"
'bryter av raden efter ett visst antal tecken
Function br(str)
Dim antal, tecken, count
antal = cint(totalchar) '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, "<","<"),">",">")
asptext = replace(asptext,"å","&aring;")
asptext = replace(asptext,"ä","&auml;")
asptext = replace(asptext,"ö","&ouml;")
asptext = replace(asptext,"Å","&Aring;")
asptext = replace(asptext,"Ä","&Auml")
asptext = replace(asptext,"Ö","&Ouml;")
text="<b>ASP:</b><br><br><font color='#993333'><% Response.write "</font><font color='#009900'>"& asptext &"</font>"
if send ="yes" then
if len(text)>200 then
response.write br(text)
else
strbryt = Replace(text, vbCrLf, "<br>")
response.write strbryt
end if
Response.write "<font color='#cccccc'><!--// © Inovart 2002 --></font><font color='#993333'>""</font><font color='#993333'> %></font><br><br><b>© Inovart 2002</b>"
end if
Response.write "</body></html>"
%>
Är det någon som har ett tips om hur det inte skall delas i ett ord?!
Har hittat ett litet program för det på nätet.
Om ngn skulle vara intresserad.