admin_field.asp

正版创力4.1SQL商业版!!!ASP版。

			<td><select name="FieldType" onchange="javascript:FieldCheckForm(this.options[this.selectedIndex].value)" <%=IsDisabled%>>
				<option value="1" <%if FieldType=1 Then response.write "selected"%>>单行文本</option>
				<option value="2" <%if FieldType=2 Then response.write "selected"%>>多行文本</option>
				<option value="3" <%if FieldType=3 Then response.write "selected"%>>下拉列表</option>
				<option value="4" <%if FieldType=4 Then response.write "selected"%>>数字</option>
				<option value="6" <%if FieldType=5 Then response.write "selected"%>>日期</option></select></td>
		</tr>
		<tr class="tdbg">
			<td width="100" align="center"><strong>字段默认值：</strong></td>
			<td> <TEXTAREA Name="DefaultValue" 
				<%if FieldType=2 Then
					response.write "rows=""10"""
				Else
					response.write "rows=""1"""
				End If%> cols="50" ONKEYPRESS="javascript:CheckTextareaLength('DefaultValue',30);"><%=DefaultValue%></TEXTAREA></td>
		</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)&"")
		Set Application(Cl.CacheName & "_fieldlist") = Nothing
		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
		Set Application(Cl.CacheName & "_fieldlist") = Nothing
		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
		Cl.Execute("ALTER TABLE "& TableName &" ADD COLUMN "& FieldName &" "& sFieldType &";")
		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
	Set Rs=	Cl.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
	Cl.Execute("ALTER TABLE "&TableName&" DROP COLUMN "&Rs("FieldName")&"")
	rs.close
	Set rs=nothing
	Cl.Execute("Delete from Cl_Field where FieldID="&Clng(FieldID)&"")
	Set Application(Cl.CacheName & "_fieldlist") = Nothing
	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
%>