pencat

这个方法可以把类的状态序列化,但是反序列化的时候要类的原型, 这点比较头疼. 下一步要解决的问题是如何序列化类原型. 难点在于如何在VB6中动态加载类. goole一圈都是.net和java下的实现方法. - -! serialize.asp <% '-------------------------------------------' ' @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;"; response.write (Names); } 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 'response.write a_session 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 %> test1.asp <!-- #include file="serialize.asp" --> <% Set c = New MyClass c.MyProp = "sdfasfasdfasd" Call Serialize(c, "c") set a = Server.CreateObject("Template.Test") a.fff(session("c")) %> <a href="test2.asp" title="go on">go on page 2</a><br /> test2.asp <!-- #include file="serialize.asp" --> <% Set c = New MyClass Call DeSerialize("c") Response.Write c.myprop %> <a href="test1.asp" title="go on">go on page 1</a><br />