<%
session("admin")=""
StrSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("newsadmin/data/#@newsxp.asp")
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
set rs=server.createobject("ADODB.Recordset")
sql="select * from nums"
rs.open sql,conn,3,3
if session("username")="" then
nums=rs("numbers")+1
rs("numbers")=nums
rs.Update
session("username")="yes"
end if
set rsor=server.createobject("ADODB.Recordset")
sqlor="select * from orederuser where checks='0'"
rsor.open sqlor,conn,3,3
set rssg=server.createobject("ADODB.Recordset")
sqlsg="select * from orderpro where checks='0'"
rssg.open sqlsg,conn,3,3
%>
销售地板,体育地板,运动地板,指接板,舞台地板,球场地板,橡胶木指接板,博林体育地板
<%end if%> <%if rssg.eof then
response.write ""
else%>
<%end if%> 管理
