failpost.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 48 行

<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True 

Dim strErrorCode
Dim intForumID

strErrorCode = Request.QueryString("mode")
%>  


<title>发帖失败</title>
  <table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
 <tr> 
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="failpost.asp" target="_self" class="boldLink">信息发送失败</a><br /></td>
  </tr>
</table>
<div align="center">
  <br /><br /><br />
  <span class="text"><%
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
 
If strErrorCode = "posted" Then %>
不允许两次发送;你的短信已经发送了
<%
ElseIf strErrorCode = "noSubject" Then %>
你的短信缺少主题或者内容
<%
ElseIf strErrorCode = "maxS" OR strErrorCode = "maxM" Then  %>
<span class=""lgText"">禁止灌水!</span><br />你已经超越了一段时间最大发帖量<br /><br />请稍后再试
<%
ElseIf strErrorCode = "noPoll" Then %>
你无权投票
<%
ElseIf strErrorCode = "FLocked" Then %>
这个论坛已经被管理员锁定
<%
ElseIf strErrorCode = "TClosed" Then %>
这个主题已经被管理员锁定
<%
End If        
        %></span><br />
  <br /><a href="javascript:history.back(1)" target="_self">回到论坛</a>
   <br /><br />

<!-- #include file="includes/footer.asp" -->