Codango: ASP Code Snippet

JSP

Share The Love

You are 1 of 28 Active ASP Visitors

ASP Home | Resources | Write a Review | My Favor-Its | Login

De/Serialize ASP ObjectsCode Snippet

Hits Today: 8

Read Reviews | Report Errors

[+][+]

0
Reviews

0
Favor-It

Use this functions to serialize/deserialize VBScript Objects. You can use this to punsh up the lifetime of an object up to more than one page. Have fun ;) Code: ASP 3.0 & VBScript


		Code Snippet

Code Written By: Peter Bucher from www.aspforum.de

<%
  '-------------------------------------------'
  ' @title : de/serialize objects in vbscript '
  ' @author: Peter Bucher		      '
  ' @orgin : Switzerland		      '
  ' 					      '
  ' @licence: use for free		      '
  '					      '
  ' description:                                           '
  ' s_obj = string of the object name example: "myobject"  '
  ' obj   = letter of the object name example:  myobject   '
  '-------------------------------------------'
%>
<script language="jscript" runat="server">
// List PropertyNames
function listPropertyNames(Obj) {
  var Names = "";
  for (var I in Obj) { Names += I + ";next;"; }
  return Names;
}
</script>
<%
'// Serialize Function
  Function Serialize(obj, s_obj)
  	Dim i_counter, _
  	    a_names, _
  	    i_ubound
  	    
  	a_names  = Split(listPropertyNames(obj), ";next;")
  	i_ubound = UBound(a_names)
  	
  	Dim a_session()
  	Redim a_session(i_ubound, i_ubound)  	
  	For i_counter = 0 To UBound(a_names) -1
  		a_session(i_counter, 0) = a_names(i_counter)
  		a_session(i_counter, 1) = Eval(s_obj & "." & a_names(i_counter))
  	Next
  	
  	Session(s_obj) = a_session
  End Function
%>
<%
  '// DeSerialize Function
  Function DeSerialize(s_obj)
  	Dim a_names_and_values, _
  	    y_counter
  	
  	a_2 = Session(s_obj)
  	For y_counter = 0 To UBound(a_2) -1
  		Execute(s_obj & "." & a_2(y_counter, 0) & " = """ & a_2(y_counter, 1) & """")
  	Next
  End Function
%>
<%
'// Test Class
Class MyClass
 Dim m_MyProp

 Public Property Get MyProp
  MyProp = m_MyProp
 End Property

 Public Property Let MyProp(newText)
  m_MyProp = newText
 End Property

End Class
%>

--------------------- use like this: -----------------
default.asp
------------------
<!-- #include file="serialize.asp" -->

<%
  Set c = New MyClass
  c.MyProp = 4
  Call Serialize(c, "c")
%>

<a href="default2.asp" title="go on">go on page 2</a><br />
-------------------


default2.asp
---------------------
<!-- #include file="serialize.asp" -->

<%
  Set c = New MyClass
  Call DeSerialize("c")
  Response.Write c.myprop
%>

<a href="default.asp" title="go on">go on page 1</a><br />
----------------------
------------------------------------------------------


	Get Live Support

To use the code above, click and drag your mouse over the code to highlight it. Then right click on the highlighted code and click "Copy." Now you may paste it into your code editor.

Submit Your Own Code to Codango


Link to Us \| About Us		Advertise \| Contact Us \| Website Help
Write a User Review Today! Its Fun, Fast, and Easy!	Codango Home \| PHP \| ASP.NET \| ASP \| JSP Advertise With Us \| About Us \| Terms of Use \| Privacy Policy


� 2010 InfoGenius Inc., All rights reserved