<!-- #include file="setup.asp" -->
<%
top
if CookieUserName=empty then error("<li>您还未<a href=login.asp>登录</a>论坛")

select case Request("menu")
case "bzsq"
response.buffer=true
Response.Expires=0
ForumName=request("ForumName")
sqtime=request("sqtime")
email=request("email")
qq=request("qq")
zwjs=request("zwjs")
bzjh=request("bzjh")

neirong=server.htmlencode(request("neirong"))
neirong=replace(neirong,vbCrLf,"<br>")
neirong=replace(neirong," ","&nbsp;&nbsp;")
neirong=replace(neirong,"'","“")
neirong=replace(neirong,"""","“")
rjjs=server.htmlencode(request("ForumName"))
rjjs=replace(ForumName,"""","“")
rjjs=replace(ForumName,"'","“")

If  ForumName="" Then
error2("申请的版面没有选择")
end if

If  qq=""  Then
error2("QQ没有填写")
end if

If  email=""  Then
error2("E-mail没有填写")
end if

If  zwjs=""  Then
error2("自我介绍没有填写")
end if

If  bzjh=""  Then
error2("对该版面发展的计划没有填写")
end if

If  sqtime=""  Then
error2("保证每天上网时间没有选择")
end if


Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/bzsq.asP")
Set rsbz = Server.CreateObject("ADODB.Recordset")

sql="select * from bzsq"
rsbz.open sql,conn,1,3
rsbz.addnew

rsbz("UserName")=CookieUserName
rsbz("ForumName")=ForumName
rsbz("sqtime")=sqtime
rsbz("email")=email
rsbz("qq")=qq
rsbz("zwjs")=zwjs
rsbz("bzjh")=bzjh
rsbz.update
rsbz.close 

error2("您已经成功的提交了申请！我们将在七日内给予答复")

end select%>
<div class="mainnav">
<table border=0 width=100% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 版主申请</td>
</tr>
</table><br>


              <table  border="0" align="center" cellpadding="0" cellspacing="1" class=a2 width="100%">
            <form  method="post" action="?menu=bzsq">
              <tr class=a1>
                <td height="26" colspan="3"  align="center"> <font color="#CC0000"><b>版 主 申 请</b></font></td> 
              </tr>  
<tr class=a3> 
                  <td width="30%" height="30" align="center" nowrap>申请版面的名称：
<select name="ForumName">
<option value="">请选择</option>
<%
sql="select * from [BBSXP_Forums] where FollowID > 0 order by ID"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF 
%>
<option value="<%=RS("ForumName")%>"><%=RS("ForumName")%></option>
<%
Rs.MoveNext
loop
Rs.Close
%>
</select></td>
                  <td height="30" colspan="3" nowrap align="center">QQ号码： 
                    <input type="text" name="qq" size="9"   maxlength="9">
                    EMAIL地址: <input type="text" name="email" size="15"   maxlength="30"> 
                    &nbsp;是否能保证每天: <select name="sqtime">
                      <option value="">上网时间</option>
                      <option value="3小时">3小时</option>
                      <option value="4小时">4小时</option>
                      <option value="5小时">5小时</option>
                      <option value="6小时">6小时</option>
                      <option value="6小时以上">6小时以上</option>
                      <option value="不定时">不定时</option>

                    </select></td>
              </tr>
                <tr class=a3> 
                  <td align="center" valign="middle" nowrap><br>
                  自我介绍：</td>
                  <td colspan="2" align="center">
                  <textarea name="zwjs" cols="50"  maxlength="300" rows="6"></textarea></td>
                </tr>
              
               <tr class=a3>
                  <td align="center" valign="middle" nowrap><br>
                  对该版面发展的计划：</td>
                  <td colspan="2" align="center">
					<textarea name="bzjh" cols="50"  maxlength="300" rows="6"></textarea></td>
              </tr>
              
                <tr class=a3> 
                  <td align="center" height="30" colspan="3"><span class="STYLE1">注意</span>:请详细填写以上内容,否则不能通过申请!提交前请仔细检察,提交后不可修改,不可提交多次!</td>
                  
                </tr>
                <tr class=a3>         
                  <td align="center" height="30" colspan="3"><input type="submit" value="提交申请" name="B1"></td>
                </tr>
            </form>
              </table></div>

<%htmlend%>