📄 jsadd.asp
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../Inc/Cls_JS.asp" -->
<!--#include file="../../../Inc/ThumbnailFunction.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.5
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net 演示站点：test.cooin.com
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P060100") then Call ReturnError1()
Dim TempSysRootDir
if SysRootDir = "" then
TempSysRootDir = ""
else
TempSysRootDir = "/" & SysRootDir
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>自由JS添加</title>
</head>
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<body leftmargin="2" topmargin="2" >
<form action="" method="post" name="JSForm">
<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="document.JSForm.submit();" 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> <input name="action" type="hidden" id="action2" value="add"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#E7E7E7">
<tr bgcolor="#FFFFFF">
<td width="10%">
<div align="center">名 称</div></td>
<td colspan="3">
<input name="CName" type="text" id="CName" style="width:100%" title="JS的中文名称，便于后台查阅和管理，请不要超过25个字符！" value="<%=request("CName")%>" maxlength="25">
<div align="center"></div></td>
<td rowspan="11" align="center" valign="middle" id="PreviewArea"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">英文名称</div></td>
<td colspan="3">
<input name="EName" type="text" id="EName" value="<%=request("EName")%>" style="width:100%" title="JS的英文名称，用于前台调用，请不要超过50个字符且不能与已经存在的JS重名！">
<div align="center"></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">类 型</div></td>
<td width="20%">
<input id="TypeW" name="Type" type="radio" value="0" <%if request("Type")="" or request("Type")="0" then response.write("checked") end if%> onClick="TypeChoose();ChoosePic();" title="JS类型（文字）选择！">
文字
<input id="TypeP" type="radio" name="Type" value="1" <%if request("Type")="1" then response.write("checked") end if%> onClick="TypeChoose();ChoosePic();" title="JS类型（图片）选择！">
图片</td>
<td width="10%" valign="middle">
<div align="center">新闻条数</div></td>
<td width="20%" valign="middle">
<input name="NewsNum" type="text" id="NewsNum3" value="<%if request("NewsNum")<>"" then response.write(request("NewsNum")) else response.write("5") end if%>" title="此JS允许调用的新闻条数！" style="width:100% "></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">文字样式</div></td>
<td>
<select name="Manner" id="MannerW" style="width:100% " title="文字JS样式选择，上面有此样式的预览！" onChange="ChoosePic();">
<option value="1" <%if request("Manner")="1" then response.write("selected") end if%>>样式A</option>
<option value="2" <%if request("Manner")="2" then response.write("selected") end if%>>样式B</option>
<option value="3" <%if request("Manner")="3" then response.write("selected") end if%>>样式C</option>
<option value="4" <%if request("Manner")="4" then response.write("selected") end if%>>样式D</option>
<option value="5" <%if request("Manner")="5" then response.write("selected") end if%>>样式E</option>
</select> </td>
<td valign="middle">
<div align="center">并排条数</div></td>
<td valign="middle">
<input name="RowNum" type="text" id="RowNum3" title="ShowTitle('此项设置JS在每行内显示的新闻条数，请务必不要置为‘0’！" value="<%if request("RowNum")<>"" then response.write(request("RowNum")) else response.write("2") end if%>" style="width:100%;"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">图片样式</div></td>
<td>
<select name="MannerP" id="MannerP" style="width:100% " disabled title="图片JS样式选择，上面有此样式的预览！" onChange="ChoosePic();">
<option value="6" <%if request("Manner")="6" then response.write("selected") end if%>>样式A</option>
<option value="7" <%if request("Manner")="7" then response.write("selected") end if%>>样式B</option>
<option value="8" <%if request("Manner")="8" then response.write("selected") end if%>>样式C</option>
<option value="9" <%if request("Manner")="9" then response.write("selected") end if%>>样式D</option>
<option value="10" <%if request("Manner")="10" then response.write("selected") end if%>>样式E</option>
<option value="11" <%if request("Manner")="11" then response.write("selected") end if%>>样式F</option>
<option value="12" <%if request("Manner")="12" then response.write("selected") end if%>>样式G</option>
<option value="13" <%if request("Manner")="13" then response.write("selected") end if%>>样式H</option>
<option value="14" <%if request("Manner")="14" then response.write("selected") end if%>>样式I</option>
<option value="15" <%if request("Manner")="15" then response.write("selected") end if%>>样式J</option>
<option value="16" <%if request("Manner")="16" then response.write("selected") end if%>>样式K</option>
</select></td>
<td valign="middle">
<div align="center">新闻行距</div></td>
<td valign="middle">
<input name="RowSpace" type="text" id="RowSpace3" value="<%=Request("RowSpace")%>" style="width:100%;" title="此项设置上下两条新闻之间的行距，请注意输入数值！"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">标题样式</div></td>
<td>
<input name="TitleCSS" type="text" id="TitleCSS" title="新闻标题的CSS样式表。请直接输入样式名称。如果不选用此项设置，请置空！" value="<%=request("TitleCSS")%>" style="width:100%;"></td>
<td valign="middle">
<div align="center">新开窗口</div></td>
<td valign="middle">
<select name="OpenMode" id="select" style="width:100%;">
<option value="1" <%If Request("OpenMode")=1 then Response.Write("selected")%>>是</option>
<option value="0" <%If Request("OpenMode")=0 then Response.Write("selected")%>>否</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">标题字数</div></td>
<td>
<input name="NewsTitleNum" type="text" id="NewsTitleNum2" value="<%if request("NewsTitleNum")<>"" then response.write(request("NewsTitleNum")) else response.write("5") end if%>" title="每条新闻的标题显示字数！;" style="width:100%;"></td>
<td valign="middle">
<div align="center">新闻日期</div></td>
<td valign="middle">
<select name="ShowTimeTF" id="select4" style="width:100%;" onChange="ChooseDate(this.value);" title="此项设置在新闻标题后面是否显示本条新闻的更新时间！">
<option value="1" <%If Request("ShowTimeTF")=1 then Response.Write("selected")%>>调用</option>
<option value="0" <%If Request("ShowTimeTF")=0 then Response.Write("selected")%>>不调用</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">内容样式</div></td>
<td>
<input name="ContentCSS" type="text" id="ContentCSS" title="新闻内容的CSS样式表。请直接输入样式名称。如果不选用此项设置，请置空！" value="<%=request("ContentCSS")%>" style="width:100% "></td>
<td valign="middle">
<div align="center">日期样式</div></td>
<td valign="middle">
<input name="DateCSS" type="text" id="DateCSS" value="<%=request("DateCSS")%>" style="width:100%;" title="日期字体的CSS样式。直接输入样式名称即可！"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">内容字数</div></td>
<td>
<input name="ContentNum" type="text" id="ContentNum2" title="为需要显示新闻内容的样式设置每条新闻的内容显示字数！" value="<%if request("ContentNum")<>"" then response.write(request("ContentNum")) else response.write("30") end if%>" style="width:100% "></td>
<td valign="middle">
<div align="center">背景样式</div></td>
<td valign="middle">
<input style="width:100%;" name="BackCSS" type="text" id="BackCSS2" value="<%=request("BackCSS")%>" size="14" title="整体JS的背景样式（表格样式），请直接输入样式名称即可。如果不选用此项设置，请置空！"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">更多链接</div></td>
<td>
<select name="MoreContent" id="select2" style="width:100%;" title="此项为有新闻内容的样式在其右下角加一链接到该新闻页的链接，如果不显示此链接，请选择“不显示”！">
<option value="1" <%If Request("MoreContent")=1 then Response.Write("selected") %>>显示</option>
<option value="0" <%If Request("MoreContent")=0 then Response.Write("selected") %>>不显示</option>
</select></td>
<td valign="middle">
<div align="center">日期格式</div></td>
<td valign="middle">
<select name="DateType" id="select5" style="width:100%;" title="日期调用样式,默认为X月X日！">
<option value="1" <%if Request("DateType") = "1" then Response.Write("selected") end if%>><%=Year(Now)&"-"&Month(Now)&"-"&Day(Now)%></option>
<option value="2" <%if Request("DateType") = "2" then Response.Write("selected") end if%>><%=Year(Now)&"."&Month(Now)&"."&Day(Now)%></option>
<option value="3" <%if Request("DateType") = "3" then Response.Write("selected") end if%>><%=Year(Now)&"/"&Month(Now)&"/"&Day(Now)%></option>
<option value="4" <%if Request("DateType") = "4" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)&"/"&Year(Now)%></option>
<option value="5" <%if Request("DateType") = "5" then Response.Write("selected") end if%>><%=Day(Now)&"/"&Month(Now)&"/"&Year(Now)%></option>
<option value="6" <%if Request("DateType") = "6" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)&"-"&Year(Now)%></option>
<option value="7" <%if Request("DateType") = "7" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)&"."&Year(Now)%></option>
<option value="8" <%if Request("DateType") = "8" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)%></option>
<option value="9" <%if Request("DateType") = "9" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)%></option>
<option value="10" <%if Request("DateType") = "10" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)%></option>
<option value="11" <%if Request("DateType") = "11" then Response.Write("selected") end if%>><%=Month(Now)&"月"&Day(Now)&"日"%></option>
<option value="12" <%if Request("DateType") = "12" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"时"%></option>
<option value="13" <%if Request("DateType") = "13" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"点"%></option>
<option value="14" <%if Request("DateType") = "14" then Response.Write("selected") end if%>><%=Hour(Now)&"时"&Minute(Now)&"分"%></option>
<option value="15" <%if Request("DateType") = "15" then Response.Write("selected") end if%>><%=Hour(Now)&":"&Minute(Now)%></option>
<option value="16" <%if Request("DateType") = "16" then Response.Write("selected") end if%>><%=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"%></option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">链接字样</div></td>
<td>
<input name="LinkWord" type="text" id="LinkWord" title="为需要显示新闻链接的样式设置链接字样，可以是图片地址，如果是图片地址，请用<br>‘＜img src=../img/1.gif border=0＞’样式，其中‘src=’后为图片路径，‘border=0’为图片无边框！" value="<%=Request("LinkWord")%>" style="width:100%;"></td>
<td valign="middle">
<div align="center">链接样式</div></td>
<td valign="middle">
<input name="LinkCSS" type="text" id="LinkCSS" title="为链接字样选择CSS样式，直接输入CSS样式名称即可！" value="<%=Request("LinkCSS")%>" style="width:100%;"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">图片宽度</div></td>
<td>
<input name="PicWidth" type="text" disabled id="PicWidth4" onFocus="ShowTitle('此项是为设置图片类型的JS设置图片的宽度参数！');" onBlur="ShowTitle('');" value="<%if request("PicWidth")<>"" then response.write(request("PicWidth")) else response.write("60") end if%>" size="14" style="width:100%;"></td>
<td>
<div align="center">图片高度</div></td>
<td>
<input name="PicHeight" type="text" disabled id="PicHeight3" onFocus="ShowTitle('此项是为设置图片类型的JS设置图片的高度参数！');" onBlur="ShowTitle('');" value="<%if request("PicHeight")<>"" then response.write(request("PicHeight")) else response.write("60") end if%>" size="14" style="width:100%;"></td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">导航图片</div></td>
<td colspan="4">
<input name="NaviPic" type="text" id="NaviPic2" title="新闻标题前面的导航图标，可以是“·”等字符，也可以是图片地址，如果是图片地址，请选择图片！" value="<%=request("NaviPic")%>" style="width:80%; ">
<input id="NaviPicButton" type="button" name="33" value="选择图片" onClick="setNaviPic(this.form.NaviPic);"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">行间图片</div></td>
<td colspan="4">
<input name="RowBettween" type="text" id="RowBettween" size="26" value="<%=request("RowBettween")%>" title="此项设置上下两条新闻之间的间隔图片，请点击“选择图片”按钮进行设置，亦可为空！" style="width:80%;">
<input id="RowBettweenButton" type="button" name="Submit34" value="选择图片" onClick="OpenWindowAndSetValue('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300,window,document.JSForm.RowBettween);"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">图片地址</div></td>
<td colspan="4">
<input name="PicPath" type="text" id="PicPath" value="<%=request("PicPath")%>" style="width:80%;" disabled title="为仅需一张图片的样式设置图片，请点击‘选择图片’按钮选择图片！">
<input id="PicChooseButton" type="button" name="Submit34" value="选择图片" disabled onClick="OpenWindowAndSetValue('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300,window,document.JSForm.PicPath);"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">备 注</div></td>
<td colspan="4">
<textarea name="Info" rows="6" id="Info" style="width:100%" Title="备注，用于代码调用时方便查看属性！"><%=request("Info")%></textarea></td>
</tr>
</table>
</form>
</body>
</html>
<script>
var DocumentReadyTF=false;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -