📄 admin_config.asp
字号:
Else
%>
<option value="0" > 关 闭 </option>
<option value="1" selected> Jmail </option>
<%end if%></option>
</select>
目前只支持Jmail发送组件（如果空间不支持请选择关闭）</td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">SMTP Server地址 </td>
<td width="72%"><input style="width:180px;" value="<%=mailsmtp%>" name="mailsmtp" class="input"></td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">邮箱用户名：</td>
<td width="72%"><input style="width:180px;" value="<%=mailname%>" name="mailname" class="input"></td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">邮箱登陆密码：</td>
<td width="72%"><input name="mailpwd" type="password" class="input" style="width:180px;" value="<%=mailpwd%>">
[只有完全设置正确邮箱发送才有效]</td>
</tr>
</table>
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td colspan="2" class="imgbg" ><div align="center" class="size"><strong>贴吧设置</strong></div></td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">是否允许建立贴吧：</td>
<td width="72%"><%If makepost="1"Then %><input name="makepost" type="radio" checked="CHECKED" value="1" />允许
<input type="radio" name="makepost" value="0" />不允许<% Else%><input name="makepost" type="radio" value="1" />允许 <input type="radio" name="makepost" checked="CHECKED" value="0" />不允许<%End If%> </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">是否允许申请吧主：</td>
<td width="72%"><%If PostUser="1"Then %><input name="PostUser" type="radio" checked="CHECKED" value="1" />允许
<input type="radio" name="PostUser" value="0" />不允许<% Else%><input name="PostUser" type="radio" value="1" />允许 <input type="radio" name="PostUser" checked="CHECKED" value="0" />不允许<%End If%> </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">是否允许非会员发贴：</td>
<td width="72%"><%If Postopen="1"Then %><input name="Postopen" type="radio" checked="CHECKED" value="1" />允许
<input type="radio" name="Postopen" value="0" />不允许<% Else%><input name="Postopen" type="radio" value="1" />允许 <input type="radio" name="Postopen" checked="CHECKED" value="0" />不允许<%End If%> </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">是否允许会员发贴：</td>
<td width="72%"><%If UserPost="1"Then %><input name="UserPost" type="radio" checked="CHECKED" value="1" />允许
<input type="radio" name="UserPost" value="0" />不允许<% Else%><input name="UserPost" type="radio" value="1" />允许 <input type="radio" name="UserPost" checked="CHECKED" value="0" />不允许<%End If%> </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">是否允许会员编辑自己的帖子：</td>
<td width="72%"><%If User_edit="1"Then %><input name="User_edit" type="radio" checked="CHECKED" value="1" />允许
<input type="radio" name="User_edit" value="0" />不允许<% Else%><input name="User_edit" type="radio" value="1" />允许 <input type="radio" name="User_edit" checked="CHECKED" value="0" />不允许<%End If%> </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">是否显示X年X月X日被某某编辑字样：</td>
<td width="72%"><%If Edit_date="1"Then %><input name="Edit_date" type="radio" checked="CHECKED" value="1" />显示 <input type="radio" name="Edit_date" value="0" />不显示
<% Else%><input name="Edit_date" type="radio" value="1" />显示 <input type="radio" name="Edit_date" checked="CHECKED" value="0" />不显示<%End If%> </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">是否开放贴吧注册：</td>
<td width="72%"><%If OpenPost="1"Then %><input name="OpenPost" type="radio" checked="CHECKED" value="1" />开放
<input type="radio" name="OpenPost" value="0" />关闭
<% Else%><input name="OpenPost" type="radio" value="1" />开放
<input type="radio" name="OpenPost" checked="CHECKED" value="0" />关闭
<%End If%> </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">匿名或非会员IP显示位数：</td>
<td width="72%"><input size="5" value="<%=Ipnum%>" name="Ipnum" class="input" id="Ipnum">
默认：3 位</td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">每页帖子条数：</td>
<td width="72%"><input size="5" value="<%=Postnum%>" name="Postnum" class="input">
默认：15 条</td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">每页帖子回复条数：</td>
<td width="72%"><input size="5" value="<%=Postsnum%>" name="Postsnum" class="input">
默认：15 条</td>
</tr>
<tr>
<td colspan="2" align="center" class="bj" height="30" width="98%"><input name="submit" type="submit" value=" 更 新 数 据 " class="buttion"></td>
</tr>
</table>
</form>
</body>
</html>
<%
end sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
sub configok()
fywenname= replace(Trim(Request.Form("fywenname")),CHR(34),"'")
fywenlogo = replace(Trim(Request.Form("fywenlogo")),CHR(34),"'")
fywenurl = replace(Trim(Request.Form("fywenurl")),CHR(34),"'")
keywords = replace(Trim(Request.Form("keywords")),CHR(34),"'")
description = replace(Trim(Request.Form("description")),CHR(34),"'")
fywenmail = replace(Trim(Request.Form("fywenmail")),CHR(34),"'")
fywen = replace(Trim(Request.Form("fywen")),CHR(34),"'")
fywengov= replace(Trim(Request.Form("fywengov")),CHR(34),"'")
fywenopen = replace(Trim(Request.Form("fywenopen")),CHR(34),"'")
offfywen = replace(Trim(Request.Form("offfywen")),CHR(34),"'")
skin = replace(Trim(Request.Form("skin")),CHR(34),"'")
fywentj = replace(Trim(Request.Form("fywentj")),CHR(34),"'")
mailpost = replace(Trim(Request.Form("mailpost")),CHR(34),"'")
mailsmtp = replace(Trim(Request.Form("mailsmtp")),CHR(34),"'")
mailname = replace(Trim(Request.Form("mailname")),CHR(34),"'")
mailpwd = replace(Trim(Request.Form("mailpwd")),CHR(34),"'")
makepost = replace(Trim(Request.Form("makepost")),CHR(34),"'")
PostUser = replace(Trim(Request.Form("PostUser")),CHR(34),"'")
PostOpen = replace(Trim(Request.Form("PostOpen")),CHR(34),"'")
UserPost = replace(Trim(Request.Form("UserPost")),CHR(34),"'")
User_edit = replace(Trim(Request.Form("User_edit")),CHR(34),"'")
Edit_date = replace(Trim(Request.Form("Edit_date")),CHR(34),"'")
OpenPost = replace(Trim(Request.Form("OpenPost")),CHR(34),"'")
Ipnum = replace(Trim(Request.Form("Ipnum")),CHR(34),"'")
Postnum = replace(Trim(Request.Form("Postnum")),CHR(34),"'")
Postsnum = replace(Trim(Request.Form("Postsnum")),CHR(34),"'")
Dim n,TempStr
TempStr = ""
TempStr = TempStr & chr(60) & "!-- www.fywen.com"& VbCrLf
TempStr = TempStr & " ╔━═━═━═━═━═━╗ "& VbCrLf
TempStr = TempStr & " ┃ 枫叶在线版权所有 ┃ "& VbCrLf
TempStr = TempStr & " ╚━═━═━═━═━═━╝ "& VbCrLf
TempStr = TempStr & "--"& chr(62) & VbCrLf
TempStr = TempStr & chr(60) & "%" & VbCrLf
TempStr = TempStr & "'=====网站基本信息=====" & VbCrLf
TempStr = TempStr & "fywenname="& Chr(34) & fywenname & Chr(34) &"'站点名称" & VbCrLf
TempStr = TempStr & "fywenlogo="& Chr(34) & fywenlogo & Chr(34) &"'网站LOGO" & VbCrLf
TempStr = TempStr & "fywenurl="& Chr(34) & fywenurl & Chr(34) &"'网站地址" & VbCrLf
TempStr = TempStr & "keywords="& Chr(34) & keywords & Chr(34) &"'网站关键字" & VbCrLf
TempStr = TempStr & "description="& Chr(34) & description & Chr(34) &"'关键字说明" & VbCrLf
TempStr = TempStr & "fywenmail="& Chr(34) & fywenmail & Chr(34) &"'站长EMAIL" & VbCrLf
TempStr = TempStr & "fywen ="& Chr(34) & fywen & Chr(34) &"'站长名字" & VbCrLf
TempStr = TempStr & "fywengov="& Chr(34) & fywengov & Chr(34) &"'备案信息" & VbCrLf
TempStr = TempStr & "fywenopen="& Chr(34) & fywenopen & Chr(34) &"'网站维护开关" & VbCrLf
TempStr = TempStr & "offfywen="& Chr(34) & offfywen & Chr(34) &"'网站维护内容" & VbCrLf
TempStr = TempStr & "skin="& Chr(34) & skin & Chr(34) &"'风格皮肤" & VbCrLf
TempStr = TempStr & "fywentj="& Chr(34) & fywentj & Chr(34) &"'第三方统计代码" & VbCrLf
TempStr = TempStr & "'=====邮件设置=====" & VbCrLf
TempStr = TempStr & "mailpost="& Chr(34) & mailpost & Chr(34) &"'开启关闭邮箱" & VbCrLf
TempStr = TempStr & "mailsmtp="& Chr(34) & mailsmtp & Chr(34) &"'SMTP Server地址" & VbCrLf
TempStr = TempStr & "mailname="& Chr(34) & mailname & Chr(34) &"'邮箱用户名" & VbCrLf
TempStr = TempStr & "mailpwd="& Chr(34) & mailpwd & Chr(34) &"'邮箱登陆密码" & VbCrLf
TempStr = TempStr & "'=====其它设置=====" & VbCrLf
TempStr = TempStr & "makepost="& Chr(34) & makepost & Chr(34) &"'是否允许建立贴吧" & VbCrLf
TempStr = TempStr & "PostUser="& Chr(34) & PostUser & Chr(34) &" '是否允许申请吧主" & VbCrLf
TempStr = TempStr & "PostOpen="& Chr(34) & PostOpen & Chr(34) &" '是否允许匿名发贴" & VbCrLf
TempStr = TempStr & "UserPost="& Chr(34) & UserPost & Chr(34) &" '是否允许会员发贴" & VbCrLf
TempStr = TempStr & "User_edit="& Chr(34) & User_edit & Chr(34) &" '是否允许会员编辑自己的帖子" & VbCrLf
TempStr = TempStr & "Edit_date="& Chr(34) & Edit_date & Chr(34) &" '是否显示X年X月X日被某某编辑字样" & VbCrLf
TempStr = TempStr & "OpenPost="& Chr(34) & OpenPost & Chr(34) &" '是否开放贴吧注册" & VbCrLf
TempStr = TempStr & "Ipnum="& Chr(34) & Ipnum & Chr(34) &"'IP显示位数" & VbCrLf
TempStr = TempStr & "Postnum="& Chr(34) & Postnum & Chr(34) &"'每页显示帖子条数" & VbCrLf
TempStr = TempStr & "Postsnum="& Chr(34) & Postsnum & Chr(34) &"'每页帖子显示回复条数" & VbCrLf
TempStr = TempStr & "%" & chr(62) & VbCrLf
ADODB_SaveToFile TempStr, "../inc/Config.Asp"
%>
<script language="javascript">
alert("网站基本信息更新成功")
document.location="admin_config.asp"
</script>
<%
end sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -