asp代码参数传递问题

最新推荐文章于 2024-09-05 11:49:00 发布

xywang1025

最新推荐文章于 2024-09-05 11:49:00 发布

阅读量784

点赞数

文章标签： asp session xhtml html action function

本文链接：https://blog.csdn.net/xywang1025/article/details/4101855

版权

1.A页面的代码

<% 
'Guid=Request("GuID")
'SysID=Request("SysID")
'SysloginID=Request("SysloginID")
'SysloginPwd=Request("SysloginPwd")
'response.write session("sloginid")
'response.end
strUserEmpID = Request("sloginid")

    Response.redirect "http://10.89.58.93/webflow/flow/yusuan/yusuan.asp" 
 %>

2.B页面

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>部门预算查询</title>
</head>
<%empid=request("account_id")%>
<frameset cols="20,70">
 <frame name="left" scrolling ="auto" src="reportDeptTree.asp?empid=<%=empid%>" >
 <frame name="mainpage" id="mainFrame" title="mainFrame" scrolling="auto" src="query_ys_list.asp">
 <noframes>
 <body>
 </body>
 </noframes>
</frameset>

</html>

3.C页面

<% 
'Guid=Request("GuID")
'SysID=Request("SysID")
'SysloginID=Request("SysloginID")
'SysloginPwd=Request("SysloginPwd")
'response.write session("sloginid")
'response.end
strUserEmpID = Request("sloginid")
if session("sloginid")="000002" or session("sloginid")="000088"  or session("sloginid")="000005" or session("sloginid")="000019" or session("sloginid")="003938" or session("sloginid")="000021" or session("sloginid")="011440"then 
    Response.redirect "http://128.1.1.87/webflow/flow/fudong.asp?account_id="& strUserEmpID & ""+"&leibie=1000" 
 else 
    Response.redirect "login_unath.asp"
 end i

4.D页面<%


set conFlow  = CreateObject("Adodb.Connection")
//strconnect="File Name=d:/NTWEB/AutoWeb/Database/Project/EIP/flow.UDL;"
conFlow.open strconnect
strUserEmpID = Request.Cookies("_AUTOWEBCOOKIE_EIP_WEB_EIP")("id")
strUserEmpID = Request("sloginid")
strPassWord = ""


strUserid="select UserID,password from users where enabled='Y' and logonid='" & strUserEmpID & "'"
set rsUserid=conFlow.execute(strUserid)
if rsUserid.eof then
    strPassWord = ""
	UserID=""
response.write strUserEmpID
'response.write "test"
	response.end
else
    strPassWord = rsUserid("password")
	UserID=rsUserid("UserID")
end if
if mid(strPassWord,1,6)="wfpwd_" then
    strPassWord = enCode(strPassWord)
end if

'??session????
request("wf_USERID")=UserID 

strURL="http://10.89.58.93/webflow/flow/logon.asp?userid="& strUserEmpID & "&password="& strPassWord &"&Action2=确定&fromp=1"

If Session("wf_UserID") = "" Then

	Set ObjLogon = Server.CreateObject("wflow1.c")
	a = ObjLogon.LogonUser("1")
	if Session("wf_errorCode") = 1 then Response.write Session("wf_errorString")
	if not ObjLogon is nothing then set ObjLogon=nothing
else  
      ' response.redirect strURL
end if 
Function enCode(pwd) 
    if len(pwd)> 6 then
    
        Dim strCode  
        Dim intRightOne  
        Dim strTemp  
        Dim strEncode  
        strCode = pwd
        strCode = Right(strCode, Len(strCode) - 6)
        strleftone = Mid(strCode, 1, 1)
        intLeftOne = Asc(strleftone)
        intLeftOne = intLeftOne + (Len(pwd) Mod 3)
        strleftone = Chr(intLeftOne)
        intRightOne = Asc(Right(strCode, 1))
        intRightAsc = CInt(Right(CStr(Asc(strleftone)), 1))
        For i = 2 To Len(strCode)
            intCode = Asc(Mid(strCode, i, 1))
            intCode = intCode - intRightAsc
            strTemp = Chr(intCode)
            strEncode = strEncode & strTemp
        Next 
        
        Dim nHalfPass
        nHalfPass = Len(strEncode) / 2
        strEncode = Mid(strEncode, nHalfPass + 1, Len(strEncode)) & strleftone & Mid(strEncode, 1, nHalfPass)
        enCode = strEncode
    else
        enCode = ""
    end if
    
End Function
Response.redirect strURL
%>
A链接到B

C链接到D

xywang1025

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
asp代码参数传递问题

1.A页面的代码<% Guid=Request("GuID")SysID=Request("SysID")SysloginID=Request("SysloginID")SysloginPwd=Request("SysloginPwd")response.write session("sloginid")response.endstrUserEmpID
复制链接

扫一扫