shenqingbz.asp

可以做论坛

<%@ Language=VBScript %> 
<%Response.Buffer = True %>
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="gongneng.asp"-->
<%
response.write"<table width=775 border=0 align=center cellspacing=0 class=td4><tr><td>欢迎您申请吧主</td></tr></table>"
idl=request("idl")
if uidy>0 and ujibie>3 and uzhiwu<90 then
liyou=request.form("liyou")
if liyou<>"" then
shbz="select * from asptbbz where idy="&uidy&" and yue=0"
set rsshbz=server.createobject("adodb.recordset")
rsshbz.open shbz,conn,1,3
if not rsshbz.eof then
response.write"<table width=775 border=0 align=center cellspacing=0 <tr><td>"
response.write"你有一个申请尚未审核，请等待管理员审核完再提交申请 [<a href=list.asp?idl="&request("idl")&">返回</a>]"
response.write"</td></tr></table>"
rsshbz.close
set rsshbz=nothing
else
shbz="select * from asptbbz"
set rsshbz=server.createobject("adodb.recordset")
rsshbz.open shbz,conn,1,3
liyou=Replace(liyou,"'","‘")
liyou= Replace(liyou,"<script", "&lt;script")
liyou=Replace(liyou, "<", "&lt;")
liyou=Replace(liyou, ">", "&gt;")
rsshbz.AddNew
rsshbz("idy")=uidy
rsshbz("idl")=request("idl")
rsshbz("liyou")=liyou
rsshbz("yue")=0
rsshbz("yn")=0
rsshbz("bzday")=now()
rsshbz.Update
rsshbz.close
set rsshbz=nothing
bzluntan="select * from luntan where idl="&request("idl")
set rsbzluntan=server.createobject("adodb.recordset")
rsbzluntan.open bzluntan,conn,1,3
luntan=rsbzluntan("luntan")
response.write"<table width=775 border=0 align=center cellspacing=0 <tr><td>"
response.write"您申请[<font color=#FF0000> "&luntan&" </font>]吧主提交成功,请不要重复提交，管理员会在72小时之内给您审核 [<a href=list.asp?idl="&request("idl")&">返回</a>]"
response.write"</td></tr></table>"
end if
else '没提交
%>

<table width="775" border="0" align="center" cellspacing="0">
  <tr> 
    <td width="10%" valign="top">申请理由:</td>
    <td><form name="form1" method="post" action="shenqingbz.asp?idl=<%=idl%>">
        <textarea name="liyou" cols="50" rows="5"></textarea>
        200个字以内 <br>
        <input type="submit" name="Submit2" value="提交">
      </form></td>
  </tr>
</table>
<%
end if '申请提交之后
else '不是会员

response.write"<table width=775 border=0 align=center cellspacing=0 <tr><td>"
response.write"<br>●友情提示：等级大于3才能申请吧主[<a href=list.asp?idl="&request("idl")&">返回</a>]<br><br>"
response.write"</td></tr></table>"
end if
Response.Write""&asptbcopy&""
Response.Flush
%>