yd_guestbook_admin_setting.asp

是个不错的留言版

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="YD_guestbook_CONN.asp" -->
<!--#include file="YD_guestbook_Const.asp" -->
<%
'------------------------------------------------------------------------
'By 玄天尊, 更新于2005-05-19 晚.
'和论坛结合的留言本,分会员与游客两种模式
'可定义是否使用验证码,防止恶意留言
'ACCESS与MSSQL通用版本
'www.YdSpace.org And www.YdSpace.net  异度空间技术部
'------------------------------------------------------------------------
Response.Buffer=True
Dvbbs.Stats="留言板基本设置"
Dvbbs.Nav()
Dvbbs.Head_var 0,0,""&guestbook_setting(0)&"","YD_guestbook_index.asp"
If not dvbbs.master then
	Response.Redirect "YD_guestbook_Save.asp?action=information&sid=2&act=<li>错误，留言板基本设置只能管理员进入，如果你是管理员请先登陆&Flag=2"
Else
	select case request("action")
		case "SaveSettimg"
			call SaveSettimg()
		case else
			call main()
	End select
End if
Dvbbs.ActiveOnline
Dvbbs.footer()

Sub main()
%>
<table class=tableborder1 cellspacing=1 cellpadding=3 align=center>
  <tr>
    <th align="center" colspan="2" height="25"><a name=top></a><b>基本设置</b></th>
  </tr>
  <form method="post" action="?action=SaveSettimg">
  <tr>
    <td class=tablebody2 width="40%"><b>留言板名称</b><BR>定义留言板名称</td> 
    <td class=tablebody1 width="60%">&nbsp;<input type=text size="30" name="guestbook_setting(0)" value="<%=guestbook_setting(0)%>"></td>
  </tr>
  <tr>
    <td class=tablebody2 width="40%"><b>短信接收设置</b><br>是否允许自定义短信接收用户</td> 
    <td class=tablebody1 width="60%">&nbsp;<input type=radio name="User_Setting(0)" value=1 <%if User_Setting(0)=1 then%>checked<%end if%>>允许&nbsp;<input type=radio name="User_Setting(0)" value=0 <%if User_Setting(0)=0 then%>checked<%end if%>>禁止&nbsp;</td>
  </tr>
  <tr>
    <td class=tablebody2 width="40%"><b>短信人名称</b><BR>定义默认短信接收人姓名</td> 
    <td class=tablebody1 width="60%">&nbsp;<input type=text size="30" name="guestbook_setting(1)" value="<%=guestbook_setting(1)%>"></td>
  </tr>
  <tr>
    <td class=tablebody2 width="40%"><b>验证码设置</b><br>发表留言是否使用验证码</td> 
    <td class=tablebody1 width="60%">&nbsp;<input type=radio name="guestbook_setting(2)" value=1 <%if guestbook_setting(2)=1 then%>checked<%end if%>>开启&nbsp;<input type=radio name="guestbook_setting(2)" value=0 <%if guestbook_setting(2)=0 then%>checked<%end if%>>关闭&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2" align="center" height=25 class=tablebody2><input type="submit" name="Submit" value="提 交"><a name=bottom></a></td>  
  </tr>
</table>
<%
End sub

Sub SaveSettimg()

guestbook_setting=request.Form("guestbook_setting(0)")&","&request.Form("guestbook_setting(1)")&","&request.Form("guestbook_setting(2)")&","&request.Form("guestbook_setting(3)")
User_Setting=request.Form("User_Setting(0)")&"|"&request.Form("User_Setting(1)")&"|"&request.Form("User_Setting(2)")&"|"&request.Form("User_Setting(3)")

set rs=guestbook_conn.execute("update [YD_Guest_Config] set guestbook_setting='"&guestbook_setting&"',User_Setting='"&User_Setting&"'")
Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>恭喜，基本设置成功。&Flag=2"
End sub
%>