📄 category.asp
字号:
<!-- #include file="const.asp" -->
<%
dim page,CID,FID
dim sql,rs,id
dim ftitle,ctitle,cadmin,cprofile
page=trim(request("page"))
if page="" then
page=1
else page=cint(page)
if page<=0 then
page=1
end if
end if
CID=nrequest("cid")
if CID="" then
response.Redirect("index.asp")
response.End()
end if
call opendb()
sql="select * from m3_category where CID="&CID&" and Cvalid=1 "
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
set rs=nothing
call closedb()
response.Redirect("error.asp?id=2")
response.End()
else
cadmin=rs("cadmin")
CID=rs("CID")
cprofile=rs("CProfile")
ctitle=rs("CTitle")
end if
rs.close
set rs=nothing
position "浏览分区："&ctitle&"",0
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" align="center" valign="top"> <!-- #include file="topbar.asp" -->
</td>
</tr>
<tr>
<td align="center" valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12" bgcolor="#ECE9D9"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="10"> </td>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="26" colspan="3"><span class="v8"><img src="images/btn_face.gif" width="10" height="7">
<a href="index.asp"><%=sitename%></a> <FONT face=Webdings color="#660000">8</FONT>
<%=ctitle%></span></td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="#ECE9D9"></td>
</tr>
<tr>
<td width="70%" height="30"> - 分区管理员:
<%
dim tmp_i
cadmin=trim(cadmin)
if cadmin<>"" then
cadmin=split(cadmin,",")
for tmp_i=0 to ubound(cadmin)
if tmp_i=0 then
response.write("<a href='profile.asp?name="&cadmin(tmp_i)&"' target='_blank'>"&cadmin(tmp_i)&"</a> ")
else
response.write(", <a href='profile.asp?name="&cadmin(tmp_i)&"' target='_blank'>"&cadmin(tmp_i)&"</a>")
end if
next
else
response.write("暂无")
end if
%>
</td>
<td width="7%" nowrap class="v8b"> </td>
<td width="23%" nowrap class="v7b" align="center"> </td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="12" bgcolor="#A0AB6D"> <span class="v8b"> <img src="images/fang-1.gif" align="absmiddle">
</span><span class="v7b"><font color="#FFFFFF">分区话题</font></span></td>
<td height="12" nowrap bgcolor="#CCCCCC" class="v8b"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td valign="top" class="v7"><span class="v7b"> <img src="images/catbullet.gif" width="12" height="13" align="absmiddle"></span>
<span class="v7"><%=cprofile%></span> </td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
</table>
<br> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td width="25%" valign="top"> <table width="96%" cellpadding="2" cellspacing="1">
<tr>
<td background="images/bg4.gif" bgcolor="#D9D3B4" class="v8b">
论坛列表</td>
</tr>
<tr>
<td height="1"></td>
</tr>
<%
sql="select * from m3_forum where CID="&CID&" and FValid=1 order by FIndex asc"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
do while not rs.eof
FID=rs("FID")
%>
<tr>
<td style="line-height:20px"> <b><a href="list.asp?forumid=<%=FID%>"><u><%=rs("FTitle")%></u></a></b> <%if cint(rs("authent"))=1 then response.Write("<font color=#999999>认证论坛</font>")%><br>
<%=rs("FProfile")%><br></td>
</tr>
<tr>
<td height="1" bgcolor="#D9D3B4"></td>
</tr>
<%
rs.movenext
loop
else
response.Write("<tr><td bgcolor=#FFFFFF height=30><font color=#999999> 此分区暂无论坛 ...</font></td></tr>")
end if
rs.close
set rs=nothing
%>
</table></td>
<td width="75%" valign="top"> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#D9D3B4">
<tr background="images/bg4.gif">
<td width="64%" background="images/bg4.gif"><span class="v8b"><img src="images/fang-2.gif" width="7" height="7" align="absmiddle"></span>
分区最新精华帖子</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="2" cellpadding="3">
<%
sql="select top 5 * from m3_bbs where CID="&CID&" and isbest=true and valid=1 order by addtime desc"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
do while not rs.eof
id=rs("ID")
%>
<tr>
<td width="8"> </td>
<td> <img src='images/f<%=rs("face")%>.gif' align='absmiddle'>
<a href="bbs.asp?id=<%=id%>"><%=rs("topic")%> </a>
<font color="#666666">( <a href='profile.asp?name=<%=rs("name")%>' target="_blank"><%=rs("name")%></a>
发表于 <%=datevalue(rs("addtime"))%> )</font> </td>
<td width="8"> </td>
</tr>
<%
rs.movenext
loop
else
response.Write("<tr><td colspan=3 bgcolor=#FFFFFF height=30> 暂无精华帖子 ... </td></tr>")
end if
rs.close
set rs=nothing
%>
</table></td>
</tr>
</table>
<br> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#D9D3B4">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -