求救呀,asp高手进来解决呀!!
点击某一超链接,Session值发生变化。
比如说,用户AA登陆后退出,BB登陆,点击超链接后,session("SysUser")就变化成上一个用户的值,即AA。
这是超链接的单击事件:
var objxml=new ActiveXObject("Microsoft.XMLHttp")
var retInfo = "";
objxml.open("GET","common/OpenbottomFrame.asp?Ftype=1",false);
objxml.send();
retInfo = objxml.responseText;
if (retInfo == "0")
{
objxml.open("GET","common/OpenbottomFrame.asp?Ftype=2",false);
objxml.send();
retInfo = objxml.responseText;
window.open("bottomFrame.asp?FOpenNotepad=1","bottomFrame");
}
这是OpenbottomFrame.asp页面
connstr ="DRIVER=SQL Server;SERVER=127.0.0.1;DATABASE=membersys;UId=sa;pwd=sa"
set conn = server.createobject("ADODB.CONNECTION")
conn.open connstr
Ftype = RRequest("Ftype",1)
if CInt(Ftype) = 1 then
sql = "select NotepadLock from T_SYS_UserInfo where FName = N'"&Session("SysUser")&"'"
elseif CInt(Ftype) = 2 then
sql = "update T_SYS_UserInfo set NotepadLock = 1 where FName = N'"&Session("SysUser")&"'"
elseif CInt(Ftype) = 3 then
sql = "update T_SYS_UserInfo set NotepadLock = 0 where FName = N'"&Session("SysUser")&"'"
end if
set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,3
sql = ""
if CInt(Ftype) = 1 then
Response.Write(rs("NotepadLock"))
rs.close
elseif CInt(Ftype) = 2 then
Response.Write("true")
elseif CInt(Ftype) = 3 then
Response.Write("true")
end if
set rs = nothing
这是bottomFrame.asp页面的部分代码
<%
FPageSize = 1
Page = 1
FSysUserID = 0
if session("SysUser") <> "" then
sql_admin = "select FID from T_SYS_UserInfo where FName = N'"&Session("SysUser")&"'"
Response.Write(Session("SysUser"))
set rs_admin = Server.CreateObject("Adodb.RecordSet")
rs_admin.open sql_admin,conn,1,1
sql_admin = ""
if not (rs_admin.bof or rs_admin.eof) then
FSysUserID = rs_admin("FID")
end if
rs_admin.close
set rs_admin = nothing
end if
sql = "select * from T_SYS_Notepad where FUserFID = "&FSysUserID&" order by FID"
set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
%>