📄 specialadd.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
Dim DBC,Conn,sRootDir
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
if SysRootDir<>"" then sRootDir="/"+SysRootDir else sRootDir=""
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net  All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421 
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn  演示站点：test.cooin.com 
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================

%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P020100") then Call ReturnError1()
Dim SelectPath
if Request("SaveFilePath") = "" then
	SelectPath = "/" & ClassDir
end if
%>
<html>
<head>
<link href="../../../CSS/FS_css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>专题/频道添加</title>
</head>
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<script language="JavaScript">
function OK()
{
	if (CheckEnglishStr(document.SpecialFrom.EName,'英文名称')==true)
	{
		document.SpecialFrom.submit();
	}
}
</script>
<body topmargin="2" leftmargin="2">
<form action="" name="SpecialFrom" method="post">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
  <tr bgcolor="#EEEEEE"> 
    <td height="26" colspan="5" valign="middle">
      <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width=35 align="center" alt="保存" onClick="OK();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
		  <td width=2 class="Gray">|</td>
		  <td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
          <td>&nbsp; <input name="action" type="hidden" id="action" value="add"> 
        </tr>
      </table>
	  </td>
  </tr>
</table>
  <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#E0E0E0">
    <tr bgcolor="#FFFFFF"> 
      <td width="100"> <div align="right">中文名称</div></td>
      <td> <input name="CName" type="text" id="CName" style="width:100%" value="<%=Request("CName")%>"> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">英文名称</div></td>
      <td> <input name="EName" type="text" id="EName" style="width:100%" value="<%=Request("EName")%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">导航图片</div></td>
      <td> <input name="NaviPic" type="text" id="NaviPic" size="68" value="<%=Request("NaviPic")%>"> 
        <input type="button" name="Submit" value="选择图片" onClick="OpenWindowAndSetValue('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,290,window,document.SpecialFrom.NaviPic);"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">专题/频道模板</div></td>
      <td> <input name="Templet" readonly type="text" id="Templet" size="68" value="/<%=templetDir %>/NewsClass/Special.htm"> 
        <input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.SpecialFrom.Templet);document.SpecialFrom.Templet.focus();"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">保存路径</div></td>
      <td> <input readonly name="SaveFilePath" type="text" size="68" value="<%=SelectPath%>"> 
        <input type="button" name="Submit5" value="选择路径" onClick="OpenWindowAndSetValue('../../FunPages/SelectPathFrame.asp?CurrPath=<%=sRootDir %>/<% = ClassDir %>',400,300,window,document.SpecialFrom.SaveFilePath);document.SpecialFrom.SaveFilePath.focus();"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">添加时间</div></td>
      <td> <input name="AddTime" readonly type="text" id="AddTime" value="<%if Request("AddTime")="" then Response.Write(now()) else Response.Write(Request("AddTime")) end if%>" size="68"> 
        <input name="sdaf" type="button" id="sdaf" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.SpecialFrom.AddTime);document.SpecialFrom.AddTime.focus();" value="选择日期"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">首页说明</div></td>
      <td> <textarea name="IndexNaviWord" rows="6" id="IndexNaviWord" style="width:100%"><%=Request("IndexNaviWord")%></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF"  style="display:none;"> 
      <td> <div align="right">栏目说明</div></td>
      <td> <input name="ClassNaviWord" type="text" id="ClassNaviWord" style="width:100%" value="<%=Request("ClassNaviWord")%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="18"> <div align="right">更多图片</div></td>
      <td> <input name="MorePic" type="text" id="MorePic" style="width:100%" value="<%=Request("MorePic")%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">扩 展 名</div></td>
      <td> <select name="FileExtName" style="width:100%;">
          <option value="htm" <%if Request("FileExtName")="htm" then Response.Write("selected")%>>htm</option>
          <option value="html" <%if Request("FileExtName")="html" then Response.Write("selected")%>>html</option>
          <option value="shtm" <%if Request("FileExtName")="shtm" then Response.Write("selected")%>>shtm</option>
          <option value="shtml" <%if Request("FileExtName")="shtml" then Response.Write("selected")%>>shtml</option>
          <option value="asp" <%if Request("FileExtName")="asp" then Response.Write("selected")%>>asp</option>
        </select></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <div align="right">导航显示</div></td>
      <td> <input name="ShowNaviTF" type="checkbox" id="ShowNaviTF2" value="1" checked></td>
    </tr>
  </table>
</form>
</body>
</html>
<%
  if Request("action")="add" then
     Dim SpecialObj,SpecialSql,SpCName,SpEName,TempObj,SpAddDate
	 if Request.Form("CName") <> "" then
	 	SpCName = Replace(Replace(Request.Form("CName"),"""",""),"'","")
		if Len(SpCName)>=25 then
			Response.Write("<script>alert(""专题中文名称不能超过25个字符"");</script>")
			Response.End
		end if
	 else
	    Response.Write("<script>alert(""请输入专题中文名称"");</script>")
		Response.End
	 end if
	 if Request.Form("EName")<>"" then
	    SpEName = Replace(Replace(Request.Form("EName"),"""",""),"'","")
		if Len(SpCName)>=50 then
			Response.Write("<script>alert(""专题英文名称不能超过50个字符"");</script>")
			Response.End
		end if
		Set TempObj = Conn.Execute("Select EName from FS_Special where EName='"&SpEName&"'")
		if not TempObj.eof then
			Response.Write("<script>alert(""专题英文名称重复"");</script>")
			Response.End
		end if
	 else
	    Response.Write("<script>alert(""请输入专题英文名称"");</script>")
		Response.End
	 end if
	 if Request.Form("Templet")="" then
	    Response.Write("<script>alert(""请选择专题模板"");</script>")
		Response.End
	 end if
	 if Request.Form("SaveFilePath")="" or isnull(Request.Form("SaveFilePath")) then
	    Response.Write("<script>alert(""请选择文件保存路径"");</script>")
		Response.End
	 End if
	 if Request.Form("FileExtName")="" or isnull(Request.Form("FileExtName")) then
	    Response.Write("<script>alert(""请选择文件扩展名"");</script>")
		Response.End
	 End If
     if isdate(Request.Form("AddTime")) then
		 SpAddDate = Formatdatetime(Request.Form("AddTime"))
	 else
	    Response.Write("<script>alert(""专题添加时间类型错误"");</script>")
		Response.End
	 end if
	  Set SpecialObj=server.createobject(G_FS_RS)
	  SpecialSql="select * from FS_Special where 1=0"
	  SpecialObj.open SpecialSql,Conn,3,3
	  SpecialObj.addnew 
	  SpecialObj("SpecialID") = GetRandomID18
	  SpecialObj("CName") = SpCName
	  SpecialObj("EName") = SpEName
	  if Request.Form("NaviPic")<>"" then
		  SpecialObj("NaviPic") = Request.Form("NaviPic")
	  end if
	  if Request.Form("IndexNaviWord")<>"" then
		  SpecialObj("IndexNaviWord") = Request.Form("IndexNaviWord")
	  end if
	  if Request.Form("ClassNaviWord")<>"" then
		  SpecialObj("ClassNaviWord") = Request.Form("ClassNaviWord")
	  end if
	  if Request.Form("MorePic")<>"" then
		  SpecialObj("MorePic") = Request.Form("MorePic")
	  end if
	  SpecialObj("Templet") = Request.Form("Templet")
	  if Request.Form("ShowNaviTF") = "1" then
		  SpecialObj("ShowNaviTF") = "1"
	  else
		  SpecialObj("ShowNaviTF") = "0"
	  end if 
	  SpecialObj("SaveFilePath") = Request.Form("SaveFilePath")
	  SpecialObj("FileExtName") = Request.Form("FileExtName")
	  SpecialObj("AddTime") = SpAddDate
	  SpecialObj.update
	  SpecialObj.Close
	  Set SpecialObj = Nothing
		%>
		<script>
			top.GetNavFoldersObject().location='../Menu_Folders.asp?Action=Special';		
		</script>
		<%
  end if
%>
⌨️ 快捷键说明

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