| |
<%
strsql="select top 1 * from blog_note order by blog_count desc "
set rsb=pcom.queryBySQL(strsql)
if not rsb.eof then
strsql= "select sex,userphoto,user_name,userid from L_userinfo where userid="&rsb("uid")
set rsu=pcom.queryBySQL(strsql)
xuid=rsu("userid")
xphoto =rsu("userphoto")
xuser_name=rsu("user_name")
xsex=rsu("sex")
xblog_count=rsb("blog_count")
xheat_count=rsb("heat_count")
xnot_info=rsb("not_info")
end if
%>
|
|
|
| 日�𤙴g𦆮廕<%=xblog_count%> |
| 愛𣂷h墓��睿?%=xheat_count%> |
|
<%
response.write xnot_info
set rsb=nothing
set rsu=nothing
%>
|
|
 |
|
 |
[更多公告] |
|
|
|
<%
strsql="select top 6 sex,userphoto,user_name,userid from L_userinfo where userphoto<>'' and online=1 order by newid()"
set rsimg=pcom.queryBySQL(strsql)
i=0
while not rsimg.eof
%>
|
|
<%
rsimg.movenext
i=i+1
if i mod 3=0 then response.write " "
wend
%>
|
 |
|
|
| |
<%
i=1
strsql="select top 18 uid,id,user_name,title,blog_state from blog_seach where blog_state<>1 order by id desc"
set rs=pcom.queryBySQL(strsql)
while not rs.eof
%>
 |
" target=_blakn><%=left(rs("title"),14)%> |
<%
if rs("blog_state")=2 then
response.write "匿名"
else
response.write ""&rs("user_name")&""
end if
%>
|
<%
if i mod 2=0 then response.write " "
i=i+1
rs.movenext
wend
%>
|
 |
公寓𤤙ゎ�砭� |
|
|
|
|
|
最佳形象道具 |
|
|
|
|
|
<%else%>
<%end if%>
