数据库编程

开发平台：
ASP/ASPX

AddEditNews.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<%
'on error resume next
Dim Conn,User_Conn,OperateNewsRs,newsid,title,content,grouptype,groupid,groupIndex,GroupInfoRs,newspoint,isLock
MF_Default_Conn
MF_Session_TF 
if not MF_Check_Pop_TF("ME021") then Err_Show '权限判断
MF_User_Conn
'************************************Update
if Request.QueryString("Act")="edit" then
	newsid=Request.QueryString("newsid")
	Set OperateNewsRs=server.CreateObject(G_FS_RS)
	OperateNewsRs.open "select title,content,addtime,groupid,newspoint,isLock from FS_ME_News where newsid="&newsid,User_Conn,1,3
	if not OperateNewsRs.eof then
		title=OperateNewsRs("title")
		content=OperateNewsRs("content")
		groupid=OperateNewsRs("groupid")
		newspoint=OperateNewsRs("newspoint")
		isLock=OperateNewsRs("isLock")
		If Not IsNull(groupid) And Not groupid="" then
			Set GroupInfoRs=User_Conn.execute("select groupid,groupname,grouptype from FS_ME_Group where groupid="&groupid)
			if not GroupInfoRs.eof then
				grouptype=GroupInfoRs("GroupType")
			end If
			groupInfoRs.close
			Set groupInfoRs=nothing
		End if
		OperateNewsRs.close
	end if
elseif Request.QueryString("Act")="EditNews" then
	if isNumeric(Request.Form("GroupIndex")) then
		GroupIndex=Request.Form("GroupIndex")
	else
		GroupIndex=0
	end if
	User_Conn.Execute("Update FS_ME_News set Title='"&Request.Form("title")&"',content='"&Request.Form("Content")&"',addtime='"&Now()&"',groupid="&GroupIndex&",newspoint="&Request.Form("newspoint")&",isLock="&Request.Form("isLock")&" where newsid="&Request.QueryString("newsid"))
	if err.number=0 then 
		Response.Redirect("../success.asp?ErrCodes=<li>修改成功</li>&ErrorURL=./user/news_manage.asp")
	else
		Response.Redirect("../error.asp?ErrCodes=<li>"&err.description&"</li>")
	end if
elseif Request.QueryString("Act")="AddNews" then
	if isNumeric(Request.Form("GroupIndex")) then
		GroupIndex=Request.Form("GroupIndex")
	else
		GroupIndex=0
	end if
	Set OperateNewsRs=server.CreateObject(G_FS_RS)
	OperateNewsRs.open "select title,content,addtime,groupid,newspoint,isLock from FS_ME_News",User_Conn,1,3
	OperateNewsRs.addNew
	OperateNewsRs("title")=Request.Form("title")
	OperateNewsRs("content")=Request.Form("content")
	OperateNewsRs("addtime")=Now()
	OperateNewsRs("groupid")=GroupIndex
	OperateNewsRs("newspoint")=Request.Form("newspoint")
	OperateNewsRs("islock")=Request.Form("islock")
	OperateNewsRs.update
	OperateNewsRs.close
	if err.number=0 then 
		Response.Redirect("../success.asp")
	else
		Response.Redirect("../error.asp?ErrCodes=<li>"&err.description&"</li>")
	end if
end if
function getDebateParentNum(ID)
	if ID="" then exit function
	Dim F_DebateID,F_Rs,FS_count
	FS_count=1
	Set F_Rs=User_Conn.Execute("Select DebateID,title,ParentID from FS_ME_GroupDebate where DebateID="&ID)
	if not F_Rs.eof then
		FS_count=FS_count+getDebateParentNum(F_Rs("ParentID"))
	end if
	F_Rs.close
	Set F_Rs=nothing
	getDebateParentNum=FS_count
