📄 admin_templateproject.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Template" '其他权限
strFileName = "Admin_TemplateProject.asp?Action=" & Action
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>网站模板方案管理</title>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""Admin_Style.css"">" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf
If Action <> "TemplateProject" Then
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">" & vbCrLf
Call ShowPageTitle("网站模板方案管理", 10005)
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td width=""70"" height=""30""><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td height=""30""><a href=Admin_TemplateProject.asp?Action=Main>管理首页</a> | <a href=""Admin_TemplateProject.asp?Action=AddProject"">添加新模板方案项目</a> | <a href=""Admin_TemplateProject.asp?Action=Import"">导入模板方案</a> | <a href=""Admin_TemplateProject.asp?Action=Export"">导出模板方案</a> | <a href=""Admin_TemplateProject.asp?Action=TemplateBatchMove"">方案间模板迁移 </a> | <a href=""Admin_TemplateProject.asp?Action=SkinBatchMove"">方案间风格迁移</a> | </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>"
End If
Select Case Action
Case "AddProject", "ModifyProject"
Call AddProject
Case "SaveAdd", "SaveModify"
Call SaveProject
Case "Del"
Call DelTemplateProject
Case "Del2"
Call DelTemplateProject2
Case "Set"
Call SetDefault
Case "Import" '项目导入第一步
Call Import
Case "Import2" '项目导入第二步
Call Import2
Case "DoImport" '导入项目处理
Call DoImport
Case "Export" '导出方案
Call Export
Case "DoExport" '导出方案处理
Call DoExport
Case "TemplateBatchMove" '模板批量迁移
Call TemplateBatchMove
Case "DoTemplateBatchMove" '模板批量迁移处理
Call DoTemplateBatchMove
Case "SkinBatchMove" '风格批量迁移
Call SkinBatchMove
Case "DoSkinBatchMove" '风格批量迁移处理
Call DoSkinBatchMove
Case "TemplateProject"
Call TemplateProject
Case Else
Call main
End Select
Response.Write "</body></html>"
Call CloseConn
'=================================================
'过程名：main
'作 用：管理项目
'=================================================
Sub main()
Dim rs, sql, sysIsDefault
Response.Write "<br>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
Response.Write " <form name='myform' method='Post' action='Admin_TemplateProject.asp' onsubmit='return ConfirmDel();'>"
Response.Write " <td><table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
Response.Write " <tr class='title'>"
Response.Write " <td width='50' align='center'><strong>选中</strong></td>"
Response.Write " <td align='center' width='80'><strong>方案名称</strong></td>"
Response.Write " <td align='center' width='200'><strong>方案简介</strong></td>"
Response.Write " <td width='60' align='center'><strong>是否默认</strong></td>"
Response.Write " <td width='240' height='22' align='center'><strong> 方案管理</strong></td>"
Response.Write " <td width='200' height='22' align='center'><strong> 方案操作</strong></td>"
Response.Write " </tr>"
sql = "select * from PE_TemplateProject"
Set rs = Conn.Execute(sql)
If rs.BOF And rs.EOF Then
Response.Write "<tr class='tdbg'><td colspan='20' align='center' height='50'><br>还没有模板方案！<br><br></td></tr>"
Else
Do While Not rs.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='50' align='center' height=""30"">" & rs("TemplateProjectID") & "</td>"
Response.Write " <td align='center' width='80'>" & rs("TemplateProjectName") & "</td>"
Response.Write " <td align='center' width='200'>" & rs("Intro") & "</td>"
Response.Write " <td width='60' align='center'>"
If rs("IsDefault") = True Then
Response.Write "<b>√</b>"
End If
Response.Write "</td>"
Response.Write " <td align='center' width='240'>"
Response.Write " <a href='Admin_Template.asp?Action=Main&TemplateProjectID=" & rs("TemplateProjectID") & "&ProjectName=" & Server.UrlEncode(rs("TemplateProjectName")) & "' >管理该方案下的模板</a>" & vbCrLf
Response.Write " <a href='Admin_Skin.asp?Action=main&TemplateProjectID=" & rs("TemplateProjectID") & "&ProjectName=" & Server.UrlEncode(rs("TemplateProjectName")) & "' >管理该方案下的风格</a>" & vbCrLf
Response.Write "</td>"
Response.Write " <td width='200' align='center'><a href='Admin_TemplateProject.asp?Action=ModifyProject&TemplateProjectID=" & rs("TemplateProjectID") & "'>修改方案</a> "
If rs("IsDefault") = False Then
Response.Write "<a href='Admin_TemplateProject.asp?Action=Del&TemplateProjectID=" & rs("TemplateProjectID") & "&ProjectName=" & Server.UrlEncode(rs("TemplateProjectName")) & "' onClick=""return confirm('确定要删除此方案吗？删除此方案后方案隶属的模板,风格 都将会被删除,请严格注意!');"">删除方案</a> "
Response.Write "<a href='Admin_TemplateProject.asp?Action=Set&TemplateProjectID=" & rs("TemplateProjectID") & "&ProjectName=" & Server.UrlEncode(rs("TemplateProjectName")) & "' onClick=""return confirm('您确定该方案的模板和风格都有默认数据了么,如果没有请先添加或方案迁移!');"">设为默认</a>"
Else
Response.Write "<font color='gray'>删除方案 设为默认</font>"
End If
Response.Write " </td>"
Response.Write " </tr>"
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "</table>"
Response.Write "</form></tr></table>"
End Sub
'=================================================
'过程名：AddProject
'作 用：添加项目
'=================================================
Sub AddProject()
'变量声明区域 请填写
Dim rsItem, sql, TemplateProjectID
Dim SaveType, SaveName
Dim TemplateProjectName, Intro, IsDefault
Dim iTemplateType, i, Num
Dim SkinID
'变量获取区 请填写
TemplateProjectID = PE_CLng(Request("TemplateProjectID"))
FoundErr = False
SaveType = "SaveAdd"
SaveName = " 添 加 "
'是否是修改
If TemplateProjectID > 0 Then
SaveType = "SaveModify"
SaveName = " 修 改 "
'取出数据
sql = "select TemplateProjectID,TemplateProjectName,Intro,IsDefault from PE_TemplateProject where TemplateProjectID=" & TemplateProjectID
Set rsItem = Server.CreateObject("adodb.recordset")
rsItem.Open sql, Conn, 1, 1
If rsItem.EOF Then '没有找到该项目
FoundErr = True
ErrMsg = ErrMsg & "<li>错误参数！没有找到该方案！</li>"
Else
TemplateProjectID = rsItem("TemplateProjectID")
TemplateProjectName = rsItem("TemplateProjectName")
Intro = rsItem("Intro")
IsDefault = rsItem("IsDefault")
End If
rsItem.Close
Set rsItem = Nothing
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
Exit Sub
End If
Response.Write "<script language = ""JavaScript"">" & vbCrLf
Response.Write " function CheckForm(){" & vbCrLf
Response.Write " if (document.myform.TemplateProjectName.value==""""){" & vbCrLf
Response.Write " alert(""方案名称不能为空！"");" & vbCrLf
Response.Write " document.myform.TemplateProjectName.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (document.myform.Intro.value==""""){" & vbCrLf
Response.Write " alert(""方案简介不能为空！"");" & vbCrLf
Response.Write " document.myform.Intro.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " return true;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<FORM name=myform action='Admin_TemplateProject.asp' method=post>" & vbCrLf
Response.Write " <table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
Response.Write " <tr align='center' class='title'>"
Response.Write " <td height='22' colspan='2'><strong> " & SaveName & " 方 案</strong></td>"
Response.Write " </tr>"
Response.Write " <tr align='center'>" & vbCrLf
Response.Write " <td class='tdbg' valign='top'>"
Response.Write " <table width='98%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
Response.Write " <tr class='tdbg'> " & vbCrLf '文本
Response.Write " <td width='150' class='tdbg5' align='right' ><strong> 方案名称： </strong></td>" & vbCrLf
Response.Write " <td class='tdbg'>" & vbCrLf
Response.Write " <input name='TemplateProjectName' type='text' id='TemplateProjectName' size='30' maxlength='30' value='" & TemplateProjectName & "'>" & vbCrLf
Response.Write " <font color=red> * </font>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'> " & vbCrLf '文本框
Response.Write " <td width='150' class='tdbg5' align='right'><strong> 方案简介： </strong></td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <textarea name='Intro' style='width:450px;height:100px' id='Intro'>" & PE_ConvertBR(Intro) & "</textarea>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write "<br>" & vbCrLf
Response.Write "<center>" & vbCrLf
Response.Write " <Input id='TemplateProjectID' type='hidden' value=" & TemplateProjectID & " name='TemplateProjectID'>" & vbCrLf
Response.Write " <Input id='Action' type='hidden' value='" & SaveType & "' name='Action'>" & vbCrLf
Response.Write " <Input type='submit' value=' 确 定 ' name='Submit' onClick=""return CheckForm();""> " & vbCrLf
Response.Write " <Input type='Reset' name='Reset' value=' 清 除 '>" & vbCrLf
Response.Write "</center>" & vbCrLf
Response.Write "</FORM>" & vbCrLf
End Sub
'=================================================
'过程名：Save
'作 用：保存项目
'=================================================
Sub SaveProject()
'变量声明区
Dim TemplateProjectName, Intro, SaveName, TemplateProjectID
Dim rsItem, rsModify, mrs, sql
'变量获取区
TemplateProjectID = PE_CLng(Request("TemplateProjectID"))
TemplateProjectName = Replace(ReplaceBadChar(ReplaceText(Trim(Request("TemplateProjectName")), 2)), "nbsp", "")
Intro = Trim(Request("Intro"))
'变量检测区
If TemplateProjectName = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>方案标题不能为空！</li>"
End If
If Len(TemplateProjectName) > 250 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>方案标题过长（应小于250）！</li>"
End If
If Intro = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>方案简介不能为空！</li>"
End If
sql = "Select TemplateProjectName From PE_TemplateProject Where TemplateProjectName='" & TemplateProjectName & "'"
Set rsItem = Server.CreateObject("Adodb.Recordset")
rsItem.Open sql, Conn, 1, 1
If rsItem.EOF And rsItem.BOF Then
Else
If Action = "SaveModify" Then
sql = "select * from PE_TemplateProject where TemplateProjectID=" & TemplateProjectID
Set rsModify = Server.CreateObject("Adodb.Recordset")
rsModify.Open sql, Conn, 1, 3
If rsModify.BOF And rsModify.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的方案！</li>"
Else
If TemplateProjectName <> rsModify("TemplateProjectName") Then
FoundErr = True
End If
End If
rsModify.Close
Set rsModify = Nothing
Else
FoundErr = True
End If
ErrMsg = ErrMsg & "<li>方案管理中已经有相应的方案名称,请返回重新输入名称！</li>"
End If
rsItem.Close
Set rsItem = Nothing
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -