📄 main.asp
字号:
<!-- #include file="top.asp" -->
<!-- #include file="share.asp" -->
<%
dim page
dim pagesize
dim pagenum
dim bdid
dim bdname
pagesize=12
page=request("page")
bdid=request("bdid")
if bdid="" then
'response.redirect "index.asp"
'response.end
bdid=1
else
bdid=cint(bdid)
if bdid<=0 or bdid>20 then bdid=1
end if
if page="" then
page=1
else
page=cint(page)
end if
%>
<HTML>
<HEAD>
<TITLE>3鸟设社[色彩连视版]媒体社区</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="BLUE.CSS" type="text/css">
<style type="text/css">
<!--
.hand { cursor: hand }
-->
</style>
<script language="javascript">
function checkform(){
if(signin.username.value==""){
alert("请填写注册名！");
signin.username.focus();
return false;
}else if(signin.password.value==""){
alert("请填写密码！");
signin.password.focus();
return false;
}else{
signin.fromurl.value=location.href;
return true;
}
return false;
}
</script>
<!-- TemplateBeginEditable name="head" --><!-- TemplateEndEditable -->
</head>
<body bgcolor=#ffffff leftmargin="0" topmargin="0">
<table width="760" height="641" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td width="20" height="6"></td>
<td width="719" height="6"></td>
<td width="21" height="6"></td>
</tr>
<tr>
<td width="25" height="566" background="images/bg.gif"></td>
<td width="719" height="566" valign="top">
<table width="720" border="0" cellspacing="0">
<tr>
<td width="712"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="2%" align="left" valign="top"> </td>
<td width="98%" align="left" valign="middle"> <table width="99%" cellpadding="0" cellspacing="3" border="0">
<%
if session("blueuid")<>"" then
%>
<tr>
<td><br>
<br>
<br>
<br>
<br>
<br>
<img src="images/bbs_signal.gif" width="20" height="20" align="absmiddle">
欢迎你,<a href="showuser.asp?uid=<%=session("blueuid")%>">
<%=session("blueuid")%></a>!</td>
</tr>
<%
else
%>
<tr>
<td><form name="signin" method="post" action="checkuser.asp" onsubmit="return(checkform());">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="100%" align="left" valign="middle"> <font color="Black">用户名:
</font> <input type="text" name="username" size="10" maxlength="15">
<font color="Black">密码: </font> <input type="password" name="password" size="10" maxlength="15">
<input type="hidden" name="fromurl" value="index.asp">
<input type="submit" name="submit" value="Enter">
</td>
</tr>
</table>
</form></td>
</tr>
<%
end if
%>
<tr>
<td align="left"> <img src="images/rightstyle.gif"><a href="index.asp">返回首页
</a><img src="images/rightstyle.gif"><a href="userlist.asp">查看成员列表
</a>
<%
if not session("blueuid")="" then
%>
<img src="images/rightstyle.gif"><a href="editinfo.asp?uid=<%=session("blueuid")%>">修改个人资料
</a>
<%
end if %>
<img src="images/rightstyle.gif"><a href="javascript:history.back();">返回</a>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top"> <table width="100%" border="0" cellspacing="3" cellpadding="0" height="73">
<tr align="left" valign="top">
<td width="100%"> <table width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td width="177">
<% if not bdid="" then %>
<%
set rs=conn.execute("select * from board where bdid="&clng(bdid))
if not rs.eof then
%>
<div align="right"><img src="<%=rs("bdlogo")%>" alt="<%=rs("bdname")%>">
<%
bdname=rs("bdname")
else
response.write "版面错误。"
end if
rs.close
set rs=nothing
%>
<% end if %>
</div></td>
<td width="535"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="middle" align="left">
<td width="" align="right"><a href="post.asp?type=new&bdid=<%=bdid%>"><img src="images/bbs_post.gif" align="absmiddle" border="0"></a><a href="index.asp"><img border="0" src="images/bbs_back.gif" align="absmiddle"></a>
</td>
</tr>
</table></td>
</tr>
</table>
<%
'opendb
sql="select * from book where bdid="&bdid&" order by btimemodify DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn , 1,1
if not rs.eof then
%>
<iframe border="0" frameborder="0" width="0" height="0" name="onlineframe" id="onlineframe" src="keep.asp?act=查看论坛列表[<%=bdname%>]" scrolling="false"></iframe>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="right" valign="top">
<%
rs.pagesize=pagesize
if page<=rs.pagecount then
rs.absolutepage=page
else
page=rs.pagecount
end if
pagenum=rs.pagecount
if page>1 then
%>
<a href="main.asp?bdid=<%=bdid%>&page=<%=page-1%>"><img src="images/page_prev.gif" align="absbottom" border="0" WIDTH="10" HEIGHT="10"></a>
<% else %>
<img src="images/page_prev.gif" align="absbottom" border="0" WIDTH="10" HEIGHT="10">
<%
end if
for i=1 to pagenum
if i<>page then
%>
<a href="main.asp?bdid=<%=bdid%>&page=<%=i%>"><%=i%></a>
<% else %>
<%=i%>
<%
end if
if i>=pagenum then exit for
next
if page<pagenum then
%>
<a href="main.asp?bdid=<%=bdid%>&page=<%=page+1%>"><img src="images/page_next.gif" align="absbottom" border="0" WIDTH="10" HEIGHT="10"></a>
<% else %>
<img src="images/page_next.gif" align="absbottom" border="0" WIDTH="10" HEIGHT="10">
<%
end if
%>
</td>
</tr>
</table>
<%
for i=1 to pagesize
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0" name="item" class="repeatx_top" background="images/frame_bg_h.gif">
<tr align="left" valign="middle">
<td width="30" align="center">
<%
if rs("addreply")=TRUE then
%>
<img src="images/bbs_isre.gif" width="20" height="20">
<% else %>
<img src="images/bbs_nore.gif" width="20" height="20">
<% end if %>
</td>
<td width="250"><a title="visited:<%=rs("vn")%> replied:<%=rs("rn")%>" class="fade" name="m<%=i%>" href="showitem.asp?bid=<%=rs("bid")%>&bdid=<%=bdid%>"><%=rs("btitle")%></a> <font color="#000000">[<%=rs("vn")%>/<%=rs("rn")%>]</font>
</td>
<td width="120"> <font color="#000000"><%=year(rs("btime"))&"-"&month(rs("btime"))&"-"&day(rs("btime"))%></font></td>
<td width="307"><a class="fade" name="u<%=i%>" href="showuser.asp?uid=<%=rs("uid")%>" target="_blank"><%=rs("uid")%></a>
<% if rs("addreply")=TRUE then %>
/<a class="fade" name="ru<%=i%>" href="showuser.asp?uid=<%=rs("blastuser")%>"><%=rs("blastuser")%></a>
<% end if %>
</td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
end if
rs.close
set rs=nothing
'closedb
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td height="1" bgcolor="#888888"></td>
</tr>
<tr>
<td height="20"></td>
</tr>
<tr>
<td align="center"> <p><font color="#330000">www.3niao.com[色彩连视版</font><font color="#330000">]<a href="#top">[UP]</a></font>
</p></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="23"> </td>
</tr>
</table></td>
<td width="25" height="566" background="images/bg.gif"></td>
</tr>
<tr>
<td height="12" colspan="3"><div align="center">
<table width="764" border="0" align="center" cellspacing="0">
<tr>
<td height="35" colspan="2" background="images/footbg.gif"> <div align="center">我们的口号是:每天都要把梦想的距离拉近一点</div></td>
</tr>
<tr>
<td width="397" background="http://www.3niao.com/v2/down1/images/footgb1.gif"> </td>
<td width="363" bgcolor="#FFFFFF">
<div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -