📄 sysjsadd.asp
字号:
<td> 显示栏目</td>
<td>
<select name="ShowClassTF" id="ShowClassTF" style="width:90%">
<option value="0" <%If Request("ShowClassTF")=0 or Request("ShowClassTF")="" then Response.Write("selected")%>>不显示</option>
<option value="1" <%If Request("ShowClassTF")=1 then Response.Write("selected")%>>显示</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26"> 调用子类</td>
<td>
<select name="SmallClass" id="SmallClass" style="width:90%" <%If Types = "System" then Response.Write("disabled")%>>
<option value="1" <%If Request("SmallClass")=1 then Response.Write("selected")%>>是</option>
<option value="0" <%If Request("SmallClass")=0 or Request("SmallClass")="" then Response.Write("selected")%>>否</option>
</select></td>
<td> 日期右对齐</td>
<td>
<select name="RightDate" id="RightDate" style="width:90%">
<option value="1" <%If Request("RightDate")=1 then Response.Write("selected")%>>是</option>
<option value="0" <%If Request("RightDate")=0 or Request("RightDate")="" then Response.Write("selected")%>>否</option>
</select></td>
</tr>
</table>
</form>
</body>
</html>
<%
If Request.Form("action") = "add" then
Dim ResultStr,TempFsoObj,FileNameStr
If Replace(Replace(Replace(Request.Form("FileName"),"/",""),"\",""),"'","")="" then
Response.Write("<script>alert(""文件名称不能为空或是有非法字符"");</script>") '文件名称不能为空或是有非法字符
Response.End
Else
FileNameStr = Replace(Replace(Replace(Request.Form("FileName"),"/",""),"\",""),"'","")
End If
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
Set TempFsoObj = Conn.Execute("Select ID from FS_SysJs where FileName='"&FileNameStr&"'")
If Not TempFsoObj.eof then
Response.Write("<script>alert(""文件名称已经存在"");</script>")
Response.End
end if
TempFsoObj.Close
Set TempFsoObj = Nothing
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 1=0"
ClassJsAddObj.Open RsClassSql,Conn,3,3
ClassJsAddObj.AddNew
ClassJsAddObj("FileName") = Cstr(FileNameStr)
ClassJsAddObj("FileCName") = Request.Form("FileCName")
If Types = "Class" then
ClassJsAddObj("FileType") = 1
else
ClassJsAddObj("FileType") = 2
End If
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"))
If Request.Form("NaviPic")<>"" then
ClassJsAddObj("NaviPic") = Cstr(Request.Form("NaviPic"))
End If
If Request.Form("RowBetween")<>"" then
ClassJsAddObj("RowBetween") = Cstr(Request.Form("RowBetween"))
End If
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("ShowClassTF")<>0 then
ClassJsAddObj("ClassName") = 1
Else
ClassJsAddObj("ClassName") = 0
End If
If Request.Form("SmallClass")<>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("AddTime") = Now()
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>
function ChooseLink(Link)
{
if (Link!=1)
{
document.ClassJSForm.LinkWord.disabled=true;
document.ClassJSForm.LinkCSS.disabled=true;
}
else
{
document.ClassJSForm.LinkWord.disabled=false;
document.ClassJSForm.LinkCSS.disabled=false;
}
}
function ChooseNewsType(NewsType)
{
if ((NewsType!='MarqueeNews')&&(NewsType!='ProclaimNews'))
{
document.ClassJSForm.MarSpeed.disabled=true;
document.ClassJSForm.MarDirection.disabled=true;
document.ClassJSForm.MarWidth.disabled=true;
document.ClassJSForm.MarHeight.disabled=true;
}
else
{
document.ClassJSForm.MarSpeed.disabled=false;
document.ClassJSForm.MarDirection.disabled=false;
document.ClassJSForm.MarWidth.disabled=false;
document.ClassJSForm.MarHeight.disabled=false;
}
if ((NewsType!='PicNews')&&(NewsType!='FilterNews'))
{
document.ClassJSForm.PicWidth.disabled=true;
document.ClassJSForm.PicHeight.disabled=true;
document.ClassJSForm.ShowTitle.disabled=true;
}
else
{
document.ClassJSForm.PicWidth.disabled=false;
document.ClassJSForm.PicHeight.disabled=false;
document.ClassJSForm.ShowTitle.disabled=false;
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -