admin_field.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

		</tr>
		<tr class="tdbg" id="trOptions" <%if FieldType<>3 Then response.write "style='display:none'"%>>
			<td width="100" align="center"><strong>列表项目：</strong></td>
			<td> <textarea name="Options" cols="40" rows="3" id="Options"><%=Options%></textarea><br><a href="javascript:admin_Size(-3,'Options')"><img src="images/minus.gif" unselectable="on" border="0"></a> <a href="javascript:admin_Size(3,'Options')"><img src="images/plus.gif" unselectable="on" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;<font color="blue">每一行为一个列表项目</Font>
		</tr>
		<tr class="tdbg">
			<td width="100" align="center"><strong>是否必填：</strong></td>
			<td><input name="AllowNull" type="radio" value="0" <%if AllowNull=0 Then Response.write "checked"%>>是&nbsp;&nbsp;&nbsp;&nbsp;<input name="AllowNull" type="radio" value="1"<%if AllowNull=1 Then Response.write "checked"%>>否</td></td>
		</tr>
		<tr class="tdbg">
			<td width="100" align="center"><strong>是否显示：</strong></td>
			<td><input name="IsShow" type="radio" value="1" <%if IsShow=1 Then Response.write "checked"%>>是&nbsp;&nbsp;&nbsp;&nbsp;<input name="IsShow" type="radio" value="0" <%if IsShow=0 Then Response.write "checked"%>>否</td></td>
		</tr>
		<tr class="tdbg">
			<td height="40" align="center" ColSpan="2">
			<input name="FieldID" type="hidden" id="FieldID" value="<%=FieldID%>">
			<input name="Action" type="hidden" id="Action" value="Save<%=Action%>">
			<input name="Submit" type="submit" id="Submit" value="<%=StrSubmit%>">
			</td>
		</tr>
	</table>
	</form>
	<%
End Sub

Sub SaveField()
	FieldID=Trim(Request("FieldID"))
	ModuleID=Cl.GetClng(Request("ModuleID"))
	arrChannelID=Trim(Request("arrChannelID"))
	FieldName=Trim(Request("FieldName"))
	FieldIntro=Trim(Request("FieldIntro"))
	FieldType=Cl.GetClng(Request("FieldType"))
	FieldTitle=Trim(Request("FieldTitle"))
	IsShow=Cl.GetClng(Request("IsShow"))
	AllowNull=Cl.GetClng(Request("AllowNull"))
	FieldLabel=Trim(Request("FieldLabel"))
	DefaultValue=Trim(Request("DefaultValue"))
	Options=Trim(Request("Options"))
	if Action="SaveModify" and Not IsNumeric(FieldID) then
		Call Cl.OutMsg(0,"请指定要修改字段的正确ID。","javascript:history.go(-1)")
	Elseif Action="SaveAdd" Then
		if FieldName="" then Call Cl.OutMsg(0,"字段名不能为空。","javascript:history.go(-1)")
		if FieldLabel="" then Call Cl.OutMsg(0,"字段标签不能为空。","javascript:history.go(-1)")
	end if
	arrChannelID = Replace(arrChannelID," ","")
	if Action="SaveModify" then
		Cl.Execute("Update Cl_Field Set FieldIntro='"&FieldIntro&"',FieldTitle='"&FieldTitle&"',IsShow="&IsShow&",IsNull="&AllowNull&",FieldLabel='"&FieldLabel&"',DefaultValue='"&DefaultValue&"',arrChannelID='"&arrChannelID&"',Options='"&Options&"' where FieldID="&Clng(FieldID)&"")
		Application.Lock
		Application.Contents.Remove(Cl.CacheName & "_fieldlist")
		Application.unLock
		Call Cl.OutMsg(0,"修改字段成功。","Admin_Field.asp")
	else
		'Cl.Execute("Insert Into [Cl_Field] (FieldName,FieldInero,IsShow,FieldLabel) Values ('"&FieldName&"','"&FieldInero&"','"&IsShow&"','"&FieldLabel&"')")
		Set rs=Server.CreateObject("Adodb.RecordSet")
		Sql="Select * From Cl_Field where FieldName='"&FieldName&"'"
		OpenConn : rs.Open sql,Conn,1,3
		if Not (Rs.bof and Rs.eof) then
			Rs.Close:Set Rs=Nothing
			Call Cl.OutMsg(0,"字段名已经存在，请重新换一个字段名。","javascript:history.go(-1)")
		end if
		Rs.Addnew
		Rs("ModuleID")=ModuleID
		Rs("arrChannelID")=arrChannelID
		Rs("FieldName")=FieldName
		Rs("FieldIntro")=FieldIntro
		Rs("FieldTitle")=FieldTitle
		Rs("FieldType")=FieldType
		Rs("IsShow")=IsShow
		Rs("IsNull")=AllowNull
		Rs("FieldLabel")=FieldLabel
		Rs("DefaultValue")=DefaultValue
		Rs("Options")=Options
		Rs.Update
		Rs.Close:Set Rs=Nothing
		Application.Lock
		Application.Contents.Remove(Cl.CacheName & "_fieldlist")
		Application.unLock
		Cl.SaveAdminLog
		Dim TableName
		Select Case ModuleID
		Case 1
			TableName="Cl_Article"
		Case 2
			TableName="Cl_Soft"
		Case 3
			TableName="Cl_Photo"
		Case 4
			TableName="Cl_Movie"
		Case 5
			TableName="Cl_Product"
		End Select
		Dim sFieldType
		Select Case FieldType
		Case 1
			sFieldType="varchar(255)"
		Case 2
			sFieldType="text"
		Case 3
			sFieldType="varchar(255)"
		Case 4
			sFieldType="int"
		Case 5
			If IsSqlDataBase = 1 Then
				sFieldType = "smalldatetime"
			Else
				sFieldType = "date"
			End If
		End Select
		OpenConn
		On Error Resume Next
		If IsSqlDataBase = 1 Then
			Conn.Execute("Alter Table ["& TableName &"] Add "& FieldName &" "& sFieldType &" Null")
			If FieldType=4 then
			Conn.Execute("Alter Table ["& TableName &"] Add ConstraInt [DF_"& TableName &"_"& FieldName &"] DEFAULT (" & DefaultValue & ") FOR ["& FieldName &"]")
			Else
			Conn.Execute("Alter Table ["& TableName &"] Add ConstraInt [DF_"& TableName &"_"& FieldName &"] DEFAULT '" & DefaultValue & "' FOR ["& FieldName &"]")
			End if
		Else
			If FieldType=4 Then
			Conn.Execute("Alter Table ["& TableName &"] Add "& FieldName &" "& sFieldType &" default " & DefaultValue & "")
			Else
			Conn.Execute("Alter Table ["& TableName &"] Add "& FieldName &" "& sFieldType &" default '" & DefaultValue & "'")
			End if
		End If
		Conn.Close : Set Conn=Nothing 
		If Err Then
			Cl.ShowErr("<li>  向 "& TableName &" 表中添加"& FieldName &"字段时错误，原因：" & Err.Description&"")
			Err.Clear
		End If
		Call Cl.OutMsg(0,"添加字段成功。","Admin_Field.asp")
	end if
end Sub

Sub DelField()	
	On Error Resume Next
	FieldID=Trim(Request("FieldID"))
	if Not IsNumeric(FieldID) then
		Call Cl.OutMsg(0,"请正确指定要删除字段的ID。","javascript:history.go(-1)")
	end If
	OpenConn
	Set Rs=	Conn.Execute("Select ModuleID,FieldName from Cl_Field where FieldID="&Clng(FieldID)&"")
	Dim TableName
	Select Case Rs("ModuleID")
	Case 1
		TableName="Cl_Article"
	Case 2
		TableName="Cl_Soft"
	Case 3
		TableName="Cl_Photo"
	Case 4
		TableName="Cl_Movie"
	Case 5
		TableName="Cl_Product"
	End Select
	If IsSqlDataBase = 1 Then
	Conn.Execute("Alter Table ["&TableName&"] Drop ConstraInt [DF_"&TableName&"_"&Rs("FieldName")&"]")
	Conn.Execute("Alter Table ["&TableName&"] Drop Column "&Rs("FieldName")&"")
	Else
	'Conn.Execute("Alter Table ["&TableName&"] Drop ConstraInt ["&Rs("FieldName")&"]")
	Conn.Execute("Alter Table ["&TableName&"] Drop Column "&Rs("FieldName")&"")
	End if
	rs.close : Set rs=nothing
	Conn.Execute("Delete from Cl_Field where FieldID="&Clng(FieldID)&"")
	Conn.close : Set Conn = Nothing
	Application.Lock
	Application.Contents.Remove(Cl.CacheName & "_fieldlist")
	Application.unLock
	Cl.SaveAdminLog
	Call Cl.OutMsg(0,"删除字段成功。","Admin_Field.asp")
End Sub

'==================================================
'过程名：ShowChannelList
'作  用：显示频道选项
'参  数：ChannelID ------频道ID
'	 sModuleID ------频道类型
'==================================================
Function ShowChannelList(sChannelID,sModuleID)
	Dim strList,rsList,Sql
	Sql="select ChannelID,ChannelName from Cl_Channel where ChannelType<=1"
	If sModuleID<>0 Then Sql= Sql&" and ModuleID=" & sModuleID 
	set rsList=Cl.Execute(Sql)
	do while not rsList.eof
		strList=strList & "<option value='" & rsList(0) & "'"
		'if sChannelID=rsList(0) then
		'if Instr(","&rsList(0)&",",","&sChannelID&",")>0 Then
		if Instr(","&sChannelID&",",","&rsList(0)&",")>0 Then
		strList=strList & " selected"
		End if
		strList=strList & " >"& rsList(1) & "</option>"
		rsList.movenext
	loop
	set rsList=Nothing
	ShowChannelList=strList
End Function

'=================================================
'函数名：SetModule
'作用：动态更新菜单
'by GDWneo
'=================================================
Sub SetModule()
Dim i_Module,i_Channel,i
OpenConn
   i_Channel=0
%>
<script language = "JavaScript">
var count_Channel;
arr_Channel= new Array();
<%
For i_Module=1 to 5
	Set Rs=server.createobject("adodb.recordset")
	Sql = "select ChannelID,ChannelName from Cl_Channel where ModuleID=" & i_Module & " order by ChannelID"
	Rs.Open Sql,Conn,1,1
	If Not Rs.Eof then
	   Do While Not Rs.Eof
%>
arr_Channel[<%=i_Channel%>] = new Array("<%=i_Module%>","<%=Rs("ChannelID")%>","<%=Rs("ChannelName")%>");
<% 
		i_Channel=i_Channel + 1
		Rs.MoveNext
	   Loop
	End if
	Rs.Close
	Set Rs=Nothing  
   Next
%>
count_Channel=<%=i_Channel%>;

function changelocation(locationid)
	{
	document.myform.arrChannelID.length = 0;
	var locationid=locationid;
	var i;
	for (i=0;i < count_Channel; i++)
		{
			if (arr_Channel[i][0] == locationid)
			{ 
				document.myform.arrChannelID.options[document.myform.arrChannelID.length] = new Option(arr_Channel[i][2], arr_Channel[i][1]);
			}        
		}
	}    
</script>
<%
End sub
%>