%
uname=session("uid")
set rs=server.createobject("adodb.recordset")
sql2="select * from person where uname='"&uname&"'"
rs.open sql2,conn,1,1
rs.close
uname=session("uid")
set rs=server.createobject("adodb.recordset")
sql2="select * from company where uname='"&uname&"'"
rs.open sql2,conn,1,1
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from company"
rs.open sql,conn,1,1
r1=rs.recordcount
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from person"
rs.open sql,conn,1,1
r2=rs.recordcount
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from person where job<>'""' order by id desc"
rs.open sql,conn,1,1
jlnum=rs.recordcount
set rs=server.createobject("adodb.recordset")
sql="select * from pmailbox"
rs.open sql,conn,1,1
pmailnum=rs.recordcount
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from cmailbox"
rs.open sql,conn,1,1
cmailnum=rs.recordcount
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from zp order by id desc"
rs.open sql,conn,1,1
jobnum=rs.recordcount
%>
<%
sql="select * from news where typeid=4 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<% b=b+1
if b>=14 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
sql="select * from news where typeid=1 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<%
sql="select * from news where typeid=1 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<%
sql="select * from news where typeid=2 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<%
sql="select * from news where typeid=3 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<% b=b+1
if b>=11 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
::电脑技巧:::
<%
sql="select * from news where typeid=3 order by NewsID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<% b=b+1
if b>=11 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>