ASP和ASP.Net共享Session解决办法

时间:2008-10-07 12:20:54  来源:第二电脑网上收集  作者:

  第二电脑网导读:script language='javascript'>window.open('ASPXTOASP.aspx','new');</script>");打开aspxtoasp.aspx页面,action设为aspxtoasp.asp,即可将session值post到asp页面,因为是单向传递,不用在其他页面重复执行动作,经测试,传递成功!Aspxtoasp.aspx代码如下:<script language="C#" runat="server...
  正文:

在原有的ASP/ target=_blank class=infotextkey>asp程序中用asp.net添加功能模块,共享SESSIONs是一个难点,下面介绍一种较为简洁的方法,可以在asp和asp.net中共享session会话。

登录页面使用C#重新创建,在成功登录后执行语句:

Response.Write("<script language='JavaScript'>window.open('ASPXTOASP.aspx','new');</script>");

打开aspxtoasp.aspx页面,action设为aspxtoasp.asp,即可将session值post到asp页面,因为是单向传递,不用在其他页面重复执行动作,经测试,传递成功!

Aspxtoasp.aspx代码如下:

<script language="C#" runat="server">
Response.Write( "<form name=t id=t action=ASPXTOASP.asp method=post>" );
foreach(object it in Session.Contents)
{
     Response.Write("<input type=hidden name=" + it.ToString());
     Response.Write( " value=" + Session[it.ToString()].ToString() + " >");
}
Response.Write("</FORM>");
Response.Write("<script>t.submit();</script>");
</script>

Aspxtoasp.asp代码如下:

<%
for i=1 to Request.Form.Count
     Session(Request.Form.Key(i))=Request.Form(i)
next
Response.End
%>
<script language="JavaScript">
     window.close();
</script>

这是一个老话题了,因为最近用的到,所以没办法又到处找资料。微软的网站上提供的是用数据库实现的,总觉得太麻烦,也有说直接使用的,但我没有试成功。我认为直接使用是不可能的。还有一种方法,就是通过几个页面转换,我使用的也是这个方法,通过总结搜索到的资料,整理后编写了几个页面来转换。主要是通过隐藏的input来实现的。具体方法如下: 

asp 转 asp.net 页面: 

用一个asp页,把session信息写到input中,提交给asp.net页

trans.asp 

<% 
’’----------测试数据-------- 
session("name")="srx" 
session("id")="1" 
session("sex")="f" 
session("pass")="asdfas" 
session("age")="23" 
session("weight")="131" 
’’-------------------------- 
Response.Write("<form name=frm id=frm action=""asptoaspx.aspx"" method=post >") 
for each Item in Session.Contents 
    Response.Write("<input type=hidden name=" & Item) 
    Response.Write( " value=" & Session(item) & " >") 
next 
if len(Request.QueryString("Destpage")) >4 then   
    Response.Write("<input type=hidden name=DestPage value=" & Request.querystring("DestPage") & ">") 
end if 
Response.Write("</FORM>") 
Response.Write("<scr" + "ipt>frm.submit();</scr" + "ipt>") 
%> 

asptoaspx.aspx

<%@ Page language="c#" %> 
<script language=C# runat=server> 
private void Page_Load(object sender, System.EventArgs e) 

Session.Timeout = 60; 
for(int i=0;i<Request.Form.Count;i++) 

  Session[Request.Form.GetKey(i)]=Request.Form[i].ToString(); 

allsession(); //输出所有的Session,使用时可注释掉 
try 

if( Session["DestPage"].ToString().Length >4 ) 

 Server.Transfer(Session["DestPage"].ToString(),true); 


catch {}

private void allsession() 

Response.Write ("There are " + Session.Contents.Count +" Session <I>var</I>iables<P>"); 
foreach(object obj in Session.Contents) 

 Response.Write("Session["+obj.ToString()+"] - "+Session[obj.ToString()].ToString()+"<br>");//输出所有的Session,使用时可注释掉 


</script> 

asp.net 转 asp 页面: 

用一个asp.net页,把session信息写到input中,提交给asp页 

trans.aspx

<%@ Page language="c#" %> 
<script language=C# runat=server> 
private void Page_Load(object sender, System.EventArgs e) 

// ----------测试数据--------- 
Session["name"] = "srx"; 
Session["sex"]="F"; 
//---------------------------- 
Response.Write("<form name=frm id=frm action=aspxtoasp.asp method=post>"); 
foreach(object obj in Session.Contents) 

 Response.Write("<input type=hidden name=’"+obj.ToString()+"’"); 
  Response.Write(" value = ’"+Session[obj.ToString()].ToString()+"’>"); 

try 

if(Request.QueryString["DestPage"].ToString().Length > 4 ) 

 Response.Write("<input type=hidden name=’DestPage’"); 
 Response.Write(" value = ’"+Request.QueryString["DestPage"].ToString()+"’>"); 


catch{} 
Response.Write("</form>"); 
Response.Write("<scr"+"ipt language=’javascript’>frm.submit();</scr"+"ipt>"); 

</script> 

aspxtoasp.asp

<% 
for i=1 to Request.Form.Count 
Session(Request.Form.Key(i))=Request.Form(i) 
next 
if Len(Session("DestPage")) >4 then 
  Response.Redirect(Session("DestPage")) 
end if 
’----------输出所有的Session------------- 
call allsession() ’使用时注释掉此行代码即可 
function allsession() 
Response.Write "There are " & Session.Contents.Count &" Session <I>var</I>iables<P>" 
Dim strName, iLoop 
For Each strName in Session.Contents’使用For Each循环察看Session.Contents 
 If IsArray(Session(strName)) then ’如果Session变量是一个数组? ’循环打印数组的每一个元素 
  For iLoop = LBound(Session(strName)) to UBound(Session(strName)) 
    Response.Write strName & "(" & iLoop & ") - " & _ 
   Session(strName)(iLoop) & "<BR>" 
   Next 
 Else ’其他情况,就简单打印变量的值 
  Response.Write strName & " - " & Session.Contents(strName) & "<BR>" 
 End If 
Next 
end function 
’-------------------------------------------- 
%>

"ASP和ASP.Net共享Session解决办法"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/3417.html


关键字:

关于《ASP和ASP.Net共享Session解决办法》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td