数据库编程

开发平台：
ASP/ASPX

SysConfig.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../../FS_Inc/Func_page.asp" -->
<%
response.buffer=true	
Response.CacheControl = "no-cache"
Dim Conn,User_Conn
MF_Default_Conn
'session判断
MF_Session_TF 
if not MF_Check_Pop_TF("WS002") then Err_Show
Dim i,Style
dim ConfigRs,sql,IsUser,PageS,Title,UserMember,strShowErr,RepUserMember
Set ConfigRs= server.CreateObject (G_FS_RS)
sql="select top 1 Title,isUser,PageSize,Style,UserMember,RepUserMember From FS_WS_Config"
ConfigRs.open sql,conn,1,1
	if not ConfigRS.eof then
		IsUser=ConfigRs("IsUser")
		PageS=Cint(ConfigRs("PageSize"))
		Style=ConfigRs("Style")
		Title=ConfigRs("Title")
		UserMember=ConfigRs("UserMember")
		RepUserMember = ConfigRs("RepUserMember")
	End if
Set ConfigRs=nothing
%>
<html>
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="javascript">
function checknum(obj){
if (isNaN(obj.value)|| obj.value<0){
alert("格式不对!");
obj.focus();
}
}
</script>
<BODY>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <form action="?Action=save" method="post" name="SysParaForm" id="SysParaForm"><tr class="hback"> 
    <td class="xingmu" colspan="4">参数设置&nbsp;&nbsp;&nbsp;
	<a href="../../help?Lable=Message" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  </tr>
  <tr class="hback">
	<td width="17%" align="right">留言系统名称:</td>
	<br>
	<td width="83%"><label>
	  <input name="Title" type="text" id="Title" value="<%=Title%>" size="40">
	  <font color="#FF0000">*</font></label></td>
  </tr>
  
    <tr class="hback"> 
      <td align="right">允许未注册用户留言:</td> 
      <td width="85%">
	  <%if IsUser="0" then%>
	  <input type="radio" name="IsUser" value="0" checked>
      允许&nbsp;&nbsp;<input type="radio" name="IsUser" value="1">禁止
	  <%else%>
	   <input type="radio" name="IsUser" value="0" >
      允许&nbsp;&nbsp;<input type="radio" name="IsUser" value="1" checked>禁止
	  <%End if %>	  </td> 
    </tr> 
	<tr>
	<td class="hback" align="right">发贴成功增加会员积分:</td>
	<td class="hback"><input type="text" name="UserMember" value="<%=UserMember%>" onKeyUp="checknum(this)">
	<label>填写正整数</label></tr>
	<tr class="hback">
	  <td align="right">回复帖子积分：</td>
	  <td><label>
        <input name="RepUserMember" type="text" id="RepUserMember" value="<% = RepUserMember %>">
        </label>        填写正整数</tr>
	<tr class="hback">
		<td align="right">每页显示留言条数:</td>
	  <td width="85%">
		  <select name="PageS">
		  <%
		  for i=10 to 50 step 2
		  	if i=PageS then
		  %>
		  	<option value="<%=i%>" selected><%=i%></option>
		  <% 
		  	else
			%>
			<option value="<%=i%>"><%=i%></option>
			<%
		  	end if
		  Next 
		  %>
    </select>	</tr>
	<tr class="hback">
		<td align="right">选择样式:</td>
		<td>
		<select name="Style">
		<option value="1" <%if Style="1" then response.Write"selected"%>>默认样式</option>
		<option value="2" <%if Style="2" then response.Write"selected"%>>银色风格</option>
		<option value="3" <%if Style="3" then response.Write"selected"%>>蓝色海洋</option>
		<option value="4" <%if Style="4" then response.Write"selected"%>>紫色回忆</option>
		<option value="5" <%if Style="5" then response.Write"selected"%>>绿色心情</option>
		</select>		</td>
	</tr>		
      <tr class="hback"> 
      <td align="right">&nbsp;</td> 
      <td><input type="Submit" name="btn_SetSysParam" value=" 保存 " /> 
        <input type="reset" name="sub_rest" value=" 重置 " /></td> 
    </tr></form>  
</table> 
<%
if NoSqlHack(Request.QueryString("Action"))="save" Then
	IsUser=Request.Form("IsUser")
	PageS=Request.Form("PageS")
	Style=Request.Form("Style")
	Title=NoSqlHack(trim(Replace(Request.Form("Title"),"'","")))
	UserMember=NoSqlHack(Trim(Request.form("UserMember")))
	RepUserMember = NoSqlHack(Trim(Request.form("RepUserMember")))
	if Title="" then
	strShowErr="<li>留言系统名称不能为空</li>"
	Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
	Response.end
	end if
	if IsNumeric(UserMember) then
		UserMember=int(abs(UserMember))
	else
		strShowErr = "<li>增加会员积分不对</li>"
		Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
		Response.end
	end if
	if IsNumeric(RepUserMember) then
		RepUserMember=int(abs(RepUserMember))
	else
		strShowErr = "<li>增加会员积分不对</li>"
		Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
		Response.end
	end if
	if IsUser<>"" and PageS<>"" then
		Conn.Execute("Update FS_WS_Config set Title='"&Title&"',IsUser='"&IsUser&"',PageSize="&PageS&",Style='"&Style&"',UserMember="&UserMember&",RepUserMember="&RepUserMember&"")
		strShowErr = "<li>修改成功</li>"
		Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
		Response.end
	else
		strShowErr = "<li>参数错误</li>"
		Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
		Response.end
	End if
End if
Set Conn=Nothing
%>
</body>
</html>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->

						