📄 puforumadmin.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True

Dim intForumID
Dim blnLockedStatus
Dim strForumName
Dim strForumDescription	

intForumID = CLng(Request("fid"))
If intForumID = "" OR  blnAdmin = False Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If
	strSQL = "SELECT timesbbs.* FROM timesbbs WHERE bbsid = " & intForumID & ";"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
	intForumID = CInt(rsConn("bbsid"))
	strForumName = rsConn("bbsname")
	strForumDescription = rsConn("bbsdescrip")
	blnLockedStatus = CBool(rsConn("Locked"))
End If
If blnAdmin = False Then blnModerator = isModerator(intForumID, intGroupID)
If Request.Form("postBack") Then
	strForumName = Trim(Mid(Request.Form("forumName"), 1, 70))
	strForumDescription = Trim(Mid(Request.Form("description"), 1, 190))
	blnLockedStatus = CBool(Request.Form("locked"))
	With rsConn
		.Fields("bbsname") = strForumName
		.Fields("bbsdescrip") = strForumDescription
		.Fields("Locked") = blnLockedStatus
		.Update
		.ReQuery
	End With
End If
%>

<html>
<head>


<title>论坛管理</title>
<script language="JavaScript">
function CheckForm () {
	var errorMsg = "";
	if (document.frmForumAdmin.forumName.value==""){
		errorMsg += "\n\t论坛名称，请输入论坛名称";
	}
	if (document.frmForumAdmin.description.value==""){
		errorMsg += "\n\t论坛描述，请输入论坛描述";
	}
	if (errorMsg != ""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改:\n";
		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}
	return true;
}
</script>
<!--#include file="includes/skin.asp" -->

</head>
<body marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" OnLoad="self.focus();">
<br/>
    <br /><%
If rsConn.EOF OR blnAdmin = False OR bannedIP() Then
	rsConn.Close %>
	<div align="center">
	<span class="lgText">找不到该主题或者你无权访问该页</span><br /><br /><br />
	</div>
	<% Else
	rsConn.Close
	
	Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing

%>
<form name="frmForumAdmin" method="post" action="puforumadmin.asp" onSubmit="return CheckForm();" onReset="return confirm('你确认要重新填写此表单?');">
 <table width="300" border="0" cellspacing="1" cellpadding="0" bgcolor="<% = strTableBgColour %>" align="center">
     <tr align="center" class="tHeading" height="25">
      <td colspan="2" background="<% = strTableTitleBgImage %>">论坛管理(*必填)</td>
     </tr>
     <tr bgcolor="#ffffff" class="text">
      <td align="right">论坛名称*:</td>
      <td><input type="text" name="forumName" maxlength="70" size="30" value="<% = strForumName %>"/></td>
     </tr>
     
     <tr bgcolor="#ffffff" class="text">
      <td align="right">论坛描述*:</td>
      <td><input type="text" name="description" maxlength="190" size="30" value="<% = strForumDescription %>" /></td>
     </tr>
	 
     <tr bgcolor="#ffffff" class="text">
      <td align="right">锁定论坛:</td>
      <td><input type="checkbox" name="locked" value="true" <% If blnLockedStatus = True Then Response.Write(" checked") %> /></td>
     </tr>     
	 
     <tr bgcolor="#ffffff" class="text" height="20">
      <td colspan="2" align="center"><a href="leave.asp?menu=resyncpost&fid=<% = intForumID %>" target="_self">同步主题和回复数</a></td>
     </tr>     
	 
     <tr bgcolor="#ffffff" class="text" align="center" />
      <td colspan="2">
        <input type="hidden" name="fid" value="<% = intForumID %>" />
        <input type="hidden" name="postBack" value="true" />
        <input type="submit" name="Submit" value="确定" />
        <input type="reset" name="Reset" value="清除" />
      </td>
     </tr>
    </table>

</form><%

End If

%>
  <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
    <tr>
      <td align="center">
        <a href="JavaScript:onClick=window.opener.location.href = window.opener.location.href; window.close();">关闭窗口</a>
      </td>
    </tr>
  </table>
<br /><br />
<!-- #include file="includes/footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -