📄 template_mdy.asp
字号:
<%
Option Explicit
'----------------------------------------------------------------------------------
'本页:
' 资源模板编辑页面
'说明:
'
'----------------------------------------------------------------------------------
%>
<!--#include file="inc/Config.class.asp"-->
<!--#include file="inc/DBControl.class.asp"-->
<!--#include file="inc/FunctionLib.class.asp"-->
<!--#include file="inc/Manager.class.asp"-->
<%
Dim Cfg, Db, FLib, Admin
Set Cfg = New Config
Set Db = New DBControl
Set FLib = New FunctionLib
Set Admin = New Manager
If Not Admin.Logined Then
FLib.Alert "对不起，你已经超时或未登录","./",1
Response.End
End If
If Not Admin.CheckPopedom("TSYS_GROUP2_RES_TEMPLATE") Then
FLib.Alert "权限不足", "BACK", 0
Response.End
ENd If
Dim Work
Work = Request("Work")
Db.Open()
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/style.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="inc/FunctionLib.js"></script>
<SCRIPT LANGUAGE="JavaScript">
<!--
function chkForm_AddReco(obj)
{
if(obj.title.value == "")
{
alert("[模板名称]不能为空");
obj.title.focus();
return false;
}
if(obj.template_path.value == "")
{
alert("[模板文件]不能为空");
obj.template_path.focus();
return false;
}
return true;
}
function chkForm_MdyReco(obj)
{
if(obj.title.value == "")
{
alert("[模板名称]不能为空");
obj.title.focus();
return false;
}
if(obj.template_path.value == "")
{
alert("[模板文件]不能为空");
obj.template_path.focus();
return false;
}
return true;
}
//-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Select Case Work
Case "MdyPwd" :
MdyPwd()
Case "AddReco" :
AddReco()
Case "MdyReco" :
MdyReco()
End Select
Function AddReco()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="tabTitleBar">
<tr>
<td>资源配置 > 频道管理 > 增加模板</td>
</tr>
</table>
<form name="form1" method="post" action="Template_Process.asp" onsubmit="return chkForm_AddReco(this)">
<table width="700" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="25%" align="right">模板名称:</td>
<td width="75%">
<input type="text" name="title" class="input_text">
</td>
</tr>
<tr>
<td width="25%" align="right" valign="top">模板文件:</td>
<td>
<input name="template_path" type="text" class="input_text" id="template_path" size="60">
<br>
<span class="txtNote">允许使用虚拟路径、物理路径。例：/template/temp01.htm 或c:/site01/template/temp01.htm</span></td>
</tr>
<tr>
<td width="25%" align="right" valign="top">备 注:</td>
<td width="75%">
<textarea name="remark" id="remark" class="input_text"></textarea>
</td>
</tr>
<tr>
<td width="25%" align="right" valign="top"> </td>
<td width="75%"> </td>
</tr>
<tr>
<td width="25%" align="right" valign="top"> </td>
<td width="75%">
<input type="submit" name="Submit43" value="提 交" class="input_button">
<input type="reset" name="Submit223" value="复位" class="input_button">
<input type="button" name="Submit323" value="返回" onClick="window.history.back()" class="input_button">
<input type="hidden" name="Work" value="AddReco"> </td>
</tr>
</table>
</form>
<%
End Function
Function MdyReco()
Dim Sql, Rs, rId
rId = FLib.SafeSql(Request("rId"))
Sql = "SELECT TOP 1 * FROM template_list WHERE id=" & rId
Set Rs = Db.ExeCute(Sql)
If Rs.Eof And Rs.Bof Then
Rs.Close
Set Rs = Nothing
FLib.Alert "记录不存在", "BACK", 0
Response.End
End If
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="tabTitleBar">
<tr>
<td>资源配置 > 频道管理 > 修改模板</td>
</tr>
</table>
<form name="form1" method="post" action="Template_Process.asp" onsubmit="return chkForm_MdyReco(this)">
<table width="700" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="25%" align="right">模板名称:</td>
<td width="75%">
<input type="text" name="title" value="<%=Rs("title")%>" class="input_text">
</td>
</tr>
<tr>
<td align="right" valign="top">模板文件:</td>
<td>
<input name="template_path" type="text" class="input_text" id="template_path" value="<%=Rs("template_path")%>" size="60">
<br>
<span class="txtNote">允许使用虚拟路径、物理路径。例：/template/temp01.htm 或c:/site01/template/temp01.htm</span></td>
</tr>
<tr>
<td width="25%" align="right" valign="top">备 注:</td>
<td width="75%">
<textarea name="remark" id="remark" class="input_text"><%=Server.HTMLEncode(Rs("remark"))%></textarea>
</td>
</tr>
<tr>
<td width="25%" align="right" valign="top"> </td>
<td width="75%"> </td>
</tr>
<tr>
<td width="25%" align="right" valign="top"> </td>
<td width="75%">
<input type="submit" name="Submit42" value="提 交" class="input_button">
<input type="reset" name="Submit222" value="复位" class="input_button">
<input type="button" name="Submit322" value="返回" onClick="window.history.back()" class="input_button">
<input type="hidden" name="Work" value="MdyReco"> <input type="hidden" name="rId" value="<%=Rs("id")%>">
</td>
</tr>
</table>
</form>
<%
Rs.Close
Set Rs = Nothing
End Function
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -