sql="select * from public_note where object=2 order by time desc"
rs.Open sql,conn,1,3 '改成 rs.Open sql,conn,1,1
if rs.RecordCount<>0 then
public_note=rs("public_note")
end if
rs.close
set rs=nothing
%>
<%
set rs2=server.CreateObject ("ADODB.recordset")
sql="select * from love_user where username='"&session("Current_user")&"'"
rs2.Open sql,conn,3 '改成 rs2.Open sql,conn,1,1
charisma=rs2("charisma")
if charisma<101 then
rank="租房户"
elseif charisma>100 and charisma<301 then
rank="社区居民"
elseif charisma>300 and charisma<1001 then
rank="单元长"
elseif charisma>1000 and charisma<10001 then
rank="楼长"
elseif charisma>10000 and charisma<50001 then
rank="居委会委员"
elseif charisma>50000 and charisma<150001 then
rank="居委会主任"
elseif charisma>150000 and charisma<500001 then
rank="区委会委员"
elseif charisma>500000 then
rank="区长助理"
end if
rs2.close
set rs2=nothing
%>
[此贴子已经被作者于2007-8-10 17:30:10编辑过]