addfreeone.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="FieldsArr.asp" -->
<%
Dim Conn,strShowErr
MF_Default_Conn
MF_Session_TF 
If Not MF_Check_Pop_TF("MF_sPublic") Then Err_Show

'===========================
'判断系统是否有商城子系统
'===========================
Dim HaveMallTF,GetConfigRs
Set GetConfigRs = Conn.ExeCute("Select Sub_Sys_ID From FS_MF_Sub_Sys Where Sub_Sys_ID = 'MS'")
IF GetConfigRs.Eof Then
	HaveMallTF = False
Else
	HaveMallTF = True
End If
GetConfigRs.Close : Set GetConfigRs = Nothing		



Dim ActionStr
Dim LeftFieldLIstStr,RightFieldListStr,NTable,CTable
Dim LabelName,SysTypeStr,SelectNum,DisSQlStr,NNameStr,CNameStr
Dim LeftOrderStr,LeftRulerStr,RightOrderStr,RightRulerStr,Button_VName
Dim Select_Table_Fields_left,Select_Table_Fields_Right,Free_Label_ID
Dim To_Two_Act,Label_Des_Str
Dim CheckRs,Lable_ContentStr
ActionStr = Trim(Request.QueryString("Act"))
'=========================
'新建和编辑
'=========================
If ActionStr = "Add" Then
	Button_VName = "设置"
	LeftFieldLIstStr = GetFieldsList(NSConArr,"ConStr",NSAllFCNArr,NSAllFENArr,"FirstList","NS")
	RightFieldListStr = GetFieldsList(NS_CConArr,"ConStr",NS_CAllFCNArr,NS_CAllENArr,"SecList","NC")
	NTable = "FS_NS_News"
	CTable = "FS_NS_NewsClass"
	LabelName = ""    
	SysTypeStr = "NS"
	SelectNum = "10"
	DisSQlStr = ""
	NNameStr = "新闻表"
	CNameStr = "新闻栏目表"
	LeftOrderStr = GetFieldsList(NSOrderArr,"SetOrder",NSAllFCNArr,NSAllFENArr,"LeftOrder","NS")
	LeftRulerStr = GetFieldsList(NSAllFCNArr,"SetV",NSAllFCNArr,NSAllFENArr,"LeftRuler","NS")
	RightOrderStr = GetFieldsList(NS_COrderArr,"SetOrder",NS_CAllFCNArr,NS_CAllENArr,"RightOrder","NC")
	RightRulerStr = GetFieldsList(NS_CAllFCNArr,"SetV",NS_CAllFCNArr,NS_CAllENArr,"RightRuler","NC")
	Select_Table_Fields_left = ""
	Select_Table_Fields_Right = ""
	Free_Label_ID = ""
	To_Two_Act = "Add"
	Label_Des_Str = ""
	Lable_ContentStr = ""
Else
	Free_Label_ID = Request.QueryString("LableID")
	Set CheckRs = Conn.ExeCute("Select LabelID,LabelName,LabelSQl,NSFields,NCFields,LabelContent,selectNum,DesCon,SysType From FS_MF_FreeLabel Where LabelID = '" & Free_Label_ID & "'")
	SysTypeStr = CheckRs(8)
	Button_VName = "修改"
	LabelName = Replace(CheckRs(1),"FS400_","")    
	SelectNum = CheckRs(6)  
	DisSQlStr = Replace(CheckRs(2),"*",",")  
	Select_Table_Fields_left = CheckRs(3)   
	Select_Table_Fields_Right = CheckRs(4)  
	To_Two_Act = "Edit"
	Label_Des_Str = CheckRs(7)
	Lable_ContentStr = CheckRs(5)
	If SysTypeStr = "NS" Then
		NTable = "FS_NS_News"
		CTable = "FS_NS_NewsClass"
		NNameStr = "新闻表"
		CNameStr = "新闻栏目表"
		LeftFieldLIstStr = GetFieldsList(NSConArr,"ConStr",NSAllFCNArr,NSAllFENArr,"FirstList","NS")
		RightFieldListStr = GetFieldsList(NS_CConArr,"ConStr",NS_CAllFCNArr,NS_CAllENArr,"SecList","NC")
		LeftOrderStr = GetFieldsList(NSOrderArr,"SetOrder",NSAllFCNArr,NSAllFENArr,"LeftOrder","NS")
		LeftRulerStr = GetFieldsList(NSAllFCNArr,"SetV",NSAllFCNArr,NSAllFENArr,"LeftRuler","NS")
		RightOrderStr = GetFieldsList(NS_COrderArr,"SetOrder",NS_CAllFCNArr,NS_CAllENArr,"RightOrder","NC")
		RightRulerStr = GetFieldsList(NS_CAllFCNArr,"SetV",NS_CAllFCNArr,NS_CAllENArr,"RightRuler","NC")
	ElseIF SysTypeStr = "DS" Then
		NTable = "FS_DS_List"
		CTable = "FS_DS_Class"
		NNameStr = "下载表"
		CNameStr = "下载栏目表"
		LeftFieldLIstStr = GetFieldsList(DSConArr,"ConStr",DSAllFCNArr,DSAllFENArr,"FirstList","DS")
		RightFieldListStr = GetFieldsList(DCConArr,"ConStr",DCAllFCNArr,DCAllFENArr,"SecList","DC")
		LeftOrderStr = GetFieldsList(DSOrderArr,"SetOrder",DSAllFCNArr,DSAllFENArr,"LeftOrder","DS")
		LeftRulerStr = GetFieldsList(DSAllFCNArr,"SetV",DSAllFCNArr,DSAllFENArr,"LeftRuler","DS")
		RightOrderStr = GetFieldsList(DCOrderArr,"SetOrder",DCAllFCNArr,DCAllFENArr,"RightOrder","DC")
		RightRulerStr = GetFieldsList(DCAllFCNArr,"SetV",DCAllFCNArr,DCAllFENArr,"RightRuler","DC")
	ElseIf SysTypeStr = "MS" Then
		NTable = "FS_MS_Products"
		CTable = "FS_MS_ProductsClass"
		NNameStr = "商品表"
		CNameStr = "商品栏目表"
		LeftFieldLIstStr = GetFieldsList(MSConArr,"ConStr",MSAllFCNArr,MSAllFENArr,"FirstList","MS")
		RightFieldListStr = GetFieldsList(MCConArr,"ConStr",MCAllFCNArr,MCAllFENArr,"SecList","MC")
		LeftOrderStr = GetFieldsList(MSOrderArr,"SetOrder",MSAllFCNArr,MSAllFENArr,"LeftOrder","MS")
		LeftRulerStr = GetFieldsList(MSAllFCNArr,"SetV",MSAllFCNArr,MSAllFENArr,"LeftRuler","MS")
		RightOrderStr = GetFieldsList(MCOrderArr,"SetOrder",MCAllFCNArr,MCAllFENArr,"RightOrder","MC")
		RightRulerStr = GetFieldsList(MCAllFCNArr,"SetV",MCAllFCNArr,MCAllFENArr,"RightRuler","MC")
	End If
	CheckRs.Close : Set CheckRs = Nothing		
End If
'==================================================
'取得字段列表
'==================================================
Function GetFieldsList(MainArr,Str_Type,AllFieldsArr,AllFieldsENArr,NameID,FS_SysType)
	Dim IsMu,SelectStyle,IsJavaStr,AutoOP
	Dim i,ArrNum,FieldsValue,NameIDStr
	If Not IsArray(MainArr) Then Exit Function
	If Str_Type = "ConStr" Then
		IsMu = " multiple"
		SelectStyle = " style=""width:100%; height:150px; margin:0px; padding:0px;"""
		IsJavaStr = " onChange=""AddFieldsToSQL();"""
		AutoOP = ""
	Else
		IsMu = ""
		SelectStyle = " style=""margin:0px; padding:0px;"""
		If Str_Type = "SetV" Then
			IsJavaStr = " onChange=""DisFields_Type(this.options[this.selectedIndex].value,'" & FS_SysType & "');"""
			AutoOP = "<option value="""">条件字段</option>" & Chr(13)
		Else
			IsJavaStr = ""
			AutoOP = "<option value="""">排序字段</option>" & Chr(13)
		End If		
	End If
	NameIDStr = NameID
	GetFieldsList = "<select name=""" & NameIDStr & """ id=""" & NameIDStr & """" & IsMu & SelectStyle & IsJavaStr & ">" & Chr(13)
	GetFieldsList = GetFieldsList & AutoOP
	For i = LBound(MainArr) To UBound(MainArr)
		ArrNum = GetInnerFieldsNum(MainArr(i),AllFieldsArr)
		FieldsValue = AllFieldsENArr(ArrNum)
		GetFieldsList = GetFieldsList & "<option value=""" & FieldsValue & """>" & MainArr(i) & "</option>" & Chr(13)
	Next
	GetFieldsList = GetFieldsList & "</select>" & Chr(13)
End Function	
%>
<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" src="../../FS_Inc/Prototype.js" type="text/JavaScript"></script>
<body oncontextmenu="return false;">
<table width="98%" height="50" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  <tr class="hback" >
    <td width="100%" height="25"  align="Left" class="xingmu" valign="middle">创建自由标签</td>
  </tr>
  <tr class="hback" >
    <td height="25" align="center" class="hback" valign="middle"><div style="line-height:25px; text-align:left;"><span onClick="SubmitFun()" style="cursor:hand;">下一步</span>┆<span onClick="javascript:history.back();" style="cursor:hand;">返回</span></div></td>
  </tr>
</table>
<form name="List_Form" id="List_Form" action="AddFreeTwo.asp" method="post" style="margin:0px;">
  <table width="98%" height="30" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
    <tr class="hback" >
       <td width="30%" height="25" align="left" valign="middle" class="hback">
	   标签名称：	   
  	   <input name="LabelName" id="LabelName" type="text" value="<% = LabelName %>" style="width:160px;">
	   </td>
      <td width="40%" align="center" valign="middle" class="hback"> 选择子系统： 新闻
        <input name="SysType" type="radio" value="NS" <% If SysTypeStr = "NS" Then Response.Write "checked" %> onClick="SetTableName('NS')" />
        下载
        <input name="SysType" type="radio" value="DS" <% If SysTypeStr = "DS" Then Response.Write "checked" %> onClick="SetTableName('DS')" />
        <% If HaveMallTF Then %>
		商城
        <input name="SysType" type="radio" value="MS" <% If SysTypeStr = "MS" Then Response.Write "checked" %> onClick="SetTableName('MS')" />
		<% End If %>
        <input name="NTable" id="NTable" type="hidden" value="<% = NTable %>" />
        <input name="CTable" id="CTable" type="hidden" value="<% = CTable %>" />
		<input name="LabelID" id="LabelID" type="hidden" value="<% = Free_Label_ID %>" />
		<input name="To_Act" id="To_Act" type="hidden" value="<% = To_Two_Act %>" />
		<input name="Label_Des" id="Label_Des" type="hidden" value="<% = Label_Des_Str %>" />
		<textarea name="Lable_ConStr" id="Lable_ConStr" style="display:none;" readonly="readonly"><% = Lable_ContentStr %></textarea>
	  </td>
	  <td width="30%" align="center" valign="middle" class="hback">
	  查询数量：	  
	    <input name="SelectNum" id="SelectNum" type="text" value="<% = SelectNum %>" style="width:60px;" onKeyUp=if(isNaN(value)||event.keyCode==32)execCommand('undo');  onafterpaste=if(isNaN(value)||event.keyCode==32)execCommand('undo');>
        <input name="buttonNum" id="buttonNum" type="button" value="<% = Button_VName %>" onClick="SetNumToSql();">
	  </td>
    </tr>
    <tr class="hback" >
      <td height="85" colspan="3" align="left" valign="middle" class="hback" style="WORD-BREAK: break-all; TABLE-LAYOUT: fixed;"> 
	  	<input type="button" value="SQL语句预览：" disabled="disabled">
        <input type="button" value="检测SQL语句" onClick="CheckSql()">
		<!--input type="button" value="刷新" onClick="javascript:location.reload();"-->
		<span id="CheckSql_Txt" class="tx" style="text-align:center;"></span>
		<textarea name="DisSql" id="DisSql" style="width:100%; height:60px;" readonly="readonly"><% = DisSQlStr %></textarea>      </td>
    </tr>
  </table>
  <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
    <tr class="hback" >
      <td height="25" colspan="2" align="left" valign="middle" class="hback">
	  <span id="FirstTableName"><% = NNameStr %></span>
	  <input name="Fist_TF_All" id="Fist_TF_All" type="hidden" value="<% = Select_Table_Fields_left %>" />
	  </td>
      <td colspan="2" align="left" valign="middle" class="hback">
	  <span id="SecTableName"><% = CNameStr %></span>
	  <input name="Sec_TF_All" id="Sec_TF_All" type="hidden" value="<% = Select_Table_Fields_Right %>" />
	  </td>
    </tr>
    <tr class="hback" >
      <td colspan="2" align="center" valign="middle" class="hback" id="FistFieldsListTable">
	  <img src="../images/load.gif" width="39" height="39" border="0" align="absmiddle">正在加载...请稍微候...	  
	  </td>
      <td colspan="2" align="center" valign="middle" class="hback" id="SecFieldsListTable">
	  <img src="../images/load.gif" width="39" height="39" border="0" align="absmiddle">正在加载...请稍微候...  
	  </td>
    </tr>
    <tr class="hback" >
      <td colspan="2" align="left" valign="middle" class="hback">
	  设置排序：
		<span id="LeftOrderListSpan">
		 <img src="../images/load.gif" width="19" height="19" border="0" align="absmiddle">正在加载...请稍微候...
		</span>
		<select name="LeftOrderRuler" id="LeftOrderRuler" style="margin:0px; padding:0px;">
			<option value="">设置排序</option>
			<option value="Asc">升序</option>
			<option value="Desc">降序</option>
		</select>
		<input type="button" name="OrderbuttonLeft" value="<% = Button_VName %>" onClick="SetOrderToSQl('left')">
	  </td>
      <td colspan="2" align="left" valign="middle" class="hback">
	  	设置排序：
		<span id="RightOrderListSpan">
		<img src="../images/load.gif" width="19" height="19" border="0" align="absmiddle">正在加载...请稍微候...
		</span>
		<select name="RightOrderRuler" id="RightOrderRuler" style="margin:0px; padding:0px;">
			<option value="">设置排序</option>
			<option value="Asc">升序</option>
			<option value="Desc">降序</option>
		</select>
		<input type="button" name="OrderbuttonRight" value="<% = Button_VName %>" onClick="SetOrderToSQl('right')">  
	 </td>
    </tr>
    <tr class="hback" >
      <td width="9%" align="left" valign="middle" class="hback">
	  	查询条件：	  
	  </td>
      <td width="41%" align="left" valign="middle" class="hback">
	  	<span id="LeftRulerSetSpan">
		<img src="../images/load.gif" width="19" height="19" border="0" align="absmiddle">正在加载...请稍微候...
		</span>
		<span class="tx" id="LeftDisFidldsType_Txt" style="margin-left:30px;"></span>
		<br />
		<select name="LeftRulers" id="LeftRulers" style="margin:0px; padding:0px;">
			<option value="">数据关系</option>
			<option value="<>">&lt;&gt;</option>
			<option value="<=">&lt;=</option>
			<option value=">=">&gt;=</option>
			<option value="<">&lt;</option>
			<option value=">">&gt;</option>
			<option value="=">=</option>
			<option value="In">In</option>
			<option value="Like">Like</option>
		</select>
		<input name="LeftRulerTxt" id="LeftRulerTxt" type="text" value="" style="width:100px;">
		<input name="RulerbuttonLeft" id="RulerbuttonLeft" type="button" value="<% = Button_VName %>" onClick="AddWhereToSQL('left')">
	  </td>
      <td width="9%" align="left" valign="middle" class="hback">
	  	查询条件：	  
	  </td>
      <td width="41%" align="left" valign="middle" class="hback">
	  	<span id="RightRulerSetSpan"> 
		<img src="../images/load.gif" width="19" height="19" border="0" align="absmiddle">正在加载...请稍微候...
		</span>
		<span class="tx" id="RightDisFidldsType_Txt" style="margin-left:30px;"></span>
		<br />
		<select name="RightRulers" id="RightRulers" style="margin:0px; padding:0px;">
			<option value="">数据关系</option>
			<option value="<>">&lt;&gt;</option>
			<option value="<=">&lt;=</option>
			<option value=">=">&gt;=</option>
			<option value="<">&lt;</option>
			<option value=">">&gt;</option>
			<option value="=">=</option>
			<option value="In">In</option>
			<option value="Like">Like</option>
		</select>
		<input name="RightRulerTxt" id="RightRulerTxt" type="text" value="" style="width:100px;">
		<input name="RulerbuttonRight" id="RulerbuttonRight" type="button" value="<% = Button_VName %>" onClick="AddWhereToSQL('right')">
	  </td>
    </tr>
  </table>
</form>
<table width="98%" height="20" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  <tr class="hback" >
    <td width="33%" height="20"  align="center" valign="middle"><span id="N_C_Type_Txt" style="cursor:hand;" onClick="Dis_Data_Table(Fs_NewsTable)">新闻栏目对照表</span></td>
    <td width="33%"  align="center" valign="middle"><span id="D_C_Type_Txt" style="cursor:hand;" onClick="Dis_Data_Table(Fs_DownTable)">下载栏目对照表</span></td>
    <% If HaveMallTF Then %>
	<td width="33%"  align="center" valign="middle"><span id="M_C_Type_Txt" style="cursor:hand;" onClick="Dis_Data_Table(Fs_MallTable)">商城栏目对照表</span></td>
	<% End If %>
  </tr>
</table>
<table width="98%" height="20" border="0" align="center" cellpadding="4" cellspacing="1" class="table" id="Fs_NewsTable" style="display:none;">
  <tr class="hback" >
    <td width="25%" height="20" colspan="4"  align="left" valign="middle">新闻栏目对照表</td>
  </tr>
  <tr class="hback" >
    <td width="25%" height="20"  align="center" valign="middle">栏目中文名</td>
    <td width="25%"  align="center" valign="middle">栏目编号</td>
    <td width="25%"  align="center" valign="middle">栏目中文名</td>
    <td width="25%"  align="center" valign="middle">栏目编号</td>
  </tr>
<%
Dim News_Rs,News_I,N_C_num,JO_Num
Set News_Rs = Server.CreateObject(G_FS_RS)
News_Rs.open "Select ClassName,ClassID From Fs_Ns_NewsClass Where ID > 0 Order By ID Desc",Conn,1,1
If News_Rs.Eof Then
	With Response
		.Write "<tr class=""hback"" >" & vbnewline
		.Write "<td  height=""25"" colspan=""4""  align=""center"" valign=""middle"">暂无数据</td>" & vbnewline
		.Write "</tr> " & vbnewline
	End With
Else
	N_C_num = 0
	Do While Not News_Rs.Eof
		N_C_num = N_C_num + 1
		Response.Write "<tr class=""hback"">" & vbnewline
		For News_I = 1 To 2
			If News_Rs.Eof Then Exit For 	
			With Response
				.Write "<td width=""25%"" height=""25"" align=""center"" valign=""middle"">" & News_Rs(0) & "</td>" & vbnewline
				.Write "<td width=""25%"" height=""25"" align=""center"" valign=""middle"">" & News_Rs(1) & "</td>" & vbnewline
			End With
			News_Rs.MoveNext
		Next
		If News_Rs.RecordCount = 1 Then
			Response.Write "<td width=""25%"" height=""25"" align=""center"" valign=""middle""></td>" & vbnewline
			Response.Write "<td width=""25%"" height=""25"" align=""center"" valign=""middle""></td>" & vbnewline
		Else
			If Cint(News_Rs.RecordCount + 1) Mod 4 = 0 Then
				JO_Num = Cint(News_Rs.RecordCount/2)
			Else