⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_page.asp

📁 淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#include file="Inc/Const.asp"-->
<!--#include file="../Inc/Cl_Function_Article.asp"-->
<!--#include file="../Inc/Cl_Function_Soft.asp"-->
<!--#include file="../Inc/Cl_Function_Photo.asp"-->
<!--#include file="../Inc/Cl_Function_Movie.asp"-->
<!--#include file="../Inc/Cl_Function_Product.asp"-->
<%
if Not Cl.TrueOtherPurview("Page") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
const PageSize=20
Dim Action,ItemID,rsInfo,ClassID
Action=Trim(request("Action"))
CurrentPage	= Cl.GetClng(request("page"))
ItemID = Cl.GetClng(request("ItemID"))
FileName="Admin_Page.asp?Action="&Action&"&ItemID="&ItemID
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
	<td height="22" colspan="2" align="center"><strong>自定义页面管理</strong></td>
  </tr>
  <tr class="tdbg"> 
	<td width="70" height="30"><strong>管理导航：</strong></td>
	<td><a href="Admin_Page.asp">管理首页</a> | <a href="Admin_Page.asp?Action=AddItem">添加自定义项目</a> | <a href="Admin_Page.asp?Action=AddPage&ItemID=<%=ItemID%>">添加自定义页面</a></td>
  </tr>
</table>
<%
Select Case Action
Case "AddItem","ModifyItem"
	call ItemInfo()
Case "SaveAddItem","SaveModifyItem"
	call SaveItemInfo()
Case "DelItem"
	call DelItem()
Case "PageMain"
	call PageMain()
Case "AddPage","ModifyPage"
	call PageInfo()
Case "SaveAddPage","SaveModifyPage"
	call SavePageInfo()
Case "DelPage"
	call DelPage()
Case "CreateItem"
	Call CreateItem()
Case "CreatePage"
	Call CreatePage()
Case Else
	call ItemMain()
End Select
Footer
Sub ItemMain()
	SQL="Select ItemID,ItemName,ItemDir,ItemIntro from Cl_PageItem order by ItemID"
	Set rs= Server.CreateObject("ADODB.Recordset")
	OpenConn : rs.open sql,Conn,1,1
	%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title">
	<td width="50" align="center"><strong>ID</strong></td>
	<td width="120" align="center"><strong>项目名称</strong></td>
	<td width="100" align="center"><strong>项目目录</strong></td>
	<td align="center"><strong>项目说明</strong></td>
	<td width="300" height="22" align="center"><strong>常规操作</strong></td>
  </tr>
  <%
if Not (rs.Bof and rs.Eof) then
	TotalPut=rs.recordcount
	if (TotalPut mod PageSize)=0 then
		TotalPages = TotalPut \ PageSize
	else
		TotalPages = TotalPut \ PageSize + 1
	end if
	if CurrentPage > TotalPages then CurrentPage=TotalPages
	if CurrentPage < 1 then CurrentPage=1
	rs.move (CurrentPage-1)*PageSize
	SQL = rs.GetRows(PageSize)
	For i=0 to Ubound(SQL,2)
  %>
  <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
	<td width="50" align="center"><b><%=SQL(0,i)%></b></td>
	<td width="120" align="center"><a href="Admin_Page.asp?Action=PageMain&ItemID=<%=SQL(0,i)%>"><%=SQL(1,i)%></a></td>
	<td width="100" align="center"><a href="Admin_Page.asp?Action=PageMain&ItemID=<%=SQL(0,i)%>"><b><font color=#0000ff><%=SQL(2,i)%></font></b></a></td>
	<td align="center"><%=SQL(3,i)%></td>
	<td width="300" align="center">
		<a href="Admin_Page.asp?Action=AddPage&ItemID=<%=SQL(0,i)%>"><font color=#0000ff>添加页面</font></a>&nbsp;
		<a href="Admin_Page.asp?Action=PageMain&ItemID=<%=SQL(0,i)%>"><font color=#ff0033>管理页面</font></a>&nbsp;
		<a href="Admin_Page.asp?Action=CreateItem&ItemID=<%=SQL(0,i)%>">生成项目</a>&nbsp;
		<a href="Admin_Page.asp?Action=ModifyItem&ItemID=<%=SQL(0,i)%>">修改项目</a>&nbsp;
		<a href="Admin_Page.asp?Action=DelItem&ItemID=<%=SQL(0,i)%>" onClick="return confirm('确定要删除此项目吗？如果是，系统会自动把此项目下的页面一起删除，此操作不可恢复！');">删除项目</a>
	</td>
  </tr>
  <%
	Next
	SQL=Empty
	End if
	%>
</table>
<%
	Response.write Cl.ShowPage(FileName,TotalPut,PageSize,"个","项目")
	rs.Close:set rs=Nothing
End Sub

Sub PageMain()
	if ItemID=0 then Cl.ShowErr("<br /><li>请正确选择页面项目！</li>")
	SQL="Select P.PageID,P.ItemID,P.PageName,P.FileName,P.FileExt,P.PageIntro,P.IsCreate,I.ItemDir from Cl_Page P Inner Join Cl_PageItem I On P.ItemID=I.ItemID where P.ItemID="&ItemID&" order by P.PageID desc"
	Set rs= Server.CreateObject("ADODB.Recordset")
	OpenConn : rs.open sql,Conn,1,1
	%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title">
	<td width="50" align="center"><strong>ID</strong></td>
	<td width="120" align="center"><strong>页面名称</strong></td>
	<td width="120" align="center"><strong>生成文件名</strong></td>
	<td width="80" align="center"><strong>文件扩展名</strong></td>
	<td align="center"><strong>项目说明</strong></td>
	<td width="60" align="center"><strong>属性</strong></td>
	<td width="180" height="22" align="center"><strong>常规操作</strong></td>
  </tr>
  <%
if Not (rs.Bof and rs.Eof) then
	TotalPut=rs.recordcount
	if (TotalPut mod PageSize)=0 then
		TotalPages = TotalPut \ PageSize
	else
		TotalPages = TotalPut \ PageSize + 1
	end if
	if CurrentPage > TotalPages then CurrentPage=TotalPages
	if CurrentPage < 1 then CurrentPage=1
	rs.move (CurrentPage-1)*PageSize
	SQL = rs.GetRows(PageSize)
	For i=0 to Ubound(SQL,2)
  %>
  <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
	<td width="50" align="center"><b><%=SQL(0,i)%></b></td>
	<td width="120" align="center"><%=SQL(2,i)%></td>
	<td width="120" align="center"><b><font color="#0000ff"><%=SQL(3,i)%></font></b></td>
	<td width="80" align="center"><b><font color="#ff0033"><%=SQL(4,i)%></font></b></td>
	<td align="center"><%=SQL(5,i)%></td>
	<td width="60" align="center"><%
	if SQL(6,i)=True then
		Response.write "<font color=#0000ff>已生成</font>"
	else
		Response.write "<a href='Admin_Page.asp?Action=CreatePage&PageID="&SQL(0,i)&"' title='点击生成'><font color=#ff0033>未生成</font></a>"
	end if
	%></td>
	<td width="180" align="center">
		<%if SQL(6,i)=True then%>
		<a href="<%=Replace(InstallDir & SQL(7,i) & "/" & SQL(3,i) & "." & SQL(4,i),"//","/")%>" target="_blank"><font color="#0000ff">浏览页面</font></a>&nbsp;
		<%else%>
		<a href="Admin_Page.asp?Action=CreatePage&PageID=<%=SQL(0,i)%>"><font color=#ff0033>生成页面</font></a>&nbsp;
		<%end if%>
		<a href="Admin_Page.asp?Action=ModifyPage&PageID=<%=SQL(0,i)%>">修改页面</a>&nbsp;
		<a href="Admin_Page.asp?Action=DelPage&PageID=<%=SQL(0,i)%>" onClick="return confirm('确定要删除此页面吗？如果是，系统会自动把此页面的生成文件一起删除，此操作不可恢复！');">删除页面</a>
	</td>
  </tr>
  <%
	Next
	SQL=Empty
	End if
	%>
</table>
<%
	Response.write Cl.ShowPage(FileName,TotalPut,PageSize,"个","页面")
	rs.Close:set rs=Nothing
End Sub

Sub ItemInfo()
	dim sTemp
	dim sAction,SubmitValue
	dim ItemName,ItemDir,ProjectID,CssID,ItemIntro
	if Action = "ModifyItem" then
		sAction="SaveModifyItem":SubmitValue="修 改"
		set rs=Cl.Execute("select * from Cl_PageItem where ItemID=" & ItemID)
		if rs.bof and rs.eof then
			rs.close : Set Rs=Nothing
			Cl.ShowErr("<br /><li>找不到指定的项目！</li>")
		end if
		ItemName	= rs("ItemName")	: ItemDir	= rs("ItemDir")
		ItemIntro	= rs("ItemIntro")
		ProjectID	= rs("ProjectID")	: CssID		= rs("CssID")
		rs.close : set rs = Nothing
	else
		sAction = "SaveAddItem"		: SubmitValue = "添 加"
		ItemName	= ""	: ItemDir	= ""
		ProjectID	= 0     : CssID		= 0
		ItemIntro	= ""
	end if
%>
<br />
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
	if (document.form1.ItemName.value == "") {
		alert("请输入项目名称！");
		document.form1.ItemName.focus();
		return false;
	}
	return true;
}
</script>
<form method="post" action="Admin_Page.asp" name="form1" onsubmit="return CheckForm();">
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
	<tr class="title"> 
	  <td height="22" colspan="2"> <div align="center"><strong><%=SubmitValue%> 顶 目</strong></div></td>
	</tr>
	<tr class="tdbg">
	  <td width="150" align="right"><strong>项目名称：</strong></td>
	  <td><input name="ItemName" type="text" id="ItemName" value="<%=ItemName%>" size="60" maxlength="200"> <font color="red">*</font></td>
	</tr>
	<tr class="tdbg">
	  <td width="150" align="right"><strong>项目目录：</strong></td>
	  <td><input name="ItemDir" type="text" id="ItemDir" size="60" maxlength="200" value="<%=ItemDir%>"> <font color="red">*</font><br /><font color="red">不要含“/”，如果留空则为根目录。</font></td>
	</tr>
	<tr class="tdbg"> 
	  <td width="150" align="right"><strong>项目风格：</strong></td>
	  <td>
		<select name="ProjectID" onchange="ChangeCss(this.options[this.selectedIndex].value,'CssID');"><%=TemplateProjectOption%></select>
		<select name="CssID">
		<option value="0">请选择风格</option></select></td>
		</td>
	</tr>
	<tr class="tdbg">
	  <td width="150" align="right"><strong>项目说明：</strong></td>
	  <td><textarea name="ItemIntro" cols="50" rows="5" id="ItemIntro"><%=ItemIntro%></textarea></td>
	</tr>
	<tr class="tdbg"> 
	  <td colspan="2" align="center" class="tdbg">
		<input name="Action" type="hidden" id="Action" value="<%=sAction%>">
		<input name="ItemID" type="hidden" id="ItemID" value="<%=ItemID%>"> 
		<input type="submit" name="Submit" value=" <%=SubmitValue%> "> &nbsp; <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Page.asp'" style="cursor:hand;"></td>
	</tr>
  </table>
</form>
<script type="text/javascript" src="Inc/AjaxTemplate.js"></script>
<script type="text/javascript">
ChangeCss(<%=ProjectID%>,'CssID');
CheckSel('ProjectID','<%=ProjectID%>');
CheckSel('CssID','<%=CssID%>');
</script>
<%
End Sub

Sub PageInfo()
	dim sTemp
	dim sAction,SubmitValue,sInsTallDir
	dim PageID,PageName,FileName,FileExt,PageIntro,Content
	PageID=Cl.GetClng(Request("PageID"))
	sInsTallDir	= "http://"&Request.servervariables("Server_name") & Cl.WebDir
	'PageID,ItemID,PageName,FileName,PageIntro,IsCreate
	if Action = "ModifyPage" then
		sAction="SaveModifyPage":SubmitValue="修 改"
		set rs=Cl.Execute("select * from Cl_Page where PageID=" & PageID)
		if rs.bof and rs.eof then
			rs.close : Set Rs=Nothing
			Cl.ShowErr("<br /><li>找不到指定的页面！</li>")
		end if
		ItemID		= rs("ItemID")		:	PageName	= rs("PageName")
		FileName	= rs("FileName")	:	PageIntro	= rs("PageIntro")
		Content		= rs("Content")		:	FileExt		= rs("FileExt")
		rs.close : set rs = Nothing
	else
		sAction = "SaveAddPage"		: SubmitValue = "添 加"
		PageName	= ""   
		FileName	= ""	:	PageIntro	= ""
		Content		= ""    :	FileExt		= "html"
	end if
%>
<br />
<form method="post" action="Admin_Page.asp" name="FormEdit">
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" >
	<tr class="title"> 
	  <td height="22" colspan="2"> <div align="center"><strong><%=SubmitValue%> 页 面</strong></div></td>
	</tr>
	<tr class="tdbg">
	  <td width="150" align="right"><strong>所属项目：</strong></td>
	  <td>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -