数据库编程

开发平台：
ASP/ASPX

Audit_Edit.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/ns_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../../FS_Inc/Func_page.asp" -->
<!--#include file="lib/cls_main.asp"-->
<%
Dim Conn,s_News,User_Conn,newsInfo_Rs,newsClass_Rs,sql_cmd,sql_class_cmd,contID,NewsTitle,CurtTitle,Content,Keywords,Author,classID,ClassName
DIm Fs_News,str_CurrPath,sRootDir
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
if Session("Admin_Is_Super") = 1 then
	str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
	str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
End if
if Not MF_Session_TF() then Top_Go_To_Login_Page
'MF_Check_Pop_TF（）参数：文件名命名+代码
'if Not MF_Check_Pop_TF("NS_News_01") then Top_Go_To_Error_Page 
MF_User_Conn
MF_Default_Conn
MF_Session_TF 
Set Fs_News=New Cls_News
contID=NoSqlHack(Request.QueryString("contid"))
Set newsInfo_Rs=Server.CreateObject(G_FS_RS)
Set newsClass_Rs=Server.CreateObject(G_FS_RS)
'获得稿件的基本数据
sql_cmd="Select ContTitle,SubTitle,ContContent,KeyWords,UserNumber,MainID,AuditTF from FS_ME_InfoContribution where contid="&contID
newsInfo_Rs.open sql_cmd,User_Conn,1,1
if not  newsInfo_Rs.eof then
	NewsTitle=newsInfo_Rs("ContTitle")
	CurtTitle=newsInfo_Rs("SubTitle")
	Content=newsInfo_Rs("ContContent")
	Keywords=newsInfo_Rs("KeyWords")
	Author=newsInfo_Rs("UserNumber")
	classID=newsInfo_Rs("MainID")
ENd if
'获得分类中文名称 
sql_class_cmd="Select ClassName,Classid from  FS_NS_NewsClass where id="&classID
newsClass_Rs.open sql_class_cmd,Conn,1,1 
dim newsClassID
if not newsClass_Rs.eof then
	ClassName=newsClass_Rs("ClassName")
	newsClassID=newsClass_Rs("Classid")
End if
if err.number="" then
	Response.Redirect("lib/error.asp?ErrCodes=<li>出现异常，请返回</li>")
	Response.End()
End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>CMS4.0</title>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript" src="../../FS_Inc/Prototype.js"></script>
<script language="JavaScript" src="js/Public.js"></script>
<script language="JavaScript" src="js/CheckJs.js"></script>
<script language="JavaScript" type="text/javascript" src="../../FS_Inc/Get_Domain.asp"></script>
<script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
<body class="hback">
<form name="auditEdit_Form" id="auditEdit_Form" action="Constr_Action.asp?act=editaudit" method="post">
	<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
		<tr>
			<td colspan="2" class="xingmu">投稿审核前编辑</td>
		</tr>
		<tr class="hback">
			<td width="20%" align="right">新闻标题：</td>
			<td width="80%" aling="left">
				<input name="txt_newsTitle" type="text" size="50" id="txt_newsTitle" value="<%=NewsTitle%>">
				<input name="hid_contID" type="hidden" id="hid_contID" value="<%=ContID%>">
				<span id="span_newsTitle"></span> </td>
		</tr>
		<tr class="hback">
			<td align="right">新闻副标题：</td>
			<td aling="left">
				<input name="txt_curtTitle" type="text" size="50" id="txt_curtTitle" value="<%=CurtTitle%>">
			</td>
		</tr>
		<tr class="hback">
			<td align="right">正文：</td>
			<td aling="left">
				<!--编辑器开始-->
				<pre id="idTemporary" name="idTemporary" style="display:none"><%=Server.HTMLEncode(Content)%></pre>
				<script language="JavaScript">
					<!--
						var FS_Edit1 = new InnovaEditor("FS_Edit1");
						FS_Edit1.cmdAssetManager="modalDialogShow('../../<% = G_ADMIN_DIR %>/CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',670,450)";
						FS_Edit1.width="100%";
						FS_Edit1.height="400";
						FS_Edit1.btnFlash=true;
						FS_Edit1.btnMedia=true;        
						FS_Edit1.RENDER($("idTemporary").innerHTML);
					//-->
				</script>
				<textarea name="txt_content" style="display:none" ></textarea>
				<!--编辑器结束-->
				<span id="span_content"></span></td>
		</tr>
		<tr class="hback">
			<td align="right">关键词：</td>
			<td aling="left">
				<input name="txt_keywords" type="text" size="50" id="txt_keywords" value="<%=Keywords%>" onKeyUp="ReplaceDot('txt_keywords')">
			</td>
		</tr>
		<tr class="hback">
			<td align="right">新闻所属栏目：</td>
			<td aling="left">
				<input name="txt_classCName" type="text" size="50" id="txt_classCName" value="<%=ClassName%>">
				<input name="hid_ClassID" type="hidden" id="hid_ClassID" value="<% = newsClassID %>">
				<input type="button" name="Submit" value="选择栏目"   onClick="SelectClass();">
				<span id="span_ClassID"></span></td>
		</tr>
		<tr class="hback">
			<td align="right">选择模板：</td>
			<td aling="left">
				<input name="NewsTemplet" type="text" id="NewsTemplet" size="50" value="<%=Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/")%>">
				<input name="Submit532" type="button" id="Submit53" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=Replace(G_VIRTUAL_ROOT_DIR&"/"& G_TEMPLETS_DIR,"//","/") %>',400,300,window,document.auditEdit_Form.NewsTemplet);document.auditEdit_Form.NewsTemplet.focus();">
				<span id="span_NewsTemplet"></span></td>
		</tr>
		<tr class="hback">
			<td align="right">作者：</td>
			<td aling="left"><a href="../../user/ShowUser.asp?UserNumber=<%=Author%>" title="点击查看该用户详情" target="_blank"><%=Fs_News.GetUserName(Author)%></a>
				<input name="hid_Author" type="hidden" size="50" readonly="true" id="hid_Author" value="<%=Author%>">
			</td>
		</tr>
		<tr class="hback">
			<td align="right">&nbsp;</td>
			<td aling="left">
				<%if newsInfo_Rs("AuditTF")<>1 then%>
				<input name="sub_button" type="button" id="sub_button" value="审核" onClick="checkRight(this.form)">
				&nbsp;&nbsp;
				<%Else%>
				<input name="sub_button" type="button" id="sub_button" value="已审核"  disabled="disabled">
				<%End if%>
				<input type="reset" name="Submit" value="重置">
				<input type="button" name="bbb" onClick="window.history.back()" value="返回">
			</td>
		</tr>
	</table>
</form>
</body>
<script language="JavaScript">
function SelectClass()
{
	var ReturnValue='',TempArray=new Array();
	ReturnValue = OpenWindow('lib/SelectClassFrame.asp',400,300,window);
	if (ReturnValue.indexOf('***')!=-1)
	{
		TempArray = ReturnValue.split('***');
		document.all("hid_ClassID").value=TempArray[0]
		document.all("txt_classCName").value=TempArray[1]
	}
}
function checkRight(FormObj)
{
	FormObj.txt_content.value=FS_Edit1.getXHTMLBody();
	var flag1=isEmpty("txt_newsTitle","span_newsTitle");
	var flag2=isEmpty("txt_content","span_content");
	var flag3=isEmpty("hid_ClassID","span_ClassID");
	var flag4=isEmpty("NewsTemplet","span_NewsTemplet");
	if(flag1&&flag2&&flag3&&flag4)
	{
		FormObj.submit();
	}
}
</script>
</html>

						