admin_article.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 1,419 行 · 第 1/5 页

ASP
1,419 行
字号
12345
	End If
	Rs.Close:Set Rs = Nothing
	Set Cmd = Nothing
%>
	<tr>
	  <td colspan="6" class="TableRow1">
	  <input class="Button" type="button" name="chkall" value="全选" onClick="CheckAll(this.form)"><input class="Button" type="button" name="chksel" value="反选" onClick="ContraSel(this.form)">
	  管理选项：
	  <select name="act">
		<option value="0">请选择操作选项</option>
		<option value="批量删除">批量删除</option>
		<option value="批量置顶">批量置顶</option>
		<option value="取消置顶">取消置顶</option>
		<option value="批量推荐">批量推荐</option>
		<option value="取消推荐">取消推荐</option>
		<option value="批量审核">批量审核</option>
		<option value="取消审核">取消审核</option>
		<option value="更新时间">更新时间</option>
		<option value="生成HTML">生成HTML</option>
	  </select>
	  <input class="Button" type="submit" name="Submit2" value="执行操作" onclick="return confirm('您确定执行该操作吗?')">
	  <input class="Button" type="submit" name="Submit3" value="批量设置" onclick="document.selform.action.value='setting';">
	  <input class="Button" type="submit" name="Submit4" value="批量移动" onclick="document.selform.action.value='move';">
	  <input class="Button" type="submit" name="Submit4" value="批量删除" onclick="document.selform.action.value='batdel';"></td>
	</tr>
	</form>
	<tr>
	  <td colspan="6" align="right" class="TableRow2"><%ShowListPage CurrentPage,TotalPageNum,totalnumber,maxperpage,strListName,s_ClassName %></td>
	</tr>
</table>


<%

End Sub

Function Admin_Article_list(ArticleID,ChannelID,ClassID,title,ColorMode,FontMode,BriefTopic,isTop,WriteTime,UserName,isBest,isAccept,ClassName,strClass)
	Response.Write "	<tr>"
	Response.Write "	  <td align=center "& strClass &"><input type=checkbox name=selArticleID value=" & ArticleID & "></td>"
	Response.Write "	  <td "& strClass &">"
	If isTop <> 0 Then
		Response.Write "<img src=""images/gotop.gif"" border=0 alt=置顶文章 align=absMiddle>"
	End If

	Response.Write "[<a href=?ChannelID=" & ChannelID & "&sortid="
	Response.Write ClassID
	Response.Write ">"
	Response.Write ClassName
	Response.Write "</a>] "
	Response.Write Newasp.ReadBriefTopic(BriefTopic)
	Response.Write "<u><a href=?action=view&ChannelID=" & ChannelID & "&ArticleID="
	Response.Write  ArticleID
	Response.Write ">"
	Response.Write Newasp.ReadFontMode(title,ColorMode,FontMode)
	Response.Write "</a></u>" 

	If isBest <> 0 Then
		Response.Write "&nbsp;&nbsp;[<font color=blue>荐</font>]"
	End If

	Response.Write "	  </td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &"><a href=?action=edit&ChannelID="& ChannelID &"&ArticleID="& ArticleID &">编辑</a> | <a href=?action=del&ChannelID="& ChannelID &"&ArticleID="& ArticleID &" onclick=""{if(confirm('"& sModuleName &"删除后将不能恢复，您确定要删除该"& sModuleName &"吗?')){return true;}return false;}"">删除</a></td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &">"

	If isAccept = 1 Then
		Response.Write "<font color=blue>√</font>"
	Else
		Response.Write "<font color=red>×</font>"
	End If

	Response.Write "	  </td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &">"& UserName &"</td>"
	Response.Write "	  <td align=""center"" nowrap "& strClass &">"

	If WriteTime >= Date Then
		Response.Write "<font color=red>"
		Response.Write Newasp.FormatDate(WriteTime, 2)
		Response.Write "</font>"
	Else
		Response.Write Newasp.FormatDate(WriteTime, 2)
	End If

	Response.Write "	  </td>"
	Response.Write "	</tr>"
End Function

Private Sub ArticleEdit(isEdit)
	Dim EditTitle,TitleColor
	If isEdit Then
		SQL = "select * from NC_Article where ArticleID=" & Request("ArticleID")
		Set Rs = Newasp.Execute(SQL)
		If Not ChkAdmin("AdminArticle" & ChannelID) Then
			Server.Transfer("showerr.asp")
			Response.End
		End If
		ClassID = Rs("ClassID")
		EditTitle = "编辑" & sModuleName & ""
	Else
		EditTitle = "添加" & sModuleName & ""
		ClassID = Request("ClassID")
		If Not ChkAdmin("AddArticle" & ChannelID) Then
			Server.Transfer("showerr.asp")
			Response.End
		End If
	End If
%>

<script src="include/checknews.js" type="text/javascript"></script>
<script language= JavaScript>
function SelectPhoto(){
  var arr=showModalDialog('Admin_selFile.asp?ChannelID=<%=ChannelID%>&UploadDir=UploadPic', '', 'dialogWidth:800px; dialogHeight:600px; help: no; scroll: yes; status: no');
  if(arr!=null){
    var ss=arr.split('|');
    document.myform.ImageUrl.value=ss[0];
    //document.myform.ImageFileList.value=ss[0];
  }
}
</script>

<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_article.asp" onsubmit="return checkPost()">
<%
	If isEdit Then
		Response.Write "<input type=""Hidden"" name=""action"" value=""modify"">"
		Response.Write "<input type=""Hidden"" name=""ArticleID"" value="""& Request("ArticleID") &""">"
	Else
		Response.Write "<input type=""Hidden"" name=""action"" value=""save"">"
	End If
	Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
%>
        <tr>
          <td width="15%" align="right" nowrap class="TableRow2"><b>所属分类：</b></td>
          <td width="30%" class="TableRow1">
<%
	Dim sClassSelect
	Response.Write "<select name=""ClassID"" id=""ClassID"">"
	sClassSelect = Newasp.LoadSelectClass(ChannelID)
	sClassSelect = Replace(sClassSelect, "{ClassID=" & ClassID & "}", "selected")
	Response.Write sClassSelect
	Response.Write "</select>"
%>
		  </td>
          <td width="15%" align="right" nowrap class="TableRow2"><b>所属专题：</b></td>
          <td width="40%" class="TableRow1"><select name="SpecialID" id="SpecialID">
            <option value="0">不指定<%=sModuleName%>专题</option>
<%
	Set RsObj = Newasp.Execute("SELECT SpecialID,SpecialName From NC_Special WHERE ChannelID = "& ChannelID &" And ChangeLink=0 ORDER BY orders")
	Do While Not RsObj.EOF
		Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("SpecialID") & """"
		If isEdit Then
			If Rs("SpecialID") = RsObj("SpecialID") Then Response.Write " selected"
		End If
		Response.Write ">"
		Response.Write RsObj("SpecialName")
		Response.Write "</option>" & vbCrLf
		RsObj.movenext
	Loop
	Set RsObj = Nothing
%>
          </select></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>标题：</b></td>
          <td colspan="3" class="TableRow1"><select name="BriefTopic" id="BriefTopic">
			  <%If isEdit Then%>
			<option value="0"<%If Rs("BriefTopic") = 0 Then Response.Write (" selected")%>>选择话题</option>
			<option value="1"<%If Rs("BriefTopic") = 1 Then Response.Write (" selected")%>>[图文]</option>
			<option value="2"<%If Rs("BriefTopic") = 2 Then Response.Write (" selected")%>>[组图]</option>
			<option value="3"<%If Rs("BriefTopic") = 3 Then Response.Write (" selected")%>>[新闻]</option>
			<option value="4"<%If Rs("BriefTopic") = 4 Then Response.Write (" selected")%>>[推荐]</option>
			<option value="5"<%If Rs("BriefTopic") = 5 Then Response.Write (" selected")%>>[注意]</option>
			<option value="6"<%If Rs("BriefTopic") = 6 Then Response.Write (" selected")%>>[转载]</option>
			<%Else%>
            <option value="0">选择话题</option>
			<option value="1">[图文]</option>
			<option value="2">[组图]</option>
			<option value="3">[新闻]</option>
			<option value="4">[推荐]</option>
			<option value="5">[注意]</option>
			<option value="6">[转载]</option>
			<%End If%>
          </select> <input name="title" type="text" id="title" size="60" value="<%If isEdit Then Response.Write Rs("title")%>"> 
          <font color=red>*</font></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b>标题模式：</b></td>
          <td colspan="3" class="TableRow1">颜色：
            <select size="1" name="ColorMode">
		<option value="0">请选择颜色</option>
<%
	TitleColor = "," & Newasp.InitTitleColor
	TitleColor = Split(TitleColor, ",")
	For i = 1 To UBound(TitleColor)
		Response.Write ("<option style=""background-color:"& TitleColor(i) &";color: "& TitleColor(i) &""" value='"& i &"'")
		If isEdit Then
			If Rs("ColorMode") = i Then Response.Write (" selected")
		End If
		Response.Write (">"& TitleColor(i) &"</option>")
	Next
%>
		</select> 字体：
		<select size="1" name="FontMode">
		<%If isEdit Then%>
		<option value="0"<%If Rs("FontMode") = 0 Then Response.Write (" selected")%>>请选择字体</option>
		<option value="1"<%If Rs("FontMode") = 1 Then Response.Write (" selected")%>>粗体</option>
		<option value="2"<%If Rs("FontMode") = 2 Then Response.Write (" selected")%>>斜体</option>
		<option value="3"<%If Rs("FontMode") = 3 Then Response.Write (" selected")%>>下划线</option>
		<option value="4"<%If Rs("FontMode") = 4 Then Response.Write (" selected")%>>粗体+斜体</option>
		<option value="5"<%If Rs("FontMode") = 5 Then Response.Write (" selected")%>>粗体+下划线</option>
		<option value="6"<%If Rs("FontMode") = 6 Then Response.Write (" selected")%>>斜体+下划线</option>
		<%Else%>
		<option value="0">请选择字体</option>
		<option value="1">粗体</option>
		<option value="2">斜体</option>
		<option value="3">下划线</option>
		<option value="4">粗体+斜体</option>
		<option value="5">粗体+下划线</option>
		<option value="6">斜体+下划线</option>
		<%End If%>
		</select></td>
        </tr>
	<tr>
          <td align="right" class="TableRow2"><b>副 标 题：</b></td>
          <td colspan="3" class="TableRow1"><input name="subtitle" type="text" id="subtitle" size="60" value="<%If isEdit Then Response.Write Rs("subtitle") & ""%>"></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b>相关<%=sModuleName%>：</b></td>
          <td colspan="3" class="TableRow1"><input name="Related" type="text" id="Related" size="60" value="<%If isEdit Then Response.Write Rs("Related") & ""%>"></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>作者：</b></td>
          <td colspan="3" class="TableRow1"><input name="Author" type="text" size="30" value="<%If isEdit Then Response.Write Rs("Author")%>">
		    <select name=font2 onChange="Author.value=this.value;">
			<option selected value="">选择作者</option>
			<option value='佚名'>佚名</option>
			<option value='本站'>本站</option>
			<option value='不详'>不详</option>
			<option value='未知'>未知</option>
			<option value='<%=AdminName%>'><%=AdminName%></option>
			</select></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>来源：</b></td>
          <td colspan="3" class="TableRow1"><input name="ComeFrom" type="text" size="30" value="<%If isEdit Then Response.Write Rs("ComeFrom")%>">
		  	<select name=font1 onChange="ComeFrom.value=this.value;">
			<option selected value="">选择来源</option>
			<option value='本站原创'>本站原创</option>
			<option value='本站整理'>本站整理</option>
			<option value='不详'>不详</option>
			<option value='转载'>转载</option>
			<option value='<%=Replace(Newasp.SiteUrl, "http://", "",1,-1,1)%>'><%=Replace(Newasp.SiteUrl, "http://", "",1,-1,1)%></option>
			</select></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b><%=sModuleName%>内容：</b><br><%=sModuleName%>内容分页标签<br><font color=red>[page_break]</font><br>请注意标签字母小写</td>
          <td colspan="3" class="TableRow1">
<%
Dim oEditor
Set oEditor = New Editor_Cls
oEditor.UserMode	= 0
oEditor.setEditMode	= Newasp.setAdminEditor(0)
oEditor.ChannelID	= ChannelID
oEditor.Width		= Newasp.setAdminEditor(2)
oEditor.Height		= Newasp.setAdminEditor(3)
oEditor.BasePath	= "../" & Newasp.setAdminEditor(4)
oEditor.ToolbarSet	= Newasp.setAdminEditor(1)'Default,AdminMode,Simple,UserMode,Basic
If isEdit Then
	oEditor.Value		= Re_Replace(Rs("content"), "[InstallDir_ChannelDir]", InstallDir_ChannelDir)
End If
oEditor.InstanceName	= "content"
oEditor.Execute()
Set oEditor = Nothing
%></td>
        </tr>
        <tr>
          <td align="right" class="TableRow2"><b>首页图片：</b></td>
          <td colspan="3" class="TableRow1"><input name="ImageUrl" type="text" id="ImageUrl" size="70" value="<%If isEdit Then Response.Write Rs("ImageUrl")%>">
			<input type="hidden" name="UploadFileList" id="UploadFileList" onchange="doChange(this,document.myform.ImageFileList)" value="<%If isEdit Then Response.Write Rs("UploadImage")%>">&nbsp;&nbsp;
			<%If Newasp.setAdminEditor(0)=0 Then%><input type="checkbox" name="AutoRemote" value='1' onClick="remoteUpload(this.checked);"> 自动保存远程图片<%End If%>
			<br>直接从上传图片中选择：
12345

admin_article.asp - 源码说明

本页面展示了「小游戏网站演示www.4399.io 拥有4万条游戏数据」中的 admin_article.asp 源码文件，采用 ASP 编程语言编写，共 1,419 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与4399相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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