📄 sysjsmodify.asp
字号:
<option value="5" <%if RsSysModObj("DateType") = "5" then Response.Write("selected") end if%>><%=Day(Now)&"/"&Month(Now)&"/"&Year(Now)%></option>
<option value="6" <%if RsSysModObj("DateType") = "6" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)&"-"&Year(Now)%></option>
<option value="7" <%if RsSysModObj("DateType") = "7" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)&"."&Year(Now)%></option>
<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="Subsadfmit" value="选择路径" onClick="OpenWindowAndSetValue('../../FunPages/SelectPathFrame.asp?CurrPath=<%="/"&TeempSysRootDir&"JS"%>',400,300,window,document.ClassJSForm.SaveFilePath);document.ClassJSForm.SaveFilePath.focus();"></td>
</tr>
<tr bgcolor="#FFFFFF">
<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 bgcolor="#FFFFFF">
<td height="26"> 调用子类</td>
<td>
<select name="SonClass" id="SonClass" style="width:90%" <%If Types = "System" then Response.Write("disabled")%>>
<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>
</table>
</form>
</body>
</html>
<%
If Request.Form("action") = "add" then
Dim ResultStr,TempFsoObj,FileNameStr
FileNameStr = RsSysModObj("FileName")
If NoCSSHackAdmin(Request.Form("FileCName"),"中文名称")="" then
Response.Write("<script>alert(""文件中文名称不能为空"");</script>") '文件名称不能为空或是有非法字符
Response.End
End If
If Request.Form("SaveFilePath")="" then
Response.Write("<script>alert(""未指定文件保存路径"");</script>") '文件名称不能为空或是有非法字符
Response.End
End If
If isnumeric(Request.Form("NewsNum"))=false then
Response.Write("<script>alert(""调用新闻数量必须为数字型"");</script>") '调用新闻数量必须为数字型
Response.End
End If
If isnumeric(Request.Form("TitleNum"))=false then
Response.Write("<script>alert(""标题字数必须为数字型"");</script>")
Response.End
End If
If isnumeric(Request.Form("RowNum"))=false then
Response.Write("<script>alert(""新闻每行排列数量必须为数字型"");</script>")
Response.End
End If
If isnumeric(Request.Form("RowSpace"))=false then
Response.Write("<script>alert(""新闻行距必须为数字型"");</script>")
Response.End
End IF
If Types="Class" and Request.Form("ClassID")="" then
Response.Write("<script>alert(""栏目ID参数传递错误"");</script>") '栏目ID参数传递错误
Response.End
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
Response.Write("<script>alert(""图片规格必须为数字型"");</script>")
Response.End
End If
End If
If Request.Form("MoreContent")=1 then
If Request.Form("LinkWord")="" then
Response.Write("<script>alert(""请输入链接字样"");</script>")
Response.End
End If
End If
If Request.Form("NewsType")="MarqueeNews" or Request.Form("NewsType")="ProclaimNews" then
If isnumeric(Request.Form("MarSpeed"))=false then
Response.Write("<script>alert(""新闻滚动速度必须为数字型"");</script>")
Response.End
End If
End If
Dim ClassJsAddObj,RsClassSql
Set ClassJsAddObj = Server.CreateObject(G_FS_RS)
RsClassSql = "Select * from FS_SysJs where ID="&FileID&""
ClassJsAddObj.Open RsClassSql,Conn,3,3
ClassJsAddObj("FileCName") = Request.Form("FileCName")
if Types = "Class" then
ClassJsAddObj("ClassID") = Cstr(Request.Form("ClassID"))
end if
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
ClassJsAddObj.Update
ClassJsAddObj.Close
Set ClassJsAddObj = Nothing
ResultStr = CreateSysJS(FileNameStr)
if ResultStr = true then
Response.Redirect("ClassJsList.asp?Types=" & Types)
else
Response.Write("<script>alert("""&ResultStr&""");location='ClassJsList.asp?Types=" & Types & "'</script>")
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);
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -