📄 js_sys_modify.asp
字号:
<option value="8" <%if RsSysModObj("DateType") = "8" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)%></option>
<option value="9" <%if RsSysModObj("DateType") = "9" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)%></option>
<option value="10" <%if RsSysModObj("DateType") = "10" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)%></option>
<option value="11" <%if RsSysModObj("DateType") = "11" then Response.Write("selected") end if%>><%=Month(Now)&"月"&Day(Now)&"日"%></option>
<option value="12" <%if RsSysModObj("DateType") = "12" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"时"%></option>
<option value="13" <%if RsSysModObj("DateType") = "13" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"点"%></option>
<option value="14" <%if RsSysModObj("DateType") = "14" then Response.Write("selected") end if%>><%=Hour(Now)&"时"&Minute(Now)&"分"%></option>
<option value="15" <%if RsSysModObj("DateType") = "15" then Response.Write("selected") end if%>><%=Hour(Now)&":"&Minute(Now)%></option>
<option value="16" <%if RsSysModObj("DateType") = "16" then Response.Write("selected") end if%>><%=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"%></option>
</select></td>
<td> 保存路径</td>
<td>
<input name="SaveFilePath" type="text" id="SaveFilePath" style="width:52%" value="<%=RsSysModObj("FileSavePath")%>">
<INPUT type="button" name="Submit4" value="选择路径" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPathFrame.asp?CurrPath=<%= str_SavePath %>',300,250,window,document.ClassJSForm.SaveFilePath);document.ClassJSForm.SaveFilePath.focus();"></td>
</tr>
<tr class="hback">
<td height="26"> 日期样式</td>
<td>
<input name="DateCSS" type="text" id="DateCSS" style="width:90%" value="<%=RsSysModObj("DateCSS")%>"></td>
<td> 显示栏目</td>
<td>
<select name="ClassName" id="ClassName" style="width:90%">
<option value="1" <%If RsSysModObj("ClassName")=1 then Response.Write("selected")%>>显示</option>
<option value="0" <%If RsSysModObj("ClassName")=0 then Response.Write("selected")%>>不显示</option>
</select></td>
</tr>
<tr class="hback">
<td height="26"> 调用子类</td>
<td>
<select name="SonClass" id="SonClass" style="width:90%">
<option value="1" <%If RsSysModObj("SonClass")=1 then Response.Write("selected")%>>是</option>
<option value="0" <%If RsSysModObj("SonClass")=0 then Response.Write("selected")%>>否</option>
</select></td>
<td> 日期右对齐</td>
<td>
<select name="RightDate" id="RightDate" style="width:90%">
<option value="1" <%If RsSysModObj("RightDate")=1 then Response.Write("selected")%>>是</option>
<option value="0" <%If RsSysModObj("RightDate")=0 then Response.Write("selected")%>>否</option>
</select></td>
</tr>
<tr class="hback">
<td colspan="10" align="center">
<input type="submit" name="submit" value=" 保存 ">
<input type="reset" name="reset" value=" 重置 "> </td>
</tr>
</table>
</form><p>
</body>
</html>
<%
RsSysModObj.close
set RsSysModObj=nothing
If Request.QueryString("action") = "add" then
Dim ResultStr,TempFsoObj,FileNameStr
FileNameStr = NoSqlHack(Trim(request.Form("FileName")))
If Request.Form("FileCName")="" then
sErrStr = sErrStr & "<li>文件中文名称不能为空</li>" '文件名称不能为空或是有非法字符
End If
If FileNameStr="" then
sErrStr = sErrStr & "<li>文件名称不能为空</li>" '文件名称不能为空或是有非法字符
End If
If Request.Form("SaveFilePath")="" then
sErrStr = sErrStr & "<li>未指定文件保存路径</li>" '文件名称不能为空或是有非法字符
End If
If isnumeric(Request.Form("NewsNum"))=false then
sErrStr = sErrStr & "<li>调用新闻数量必须为数字型</li>" '调用新闻数量必须为数字型
End If
If isnumeric(Request.Form("TitleNum"))=false then
sErrStr = sErrStr & "<li>标题字数必须为数字型</li>"
End If
If isnumeric(Request.Form("RowNum"))=false then
sErrStr = sErrStr & "<li>新闻每行排列数量必须为数字型</li>"
End If
If isnumeric(Request.Form("RowSpace"))=false then
sErrStr = sErrStr & "<li>新闻行距必须为数字型</li>"
End IF
If Types="Class" and Request.Form("ClassID")="" then
sErrStr = sErrStr & "<li>栏目ID参数传递错误</li>" '栏目ID参数传递错误
End If
If Request.Form("NewsType")="PicNews" or Request.Form("NewsType")="FilterNews" then
If isnumeric(Request.Form("PicWidth"))=false or isnumeric(Request.Form("PicHeight"))=false then
sErrStr = sErrStr & "<li>图片规格必须为数字型</li>"
End If
End If
If Request.Form("MoreContent")=1 then
If Request.Form("LinkWord")="" then
sErrStr = sErrStr & "<li>请输入链接字样</li>"
End If
End If
If Request.Form("NewsType")="MarqueeNews" or Request.Form("NewsType")="ProclaimNews" then
If isnumeric(Request.Form("MarSpeed"))=false then
sErrStr = sErrStr & "<li>新闻滚动速度必须为数字型</li>"
End If
End If
if sErrStr<>"" then
response.Redirect("lib/error.asp?ErrCodes="&server.URLEncode(sErrStr))
response.End()
end if
Dim ClassJsAddObj,RsClassSql
Set ClassJsAddObj = Server.CreateObject(G_FS_RS)
RsClassSql = "Select * from FS_NS_Sysjs where ID="&FileID&""
ClassJsAddObj.Open RsClassSql,Conn,1,3
ClassJsAddObj("FileCName") = Request.Form("FileCName")
ClassJsAddObj("ClassID") = Replacestr(NoSqlHack(Request.Form("strClassID")),":0,else:"&Request.Form("strClassID"))
ClassJsAddObj("NewsType") = Request.Form("NewsType")
ClassJsAddObj("NewsNum") = Cint(Request.Form("NewsNum"))
ClassJsAddObj("TitleNum") = Cint(Request.Form("TitleNum"))
ClassJsAddObj("TitleCSS") = Cstr(Request.Form("TitleCSS"))
ClassJsAddObj("RowNum") = Cint(Request.Form("RowNum"))
ClassJsAddObj("NaviPic") = Request.Form("NaviPic")
ClassJsAddObj("RowBetween") = Request.Form("RowBetween")
ClassJsAddObj("FileSavePath") = Cstr(Request.Form("SaveFilePath"))
ClassJsAddObj("RowSpace") = Cint(Request.Form("RowSpace"))
ClassJsAddObj("DateType") = Cint(Request.Form("DateType"))
ClassJsAddObj("DateCSS") = Cstr(Request.Form("DateCSS"))
If Request.Form("ClassName")<>0 then
ClassJsAddObj("ClassName") = 1
Else
ClassJsAddObj("ClassName") = 0
End If
If Request.Form("SonClass")<>0 then
ClassJsAddObj("SonClass") = 1
Else
ClassJsAddObj("SonClass") = 0
End If
If Request.Form("RightDate")<>0 then
ClassJsAddObj("RightDate") = 1
Else
ClassJsAddObj("RightDate") = 0
End If
If Request.Form("MoreContent")<>"" and isnull(Request.Form("MoreContent"))=false then
ClassJsAddObj("MoreContent") = Request.Form("MoreContent")
End if
If Request.Form("MoreContent")<>0 then
ClassJsAddObj("LinkWord") = Request.Form("LinkWord")
ClassJsAddObj("LinkCSS") = Request.Form("LinkCSS")
End If
If Request.Form("PicWidth")<>"" and isnull(Request.Form("PicWidth"))=false then
ClassJsAddObj("PicWidth") = Cint(Request.Form("PicWidth"))
End If
If Request.Form("PicHeight")<>"" and isnull(Request.Form("PicHeight"))=false then
ClassJsAddObj("PicHeight") = Cint(Request.Form("PicHeight"))
End If
If Request.Form("MarSpeed")<>"" and isnull(Request.Form("MarSpeed"))=false then
ClassJsAddObj("MarSpeed") = Cint(Request.Form("MarSpeed"))
End If
If Request.Form("MarDirection")<>"" and isnull(Request.Form("MarDirection"))=false then
ClassJsAddObj("MarDirection") = Cstr(Request.Form("MarDirection"))
End If
If Request.Form("ShowTitle")<>"" and isnull(Request.Form("ShowTitle"))=false then
ClassJsAddObj("ShowTitle") = Request.Form("ShowTitle")
End If
If Request.Form("OpenMode")<>1 then
ClassJsAddObj("OpenMode") = 0
Else
ClassJsAddObj("OpenMode") = 1
End If
If Request.Form("MarWidth")<>"" and isnull(Request.Form("MarWidth"))=false then
ClassJsAddObj("MarWidth") = Request.Form("MarWidth")
End If
If Request.Form("MarHeight")<>"" and isnull(Request.Form("MarHeight"))=false then
ClassJsAddObj("MarHeight") = Request.Form("MarHeight")
End If
if request.Form("NewsType")="HotNews" then
if isnumeric(request.Form("setHitsValue")) then
ClassJsAddObj("MarSpeed") = NoSqlHack(request.Form("setHitsValue"))
else
ClassJsAddObj("MarSpeed") = 1
end if
end if
'------2007-01-18
If Trim(Request.Form("strClassName")) = "" Or Trim(Request.Form("strClassID")) = "" Then
FileTypeStr = 2
Else
FileTypeStr = 1
End If
ClassJsAddObj("FileType") = FileTypeStr
'--------------------
ClassJsAddObj.Update
ClassJsAddObj.Close
Set ClassJsAddObj = Nothing
ResultStr = CreateSysJS(FileNameStr)
if ResultStr = true then
response.Redirect("lib/Success.asp?ErrorUrl="&server.URLEncode( "../Js_Sys_manage.asp?Act=View" )&"&ErrCodes=<li>恭喜，修改成功。</li>")
else
response.Redirect("lib/error.asp?ErrCodes=<li>"&ResultStr&"</li>&ErrorUrl=../Js_Sys_manage.asp")
end if
Response.End
End If
Conn.Close
Set Conn = Nothing
%>
<script>
var TempLink='<% = ScrLink %>';
var TempNewsType='<% = ScrNewsType %>';
function ChooseLink(Link)
{
if (Link==1)
{
document.ClassJSForm.LinkWord.disabled=false;
document.ClassJSForm.LinkCSS.disabled=false;
}
else
{
document.ClassJSForm.LinkWord.disabled=true;
document.ClassJSForm.LinkCSS.disabled=true;
}
}
function ChooseNewsType(NewsType)
{
if ((NewsType=='MarqueeNews')||(NewsType=='ProclaimNews'))
{
document.ClassJSForm.MarSpeed.disabled=false;
document.ClassJSForm.MarDirection.disabled=false;
document.ClassJSForm.MarWidth.disabled=false;
document.ClassJSForm.MarHeight.disabled=false;
}
else
{
document.ClassJSForm.MarSpeed.disabled=true;
document.ClassJSForm.MarDirection.disabled=true;
document.ClassJSForm.MarWidth.disabled=true;
document.ClassJSForm.MarHeight.disabled=true;
}
if ((NewsType=='PicNews')||(NewsType=='FilterNews'))
{
document.ClassJSForm.PicWidth.disabled=false;
document.ClassJSForm.PicHeight.disabled=false;
document.ClassJSForm.ShowTitle.disabled=false;
}
else
{
document.ClassJSForm.PicWidth.disabled=true;
document.ClassJSForm.PicHeight.disabled=true;
document.ClassJSForm.ShowTitle.disabled=true;
}
}
ChooseLink(TempLink);
ChooseNewsType(TempNewsType);
function SelectClass()
{
var ReturnValue='',TempArray=new Array();
ReturnValue = OpenWindow('lib/SelectClassFrame.asp',400,300,window);
if (ReturnValue.indexOf('***')!=-1)
{
TempArray = ReturnValue.split('***');
document.all.strClassID.value=TempArray[0]
document.all.strClassName.value=TempArray[1]
}
}
</script>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -