求救呀，asp高手进来解决呀！！

2007-05-29 05:22:49 259 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Java+Springboot基于微信小程序的动物救助领养系统动物是自然界的生命体，任何生命都值得尊重，人们对于动物的态度体现了人类文明的程度。我国是生物多样性最丰富的国家之一，前后出台了多项政策法规维护生物多样性和生态平衡，以此推进生态文明建设。经过长期的努力，以政府及管理部门为救助主导力量，同时拓宽参与渠道，完善激励政策，号召公众广泛参与救助和保护动物，做到人人尽责、人人出力，我国的动物保护工作取得了显著成效。在依靠国家政策法规约束、保护及救助机构服务的同时，公众的积极配合是强有力的支撑，也是每个公民保护生物的份内之事。阅读详情

点击某一超链接，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
%>

...全文