新手简单有关问题！ASP的页面的值，如何传到ASPX去
日期：2014-05-20 浏览次数：20510 次
新手简单问题求助！ASP的页面的值，怎么传到ASPX去？
<HTML>
<HEAD>
<TITLE> New Page </TITLE>
</HEAD>
<BODY>
<%
dim a,b
a=trim(request.form( "smw "))
b=trim(session( "encrypt_code "))
response.write "用户填写的用户名： " & request.form( "username ") & " <br> "
response.write "用户填写的密码： " & request.form( "password ") & " <br> "
response.write "从客户机传来的经加密的硬盘序列号： " & a & " <br> "
response.write "在session变量中保存的动态加密规则码： " & b & " <br> "
response.write "如果前两个码相同，说明GetDiskKeyNo.ocx控件没有正常工作 <br> "
response.write "解密后的硬盘序列号： " & decrypt
'已访问数据库对用户名、密码、硬盘序列号进行验证
'程序略
%>
</body>
</HTML>
<%
private function decrypt
dim strb,strc,strd,strr,strt,i,j
strb = Mid(b, 1, 3)
strc = Mid(b, 4, 1)
strd = Mid(b, 5, 4)
'按与加密方法相反的办法进行解密
strr=clng(a)+clng(strd) '加上第五至八位的数值
strr=right(trim(strr),len(trim(strr))-1)
K=len(strr)
for i=1 to strc
strr=right(strr,1)+left(strr,K-1)
next
strr=clng(strr)-clng(strb) '减去第一至三位的数值
decrypt=strr
end function
%>
我想得到 decrypt 的值，并将其传到b.aspx页面中，请问该怎么做？？
------解决方案--------------------
<HTML>
<HEAD>
<TITLE> New Page </TITLE>
</HEAD>
<BODY>
<%
dim a,b
a=trim(request.form( "smw "))
b=trim(session( "encrypt_code "))
response.write "用户填写的用户名： " & request.form( "username ") & " <br> "
response.write "用户填写的密码： " & request.form( "password ") & " <br> "
response.write "从客户机传来的经加密的硬盘序列号： " & a & " <br> "
response.write "在session变量中保存的动态加密规则码： " & b & " <br> "
response.write "如果前两个码相同，说明GetDiskKeyNo.ocx控件没有正常工作 <br> "
response.write "解密后的硬盘序列号： " & decrypt
'这个就是LZ需要的转向代码
response.Redirect "GetInformation.aspx?decrypt= "&decrypt
'已访问数据库对用户名、密码、硬盘序列号进行验证
'程序略
%>
</body>
</HTML>
<%
private function decrypt
dim strb,strc,strd,strr,strt,i,j
strb = Mid(b, 1, 3)
strc = Mid(b, 4, 1)
strd = Mid(b, 5, 4)
'按与加密方法相反的办法进行解密
strr=clng(a)+clng(strd) '加上第五至八位的数值
strr=right(trim(strr),len(trim(strr))-1)
K=len(strr)
for i=1 to strc
strr=right(strr,1)+left(strr,K-1)
next
strr=clng(strr)-clng(strb) '减去第一至三位的数值
decrypt=strr
end function
%>
<HTML>
<HEAD>
<TITLE> New Page </TITLE>
</HEAD>
<BODY>
<%
dim a,b
a=trim(request.form( "smw "))
b=trim(session( "encrypt_code "))
response.write "用户填写的用户名： " & request.form( "username ") & " <br> "
response.write "用户填写的密码： " & request.form( "password ") & " <br> "
response.write "从客户机传来的经加密的硬盘序列号： " & a & " <br> "
response.write "在session变量中保存的动态加密规则码： " & b & " <br> "
response.write "如果前两个码相同，说明GetDiskKeyNo.ocx控件没有正常工作 <br> "
response.write "解密后的硬盘序列号： " & decrypt
'已访问数据库对用户名、密码、硬盘序列号进行验证
'程序略
%>
</body>
</HTML>
<%
private function decrypt
dim strb,strc,strd,strr,strt,i,j
strb = Mid(b, 1, 3)
strc = Mid(b, 4, 1)
strd = Mid(b, 5, 4)
'按与加密方法相反的办法进行解密
strr=clng(a)+clng(strd) '加上第五至八位的数值
strr=right(trim(strr),len(trim(strr))-1)
K=len(strr)
for i=1 to strc
strr=right(strr,1)+left(strr,K-1)
next
strr=clng(strr)-clng(strb) '减去第一至三位的数值
decrypt=strr
end function
%>
我想得到 decrypt 的值，并将其传到b.aspx页面中，请问该怎么做？？
------解决方案--------------------
<HTML>
<HEAD>
<TITLE> New Page </TITLE>
</HEAD>
<BODY>
<%
dim a,b
a=trim(request.form( "smw "))
b=trim(session( "encrypt_code "))
response.write "用户填写的用户名： " & request.form( "username ") & " <br> "
response.write "用户填写的密码： " & request.form( "password ") & " <br> "
response.write "从客户机传来的经加密的硬盘序列号： " & a & " <br> "
response.write "在session变量中保存的动态加密规则码： " & b & " <br> "
response.write "如果前两个码相同，说明GetDiskKeyNo.ocx控件没有正常工作 <br> "
response.write "解密后的硬盘序列号： " & decrypt
'这个就是LZ需要的转向代码
response.Redirect "GetInformation.aspx?decrypt= "&decrypt
'已访问数据库对用户名、密码、硬盘序列号进行验证
'程序略
%>
</body>
</HTML>
<%
private function decrypt
dim strb,strc,strd,strr,strt,i,j
strb = Mid(b, 1, 3)
strc = Mid(b, 4, 1)
strd = Mid(b, 5, 4)
'按与加密方法相反的办法进行解密
strr=clng(a)+clng(strd) '加上第五至八位的数值
strr=right(trim(strr),len(trim(strr))-1)
K=len(strr)
for i=1 to strc
strr=right(strr,1)+left(strr,K-1)
next
strr=clng(strr)-clng(strb) '减去第一至三位的数值
decrypt=strr
end function
%>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
