showaud.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<%
sub showaud(uname)
dim rsaud,sqlaud,tcount,tfen,tpic,ttxt,txt
set rsaud=server.CreateObject("adodb.recordset")
sqlaud="select * from hx66_uinfo where hx66_uname='"&uname&"'"
rsaud.open sqlaud,conn,1,1
if not rsaud.eof then
tfen=rsaud("hx66_money")
else
tfen=0
end if
dim zt,hf,regdate,HxSex,Grade,Homepage,QQ,points
zt=conn.execute("select count(*) from hx66_bbs where hx66_delete=0 and hx66_name='"&uname&"'")(0)
hf=conn.execute("select count(*) from hx66_saybbs where hx66_hdelete=0 and hx66_user='"&uname&"'")(0)
rsaud.close
set rsaud=nothing
set conn1=server.CreateObject("adodb.connection")
DBPath = Server.MapPath(mdb)
conn1.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
set RelationArt = conn1.execute("select regdate,Sex,UserGrade,Homepage,QQ,points from [User] where UserName='" & uname & "' order by userid desc")
if not RelationArt.eof then
regdate=year(relationArt(0)) & "-" & month(relationArt(0)) & "-" & day(relationArt(0))
Homepage=relationArt(3)
QQ=relationArt(4)
points=relationArt(5)
if relationArt(1)="男" then
HxSex="male"
txt="帅哥哟"
else
HxSex="female"
txt="美女哦"
end if
if relationArt(2)="1" then
Grade="VIP 会员"
else
Grade="普通会员"
end if
else
regdate="此ID已删除"
Homepage=""
QQ=""
HxSex="male"
txt="帅哥哟"
Grade="普通会员"
end if
if tfen<=100 then
tpic="01"
ttxt="灵之砂"
end if
if tfen>100 and tfen<=300 then
tpic="02"
ttxt="青黛砾"
end if
if tfen>300 and tfen<=500 then
tpic="03"
ttxt="红颜璧"
end if
if tfen>500 and tfen<=1000 then
tpic="04"
ttxt="黄炫钻"
end if
if tfen>1000 and tfen<=1500 then
tpic="05"
ttxt="碧烟晶"
end if
if tfen>1500 and tfen<=2000 then
tpic="06"
ttxt="橙谜珞"
end if
if tfen>2000 and tfen<=2500 then
tpic="07"
ttxt="蓝靛璎"
end if
if tfen>2500 and tfen<=3000 then
tpic="08"
ttxt="紫冥璃"
end if
if tfen>3000 and tfen<=4000 then
tpic="09"
ttxt="极之光"
end if
if tfen>4000 and tfen<=5000 then
tpic="10"
ttxt="水云泪"
end if
if tfen>5000 and tfen<=6000 then
tpic="11"
ttxt="蔷薇恋"
end if
if tfen>6000 and tfen<=8000 then
tpic="12"
ttxt="月柔情"
end if
if tfen>8000 and tfen<=10000 then
tpic="13"
ttxt="幻曰碎"
end if
if tfen>10000 and tfen<=15000 then
tpic="14"
ttxt="玉藕连"
end if
if tfen>15000 and tfen<=20000 then
tpic="15"
ttxt="千情结"
end if
if tfen>20000 and tfen<=25000 then
tpic="16"
ttxt="幻·蝶"
end if
if tfen>25000 and tfen<=30000 then
tpic="17"
ttxt="灭·蝶"
end if
if tfen>30000 and tfen<=35000 then
tpic="18"
ttxt="创·蝶"
end if
if tfen>35000 and tfen<=40000 then
tpic="19"
ttxt="元素精灵"
end if
if tfen>40000 and tfen<=45000 then
tpic="20"
ttxt="晶舞精灵"
end if
if tfen>45000 and tfen<=50000 then
tpic="21"
ttxt="云影精灵"
end if
if tfen>50000 and tfen<=60000 then
tpic="22"
ttxt="星岚精灵"
end if
if tfen>60000 and tfen<=70000 then
tpic="23"
ttxt="暗月精灵"
end if
if tfen>70000 and tfen<=80000 then
tpic="24"
ttxt="幻夜精灵"
end if
if tfen>80000 and tfen<=90000 then
tpic="25"
ttxt="六翼精灵"
end if
if tfen>90000 and tfen<=100000 then
tpic="26"
ttxt="精灵领主"
end if
if tfen>100000 and tfen<=120000 then
tpic="27"
ttxt="精灵使者"
end if
if tfen>120000 and tfen<=140000 then
tpic="28"
ttxt="精灵圣者"
end if
if tfen>140000 and tfen<=180000 then
tpic="29"
ttxt="精灵王者"
end if
if tfen>180000 and tfen<=220000 then
tpic="30"
ttxt="论坛支柱"
end if
if tfen>220000 then
tpic="31"
ttxt="论坛元老"
end if
response.write"<img src=""images/"&HxSex&".gif"" border=""0"" alt="""&txt&""">&nbsp;&nbsp;<a href="""&Homepage&""" Title=""去"&uname&"的主页看看"" target=_blank><img src=""images/web.gif"" border=""0"" height=""15""></a>&nbsp;<img src=""images/QQ.gif"" border=""0"" alt="""&uname&"的QQ："&QQ&""" height=""15"">&nbsp;<a href=""../messager.asp?action=new&touser="&uname&""" Title=""给"&uname&"发送短消息"" target=_blank><img src=""images/mail.gif"" border=""0"" height=""15""></a>"
response.write"<BR>属性："&Grade&""
if checkadmindj(uname,bid)=4 then
response.write"<BR>等级：超级管理员"
response.write"<BR><img src=""images/aud/31.gif"" border=""0"">"
elseif checkadmindj(uname,bid)=3 then
response.write"<BR>等级：论坛管理员"
response.write"<BR><img src=""images/aud/31.gif"" border=""0"">"
elseif checkadmindj(uname,bid)=2 then
response.write"<BR>等级：超级版主"
response.write"<BR><img src=""images/aud/30.gif"" border=""0"">"
elseif checkadmindj(uname,bid)=1 then
response.write"<BR>等级：本版版主"
response.write"<BR><img src=""images/aud/29.gif"" border=""0"">"
else
response.write"<BR>等级：[<font color=""#FF6600"">"&ttxt&"</font>]"
response.write"<BR><img src=""images/aud/"&tpic&".gif"" border=""0"">"
end if
response.write"<BR><font color=""red"">会员币值："&points&"</font>"
response.write"<BR>论坛积分："&tfen&""
response.write"<BR>贴子："&zt+hf&""
response.write"<BR>注册："&regdate&""
if conn.execute("select top 1 hx66name from hx66online where hx66name='"&uname&"' and hx66type=2").eof then
response.write"<BR>状态：[<font color=#555555>离线</font>]"
else
response.write"<BR>状态：[<font color=#FF6600>在线</font>]"
end if
end sub
%>