📄 board-email.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="../Includes/site-dataconn.asp" -->
<!--#include file="../Includes/func-common.asp" -->
<!--#include file="../Includes/site-config.asp" -->
<!--#include file="../Includes/func-htmlcode.asp" -->
<%
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<html>
<head>
<title>// <%=Site_Name%> //</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL=stylesheet TYPE="text/css" HREF="../Includes/Site-Style.css">
</head>
<body>
<%
'Admin Check
if session("admin") <> true then
response.redirect(Site_Forum_URL & "/default.asp")
end if
%>
<table width="100%" height="10" border="0" cellspacing="0" cellpadding="1">
<tr valign="top">
<td width="150">
<!--#include file="inc-navigation.asp" -->
</td>
<td align="center">
<%
Action = request.querystring("Action")
if Action = "Submit" then
'check that the form was submitted from here
if instr(1, request.servervariables("HTTP_REFERER"), "?", 1) > 0 then
strReferedBy = left(request.servervariables("HTTP_REFERER"), (instr(1, request.servervariables("HTTP_REFERER"), "?", 1)-1))
else
strReferedBy = request.servervariables("HTTP_REFERER")
end if
strCurrentURL = Site_Forum_URL &"/Admin/board-email.asp"
if lcase(strReferedBy) <> lcase(strCurrentURL) then
response.redirect(Site_Forum_URL & "/default.asp")
end if
if request.form("Address") = "" then strError = "Email Address"
if strError = "" then
'Submit new settings to the database
set rsUpdate = server.createobject("adodb.recordset")
sqlUpdate = "SELECT * FROM Forum_Config;"
rsUpdate.cursortype = 2
rsUpdate.locktype = 3
rsUpdate.open sqlUpdate, adoConn, CMDText
rsUpdate("Site_Email") = request.form("Email")
rsUpdate("Site_Email_Address") = request.form("Address")
rsUpdate("Site_Email_Signature") = clean_text(request.form("Signature"), 0)
rsUpdate.update
rsUpdate.close
set rsUpdate = nothing
strHeader = "Success"
strMessage = "The forum email settings have been successfully updated. Click <a href='"& Site_Forum_URL &"/Admin'>here</a> to return to the Admin homepage."
else
strHeader = "Error"
strMessage = "There was an error updating the forum e-mail settings. You did not input a valid entry for the <b>"& strError &"</b> field. Please Click <a href='"& Site_Forum_URL &"/board-email.asp'>here</a> to re-configure the forums e-mail settings."
end if
'Display Confirmation
%>
<table border="0"cellpadding="2" cellspacing="1" align="center" class="main">
<tr valign="middle" class="title">
<td align="center"><%=Site_Name%> // <%=strHeader%></td>
</tr>
<tr valign="top" class="body">
<td align="center"><%=strMessage%></td>
</tr>
</table>
<%
else
'Display current settings
'Grab current board settings
set rsSettings = server.createobject("adodb.recordset")
sqlSettings = "SELECT Site_Email, Site_Email_Address, Site_Email_Signature FROM Forum_Config;"
rsSettings.open sqlSettings, adoConn
if not (rsSettings.eof or rsSettings.bof) then
%>
<table border="0" cellspacing="1" cellpadding="3" align="center" class="main">
<form action="board-email.asp?Action=Submit" method="post" onSubmit="this.button.disabled = true;">
<tr valign="middle" class="title">
<td align="center" colspan="2"><%=Site_Name%> // Email 设置</td>
</tr>
<tr valign="top" class="body">
<td width="200">
<b>Email 服务器:</b>
<br>
Select your prefered e-mail method. Use CDONTS for older IIS web servers, CDOSYS for newer IIS web servers and CHILLIMAIL if you are using Chillisoft ASP.
</td>
<td>
<select name="Email" id="Email" style="width: 200px; border: 1px solid black;">
<option value="CDONTS" <%if rsSettings("Site_Email") = "CDONTS" then response.write("Selected")%>>CDONTS</option>
<option value="CDOSYS" <%if rsSettings("Site_Email") = "CDOSYS" then response.write("Selected")%>>CDOSYS</option>
<option value="CHILLIMAIL" <%if rsSettings("Site_Email") = "CHILLIMAIL" then response.write("Selected")%>>CHILLIMAIL</option>
</select>
</td>
</tr>
<tr valign="top" class="body">
<td width="200">
<b>Email 地址:</b>
<br>
Enter the email address that all forum e-mails will originate from.
</td>
<td>
<input name="Address" type="text" id="Address" style="width: 200px; border: 1px solid black;" value="<%=rsSettings("Site_Email_Address")%>" maxlength="255" size="20"></td>
</tr>
<tr valign="top" class="body">
<td width="200">
<b>Email Signature:</b>
<br>
Enter the text to appear at the end of foum emails.
</td>
<td>
<textarea name="Signature" style="width: 200px; height: 150px; border: 1px solid black;" rows="1" cols="20"><%=htmlcode(rsSettings("Site_Email_Signature"))%></textarea>
</td>
</tr>
<tr valign="top" class="body">
<td width="200"> </td>
<td><input name="button" type="submit" value="Submit"></td>
</tr>
</form>
</table>
<%
rsSettings.close
set rsSettings = nothing
else
%>
<table border="0" cellspacing="1" cellpadding="2" align="center" class="main">
<tr valign="middle" class="title">
<td align="center"><%=Site_Name%> // Error</td>
</tr>
<tr valign="top" class="body">
<td align="center">Unfortunately there was an error retrieving the forum details, please try again later.</td>
</tr>
</table>
<%
end if
end if
%>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -