数据库编程

开发平台：
ASP/ASPX

label_creat.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="../../FS_InterFace/HS_Function.asp" -->
<!--#include file="../../FS_InterFace/AP_Function.asp" -->
<%
	Response.Buffer = True
	Response.Expires = -1
	Response.ExpiresAbsolute = Now() - 1
	Response.Expires = 0
	Response.CacheControl = "no-cache"
	Dim Conn,obj_Label_Rs,SQL,strShowErr,str_CurrPath,sRootDir
	MF_Default_Conn
	'session判断
	MF_Session_TF 
	Dim LableName,txt_Content,LableClassID,Labelclass_SQL,obj_Labelclass_rs,obj_Count_rs,isDel,tmps_LableName
	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
	LableClassID = NoSqlHack(Request.QueryString("LableClassID"))
	LableName = Trim(Request.Form("LableName"))
	txt_Content = Trim(Request.Form("TxtFileds"))
	isDel = Trim(Request.Form("isDel"))
	
	if Request.Form("Action") = "add_save" then
			if LableName ="" or txt_Content =""  then
				strShowErr = "<li>请填写完整</li>"
				Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
				Response.end
			end if
			if len(txt_Content) >60000  then
				strShowErr = "<li>标签内容不允许大于60000个字符</li>"
				Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
				Response.end
			end if
			Labelclass_SQL = "Select LableName,LableContent,AddDate,LableClassID,isDel from FS_MF_Lable where LableName ='"& "{FS400_"&LableName&"}"&"'"
			Set obj_Labelclass_rs = server.CreateObject(G_FS_RS)
			obj_Labelclass_rs.Open Labelclass_SQL,Conn,1,3
			if obj_Labelclass_rs.eof then
				obj_Labelclass_rs.addnew
				obj_Labelclass_rs("LableName") = "{FS400_"& LableName &"}"
				obj_Labelclass_rs("LableContent") = txt_Content
				obj_Labelclass_rs("AddDate") =now
				if isDel<>"" then
					obj_Labelclass_rs("isDel") =1
				else
					obj_Labelclass_rs("isDel") =0
				end if
				obj_Labelclass_rs("LableClassID") =Request.Form("LableClassID")
				obj_Labelclass_rs.update
			else
				strShowErr = "<li>名称重复,请重新输入</li>"
				Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
				Response.end
			end if
			obj_Labelclass_rs.close:set obj_Labelclass_rs =nothing
			strShowErr = "<li>添加成功</li><li><a href=Label/Label_Creat.asp>继续添加</a></li><li><a href=Label/All_Label_Stock.asp?classid="&Request.Form("LableClassID")&">返回标签管理</a></li>"
			Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=Label/Label_Creat.asp")
			Response.end
	elseif Request.Form("Action") = "edit_save" then
			dim rstf
			tmps_LableName="{FS400_"&LableName&"}"
			Set rstf = Conn.execute("Select LableName,LableContent,AddDate,LableClassID,isDel from FS_MF_Lable where LableName ='"& tmps_LableName &"' and id <>"& NosqlHack(Request.Form("ID")))
			if not rstf.eof then
				strShowErr = "<li>名称重复,请重新输入</li>"
				Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
				Response.end
			end if
			if len(txt_Content) >2000  then
				strShowErr = "<li>标签内容不允许大于2000个字符</li>"
				Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
				Response.end
			end if
			Labelclass_SQL = "Select id,isDel,LableName,LableContent,AddDate,LableClassID from FS_MF_Lable where id ="& NosqlHack(Request.Form("ID")) 
			Set obj_Labelclass_rs = server.CreateObject(G_FS_RS)
			obj_Labelclass_rs.Open Labelclass_SQL,Conn,1,3
			if not obj_Labelclass_rs.eof then
				obj_Labelclass_rs("LableName") = "{FS400_"& LableName &"}"
				obj_Labelclass_rs("LableContent") = txt_Content
				obj_Labelclass_rs("AddDate") =now
				if isDel<>"" then
					obj_Labelclass_rs("isDel") =1
				else
					obj_Labelclass_rs("isDel") =0
				end if
				obj_Labelclass_rs("LableClassID") =Request.Form("LableClassID")
				obj_Labelclass_rs.update
				obj_Labelclass_rs.close:set obj_Labelclass_rs =nothing
			else
				obj_Labelclass_rs.close:set obj_Labelclass_rs =nothing
				strShowErr = "<li>错误的参数</li>"
				Response.Redirect("../Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
				Response.end
			end if
			strShowErr = "<li>修改成功</li>"
			Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=Label/all_Label_Stock.asp")
			Response.end
	end if
	if Request.QueryString("DelTF")="1" then
		Conn.execute("Delete From FS_MF_Labestyle where StyleType='"& Request.QueryString("Label_Sub")&"' and id="&NoSqlHack(Request.QueryString("id")))
		strShowErr = "<li>删除成功</li>"
		Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=Label/All_Label_style.asp?Label_Sub="& Request.Form("Label_Sub")&"")
		Response.end
	end if
	dim tmp_LableName,tmp_LableClassID,tmp_LableContent,tmp_isDel,tmp_id,tmp_action
	if Request.QueryString("type")="edit" then
		dim rs
		if not isnumeric(Request.QueryString("id")) then
			strShowErr = "<li>错误的参数</li>"
			Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
			Response.end
		end if
		set rs = Conn.execute("select id,LableName,LableClassID,LableContent,isDel From FS_MF_Lable where id="&Request.QueryString("id"))
		if rs.eof then
			rs.close:set rs=nothing
			strShowErr = "<li>错误的参数</li>"
			Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
			Response.end
		else
			tmp_LableName=Replace(Replace(rs("LableName"),"{FS400_",""),"}","")
			tmp_LableClassID=rs("LableClassID")
			tmp_LableContent=rs("LableContent")
			tmp_isDel=rs("isDel")
			tmp_id = rs("id")
			tmp_action = "edit_save"
		end if
	else
			tmp_action = "add_save"
	end if
%>
<html>
<head>
<title>标签管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript" type="text/javascript" src="../../FS_Inc/Get_Domain.asp"></script>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<script language="JavaScript" src="../../FS_Inc/Prototype.js" type="text/JavaScript"></script>
<script language="JavaScript" src="../../FS_Inc/CheckJs.js" type="text/JavaScript"></script>
<script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
<body>
<table width="98%" height="56" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
	<tr class="hback" >
		<td width="100%" height="20"  align="Left" class="xingmu">标签库</td>
	</tr>
	<tr class="hback" >
		<td height="27" align="center" class="hback">
			<div align="left"><a href="All_Label_Stock.asp">所有标签</a>┆<a href="All_Label_Stock.asp?isDel=1">备份库</a>┆<a href="label_creat.asp">创建标签</a>┆<a href="Label_Class.asp" target="_self">标签分类</a>&nbsp;┆<a href="All_label_style.asp">样式管理</a>&nbsp;<a href="../../help?Label=MF_Label_Stock" target="_blank" style="cursor:help;"><img src="../Images/_help.gif" width="50" height="17" border="0"></a></div>
		</td>
	</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
	<tr class="xingmu">
		<td colspan="2" class="xingmu">创建标签</td>
	</tr>
	<form name="NewsForm" method="post" action="" target="_self" onSubmit="return CheckForm(this);">
		<tr class="hback">
			<td width="8%">
				<div align="right">标签名称</div>
			</td>
			<td width="92%"><span class="tx">{FS400_
				<input name="LableName" type="text" value="<%=tmp_LableName%>" id="LableName" size="18"  style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 0px;border-left-width:0px;border-bottom-color: #000000;"  onFocus="Do.these('LableName',function(){return CheckContentLen('LableName','span_LableName','2-30')})" onKeyUp="Do.these('LableName',function(){return CheckContentLen('LableName','span_LableName','2-30')})">
				}</span><span id="span_LableName"></span>
				<select name="LableClassID" id="LableClassID">
					<option value="0">选择所属栏目</option>
					<%
				  dim class_rs_obj
				  set class_rs_obj=Conn.execute("select id,ParentID,ClassName From FS_MF_LableClass where ParentID=0 order by id desc")
				  do while not class_rs_obj.eof
						If CStr(tmp_LableClassID)=CStr(class_rs_obj("id")) Then 
							response.Write "<option value="""&class_rs_obj("id")&""" selected >"&class_rs_obj("ClassName")&"</option>"
						Else
							response.Write "<option value="""&class_rs_obj("id")&""">"&class_rs_obj("ClassName")&"</option>"
						End If 
						response.Write get_childList(class_rs_obj("id"),"")
					class_rs_obj.movenext
					
				  loop
				  class_rs_obj.close:set class_rs_obj=nothing
				  %>
				</select>
				<label>
				<input name="isDel" type="checkbox" id="isDel" value="1" <%if tmp_isDel=1 then response.Write"checked"%>>
				放入备份库</label>
			</td>
		</tr>
		<tr class="hback" <%if request.QueryString("Label_Sub")<>"DS" then response.Write("style=""display:'none';""") else response.Write("style=""display:'';"" ") end if%>> </tr>
		<tr class="hback">
			<td>&nbsp;</td>
			<td>
				<table width="100%" border="0" cellspacing="0" cellpadding="0">
					<tr>
						<td height="16" valign="top">
							<!--<OBJECT ID="Lable"
			CLASSID="CLSID:389961B3-2025-4E6D-92E8-AE75352096E2"
			CODEBASE="Foosun.CAB#version=1,0,0,0">
			</OBJECT>
			-->
						<td height="16" valign="top"> <span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/News_label.asp',500,460,'obj');" style="cursor:hand;"> <a href="#" title="新闻列表类标签">新闻列表</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/News_C_label.asp',500,350,'obj');" style="cursor:hand;"> <a href="#" title="新闻常规类标签">新闻常规</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/News_Un_label.asp',500,350,'obj');" style="cursor:hand;"> <a href="#" title="新闻不规则新闻标签">不规则新闻</a> | </span><%if Request.Cookies("FoosunSUBCookie")("FoosunSUBMS")=1 then%><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/Mall_label.asp',500,450,'obj');" style="cursor:hand;"> <a href="#" title="商城列表类标签">商城列表</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/Mall_C_label.asp',450,350,'obj');" style="cursor:hand;"> <a href="#" title="商城常规类标签">商城常规</a> | </span><%end if%><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/down_label.asp',500,450,'obj');" style="cursor:hand;"><a href="#" title="下载列表类标签">下载列表</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/down_C_label.asp',300,250,'obj');" style="cursor:hand;"><a href="#" title="下载常规类标签">下载常规</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/All_label.asp',500,350,'obj');" style="cursor:hand;display:;"><a href="#" title="通用类标签-所有子系统都可使用">通用标签</a> | </span><a href="All_label_style.asp" target="_self" title="样式管理"> 样式管理</a> | <span  id=item$pval[CatID]) style="CURSOR: hand"  onmouseup="opencat(id_templet);" onMouseOver="this.className='bg'" onMouseOut="this.className='bg1'" language=javascript><a href="#" title="更多标签">更多标签</a></span></td>
					</tr>
				</table>
				<table width="100%" border="0" cellspacing="0" cellpadding="0" id="id_templet" style="display:none;">
					<tr>
						<td valign="top"> <%if Request.Cookies("FoosunSUBCookie")("FoosunSUBAP")=1 then%><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/job_label.asp',500,380,'obj');" style="cursor:hand;"><a href="#" title="人才类标签">人才标签</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/job_C_label.asp',300,250,'obj');" style="cursor:hand;display:none"><a href="#" title="人才类标签">人才类标签</a> | </span><%End if%><%if Request.Cookies("FoosunSUBCookie")("FoosunSUBSD")=1 then%><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/supply_C_label.asp',450,450,'obj');" style="cursor:hand;"><a href="#" title="供求类标签">供求标签</a> | </span><%end if%><%if Request.Cookies("FoosunSUBCookie")("FoosunSUBHS")=1 then%><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/house_label.asp',500,400,'obj');" style="cursor:hand;"><a href="#" title="房产类标签">房产标签</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/house_C_label.asp',350,350,'obj');" style="cursor:hand;"><a href="#" title="房产类常规标签">房产常规</a> | </span><%end if%><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/FL_C_label.asp',300,350,'obj');" style="cursor:hand;"><a href="#" title="友情连接类标签">友情连接</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/st_C_label.asp',300,250,'obj');" style="cursor:hand;"><a href="#" title="常规统计类标签">常规统计</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/vote_C_label.asp',380,200,'obj');" style="cursor:hand;"><a href="#" title="投票类标签">投票</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/ads_C_label.asp',300,250,'obj');" style="cursor:hand;"><a href="#" title="广告常规类标签">广告</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/book_C_label.asp',400,420,'obj');" style="cursor:hand;"><a href="#" title="留言类标签">留言</a> | </span> </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/log_C_label.asp',400,400,'obj');" style="cursor:hand;"><a href="#" title="日志类标签">日志</a> | </span><span onClick="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/photo_C_label.asp',320,350,'obj');" style="cursor:hand;"><a href="#" title="相册类标签">相册</a> </span></td>
					</tr>
				</table>
			</td>
		</tr>
		<tr class="hback">
			<td>
				<div align="right">标签内容</div>
			</td>
			<td>
				<!--编辑器开始-->
				<pre id="idTemporary" name="idTemporary" style="display:none"><%=Server.HTMLEncode(tmp_LableContent)%></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="280";
						FS_Edit1.btnFlash=true;
						FS_Edit1.btnMedia=true;        
						FS_Edit1.RENDER($("idTemporary").innerHTML);
					//-->
				</script>
				<textarea name="TxtFileds" style="display:none" ></textarea>
				<!--编辑器结束-->
			</td>
		</tr>
		<tr class="hback">
			<td>&nbsp;</td>
			<td>
				<input type="submit" name="Submit" value="确认保存标签">
				<input name="Action" type="hidden" id="Action" value="<%=tmp_action%>">
				<input name="id" type="hidden" id="Action" value="<%=tmp_id%>">
				<input type="reset" name="Submit2" value="重置">
			</td>
		</tr>
	</form>
</table>
<%
Function get_childList(TypeID,f_CompatStr)  
	Dim f_ChildNewsRs,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
	Set f_ChildNewsRs = Conn.Execute("Select id,ParentID,ClassName from FS_MF_LableClass where ParentID=" & TypeID & " order by id desc" )
	f_TempStr =f_CompatStr & "┄"
	do while Not f_ChildNewsRs.Eof
			get_childList = get_childList & "<option value="""& f_ChildNewsRs("id")&""""
			If CStr(tmp_LableClassID)=CStr(f_ChildNewsRs("id")) then
				get_childList = get_childList & " selected" & Chr(13) & Chr(10)	
			End If
			get_childList = get_childList & ">├" &  f_TempStr & f_ChildNewsRs("ClassName") 
			get_childList = get_childList & "</option>" & Chr(13) & Chr(10)
			get_childList = get_childList &get_childList(f_ChildNewsRs("id"),f_TempStr)
		f_ChildNewsRs.MoveNext
	loop
	f_ChildNewsRs.Close
	Set f_ChildNewsRs = Nothing
End Function
Set Conn=nothing
%>
</html>
<script language="JavaScript" type="text/JavaScript">
function Insertlabel_News(URL,widthe,heighte,obj)
{
  var obj=window.OpenWindowAndSetValue("../../Fs_Inc/convert.htm?"+URL,widthe,heighte,'window',obj)
  if (obj==undefined)return false;
  if (obj!='')InsertEditor(obj);
}
function InsertEditor(InsertValue)
{
	FS_Edit1.insertHTML(InsertValue);
}
function opencat(cat)
{
  if(cat.style.display=="none"){
     cat.style.display="";
  } else {
     cat.style.display="none"; 
  }
}
function CheckForm(FormObj)
{
	FormObj.TxtFileds.value = FS_Edit1.getXHTMLBody();
	return true;
}
</script>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->

						