📄 jsmodify.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" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System v3.1
'最新更新：2004.12
'==============================================================================
'商业注册联系：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"),"P060200") then Call ReturnError1()
Dim TempSysRootDir
if SysRootDir = "" then
TempSysRootDir = ""
else
TempSysRootDir = "/" & SysRootDir
end if
dim JSID,JSObj,TempManner,TempDateStr
if request("JSID")<>"" then
JSID = Clng(request("JSID"))
Set JSObj = Conn.Execute("select * from FS_FreeJS where ID = "&JSID&"")
if JSObj.eof then
Response.Write("<script>alert(""参数传递错误"");window.close();</script>")
response.end
end if
TempManner = JSObj("Manner")
TempDateStr = JSObj("ShowTimeTF")
Dim NaviPicStr
If JSObj("NaviPic")<>"" And (Not IsNull(JSObj("NaviPic"))) Then
NaviPicStr = Server.HtmlEnCode(JSObj("NaviPic"))
Else
NaviPicStr = ""
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="action3" value="mod">
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#E7E7E7">
<tr bgcolor="#FFFFFF" Title="JS的中文名称，便于后台查阅和管理，请不要超过25个字符！">
<td width="10%">
<div align="center">名 称</div></td>
<td colspan="3">
<input name="CName" type="text" id="CName" value="<%=JSObj("CName")%>" style="width:100%">
<div align="center"></div></td>
<td rowspan="12" align="center" id="PreviewArea"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">英文名称</div></td>
<td colspan="3">
<input name="EName" type="text" id="EName" value="<%=JSObj("EName")%>" disabled 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 JSObj("Type")="0" then response.write("checked") end if%> onClick="TypeChoose();ChoosePic();" Title="JS类型（文字）选择！" >
文字
<input id="TypeP" type="radio" name="Type" value="1" <%if JSObj("Type")="1" then response.write("checked") end if%> onClick="TypeChoose();ChoosePic();" Title="JS类型（图片）选择！" >
图片</td>
<td width="10%">
<div align="center">新闻条数</div></td>
<td width="20%">
<input name="NewsNum" type="text" id="NewsNum2" value="<%=JSObj("NewsNum")%>" 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 JSObj("Manner")="1" then response.write("selected") end if%>>样式A</option>
<option value="2" <%if JSObj("Manner")="2" then response.write("selected") end if%>>样式B</option>
<option value="3" <%if JSObj("Manner")="3" then response.write("selected") end if%>>样式C</option>
<option value="4" <%if JSObj("Manner")="4" then response.write("selected") end if%>>样式D</option>
<option value="5" <%if JSObj("Manner")="5" then response.write("selected") end if%>>样式E</option>
</select> </td>
<td>
<div align="center">并排条数</div></td>
<td>
<input name="RowNum" type="text" id="RowNum3" Title="此项设置JS在每行内显示的新闻条数，请务必不要置为‘0’！" value="<%=JSObj("RowNum")%>" 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 JSObj("Manner")="6" then response.write("selected") end if%>>样式A</option>
<option value="7" <%if JSObj("Manner")="7" then response.write("selected") end if%>>样式B</option>
<option value="8" <%if JSObj("Manner")="8" then response.write("selected") end if%>>样式C</option>
<option value="9" <%if JSObj("Manner")="9" then response.write("selected") end if%>>样式D</option>
<option value="10" <%if JSObj("Manner")="10" then response.write("selected") end if%>>样式E</option>
<option value="11" <%if JSObj("Manner")="11" then response.write("selected") end if%>>样式F</option>
<option value="12" <%if JSObj("Manner")="12" then response.write("selected") end if%>>样式G</option>
<option value="13" <%if JSObj("Manner")="13" then response.write("selected") end if%>>样式H</option>
<option value="14" <%if JSObj("Manner")="14" then response.write("selected") end if%>>样式I</option>
<option value="15" <%if JSObj("Manner")="15" then response.write("selected") end if%>>样式J</option>
<option value="16" <%if JSObj("Manner")="16" then response.write("selected") end if%>>样式K</option>
</select></td>
<td>
<div align="center">新闻行距</div></td>
<td>
<input name="RowSpace" type="text" id="RowSpace3" value="<%=JSObj("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="<%=JSObj("TitleCSS")%>" style="width:100%;"></td>
<td>
<div align="center">新开窗口</div></td>
<td>
<select name="OpenMode" id="select5" style="width:100%">
<option value="1" <%If JSObj("OpenMode")=1 then Response.Write("selected")%>>是</option>
<option value="0" <%If JSObj("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="<%=JSObj("NewsTitleNum")%>" Title="每条新闻的标题显示字数！" style="width:100%;"></td>
<td>
<div align="center">新闻日期</div></td>
<td>
<select name="ShowTimeTF" id="select6" style="width:100%" onChange="ChooseDate(this.value);" Title="此项设置在新闻标题后面是否显示本条新闻的更新时间！" >
<option value="1" <%If JSObj("ShowTimeTF")=1 then Response.Write("selected")%>>调用</option>
<option value="0" <%If JSObj("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="<%=JSObj("ContentCSS")%>" style="width:100%;"></td>
<td>
<div align="center">日期样式</div></td>
<td>
<input name="DateCSS" type="text" id="DateCSS" value="<%=JSObj("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="<%=JSObj("ContentNum")%>" style="width:100%;"></td>
<td>
<div align="center">背景样式</div></td>
<td>
<input name="BackCSS" type="text" id="BackCSS2" value="<%=JSObj("BackCSS")%>" style="width:100%;" Title="整体JS的背景样式（表格样式），请直接输入样式名称即可。如果不选用此项设置，请置空！" ></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">更多链接</div></td>
<td>
<select name="MoreContent" id="select" style="width:100% " Title="此项为有新闻内容的样式在其右下角加一链接到该新闻页的链接，如果不显示此链接，请选择“不显示”！" >
<option value="1" <%If JSObj("MoreContent")=1 then Response.Write("selected") %>>显示</option>
<option value="0" <%If JSObj("MoreContent")=0 then Response.Write("selected") %>>不显示</option>
</select></td>
<td>
<div align="center">日期格式</div></td>
<td>
<select name="DateType" id="select7" style="width:100%" Title="日期调用样式,默认为X月X日！" >
<option value="1" <%if JSObj("DateType") = "1" then Response.Write("selected") end if%>><%=Year(Now)&"-"&Month(Now)&"-"&Day(Now)%></option>
<option value="2" <%if JSObj("DateType") = "2" then Response.Write("selected") end if%>><%=Year(Now)&"."&Month(Now)&"."&Day(Now)%></option>
<option value="3" <%if JSObj("DateType") = "3" then Response.Write("selected") end if%>><%=Year(Now)&"/"&Month(Now)&"/"&Day(Now)%></option>
<option value="4" <%if JSObj("DateType") = "4" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)&"/"&Year(Now)%></option>
<option value="5" <%if JSObj("DateType") = "5" then Response.Write("selected") end if%>><%=Day(Now)&"/"&Month(Now)&"/"&Year(Now)%></option>
<option value="6" <%if JSObj("DateType") = "6" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)&"-"&Year(Now)%></option>
<option value="7" <%if JSObj("DateType") = "7" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)&"."&Year(Now)%></option>
<option value="8" <%if JSObj("DateType") = "8" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)%></option>
<option value="9" <%if JSObj("DateType") = "9" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)%></option>
<option value="10" <%if JSObj("DateType") = "10" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)%></option>
<option value="11" <%if JSObj("DateType") = "11" then Response.Write("selected") end if%>><%=Month(Now)&"月"&Day(Now)&"日"%></option>
<option value="12" <%if JSObj("DateType") = "12" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"时"%></option>
<option value="13" <%if JSObj("DateType") = "13" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"点"%></option>
<option value="14" <%if JSObj("DateType") = "14" then Response.Write("selected") end if%>><%=Hour(Now)&"时"&Minute(Now)&"分"%></option>
<option value="15" <%if JSObj("DateType") = "15" then Response.Write("selected") end if%>><%=Hour(Now)&":"&Minute(Now)%></option>
<option value="16" <%if JSObj("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="<%=JSObj("LinkWord")%>" style="width:100%;"></td>
<td>
<div align="center">链接样式</div></td>
<td>
<input name="LinkCSS" type="text" id="LinkCSS" Title="为链接字样选择CSS样式，直接输入CSS样式名称即可！" value="<%=JSObj("LinkCSS")%>" style="width:100%;"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">图片宽度</div></td>
<td>
<input name="PicWidth" type="text" disabled id="PicWidth3" Title="此项是为图片类型的JS设置图片的宽度参数！" value="<%=JSObj("PicWidth")%>" style="width:100%;"></td>
<td>
<div align="center">图片高度</div></td>
<td>
<input name="PicHeight" type="text" disabled id="PicHeight3" title="此项是为图片类型的JS设置图片的高度参数！" value="<%=JSObj("PicHeight")%>" style="width:100%;"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">导航图片</div></td>
<td colspan="4">
<input name="NaviPic" type="text" id="NaviPic" Title="新闻标题前面的导航图标，可以是“·”等字符，也可以是图片地址，如果是图片地址，请用<br>‘＜img src=../img/1.gif border=0＞’样式，其中‘src=’后为图片路径，‘border=0’为图片无边框！" value="<%=NaviPicStr%>" style="width:100%"></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -