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