right.asp

来自「与asp相关的技术 如数据库和网页设计 很有用的哦」· ASP 代码 · 共 19 行

<%
if session("user_type")<>"T" then
	response.redirect "../../../index.asp"
end if
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<%
'第1次打开论坛时，自动显示第一个栏目，如果没有，给出提示信息。
sql="select Top 1 * from bbs_forum where lesson_id='" & Session("lesson_id") & "' order by id"
set rs=db.execute(sql)
If Not rs.Bof And Not rs.Eof Then
	Response.redirect "bbslist.asp?forumid=" & rs("id")
Else
	Response.Write "还没有创建任何栏目"
End If
db.CLose
Set db=Nothing
%>