End function
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<script language="JavaScript" src="lib/UserJS.js" type="text/JavaScript"></script>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  <tr class="xingmu"> 
    <td class="xingmu">公告管理</td>
  </tr>
  <tr class="hback"> 
    <td class="hback"><a href="News_manage.asp">首页</a> | <a href="AddEditNews.asp?Act=add">发布公告</a> | <a href="javascript:history.back();">返回上一级</a></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <%
			if Request.QueryString("Act")="edit" then
				Response.Write("<form action='?Act=EditNews&newsid="&newsid&"' method='post' name='operateNews' id='operateNews'>")
			elseif Request.QueryString("Act")="add" then
				Response.Write("<form action='?Act=AddNews' method='post' name='operateNews' id='operateNews'>")
			end if
		%>
  <tr class="hback"> 
    <td align="right">公告标题：</td>
    <td width="631"> <input name="Title" type="text" id="Title" value="<%=title%>" size="50" /> 
      <font color="#FF0000">*</font><span id="Title_Alert"></span></td>
  </tr>
  <tr class="hback"> 
    <td align="right">公告内容： </td>
    <td> <textarea name="Content" cols="80" rows="15" id="Content"><%=content%></textarea> 
      <font color="#FF0000">*</font><span id="Content_Alert"></span></td>
  </tr>
  <tr class="hback"> 
    <td align="right">查看权限：</td>
    <td> <select name="GType" id="GType" onChange="getFormInfo(this)">
        <option value="all" <%if grouptype<>1 and grouptype<>0 then Response.Write("selected")%>>所有会员组</option>
        <option value="1" <%if grouptype=1 then Response.Write("selected")%>>个人会员组</option>
        <option value="0" <%if grouptype=0 then Response.Write("selected")%>>企业会员组</option>
      </select> &nbsp; <span id="GroupIndexContent"> 
      <%
		if Request.QueryString("act")="edit" then
			Response.Write(" |  会员组：<select name='GroupIndex' id='GroupIndex'>"&Chr(10)&Chr(13))
			if grouptype=1 then
				Set GroupInfoRs=User_Conn.execute("Select GroupID,GroupName from FS_ME_Group where GroupType=1")
				Response.Write("<option value='user'>所有个人会员组</option>")
			elseif grouptype=0 then
				Set GroupInfoRs=User_Conn.execute("Select GroupID,GroupName from FS_ME_Group where GroupType=0")
				Response.Write("<option value='corp'>所有企业会员组</option>")
			end if
			while not GroupInfoRs.eof
				if GroupInfoRs("GroupID")=Groupid then
					Response.Write("<option value='"&GroupInfoRs("GroupID")&"' selected>"&GroupInfoRs("GroupName")&"</option>")
				else
					Response.Write("<option value='"&GroupInfoRs("GroupID")&"'>"&GroupInfoRs("GroupName")&"</option>")
				end if
				GroupInfoRs.movenext
			wend
		end if
	%>
      </span> </td>
  </tr>
  <tr class="hback"> 
    <td align="right">积分限制：</td>
    <td><input name="NewsPoint" type="text" id="NewsPoint"  value="<%=newspoint%>" size="50"/>
      （积分大于多少可以查看）<span id="NewsPoint_Alert"></span></td>
  </tr>
  <tr class="hback"> 
    <td align="right">是否锁定：</td>
    <td> <%
		  	if Request.QueryString("act")="edit" then
				if isLock=1 then
					Response.Write("<input type='radio' name='isLock' value=1 checked>是"&Chr(10)&Chr(13))
					Response.Write("<input type='radio' name='isLock' value=0 >否"&Chr(10)&Chr(13))
				elseif isLock=0 then
					Response.Write("<input type='radio' name='isLock' value=1 >是"&Chr(10)&Chr(13))
					Response.Write("<input type='radio' name='isLock' value=0 checked>否"&Chr(10)&Chr(13))
				end if
			else
				Response.Write("<input type='radio' name='isLock' value=1 >是"&Chr(10)&Chr(13))
				Response.Write("<input type='radio' name='isLock' value=0 checked>否"&Chr(10)&Chr(13))
			end if
		  %> </td>
  </tr>
  <tr class="hback"> 
    <td align="right">&nbsp;</td>
    <td><input type="Button" name="AddNewsButton" value=" 保存 " onClick="OperateNewsSubmit()"/> 
      <input type="reset" name="Submit2" value=" 重置 " /></td>
  </tr></form></tr>
</table> 
</body>
<%
if Request.QueryString("Act")="edit" then
	GroupInfoRs.close
	set GroupInfoRs=nothing
	Conn.close
	Set Conn=nothing
	User_Conn.close
	Set User_Conn=nothing
end if
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
var request=true;
var result;
var ParamArray;
try
{
	request=new XMLHttpRequest();
}catch(trymicrosoft)
{
try
{
	request=new ActiveXObject("Msxml2.XMLHTTP")
}catch(othermicrosoft)
{
try
{
	request=new ActiveXObject("Microsoft.XMLHTTP")
}catch(filed)
{
	request=false;
}
}
}
if(!request) alert("Error initializing XMLHttpRequest!");
function getFormInfo(Obj)
{
	var typeID=Obj.value;
	if(isNaN(typeID))
	{
		document.getElementById("GroupIndexContent").innerHTML="";
		return ;
	}
	var url="getUserGroup.asp?page=News&id="+typeID+"&r="+Math.random();//构造url
	request.open("GET",url,true);//建立连接
	request.onreadystatechange = getFormInfoResult;
	request.send(null);//传送数据，因为数据通过url传递了，所以这里传递的是null
}
function getFormInfoResult()//当服务器响应的时候就使用这个方法
{
	if(request.readyState ==4)//根据HTTP 就绪状态判断响应是否完成
	{
		if(request.status == 200)//判断请求是否成功
		{
			result=request.responseText;//获得响应的结果，也就是新的<select>
			document.getElementById("GroupIndexContent").innerHTML="|&nbsp;&nbsp;会员组："+result;//将这个结果现实在客户端
		}
	}
}
function OperateNewsSubmit()
{	
	var flag1=isEmpty('Title','Title_Alert');
	var flag2=isEmpty('Content','Content_Alert');
	var flag3=isNumber("NewsPoint",'NewsPoint_Alert','积分请使用正整数',true)
	if(flag1&&flag2&&flag3)
	{
		document.operateNews.submit();
	}
}
</script>
</html>

						