<!-- #include file="setup.asp" -->
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")

sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3


select case Request("menu")
case "bzsq"

response.buffer=true
Response.Expires=0
index=request("index")
sqtime=request("sqtime")
email=request("email")
qq=request("qq")
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("index"))
rjjs=replace(index,"""","“")
rjjs=replace(index,"'","“")

If  index=""  Then
error2("申请VIP会员的社区会员ID没有填写")
end if

If  qq=""  Then
error2("申请VIP的QQ没有填写")
end if

If  email=""  Then
error2("申请VIP的email没有填写")
end if

If  bzjh=""  Then
error2("申请理由和对社区发展的计划没有填写")
end if

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

if len(index)>=15 then
error2("申请VIP会员的名称太长了")
end if

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

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

rsbz("name")=rs("username")
rsbz("nameid")=rs("id")
rsbz("index")=index
rsbz("sqtime")=sqtime
rsbz("email")=email
rsbz("qq")=qq
rsbz("bzjh")=bzjh
rsbz.update
rsbz.close 

error2("您的申请已经成功添加到数据库！我们将在三日内给予答复")

end select%>













<SCRIPT>htmltopt()</SCRIPT>
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → VIP会员申请</td>
</tr>
</table><br>
<SCRIPT>htmltopd()</SCRIPT>


<SCRIPT>ShowForuma()</SCRIPT>
      <table  border="0" cellspacing="0" cellpadding="0" align="center" width="100%">
      
        <tr> 
          <td align="center" valign="top"> 
            <form  method="post" action="?menu=bzsq">





              <table  border="0" cellspacing="1" cellpadding="0" align="center" width="100%">
                
                <tr> 
                  <td>
              <table  border="0" align="center" cellpadding="0" cellspacing="1" class=a2 width="70%">
              <tr class=a1>
                <td height="26" colspan="4"  align="center"> <font color="#CC0000"><b>VIP 会 员 申 请</b></font></td> 
              </tr>  
<tr class=a3> 
                  <td width="30%" height="30" align="center" nowrap>申请者的社区ID：</td>
                  <td colspan="3" align="center"><input type="text" name="index" size="50"  maxlength="100" value="<%=request("bbsname")%>"></td>
                </tr>
                <tr class=a4> 
                  <td height="30" colspan="4" nowrap align="center">QQ号码： 
                    <input type="text" name="qq" size="10"   maxlength="15">
                    EMAIL地址: <input type="text" name="email" size="10"   maxlength="30"> 
                    &nbsp;是否能保证每天: <select name="sqtime">
                      <option value="">上网时间</option>
                      <option value="1小时">1小时</option>
                      <option value="2小时">2小时</option>
                      <option value="3小时">3小时</option>
                      <option value="4小时">4小时</option>
                      <option value="4小时以上">4小时以上</option>
                    </select></td>
                </tr>
                <tr class=a3> 
                  <td align="center" valign="middle" nowrap><br>
                  申请理由和对社区发展的看法：</td>
                  <td colspan="3" align="center"><textarea name="bzjh" cols="50"  maxlength="200" rows="6"></textarea></td>
                </tr>
              
                <tr class=a4> 
                  <td height="30" colspan="2">&nbsp;</td>
                  
                  <td align="center"><input type="submit" value="提交申请" name="B1"></td>
                </tr>
              </table>
              
                  </td>
                </tr>
              </table>
            </form>
          </td>
        </tr>
      </table>


<SCRIPT>ShowForumb()</SCRIPT>
<%htmlend%>