b_index.asp

来自「此文件为一个电子同学录」· ASP 代码 · 共 48 行

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/ubbcode.asp" -->
<%
'=========================================================
' File: b_index.asp
 ' Date: 2006-04-06
' Script Written by Leibo
'=========================================================
' Copyright (C) 2002,2008 Mathren.com. All rights reserved.
' Web: http://www.hrbyydz.com
' Email: [e-mail]
'=========================================================

stats="帖子列表"
dim topicid,titleimg,title,addtime,istop
dim currentPage,totalrec,Pcount,page_count,endpage
dim abgcolor

if Cint(GroupSetting(8))=1 then
	Errmsg=Errmsg+"<br>"+"<li>您没有访问班级论坛的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
	founderr=true
end if
if founderr then
	call head()
	call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	call txl_error()
else
	call head()
	call head_var("班级论坛","b_index.asp")
	if founderr then
		call txl_error()
	else
		call main()
		if founderr then call txl_error()
	end if
end if
call foot()

sub main()
abgcolor="tablebody2"
%>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border: 1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">
<tr>
<td bgcolor=<%=txl_body(10)%> valign=top><br>
<table cellpadding=0 cellspacing=0 border=0 align=center width=<%=txl_body(19)%>>
<tr>
<td height=25 align=left><a href=b_post.asp><img src="<%=txl_info(6)&txl_skinpic(6)%>"  height="25" border=0></a>