<%
if strDBNTUserName = "" then
strReferer = Request.ServerVariables("HTTP_REFERER")
If strReferer = "" Then
strReferer = "http://bbs.mptv.com.cn/index.asp"
End If
%>
用户名：
密 码：
<% If strNoCookies <> "1" Then %>
<% End If %>
<%
' ### 首页登陆论坛 ###
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_ID, " & strTablePrefix & "CATEGORY.CAT_NAME "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY"
strSql = strSql & " ORDER BY " & strTablePrefix & "CATEGORY.CAT_ORDER"
set rsLCat = Server.CreateObject("ADODB.Recordset")
set rsLCat = my_Conn.Execute (strSql)
do until rsLCat.eof
strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_TYPE, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.FORUM_ORDER "
strSql = strSql & " FROM " & strTablePrefix & "FORUM "
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.CAT_ID = " & rsLCat("CAT_ID")
strSql = strSql & " AND " & strTablePrefix & "FORUM.F_TYPE = 0 "
%>