📄 res_class_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_CLASS") Then
FLib.Alert "权限不足", "BACK", 0
Response.End
ENd If
Db.Open()
Dim Parent, Work
Parent = FLib.SafeSql(Request("Parent"))
Work = Request("Work")
If Parent = "" Or Not IsNumeric(Parent) Then
Parent = 0
End If
%>
<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.parent.value == "")
{
obj.parent.focus();
alert("请确定[上级频道]Id");
return false;
}
if(obj.title.value == "")
{
obj.title.focus();
alert("请确定[频道名称]");
return false;
}
return true;
}
function chkForm_MdyReco(obj)
{
if(obj.parent.value == "")
{
obj.parent.focus();
alert("请确定[上级频道]Id");
return false;
}
if(obj.title.value == "")
{
obj.title.focus();
alert("请确定[频道名称]");
return false;
}
return true;
}
//-->
</SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Select Case Work
Case "MdyReco"
MdyReco()
Case "AddReco"
AddReco()
Case Else
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="Res_Class_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%"><%=FLib.Path_ResClassList(Parent, "Res_Class_List.asp?")%> </td>
</tr>
<tr>
<td width="25%" align="right">上级频道:</td>
<td width="75%"> <input type="text" name="parent" value="<%=Parent%>" class="input_text">
</td>
</tr>
<tr>
<td width="25%" align="right">频道名称:</td>
<td width="75%"> <input type="text" name="title" class="input_text"> </td>
</tr>
<tr>
<td align="right">频道网址:</td>
<td> <input name="home_url" type="text" id="home_url" size="60" class="input_text">
</td>
</tr>
<tr>
<td width="25%" align="right">备注:</td>
<td width="75%"> <input type="text" name="remark" size="60" class="input_text">
</td>
</tr>
<tr>
<td width="25%" align="right">显示优先:</td>
<td> <input name="show_order" type="text" id="show_order" value="0" class="input_text" size="6">
<span class="txtNote"> (值越大显示越靠前)</span></td>
</tr>
<tr>
<td align="right">是否显示:</td>
<td> <input type="radio" name="show" value="1" checked>
是
<input type="radio" name="show" value="0">
否</td>
</tr>
<tr>
<td align="right">资源模板:</td>
<td> <select name="template_id" class="select_list">
<%Template_List -1%>
</select> </td>
</tr>
<tr>
<td align="right" valign="top">文件名规则:</td>
<td><input name="filename_rule" type="text" class="input_text" id="filename_rule" value="{id}.asp"></td>
</tr>
<tr>
<td width="25%" align="right" valign="top">生成路径规则:</td>
<td width="75%"> <table width="100%" border="0" cellspacing="0" cellpadding="00">
<tr>
<td valign="top"> <input name="directory_rule" type="text" class="input_text" id="directory_rule" size="60">
</td>
</tr>
<tr>
<td valign="top"><span class="txtNote">允许使用物理路径及相对路径。可使用的动态变量：{class},{y},{m},{d}...等</span></td>
</tr>
<tr>
<td>将以上目录中
<input type="text" name="replace_path" size="20" class="input_text">
部份替换成为域名
<input type="text" name="replace_with_url" size="30" class="input_text">
做为文件最终访问地址</td>
</tr>
<tr>
<td class="txtNote">被替换部份输入“{head}”表示将添加至路径开头位置</td>
</tr>
</table></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 rId
rId = FLib.SafeSql(Request("rId"))
Dim Sql, Rs
Sql = "SELECT * FROM res_class_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="Res_Class_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%"><%=FLib.Path_ResClassList(Rs("parent"), "Res_Class_List.asp?")%> </td>
</tr>
<tr>
<td width="25%" align="right">上级频道:</td>
<td width="75%"> <input type="text" name="parent" value="<%=Rs("parent")%>" class="input_text">
</td>
</tr>
<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">频道网址:</td>
<td> <input name="home_url" type="text" id="home_url" value="<%=Rs("home_url")%>" size="60" class="input_text">
</td>
</tr>
<tr>
<td width="25%" align="right">备注:</td>
<td width="75%"> <input type="text" name="remark" size="60" value="<%=Rs("remark")%>" class="input_text">
</td>
</tr>
<tr>
<td align="right">显示优先:</td>
<td> <input name="show_order" type="text" id="show_order" value="<%=Rs("show_order")%>" class="input_text" size="6">
<span class="txtNote"> (值越大显示越靠前)</span></td>
</tr>
<tr>
<td width="25%" align="right">是否显示:</td>
<td width="75%"> <input type="radio" name="show" value="1" <%If Rs("show")=1 Then Response.Write "checked"End If%>>
是
<input type="radio" name="show" value="0" <%If Rs("show")=0 Then Response.Write "checked"End If%>>
否</td>
</tr>
<tr>
<td align="right">资源模板:</td>
<td> <select name="template_id" class="select_list">
<%Template_List Rs("template_id")%>
</select> </td>
</tr>
<tr>
<td align="right" valign="top">文件名规则:</td>
<td><input name="filename_rule" type="text" class="input_text" id="filename_rule" value="<%=Rs("filename_rule")%>"></td>
</tr>
<tr>
<td width="25%" align="right" valign="top">生成路径规则:</td>
<td width="75%"> <table width="100%" border="0" cellspacing="0" cellpadding="00">
<tr>
<td valign="top"> <input name="directory_rule" type="text" class="input_text" id="directory_rule" value="<%=Rs("directory_rule")%>" size="60">
</td>
</tr>
<tr>
<td valign="top"><span class="txtNote">允许使用物理路径及相对路径。可使用的动态变量：{class},{y},{m},{d}...等</span></td>
</tr>
<tr>
<td>将以上目录中
<input type="text" name="replace_path" size="20" value="<%=Rs("replace_path")%>" class="input_text">
部份替换成为域名
<input type="text" name="replace_with_url" size="30" value="<%=Rs("replace_with_url")%>" class="input_text">
做为文件最终访问地址</td>
</tr>
<tr>
<td class="txtNote">被替换部份输入“{head}”表示将添加至路径开头位置</td>
</tr>
</table></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="MdyReco"> <input type="hidden" name="rId" value="<%=rId%>">
</td>
</tr>
</table>
</form>
<%
End Function
%>
</body>
</html>
<%
Function Template_List(rId)
Dim Sql, Rs, strChecked
Sql = "SELECT id,title FROM template_list ORDER BY title"
Set Rs = Db.ExeCute(Sql)
If (rId = -1) Or (Rs.Eof And Rs.Bof) Then
Response.Write "<option value="""" selected> </option>" & vbCrLf
Else
Response.Write "<option value=""""> </option>" & vbCrLf
End If
While Not Rs.Eof
If Rs("id") = rId Then
strChecked = "selected"
Else
strChecked = ""
End If
Response.Write "<option value=""" & Rs("id") & """ " & strChecked & ">" & Rs("title") & "</option>" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -