<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="inc/theme.asp"-->
<% dim s
randomize timer
s=Int((8999)*Rnd +1000)
session("loginmun")=0
%>
<%
	stats="论坛登陆"
	call nav()
	call headline(1)
	call main()
	call endline()
	sub main()
%>
<form action="chklogin.asp" method="post"> 
<table cellpadding=0 cellspacing=0 border=0 width="<%=tablewidth%>" bgcolor=<%=Tablebackcolor%> align=center>
    <tr>    
        <td>
        <table cellpadding=6 cellspacing=1 border=0 width=100%>
    <tr class=coolbg>
    <td bgcolor=<%=Tabletitlecolor%> valign=middle colspan=2 align=center><font color="<%=TableFontColor%>">
    <b>请输入您的用户名、密码登陆</b></font></td></tr>
    <tr>
    <td bgcolor=<%=Tablebodycolor%> valign=middle><font color="<%=TableContentColor%>">请输入您的用户名</font></td>
    <td bgcolor=<%=Tablebodycolor%> valign=middle><INPUT name=username type=text> &nbsp; <a href="reg.asp">没有注册？</a></td></tr>
    <tr>
    <td bgcolor=<%=Tablebodycolor%> valign=middle><font color="<%=TableContentColor%>">请输入您的密码</font></td>
    <td bgcolor=<%=Tablebodycolor%> valign=middle><INPUT name=password type=password> &nbsp; <a href="lostpass.asp">忘记密码？</a> </td></tr>
    <tr>
	<td bgcolor=<%=Tablebodycolor%>>请输入随机附加码</td>
	<td bgcolor=<%=Tablebodycolor%>> <INPUT name=secruity type=text> <font color=red><b><%=s%></b></font>&nbsp; <input maxLength=20 name=checksecruity size=12 type=hidden value=<%=s%>></td></tr>
	
				<tr>
    <td bgcolor=<%=Tablebodycolor%> valign=top width=30% ><font color=<%=TableContentColor%>><b>登陆版块选择</b><BR> 您可以选择您要要登陆的版块</font></td>
    <td bgcolor=<%=Tablebodycolor%> valign=middle><font color=<%=TableContentColor%>>
             <%
			  response.write "<select name=gotolist size=1><option selected>登录论坛至……</option>" 
 dim rs1,sql1 
 sql="select id,class from class order by id" 
 set rs=server.createobject("adodb.recordset") 
 set rs1=server.createobject("adodb.recordset") 
 rs.open sql,conn,1,1 
 if not(rs.eof and rs.bof) then 
 do while not rs.eof 
 response.write "<option style=BACKGROUND-COLOR:"&TableTitleColor&">╋ "& rs(1) &"</option>" 

  sql1="select boardid,boardtype from board where "&guestlist&" class="& rs(0)&" and lockboard=0 order by boardid" 
  set rs1=server.createobject("adodb.recordset") 
  rs1.open sql1,conn,1,1 
  if rs1.eof and rs1.bof then 
   rs1.close : set rs1=nothing 
   response.write "<option>没有论坛</option>" 
  else 
   do while not rs1.eof 
    response.write "<option value=""list.asp?boardid="&rs1(0)&""">　├" & rs1(1) & "</option>" 
   rs1.movenext 
   loop 
   rs1.close 
   set rs1=nothing 
  end if 

 rs.movenext 
 loop 
 rs.close 
 set rs=nothing 
 end if 
  response.write "</select>" 

			 %>
                </td></tr>
				<tr>
    <td bgcolor=<%=Tablebodycolor%> valign=top width=30%><font color="<%=TableContentColor%>"><b>Cookie 选项</b><BR> 请选择你的 Cookie 保存时间，下次访问可以方便输入。</font></td>
    <td bgcolor=<%=Tablebodycolor%> valign=middle><font color="<%=TableContentColor%>">
                <input type="radio" name="CookieDate" value="0" checked>不保存，关闭浏览器就失效<br>
                <input type="radio" name="CookieDate" value="1">保存一天<br>
                <input type="radio" name="CookieDate" value="2">保存一月<br>
                <input type="radio" name="CookieDate" value="3">保存一年<br></font>
                </td></tr>
				
				<tr>
    <td bgcolor=<%=Tablebodycolor%> valign=top width=30% ><font color=<%=TableContentColor%>><b>隐身登陆</b><BR> 您可以选择隐身登陆，论坛会员将在用户列表看不到您的信息。</font></td>
    <td bgcolor=<%=Tablebodycolor%> valign=middle><font color=<%=TableContentColor%>>
                <input type=radio name=hiddenuser value=2 checked>正常登陆<br>
                <input type=radio name=hiddenuser value=1>隐身登陆<br></font>
                </td></tr>
	<input type=hidden name=comeurl value="<%=Request.ServerVariables("HTTP_REFERER")%>">
    <tr>
    <td class=coolbg bgcolor=<%=Tabletitlecolor%> valign=middle colspan=2 align=center><input type=submit name="submit" value="登 陆"></td></tr></table></td></tr></table>
</form>
<%end sub%>
<!--#include file="footer.asp"-->