📄 js_sys_add.asp
字号:
</select></td>
</tr>
<tr class="hback">
<td height="26"> 调用子类</td>
<td>
<select name="SonClass" id="SonClass" style="width:90%">
<option value="1" selected="selected">是</option>
<option value="0">否</option>
</select></td>
<td> 日期右对齐</td>
<td>
<select name="RightDate" id="RightDate" style="width:90%">
<option value="1">是</option>
<option value="0">否</option>
</select></td>
</tr>
<tr class="hback">
<td colspan="10" align="center">
<input type="submit" name="submit" value=" 保存 " onClick="Check_space()">
<input type="reset" name="reset" value=" 重置 "> </td>
</tr>
</table>
</form><p>
</body>
</html>
<%
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 or (not(Request.Form("RowSpace")>=0)) 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 FileName='"&FileNameStr&"' OR FileCName='"&NoSqlHack(Request.Form("FileCName"))&"'"
response.write RsClassSql
ClassJsAddObj.Open RsClassSql,Conn,3,3
If ClassJsAddObj.Eof Then
ClassJsAddObj.AddNew
ClassJsAddObj("FileCName") = NoSqlHack(Request.Form("FileCName"))
ClassJsAddObj("FileName") = FileNameStr
ClassJsAddObj("ClassID") = Replacestr(NoSqlHack(Request.Form("strClassID")),":0,else:"&NoSqlHack(Request.Form("strClassID")))
ClassJsAddObj("NewsType") = NoSqlHack(Request.Form("NewsType"))
ClassJsAddObj("NewsNum") = Cint(NoSqlHack(Request.Form("NewsNum")))
ClassJsAddObj("TitleNum") = Cint(NoSqlHack(Request.Form("TitleNum")))
ClassJsAddObj("TitleCSS") = Cstr(NoSqlHack(Request.Form("TitleCSS")))
ClassJsAddObj("RowNum") = Cint(NoSqlHack(Request.Form("RowNum")))
ClassJsAddObj("NaviPic") = NoSqlHack(Request.Form("NaviPic"))
ClassJsAddObj("RowBetween") = NoSqlHack(Request.Form("RowBetween"))
ClassJsAddObj("FileSavePath") = Cstr(NoSqlHack(Request.Form("SaveFilePath")))
ClassJsAddObj("RowSpace") = Cint(NoSqlHack(Request.Form("RowSpace")))
ClassJsAddObj("DateType") = Cint(NoSqlHack(Request.Form("DateType")))
ClassJsAddObj("DateCSS") = Cstr(NoSqlHack(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") = NoSqlHack(Request.Form("MoreContent"))
End if
If Request.Form("MoreContent")<>0 then
ClassJsAddObj("LinkWord") = NoSqlHack(Request.Form("LinkWord"))
ClassJsAddObj("LinkCSS") = NoSqlHack(Request.Form("LinkCSS"))
End If
If Request.Form("PicWidth")<>"" and isnull(Request.Form("PicWidth"))=false then
ClassJsAddObj("PicWidth") = Cint(NoSqlHack(Request.Form("PicWidth")))
End If
If Request.Form("PicHeight")<>"" and isnull(Request.Form("PicHeight"))=false then
ClassJsAddObj("PicHeight") = Cint(NoSqlHack(Request.Form("PicHeight")))
End If
If Request.Form("MarSpeed")<>"" and isnull(Request.Form("MarSpeed"))=false then
ClassJsAddObj("MarSpeed") = Cint(NoSqlHack(Request.Form("MarSpeed")))
End If
If Request.Form("MarDirection")<>"" and isnull(Request.Form("MarDirection"))=false then
ClassJsAddObj("MarDirection") = Cstr(NoSqlHack(Request.Form("MarDirection")))
End If
If Request.Form("ShowTitle")<>"" and isnull(Request.Form("ShowTitle"))=false then
ClassJsAddObj("ShowTitle") = NoSqlHack(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") = NoSqlHack(Request.Form("MarWidth"))
End If
If Request.Form("MarHeight")<>"" and isnull(Request.Form("MarHeight"))=false then
ClassJsAddObj("MarHeight") = NoSqlHack(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
ClassJsAddObj("AddTime") = now
'------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
Else
Str_ErrCodes=Server.URLEncode("<li>你输入的中文名称或文件名称已经存在.</li>")
Response.Redirect("lib/error.asp?ErrCodes="&Str_ErrCodes&"&ErrorUrl="&Str_ErrorUrl)
Response.End
End If
ClassJsAddObj.Close
Set ClassJsAddObj = Nothing
ResultStr = CreateSysJS(FileNameStr)
if ResultStr = true Then
Str_ErrCodes=Server.URLEncode("<li>恭喜，新增成功。</li>")
Response.Redirect("lib/Success.asp?ErrCodes="&Str_ErrCodes&"&ErrorUrl="&Str_ErrorUrl)
else
Str_ErrCodes=Server.URLEncode(ResultStr)
Response.Redirect("lib/error.asp?ErrCodes="&Str_ErrCodes&"&ErrorUrl="&Str_ErrorUrl)
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>
<script language="javascript">
function Check_space()
{
if (document.ClassJSForm.NewsNum.value=="")
{
alert("新闻数量必须填写!")
}
if (document.ClassJSForm.RowNum.value=="")
{
alert("不要留空!")
}
}
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 + -