📄 forumcfg.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strWebSiteName
Dim strForumPath
Dim strMode
Dim strBgColour
Dim strTextColour
Dim strTextType
Dim intTextSize
Dim strTableColour
Dim strTableBorderColour
Dim strTableTitleColour
Dim strLinkColour
Dim strVLinkColour
Dim strALinkColour
Dim blnTextLinks
Dim blnLCode
Dim blnIEEditor
Dim intTopicPerPage
Dim strTitleImage
Dim blnEmoticons
Dim strThreadOrder
Dim blnAvatarImages
Dim intRepliesPerPage
Dim intHotTopicViews
Dim intHotTopicReplies
Dim blnPrivateMessenger
Dim intPrivateMessages
Dim strForumName
Dim blnActiveUsers
Dim blnProcessTime
Dim blnAuthorEdited
Dim blnFlashFiles
Dim intPollChoice
Dim strWebsiteURL
Dim blnShowMod
strForumName = Request.Form("forumName")
strWebSiteName = Request.Form("siteName")
strWebsiteURL = Request.Form("siteURL")
strForumPath = Request.Form("forumPath")
strTitleImage = Request.Form("titleImage")
blnTextLinks = Request.Form("textLinks")
blnIEEditor = CBool(Request.Form("IEEditor"))
blnLCode = CBool(Request.Form("LCode"))
intTopicPerPage = CInt(Request.Form("topic"))
blnEmoticons = CBool(Request.Form("emoticons"))
strThreadOrder = Request.Form("threadOrder")
intPollChoice = CInt(Request.Form("pollChoice"))
blnAvatarImages = CBool(Request.Form("avatar"))
intRepliesPerPage = CInt(Request.Form("threads"))
intHotTopicViews = CInt(Request.Form("hotViews"))
intHotTopicReplies = CInt(Request.Form("hotReplies"))
blnPrivateMessenger = CBool(Request.Form("privateMsg"))
intPrivateMessages = CInt(Request.Form("pmNo"))
blnActiveUsers = CBool(Request.Form("activeUsers"))
blnProcessTime = CBool(Request.Form("processTime"))
blnAuthorEdited = CBool(Request.Form("edited"))
blnFlashFiles = CBool(Request.Form("flash"))
blnShowMod = CBool(Request.Form("showMod"))
strMode = Request.Form("mode")
strSQL = "SELECT TOP 1 timescfg.* From timescfg;"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
If strMode = "change" Then
With rsConn
.Fields("bbsname") = strForumName
.Fields("sitepath") = strWebsiteURL
.Fields("ieedit") = blnIEEditor
.Fields("lcode") = blnLCode
.Fields("pagetopic") = intTopicPerPage
.Fields("toplogo") = strTitleImage
.Fields("sitename") = strWebSiteName
.Fields("bbspath") = strForumPath
.Fields("Emoticons") = blnEmoticons
.Fields("Avatar") = blnAvatarImages
.Fields("pagethread") = intRepliesPerPage
.Fields("hotview") = intHotTopicViews
.Fields("hotreply") = intHotTopicReplies
.Fields("privatemess") = blnPrivateMessenger
.Fields("messnum") = intPrivateMessages
.Fields("validuser") = blnActiveUsers
.Fields("disedit") = blnAuthorEdited
.Fields("Flash") = blnFlashFiles
.Fields("votechoice") = intPollChoice
.Fields("dismod") = blnShowMod
.Update
.Requery
End With
End If
If NOT rsConn.EOF Then
strForumName = rsConn.Fields("bbsname")
strWebsiteURL = rsConn.Fields("sitepath")
blnLCode = CBool(rsConn.Fields("lcode"))
blnIEEditor = rsConn.Fields("ieedit")
intTopicPerPage = CInt(rsConn.Fields("pagetopic"))
strTitleImage = rsConn.Fields("toplogo")
strWebSiteName = rsConn("sitename")
strForumPath = rsConn("bbspath")
blnEmoticons = rsConn.Fields("Emoticons")
blnAvatarImages = rsConn.Fields("Avatar")
intRepliesPerPage = rsConn.Fields("pagethread")
intHotTopicViews = rsConn.Fields("hotview")
intHotTopicReplies = rsConn.Fields("hotreply")
blnPrivateMessenger = rsConn.Fields("privatemess")
intPrivateMessages = rsConn.Fields("messnum")
blnActiveUsers = rsConn.Fields("validuser")
blnAuthorEdited = rsConn.Fields("disedit")
blnFlashFiles = rsConn.Fields("Flash")
intPollChoice = CInt(rsConn.Fields("votechoice"))
blnShowMod = CBool(rsConn.Fields("dismod"))
End If
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>论坛配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<script language="JavaScript">
<!-- Hide from older browsers...
function CheckForm () {
if (document.frmConfiguration.forumName.value==""){
alert("请输入论坛名称");
document.frmConfiguration.forumName.focus();
return false;
}
if (document.frmConfiguration.siteName.value==""){
alert("请输入网站名称");
document.frmConfiguration.siteName.focus();
return false;
}
if (document.frmConfiguration.siteURL.value==""){
alert("请输入网站地址");
document.frmConfiguration.siteURL.focus();
return false;
}
if (document.frmConfiguration.forumPath.value==""){
alert("请输入论坛地址");
document.frmConfiguration.forumPath.focus();
return false;
}
return true
}
// -->
</script>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<p class="text"><span class="heading"> 论坛配置</span> <br>
<br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><br>
</p>
</div>
<form method="post" name="frmConfiguration" action="forumcfg.asp" onSubmit="return CheckForm();">
<table border="0" align="center" cellpadding="4" cellspacing="1" width="560" bgcolor="#000000">
<tr bgcolor="#CCCCCC">
<td colspan="2" align="left" class="tHeading"><b>通用论坛设置和外观设置</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">论坛名称*<br> </td>
<td valign="top"><input name="forumName" type="text" id="forumName" value="<% = strForumName %>" size="30" maxlength="50" ></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">网站名称*<br /> </td>
<td valign="top"> <input type="text" name="siteName" maxlength="50" value="<% = strWebsiteName %>" size="30" >
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">网站地址*<br> <span class="smText">eg. http://www.mywebsite.com</span>
</td>
<td valign="top"><input name="siteURL" type="text" id="siteURL" value="<% = strWebsiteURL %>" size="30" maxlength="50" ></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">论坛地址*<span class="smText"><br />
eg. http://www.mywebsite.com/forum </span></td>
<td valign="top"> <input type="text" name="forumPath" maxlength="50" value="<% = strForumPath %>" size="30" >
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">论坛图标地址：<br /> </td>
<td valign="top"> <input type="text" name="titleImage" maxlength="65" value="<% = strTitleImage %>" size="35">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">在线用户列表：<br> </td>
<td valign="top" class="text">开 <input type="radio" name="activeUsers" value="True" <% If blnActiveUsers = True Then Response.Write "checked" %>>
关 <input type="radio" value="False" <% If blnActiveUsers = False Then Response.Write "checked" %> name="activeUsers"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text"><p>显示版主列表<span class="smText">：</span></p></td>
<td valign="top" class="text">开
<input type="radio" name="showMod" value="True" <% If blnActiveUsers = True Then Response.Write "checked" %>>
关
<input type="radio" value="False" <% If blnActiveUsers = False Then Response.Write "checked" %> name="showMod"></td>
</tr>
<tr bgcolor="#CCCCCC">
<td colspan="2" align="left" class="tHeading">用户回复设置</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" class="text">是否允许上传头像:</td>
<td valign="top" class="text">是
<input type="radio" name="avatar" value="True" <% If blnAvatarImages = True Then Response.Write "checked" %>>
否
<input type="radio" name="avatar" value="False" <% If blnAvatarImages = False Then Response.Write "checked" %>>
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -