admin_custom.asp

这些都是我以前学习是用到的源码

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Management System Version 2.1.0
' 文件名称：admin_custom.asp
' 更新日期：2006-5-20
' 官方网站：(www.newasp.net www.newasp.cn)   QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action,isEdit,RsObj
Dim mdbname, myConn

Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "function Juge(form1)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " if (form1.LabelName.value == """")" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write "  alert(""标签名称不能为空!"");" & vbCrLf
Response.Write "  form1.LabelName.focus();" & vbCrLf
Response.Write "  return (false);" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if (form1.Content.value == """")" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write "  alert(""标签内容不能为空!"");" & vbCrLf
Response.Write "  form1.Content.focus();" & vbCrLf
Response.Write "  return (false);" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">"
Response.Write " <tr>"
Response.Write "   <th colspan=""2"">自定义标签管理</th>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write "   <td colspan=""2"" class=""TableRow1""><strong>注意：</strong><br>"
Response.Write " ①在这里，您可以新建和修改自定义模板标签；<br>"
Response.Write " ②添加标签时注意不能有相同的标签名称；标签名称不能包含特殊字符；<br>"
Response.Write " ③注意标签格式：<span class=style2>{$NewaspLabel_标签名称}</span>。</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write "   <td width=""10%"" nowrap class=""TableRow2"">管理选项：</td>"
Response.Write "   <td width=""90%"" class=""TableRow2"">"
Response.Write "<a href='admin_custom.asp'>管理首页</a> | "
Response.Write "<a href='?action=add' class='showlink'>添加自定义标签</a> | "
Response.Write "<a href='admin_template.asp' class='showmenu'>模板样式总管理</a> | "
Response.Write "<a href=admin_loadskin.asp>模板导出</a> | "
Response.Write "<a href=admin_loadskin.asp?action=load>模板导入</a>"
Response.Write "</td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"

Action = LCase(Request("action"))
mdbname = Newasp.CheckStr(Request("mdbname"))
If Not Newasp.CheckAdmin("CustomLabel") Then
	Server.Transfer ("showerr.asp")
	Response.End
End If

Select Case Trim(Action)
Case "del"
	Call DelCustomLabel
Case "save"
	Call SaveLabel
Case "modify"
	Call ModifyLabel
Case "add"
	isEdit = False
	Call EditCustomLabel
Case "edit"
	isEdit = True
	Call EditCustomLabel
Case "load"
	Call LoadCustomLabel
Case "export"
	Call ExportCustomLabel
Case Else
	Call showmain
End Select
If FoundErr = True Then
	ReturnError (ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn

Sub showmain()
	Dim i,tablestyle
	Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber
	maxperpage = 30
	totalrec = 0
	Pcount = 1
	CurrentPage = Newasp.ChkNumeric(Request("page"))
	If CurrentPage = 0 Then CurrentPage = 1
%>
<script src="include/showpage.js" type="text/javascript"></script>
<table  border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
        <tr>
	  <th width="5%" nowrap>频道ID</th>
          <th width="30%">自定义标签名称</th>
	  <th width="45%">标签说明</th>
	  <th width="20%">管理操作</th>
        </tr>
<%
	SQL = "SELECT customid,ChannelID,LabelName,readme,estop,NotAllow FROM [NC_CustomLabel] ORDER BY customid DESC"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.Open SQL,Conn,1,1
	If Not (Rs.BOF And Rs.EOF) Then
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			If (i mod 2) = 0 Then
				tablestyle = "class='TableRow1'"
			Else
				tablestyle = "class='TableRow2'"
			End If
%>
	<tr>
	  <td <%=tablestyle%> align="center" nowrap><%=Rs("ChannelID")%></td>
          <td <%=tablestyle%>><input type="text" name="label" size="45" value="{$NewaspLabel_<%=Server.HTMLEncode(Trim(Rs("LabelName") & ""))%>}"></td>
	  <td <%=tablestyle%>><%=Server.HTMLEncode(Rs("readme") & "")%></td>
	  <td  <%=tablestyle%> align="center" nowrap><a href="?action=edit&customid=<%=Rs("customid")%>">修改标签</a> | 
<%
	If Rs("NotAllow") > 0 Then
%>
	  <a href="?action=edit&customid=<%=Rs("customid")%>" onclick="{if(confirm('此标签不允许删除！但您可以对此标签进行修改。')){return true;}return false;}">删除标签</a>
<%
	Else
%>
	  <a href="?action=del&customid=<%=Rs("customid")%>" onclick="{if(confirm('标签删除后将不能恢复，您确定要删除该标签吗?')){return true;}return false;}">删除标签</a>
<%
	End If
%>
	  </td>
	</tr>
<%
			Rs.movenext
			i = i + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
%>
	<tr>
	  <td colspan="4" align="right" class="TableRow2"><%ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"","自定标签" %></td>
	</tr>
	<tr><form name="myform" method="post" action="?action=load">
	  <td colspan="4" align="center" class="TableRow1">自定义标签数据库路径：<input type="text" name="mdbname" size="40" value="<%=Newasp.InstallDir%>skin/NC_Skins.Mdb">
		<input type="radio" name="stype" value="0" checked> 导出标签
		<input type="radio" name="stype" value="1"> 导入标签
		<input class="Button" type="submit" name="B2" value="执行下一步">
	  </td></form>
	</tr>
</table>
<%
End Sub

Sub EditCustomLabel()
	Dim EditTitle,customid
	If isEdit Then
		SQL = "SELECT * FROM NC_CustomLabel WHERE customid=" & CLng(Request("customid"))
		Set Rs = Newasp.Execute(SQL)
		customid = Rs("customid")
		EditTitle = "编辑自定义标签"
	Else
		EditTitle = "添加自定义标签"
		customid = 0
	End If
%>
<div onkeydown="CtrlEnter()">
<table  border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
        <tr>
          <th colspan="4"><%=EditTitle%></th>
        </tr><form method="Post" name="myform" action="admin_custom.asp" onSubmit="return Juge(this)">
<%
	If isEdit Then
		Response.Write "<input type=""Hidden"" name=""action"" value=""modify"">"
		Response.Write "<input type=""Hidden"" name=""customid"" value="""& customid &""">"
	Else
		Response.Write "<input type=""Hidden"" name=""action"" value=""save"">"
	End If
%>
	<tr>
          <td width="15%" align="right" nowrap class="TableRow1"><b>标签名称：</b></td>
          <td width="85%" class="TableRow1"><input name="LabelName" type="text" id="LabelName" size="55" value="<%If isEdit Then Response.Write Server.HTMLEncode(Rs("LabelName") & "")%>"></td>
	</tr>
	<tr>
          <td align="right" nowrap class="TableRow2"><b>标签说明：</b></td>
          <td class="TableRow2"><input name="readme" type="text" id="readme" size="70" value="<%If isEdit Then Response.Write Server.HTMLEncode(Rs("readme") & "")%>"></td>
	</tr>
	<tr>
          <td width="15%" align="right" nowrap class="TableRow1"><b>所属频道：</b></td>
          <td width="85%" class="TableRow1"><%
	Response.Write "<select name=""chanid"" id=""chanid"">" & vbNewLine
	Response.Write "<option value=""0"">不指定频道</option>" & vbNewLine
	Set RsObj = Newasp.Execute("SELECT ChannelID,ChannelName FROM NC_Channel WHERE ChannelID<>3 And ChannelType<2 ORDER BY orders")
	Do While Not RsObj.EOF
		Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("ChannelID") & """"
		If isEdit Then
			If Rs("ChannelID") = RsObj("ChannelID") Then Response.Write " selected"
		End If
		Response.Write ">"
		Response.Write RsObj("ChannelName")
		Response.Write "</option>" & vbCrLf
		RsObj.movenext
	Loop
	Set RsObj = Nothing
%></td>
	</tr>
	<tr>
          <td align="right" nowrap class="TableRow2"><b>标签内容：</b></td>
          <td class="TableRow2"><textarea name="Content" id="Content" wrap="OFF" rows="25" style="width:100%;"><%If isEdit Then Response.Write Server.HTMLEncode(Rs("Content") & "")%></textarea>
	  <div align=right><a href="javascript:admin_Size(-10,'Content')"><img src="images/minus.gif" unselectable=on border=0></a> 
	  <a href="javascript:admin_Size(10,'Content')"><img src="images/plus.gif" unselectable=on border=0></div></td>
	</tr>
	<tr>
          <td align="right" nowrap class="TableRow1"><b>取消标签：</b></td>
          <td class="TableRow1"><input name="estop" type="checkbox" id="estop" value="1"<%If isEdit Then:If Rs("estop") <> 0 Then Response.Write (" checked")%>> </td>
	</tr>
	<tr>
          <td align="right" nowrap class="TableRow2"></td>
          <td class="TableRow2" align="center"><input type="button" name="Submit4" onclick="javascript:history.go(-1)" value="返回上一页" class="Button">        
	  <input type="submit" name="btnSubmit" value="保存设置" class="Button"></td>
	</tr></form>
</table>
</div>
<%
End Sub