📄 admin_flightplane.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title><%=EL_Channel.ChannelName%>管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td align="center" class="top_25"><strong><%=EL_Channel.ChannelName%> —— 机型管理</strong></td>
</tr>
<tr>
<td class="td_50">
管理导航：
<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>">机型管理首页</a> |
<a href="<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>&Action=Add">添加机型</a>
</td>
</tr>
</table>
<br>
<%
Select Case Action
Case "": Call ManagePlane()
Case "Add": Call AddPlane()
Case "SaveNewPlane": Call SavePlane(0)
Case "Modify": Call ModifyPlane()
Case "SaveModify": Call SavePlane(1)
Case "Delete": Call SavePlane(2)
Case "CreateJs": Call CreateJs()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()
Sub CreateJs()
On Error Resume Next
Call CreatePlaneJs()
ComeURL = "Admin_FlightPlane.asp?ChannelID="& EL_Channel.ChannelID
EL_Common.ShowSuccessMsg("成功生成机型Js文件")
EL_Common.ShowScriptError()
End Sub
Sub CreatePlaneJs()
On Error Resume Next
Dim PlaneCmd, rsPlane, RowCount, i
Dim JsDir, JsContent
JsDir = InstallDir &"Js/Plane.js"
Call EL_Common.InitCommonCmd(PlaneCmd, rsPlane, "EL_FlightPlane", "PlaneID,PlaneShortName", "ChannelID="& EL_Channel.ChannelID &" ORDER BY PlaneShortName ASC")
rsPlane.Close()
RowCount = PlaneCmd(0)
If RowCount = 0 Then
Set rsPlane = Nothing
Set PlaneCmd = Nothing
Exit Sub
End If
JsContent = "function PlaneObject(id, name){"
JsContent = JsContent &"this.id = id; this.name = name;"
JsContent = JsContent &"}"
JsContent = JsContent & VBCRLF
JsContent = JsContent & "var Plane = new Array();"& VBCRLF
rsPlane.Open()
For i = 1 To RowCount
JsContent = JsContent &"Plane["& (i-1)&"] = new PlaneObject("& rsPlane(0) &", """& EL_Common.ServerHTMLEncode(rsPlane(1)) &""");"& VBCRLF
If i<RowCount Then rsPlane.MoveNext
Next
rsPlane.Close()
Set rsPlane = Nothing
Set PlaneCmd = Nothing
Call EL_Common.CreateFile(JsContent, JsDir, True)
EL_Common.ShowScriptError()
End Sub
Sub SavePlane(UpdateType)
On Error Resume Next
Dim PlaneCmd
Dim PlaneID, PlaneShortName, PlaneFullName, DefaultPictrue, Content
PlaneID = EL_Common.ELRequest("PlaneID", 2)
PlaneShortName = EL_Common.ELRequest("PlaneShortName", 1)
PlaneFullName = EL_Common.ELRequest("PlaneFullName", 1)
DefaultPictrue = EL_Common.ELRequest("DefaultPictrue", 1)
Content = EL_Common.ELRequest("Content", 1)
If PlaneFullName = "" Then PlaneFullName = PlaneShortName
Call EL_Common.InitCommand(PlaneCmd, "EL_SP_FlightPlane")
With PlaneCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
.Parameters.Append .CreateParameter("@PlaneID", 3, 1, 4, PlaneID)
.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
.Parameters.Append .CreateParameter("@PlaneShortName", 200, 1, 20, PlaneShortName)
.Parameters.Append .CreateParameter("@PlaneFullName", 200, 1, 255, PlaneFullName)
.Parameters.Append .CreateParameter("@DefaultPictrue", 200, 1, 255, DefaultPictrue)
.Parameters.Append .CreateParameter("@Content", 203, 1, EL_Common.LenParameter(Content), Content)
.Execute()
End With
Select Case PlaneCmd(0)
Case 40: EL_Common.ShowErrorMsg("频道参数错误") : Set PlaneCmd = Nothing : Exit Sub
Case 41: EL_Common.ShowErrorMsg("指定机型不存在") : Set PlaneCmd = Nothing : Exit Sub
End Select
Set PlaneCmd = Nothing
Call CreatePlaneJs()
EL_Common.ShowScriptError()
If UpdateType = 0 Then
EL_Common.ShowSuccessMsg("成功添加机型：<span class=bluetext>"& PlaneShortName &"</span>")
ElseIf UpdateType = 1 Then
EL_Common.ShowSuccessMsg("成功修改机型：<span class=bluetext>"& PlaneShortName &"</span>")
ElseIf UpdateType = 2 Then
Response.Redirect ComeURL
End If
End Sub
Sub ModifyPlane()
On Error Resume Next
Dim PlaneCmd, rsPlane, PlaneID
PlaneID = EL_Common.ELRequest("PlaneID", 2)
Call EL_Common.InitCommonCmd(PlaneCmd, rsPlane, "EL_FlightPlane", "*", "ChannelID="& EL_Channel.ChannelID &" AND PlaneID="& PlaneID)
rsPlane.Close()
If PlaneCmd(0) <> 1 Then
Set rsPlane = Nothing
Set PlaneCmd = Nothing
EL_Common.ShowErrorMsg("指定机型不存在")
Exit Sub
End If
rsPlane.Open()
%>
<script language="javascript">
function SelectFile(){
var arr=showModalDialog('Admin_SelectFile.asp?DialogType=pic&ChannelID=<%=EL_Channel.ChannelID%>', '', 'dialogWidth:820px; dialogHeight:600px; help: no; scroll: yes; status: no');
if(arr!=null){
var ss=arr.split('|');
var strFileName = ss[0].replace("<%=EL_Channel.FilePath%>", "");
document.all.PictruePreview.src = '<%=EL_Channel.FilePath%>'+strFileName;
document.myform.DefaultPictrue.value = strFileName;
}
}
function AddPicture(strFileName){
var arrName = strFileName.split('.');
var FileExt = arrName[1];
if (FileExt == 'gif' || FileExt == 'jpg' || FileExt == 'jpeg' || FileExt == 'jpe' || FileExt == 'bmp' || FileExt == 'png'){
if(strFileName.indexOf('$$$')>-1){
var arr = strFileName.split('$$$')
document.all.PictruePreview.src = '<%=EL_Channel.FilePath%>'+ arr[0];
document.myform.DefaultPictrue.value = arr[0];
}else{
document.all.PictruePreview.src = '<%=EL_Channel.FilePath%>'+strFileName;
document.myform.DefaultPictrue.value = strFileName;
}
}
}
function Check(frm){
var CurrentMode = Editor.CurrentMode;
if (CurrentMode == 0){
frm.Content.value = Editor.HtmlEdit.document.body.innerHTML;
}else if(CurrentMode==1){
frm.Content.value = Editor.HtmlEdit.document.body.innerText;
}else{
alert('机型介绍处于预览状态不能保存');
Editor.HtmlEdit.focus();
return false;
}
if(frm.PlaneShortName.value.trim()==""){
alert("请输入机型简称");
frm.PlaneShortName.focus();
return false;
}
if(frm.Content.value.trim()==""){
alert("请输入公司简介");
Editor.HtmlEdit.focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
<form name="myform" action="Admin_FlightPlane.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -