📄 dig_more.asp
字号:
<!-- #include file="Setup.asp" -->
<%
HtmlTop
if SiteConfig("RequireAuthenticationForProfileViewing")=1 and CookieUserName=empty then error("您必须<a href=Login.asp?ReturnUrl="&ReturnUrl&">登录</a>后才能浏览个人资料")
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align='center' class='font_3'><tr><td>"
if ShowTotal=true then
strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & " "
end if
strUrl=JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp & "首页 上一页 "
else
strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a> "
strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a> "
end if
if n-currentpage<1 then
strTemp=strTemp & "下一页 尾页"
else
strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> "
strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
end if
strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"
if ShowAllPages=True then
strTemp=strTemp & " 转到：<select class='input' name='page' size='1' onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"
for i = 1 to n
strTemp=strTemp & "<option value='" & i & "'"
if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"
next
strTemp=strTemp & "</select>"
end if
strTemp=strTemp & "</td></tr></table>"
response.write strTemp
end sub
function JoinChar(strUrl) '分页附属函数
if strUrl="" then
JoinChar=""
exit function
end if
if InStr(strUrl,"?")<len(strUrl) then
if InStr(strUrl,"?")>1 then
if InStr(strUrl,"&")<len(strUrl) then
JoinChar=strUrl & "&"
else
JoinChar=strUrl
end if
else
JoinChar=strUrl & "?"
end if
else
JoinChar=strUrl
end if
end function
UserName=HTMLEncode(Request("UserName"))
sql="select * from [Wo_Users] where UserName='"&UserName&"'"
Set Rs=Conn.Execute(sql)
if Rs.eof then error("窝友“"&UserName&"”的资料不存在")
ShowRank(Rs("experience"))
select case Rs("UserSex")
case 0
UserSex="未设置"
case 1
UserSex="男"
case 2
UserSex="女"
end select
select case Rs("UserAccountStatus")
case "0"
UserAccountStatus="正等待审核"
case "1"
UserAccountStatus="已通过审核"
case "2"
UserAccountStatus="已禁用"
case "3"
UserAccountStatus="未通过审核"
end select
XMLDOM.loadxml("<bbsxp>"&Rs("UserInfo")&"</bbsxp>")
QQ=SelectSingleNode("QQ")
ICQ=SelectSingleNode("ICQ")
AIM=SelectSingleNode("AIM")
MSN=SelectSingleNode("MSN")
Yahoo=SelectSingleNode("Yahoo")
Skype=SelectSingleNode("Skype")
Set XMLDOM=Nothing
%>
<title>查看<%=Rs("UserName")%>的资料 - <%=SiteConfig("SiteName")%> - Powered By Wo</title>
<table width="900" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div id="CommonBreadCrumbArea"><%ClubTree%> → 查看窝友“<%=Rs("UserName")%>”资料</div></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 border=0 width=900 align="center">
<TR>
<TD vAlign=top width="200">
<TABLE height="100%" width="95%" cellSpacing=1 cellPadding=0 border=0 id=CommonListArea>
<tr id=CommonListTitle3>
<TD colspan="2"> <%=Rs("UserName")%></td>
</tr>
<TR id=CommonListCell>
<TD colspan="2"><%if SiteConfig("EnableAvatars")=1 then%><center><div style="OVERFLOW:auto;WIDTH:<%=SiteConfig("AvatarWidth")%>px;"><img src=<%=Rs("UserFaceUrl")%> border=0 onload='javascript:if(this.width><%=SiteConfig("AvatarWidth")%>)this.width=<%=SiteConfig("AvatarWidth")%>;if(this.heigh><%=SiteConfig("AvatarHeight")%>)this.height=<%=SiteConfig("AvatarHeight")%>;'></div></center><%end if%> <table border="0" cellspacing="0">
<tr><td>窝友状态：<%=UserAccountStatus%></td></tr>
<tr><td>角 色：<%=ShowRole(RS("UserRoleID"))%></td></tr>
<tr><td>等 级：<%=RankName%></td></tr>
<tr><td>注册日期：<%=FormatDateTime(Rs("UserRegisterTime"),2)%></td></tr>
<tr><td>最近活动：<%=FormatDateTime(Rs("UserActivityTime"),2)%></td></tr>
<tr><td>发 帖 数：<%=Rs("TotalPosts")%></td></tr>
<tr><td>金 钱：<%=Rs("UserMoney")%></td></tr>
<tr><td>经 验 值：<%=Rs("experience")%></td></tr>
</table>
</TD>
</TR>
<TR id=CommonListTitle3>
<TD colspan="2"> 选项</td>
</TR>
<TR id=CommonListCell>
<TD>
<table border="0">
<%if CookieUserName=Rs("UserName") then%>
<tr>
<td><img src=images/edit.gif></td>
<td><a href="EditProfile.asp">编辑我的资料</a></td>
</tr>
<%end if%>
<tr>
<td><img src=images/favorite.gif></td>
<td><a href="MyFavorites.asp?menu=FavoriteFriend&FriendUserName=<%=Rs("UserName")%>">将 <%=Rs("UserName")%> 加为好友</a></td>
</tr>
<%if CookieUserName<>empty then%>
<tr>
<td><img src=images/privatemessage.gif></td>
<td><a href="javascript:Wo_Modal.Open('MyMessage.asp?menu=Post&RecipientUserName=<%=Rs("UserName")%>',600,350);">给 <%=Rs("UserName")%> 发送讯息</a></td>
</tr>
<%end if%>
<tr>
<td><img src=images/email.gif></td>
<td><a target="wh" href="mailto:<%=Rs("UserEmail")%>">给 <%=Rs("UserName")%> 发送邮件</a></td>
</tr>
<%if Rs("WebAddress")<>"" then%>
<tr>
<td><img src=images/homepage.gif></td>
<td><a target="wh" href="<%=Rs("WebAddress")%>">查看 <%=Rs("UserName")%> 的主页</a></td>
</tr>
<%end if%>
<%if Rs("WebLog")<>"" then%>
<tr>
<td><img src=images/weblog.gif></td>
<td><a target="wh" href="<%=Rs("WebLog")%>">查看 <%=Rs("UserName")%> 的博客</a></td>
</tr>
<%end if%>
<%if Rs("WebGallery")<>"" then%>
<tr>
<td><img src=images/webgallery.gif></td>
<td><a target="wh" href="<%=Rs("WebGallery")%>">查看 <%=Rs("UserName")%> 的相册</a></td>
</tr>
<%end if%>
<tr>
<td><img src=images/search.gif></td>
<td><a href="ShowBBS.asp?menu=MyTopic&UserName=<%=Rs("UserName")%>">搜索 <%=Rs("UserName")%> 的主题</a></td>
</tr>
<%if QQ<>"" then%>
<tr>
<td><img src=images/im_qq.gif></td>
<td><a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ%>&menu=yes&Site=<%=SiteConfig("SiteName")%>"><%=QQ%></a></td>
</tr>
<%end if%>
<%if MSN<>"" then%>
<tr>
<td><img src=images/im_msn.gif></td>
<td><a target="blank" href="http://members.msn.com/?mem=<%=MSN%>"><%=MSN%></a></td>
</tr>
<%end if%>
<%if AIM<>"" then%>
<tr>
<td><img src=images/im_aim.gif></td>
<td><%=AIM%></td>
</tr>
<%end if%>
<%if Yahoo<>"" then%>
<tr>
<td><img src=images/im_yahoo.gif></td>
<td><%=Yahoo%></td>
</tr>
<%end if%>
<%if ICQ<>"" then%>
<tr>
<td><img src=images/im_icq.gif></td>
<td><%=ICQ%></td>
</tr>
<%end if%>
<%if Skype<>"" then%>
<tr>
<td><img src=images/im_skype.gif></td>
<td><%=Skype%></td>
</tr>
<%end if%>
</table>
</TD>
</TR>
</TABLE>
</TD>
<TD vAlign=top>
<TABLE WIDTH=100% cellSpacing=1 cellPadding=3 align=center border=0 id=CommonListArea>
<TR id=CommonListTitle3>
<TD align=Left> <%=Rs("UserName")%> 发布的所有群组主题：</TD>
</TR>
<TR id=CommonListCell>
<TD><%
response.expires = 0
currentpage = request("page")
if currentpage = "" then
currentpage=1
end if
maxperpage = 15
totalrecords = 0
totalpage = 1
str="select * from Wo_source where Src_IsOver=true and Src_UserID="&Rs("UserID")&" order by Src_ID desc"
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.open str,conn,1,3
if Rs1.eof then
Response.Write("没有该窝友发布的DIG文章")
else
rs1.pagesize = maxperpage
rs1.absolutepage = currentpage
totalpage = rs1.pagecount
totalrecords = rs1.recordcount
j = 0
While not rs1.eof and j < maxperpage
j = j + 1
Response.Write(" <img src='Images/frame_0.gif' border=0> <a href='show.asp?Src_ID="&Rs1("Src_ID")&"'>"&Rs1("Src_Title")&"</a> | "&Rs1("Src_AddDate")&"<hr style='BORDER-RIGHT: #eeeeee 1px; BORDER-TOP: #eeeeee 1px dashed; MARGIN: 0px 0px 0px; BORDER-LEFT: #eeeeee 1px; BORDER-BOTTOM: #eeeeee 1px' noShade SIZE=1>")
Rs1.MoveNext
Wend
end if
Rs1.close
set rs1=nothing
%>
<div align="right"><% Call showpage("Dig_more.asp?UserName="&UserName&""&special,totalrecords,maxperpage,true,true,"篇文章") %></div></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<%
Set Rs = Nothing
HtmlBottom
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -