hi
i don't know much more idea about jsp. because now
i am learning.i need small help. here i will give asp file. the same file i
want to use jsp. how can i convert it.
please give me suggestion.
my file is:(asp)
===============
<%
' dim admin_mode
admin_mode = admin_mode
function IsVoid (s)
if IsEmpty(s) or IsNull(s) or s = "" then
IsVoid = true
else
IsVoid = false
end if
end function
function WriteLn (s)
Response.Write s & vbCrLf
end function
function EscapeString (sStr)
Dim s
s = sStr
pos = InStr(s, "'")
While pos > 0
s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1)
pos = InStr(pos + 2, s, "'")
Wend
EscapeString = s
end function
function JsString (sStr)
Dim s
s = sStr
pos = InStr(s, "'")
While pos > 0
s = Mid(s, 1, pos-1) & "\" & Mid(s, pos)
pos = InStr(pos + 2, s, "'")
Wend
pos = InStr(s, vbCrLf)
While pos > 0
s = Mid(s, 1, pos - 1) & "\" & Mid(s, pos)
pos = InStr(pos + 3, s, vbCrLf)
Wend
JsString = s
end function
function HTMLString (sStr)
Dim s
s = sStr
pos = InStr(s, vbCrLf)
While pos > 0
s = Mid(s, 1, pos - 1) & "<br>" & Mid(s, pos + 2)
pos = InStr(pos + 3, s, vbCrLf)
Wend
HTMLString = s
end function
function WriteLn (s)
Response.Write (s) & vbCrLf
end function
function Write (s)
Response.Write (s)
end function
function GetDisplaySetting (searchkey)
val = ""
sPrefs = Request.Cookies("preferences")
pos = InStr (sPrefs, ";")
lastpos = 1
do until pos <= 0
token = Mid (sPrefs, lastpos, pos - lastpos)
lastpos = pos + 1
pos = InStr (pos + 1, sPrefs, ";")
' Now that we have the key, process the contents
pos2 = InStr (token, "=")
if pos2 > 0 then
key = Left (token, pos2 - 1)
if key = searchkey then
val = Mid (token, pos2 + 1)
end if
end if
loop
GetDisplaySetting = val
end function
%>
________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com
===========================================================================
To unsubscribe: mailto [EMAIL PROTECTED] with body: "signoff JSP-INTEREST".
Some relevant FAQs on JSP/Servlets can be found at:
http://java.sun.com/products/jsp/faq.html
http://www.esperanto.org.nz/jsp/jspfaq.html
http://www.jguru.com/jguru/faq/faqpage.jsp?name=JSP
http://www.jguru.com/jguru/faq/faqpage.jsp?name=Servlets
