| |
<%if session("username")="" then%>
<%
dim remoteaddr
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=empty then
remoteaddr=Request.ServerVariables("REMOTE_ADDR")
else
remoteaddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
if LockIP(remoteaddr) then
response.write("")
response.write("| ＩＰ（"&remoteaddr&"） IP被管理员锁定，请联系管理员． | ")
response.end
end if
%>
<%else
sql="select * from [user] where username='"&session("username")&"'"
set rss=connphoto.execute(sql)
if rss.eof then%>
<%else%>
| |
|
| 用 户： |
<%=session("username")%> |
| 空 间： |
<%=rss("zxcdx")%>M |
| 已 用： |
<%=photokb(rss("yyxcdx"))%> |
 " height="7"> |
|
|
<%end if
rss.close
end if%> |
|
|
|
<%
dim i
i=1
sql="select top 3 * from xc where tj=1 and filename<>'' and xcdj<>2 order by id desc"
set rss=connphoto.execute(sql)
if rss.eof then
response.write("| 没有推荐相册显示 | ")
else
%>
<%do while not rss.eof and i<=3%>
|
|
<%
if i<>3 then
response.write(" | ")
end if
i=i+1
rss.movenext
loop%>
<%
end if
rss.close
%>
|
|
")
elseif rss("xcdj")=4 then
response.write("
")
else
if instr(rss("filename"),"small_")<=0 then
response.write("")
else
response.write("
