<%@ Language=VBScript %>
<%
'设定页面过期时间，确定本页不被缓存。
Response.Expires=-9
'当用户进入登录页面的时候，系统将清除其以前的登录身份信息。
'session.Abandon
%>
<%if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
if Session("IsFinancialManager") then
Response.Redirect "../Messageboard/index_autho.asp"
end if
%>
<%
dim connstr,conn,rs,sql
connstr="dbq="+server.MapPath("..\manage\manage\manage.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from PSLogins"
rs.open sql,conn,1,3
set RSgoodsname1 = conn.Execute("select goodsname1 from goods where goodsid in (select goodsid from goodstouser where loginID='"&cstr(session("ID"))&"') order by goodsname1")
%>
<%
Time_y1=year(date)
Time_m1=month(date)
Time_d1=day(date)
Time_y2=year(date)
Time_m2=month(date)
Time_d2=day(date)
%>
莆田鹭燕-网上查询
