shownew.asp
来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 205 行
ASP
205 行
<!-- #include file="setup.asp" -->
<%
Menu=Request.QueryString("Menu")
Select Case Menu
Case ""
ThisId=Request.QueryString("ThisId")
if ThisId="" Then Error 1,"参数非法传递！\n您的IP已被记录！",""
if IsNumEric(ThisId)=False Then Error 1,"参数非法传递！\n您的IP已被记录！",""
Response.Write("<style><!-- TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}--></style>")
Sql="Select title,Content From Forum Where DelThis=False and ShowID="&ThisId
Set Rs = Conn.Execute(Sql)
if Rs.Eof or Rs.Bof Then Error 1,"很抱歉！没有找到你需要的资料！",""
%>
<link href=css.css rel=stylesheet>
<title><%= Rs("title") %></title>
<body background="images/background1.gif">
<p align="center"><b><%= Rs("title") %></b></p>
<%= Rs("Content") %>
<%Rs.Close
Set Rs = Nothing%>
<%Case "AdminList"
Call Top
Call table()
Response.Write("<style><!-- TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}--></style><br>") %>
<center>
<table bordercolor=#A4B6D7 cellSpacing=0 cellPadding=1 border=1 width=100% style="border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px" height="25"><tr>
<td width=25% align=center style="font-size: 9pt" background=images/title_sub.gif height="17">
<font color=FFFFFF><b>管 理 人 员</b></font></td>
<td align=center style="font-size: 9pt" width="75%" background=images/title_sub.gif height="17">
<font color=FFFFFF><b>详 细 信 息</b></font></td>
</tr></table>
<%page=Request.QueryString("Page")
sql="select UserName_1,UserEmail_1,UserInfo,UserQQ,UserWeb,UserAddtime,UserID,UserName_2,userhead,userphoto,UserGrade,UserSex from userinfo where UserGrade > 3 and DelThis=False order by UserGrade Desc,UserId"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,Conn,1
rs.pagesize=10
if page = "" Then page = 1
page=Cint(page)
if Page < 1 Then Page=1
if Page > rs.pagecount then Page=rs.pagecount
num=rs.recordcount
maxpage=rs.pagecount
rs.absolutepage=page
i=0
Do While Not RS.EOF and i < rs.pagesize
i=i+1
if Rs("UserSex")=False Then
Sex=" 女"
Else
Sex=" 男"
End if
Select case rs("UserGrade")
case 0,1
Uleve="普通用户"
case 2
Uleve="VIP会员"
case 3
Uleve="社区管理员"
case 4
Uleve="商城管理员"
case 5
Uleve="总管理员"
case 6
Uleve="商城站长"
End Select%>
<table width=100% bordercolor=#A4B6D7 cellSpacing=0 cellPadding=1 border=1>
<tr bgcolor=F8F8F8><td valign=top width=25%><p><br>
<a target="_blank" href="images/upphoto/<%=rs("userphoto")%>"><img src=images/upphoto/<%=rs("userphoto")%> border=0 width=150 height=112></a></p>
</td><td valign=top>
<table cellSpacing=0 cellPadding=5 border=0 >
<tr><td align=middle width="33">
<img src=images/face/<%=rs("userhead")%>.gif width="32" height="32"></td>
<td width="61"><b>昵 称</b></td>
<td align=left width="84"><%=rs("UserName_2")%></td>
<td align=left width="18">
<img src=images/add.gif align=abscenter border=0 width="16" height="16"></td>
<td align=left width="62">性别:<%= sex %></td>
<td align=left width="103">
<img src=images/msg.gif width="16" height="16"><a href=# onclick="javascript:open('friend.asp?menu=post&inceptID=<%=rs("UserID")%>','','width=320,height=170')"> 发送讯息</a></td>
</tr><tr><td align=middle width="33"><img src=images/level.gif border=0 width="16" height="16"></td>
<td width="61"><b>用户等级</b></td>
<td align=left width="84"><%=Uleve%> </td>
<td align=left width="18 "> <img src=images/mail.gif border=0 width="16" height="16"></td>
<td align=left width="62"><b>EMAIL</b></td><td align=left width="103"><a href=mailto:<%=rs("UserEmail_1")%>><%=rs("UserEmail_1")%></a> </td>
</tr><tr><td align=middle width="33">
<img src=images/registered.gif border=0 width="16" height="16"></td>
<td width="61"><b>注册日期</b></td><td align=left width="84"><%=rs("UserAddtime")%> </td>
<td align=left width="18">
<img src=images/home.gif border=0 width="16" height="16"></td>
<td align=left ><b>主页地址</b></td>
<td align=left ><a target="_blank" href="<%=rs("UserWeb")%>"><%=rs("UserWeb")%></a> </td></tr><tr>
<td align=middle width="33">
<img src=images/posts.gif border=0 width="16" height="16"></td>
<td width="61"><b>真实姓名</b></td>
<td align=left width="84"><%=rs("UserName_1")%></td>
<td align=left width="18">
<img src=images/qq.gif border=0></td>
<td align=left width="62"><b><span lang=en-us>QQ</span></b></td>
<td align=left width="103"><%=rs("UserQQ")%> </td>
</tr><tr>
<td align=middle width="33">
<img src=images/sig.gif border=0 width="16" height="16"></td>
<td colspan=5 width="368"><b>用户简介</b>
<br><%=rs("UserInfo")%>
</td></tr>
</table></td></tr></table>
<%
RS.MoveNext
loop
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.write "<br><center>页码:[ "
Npage page,maxpage
Response.write"]"
Case "BbsList"
Guangbo=Split(conn.execute("Select FunctionInfo from Functions where FunctionID=19")(0),"|")
Call Top
Call table()
Response.Write("<style><!-- TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}--></style><br>")
%><script>
function openwindows(){
var winEx = window.open('', '', 'resizable,scrollbars');winEx.document.write('<title><%=GuangBo(0)%></title><body background=images/background1.gif><%=GuangBo(1)%>');
}
</script>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR><TD height=25 valign="middle" background=images/title_sub.gif> <p align="left"> ■ 您现在的位置：<%=Community%> --> 商城讨论社区 </TD>
</TR>
</TABLE>
<TABLE borderColor=#a4b6d7 cellSpacing=0 cellPadding=3 width=100% border=1 style="border-collapse: collapse">
<TR>
<TD height=12 width="100%" >
<table cellSpacing="0" cellPadding="0" width=100% align="center" border="0">
<tr>
<td align="left" width="13%"><img src="images/announce.gif"> 公告: </td>
<td align="left" width="40%"><marquee onmouseover="this.stop()" onmouseout="this.start()" width="300" scrollAmount="3"><a href="#" onclick="javascript:openwindows()"><%= GuangBo(0) %></a></marquee></td>
<td align="right" width="47%">欢迎我们的新会员：<%= conn.execute("Select FunctionInfo from Functions where FunctionID=5")(0) %> <img src="images/team.gif"> <a href=ShowNew.asp?Menu=AdminList>管理团队</a>
</td>
</tr>
</table>
</TD>
</TR></TABLE>
<table borderColor="#a4b6d7" cellSpacing="0" cellPadding="1" width="100%" align="center" border="1">
<tr bgColor="#c4d4e5" height="25">
<td vAlign="center" background=images/title_sub.gif align="middle" width="5%">状态</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="72%"><div align="center">论坛</div></td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="11%"><div align="center">版主</div></td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="6%">主题</td>
<td vAlign="center" background=images/title_sub.gif align="middle" width="6%">回复</td>
</tr></table>
<%Sql="Select BbsId,bbsname,BbsMan,BbsInfo,AllTitle,AllRe From BbsInfo Where DelThis=False and BbsShow=False order by BbsPx"
Set Rs = Conn.Execute(Sql)
do while not rs.eof
BbsMan=Split(Rs("BbsMan"),",")
masterlist=""
for i=0 to Ubound(BbsMan)
masterlist=masterlist&conn.execute("Select UserName_2 from UserInfo where UserID="&BbsMan(i))(0)&"<br>"
next%>
<table borderColor="#a4b6d7" cellSpacing="0" width="100%" align="center" border="1">
<tr>
<td align="middle" width="5%" > <img src=images/on.gif> </td>
<td width="72%" vAlign="top" onmouseover="this.style.backgroundColor='#ECF5FF'" onmouseout="this.style.backgroundColor=''">
<table cellSpacing="0" cellPadding="3" width="100%" border="0">
<tr><td width="77%">『 <a href="BbsList.asp?Menu=List&BbsID=<%=rs("BbsId")%>"><%=rs("bbsname")%></a> 』</td>
<td align="center" width="23%"></td></tr><tr><td colspan="2"><font color=999999><%=rs("BbsInfo")%></font></td>
</tr></table></td>
<td vAlign="center" align="middle" width="11%" >
<table cellSpacing="0" cellPadding="2" width="100%" border="0">
<tr>
<td align="middle"> <%=masterlist%> </td>
</tr>
</table></td>
<td vAlign="center" noWrap align="middle" width="6%" ><%=rs("AllTitle")%> </td>
<td vAlign="center" noWrap align="middle" width="6%"><%=rs("AllRe")%> </td>
</tr>
</table>
<%rs.movenext
loop
rs.close
Set Rs = Nothing
Response.write "<br>"
Userinfo
End Select
Response.write "<br>"
htmlend
Sub Npage(page,Allpage)
a=page-5
b=page+5
if page > 6 Then Response.write "<a href=?Menu="&Menu&"&page=1>1</a> ... "
For a=a to b
if a > 0 and a <= Allpage Then
Response.write "<a href=?Menu="&Menu&"&page="&a&">"&a&"</a> "
End if
Next
if Page < Allpage - 5 Then Response.write "... <a href=?Menu="&Menu&"&page="&Allpage&">"&Allpage&"</a> "
End Sub
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?