📄 jsmodify.asp
字号:
<tr bgcolor="#FFFFFF">
<td>
<div align="center">行间图片</div></td>
<td colspan="4">
<input name="RowBettween" type="text" id="RowBettween" style="width:80%;" size="26" value="<%=JSObj("RowBettween")%>" Title="此项设置上下两条新闻之间的间隔图片，请点击“选择图片”按钮进行设置，亦可为空！" >
<input id="RowBettweenButton" type="button" name="Submit34" value="选择图片" onClick="OpenWindowAndSetValue('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300,window,document.JSForm.RowBettween);"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">图片地址</div></td>
<td colspan="4">
<input name="PicPath" type="text" id="PicPath" value="<%=JSObj("PicPath")%>" style="width:80%;" size="26" readonly Title="为仅需一张图片的样式设置图片，请点击‘选择图片’按钮选择图片！" >
<input id="PicChooseButton" type="button" name="Submit34" value="选择图片" disabled onClick="OpenWindowAndSetValue('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300,window,document.JSForm.PicPath);"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">备 注</div></td>
<td colspan="4">
<textarea name="Info" rows="6" id="Info" style="width:100%" Title="备注，用于代码调用时方便查看属性！" ><%=JSObj("Info")%></textarea></td>
</tr>
</table>
</form>
</body>
</html>
<script>
var TempDateScr = '<% = TempDateStr%>';
var DocumentReadyTF=false;
function document.onreadystatechange()
{
if (document.readyState!="complete") return;
if (DocumentReadyTF) return;
DocumentReadyTF=true;
TypeChoose();
ChoosePic();
ChooseDate(TempDateScr);
}
function TypeChoose()
{
if (document.JSForm.TypeW.checked==true)
{
document.JSForm.MannerW.disabled=false;
document.JSForm.MannerP.disabled=true;
document.JSForm.PicPath.readonly=true;
document.JSForm.PicChooseButton.disabled=true;
document.JSForm.PicWidth.disabled=true;
document.JSForm.PicHeight.disabled=true;
}
else
{
document.JSForm.MannerW.disabled=true;
document.JSForm.MannerP.disabled=false;
document.JSForm.PicPath.readonly=false;
document.JSForm.PicChooseButton.disabled=false;
document.JSForm.PicWidth.disabled=false;
document.JSForm.PicHeight.disabled=false;
}
}
function ShowTitle(TempStr)
{
document.all.TempTip.innerHTML='<font color=red>提示：</font><br><br> <font color=blue>'+TempStr+'</font>';
}
function ChooseDate(DateStr)
{
if (DateStr==1)
{
document.JSForm.DateType.disabled=false;
document.JSForm.DateCSS.disabled=false;
}
else
{
document.JSForm.DateType.disabled=true;
document.JSForm.DateCSS.disabled=true;
}
}
function ChoosePic()
{
if (document.JSForm.MannerW.disabled==false)
document.all.PreviewArea.innerHTML='<img src="Img/Css'+document.JSForm.MannerW.value+'.gif" border="0">';
else
document.all.PreviewArea.innerHTML='<img src="Img/Css'+document.JSForm.MannerP.value+'.gif" border="0">';
}
</script>
<%
if Request.Form("action")="mod" then
dim CNameWordNum,CNameStr,ENameWordNum,ENameStr,JSAddObj,JSNewsNum,JSNewsTitleNum,JSRowNum,JSContentNum,RsJSObj,RsJSSql
if NoCSSHackAdmin(request.form("CName"),"名称")<>"" then
CNameStr = Replace(Replace(request.form("CName"),"""",""),"'","")
CNameWordNum = Cint(Len(CNameStr))
if CNameWordNum>25 then
response.Write("<script>alert(""中文名称不能多于25个字符"");history.back();</script>")
response.end
end if
else
response.Write("<script>alert(""请输入中文名称"");history.back();</script>")
response.end
end if
if isnumeric(request.form("NewsNum")) = false then
response.Write("<script>alert(""新闻调用数必须为数字型"");history.back();</script>")
response.end
else
JSNewsNum = Cint(request.form("NewsNum"))
end if
if isnumeric(request.form("NewsTitleNum")) = false then
response.Write("<script>alert(""新闻标题字数必须为数字型"");history.back();</script>")
response.end
else
JSNewsTitleNum = Cint(request.form("NewsTitleNum"))
end if
if isnumeric(request.form("RowNum")) = false or request.form("RowNum")="0" then
response.Write("<script>alert(""新闻并排条数必须为数字型且不能为0"");history.back();</script>")
response.end
else
JSRowNum = Cint(request.form("RowNum"))
end if
if isnumeric(request.form("ContentNum")) = false then
response.Write("<script>alert(""新闻内容字数必须为数字型"");history.back();</script>")
response.end
else
JSContentNum = Cint(request.form("ContentNum"))
end if
Set RsJSObj=server.createobject(G_FS_RS)
RsJSSql="select * from FS_FreeJS where ID = "&JSID&""
RsJSObj.open RsJSSql,Conn,1,3
Dim TempEName
TempEName = Cstr(RsJSObj("EName"))
RsJSObj("CName") = Cstr(CNameStr)
RsJSObj("Type") = Cint(Replace(Replace(Request.Form("Type"),"""",""),"'",""))
if Request.Form("Type") = "0" then
RsJSObj("Manner") = Cint(Replace(Replace(Request.Form("Manner"),"""",""),"'",""))
else
RsJSObj("Manner") = Cint(Replace(Replace(Request.Form("MannerP"),"""",""),"'",""))
end if
if Request.Form("PicWidth")<>"" and isnull(Request.Form("PicWidth"))=false then
if isnumeric(Request.Form("PicWidth"))=true then
RsJSObj("PicWidth") = Cint(Request.Form("PicWidth"))
else
response.Write("<script>alert(""图片宽度必须为数字型"");history.back();</script>")
response.end
end if
end if
if Request.Form("PicHeight")<>"" and isnull(Request.Form("PicHeight"))=false then
if isnumeric(Request.Form("PicHeight"))=true then
RsJSObj("PicHeight") = Cint(Request.Form("PicHeight"))
else
response.Write("<script>alert(""图片高度必须为数字型"");history.back();</script>")
response.end
end if
end if
RsJSObj("NewsNum") = Cint(JSNewsNum)
RsJSObj("NewsTitleNum") = Cint(JSNewsTitleNum)
RsJSObj("TitleCSS") = Cstr(Request.Form("TitleCSS"))
RsJSObj("ContentCSS") = Cstr(Request.Form("ContentCSS"))
RsJSObj("BackCSS") = Cstr(Request.Form("BackCSS"))
RsJSObj("RowNum") = Cint(JSRowNum)
if Request.Form("MannerP")="12" or Request.Form("MannerP")="16" then
if Replace(Replace(Request.Form("PicPath"),"""",""),"'","")<>"" then
RsJSObj("PicPath") = Cstr(Request.Form("PicPath"))
else
response.Write("<script>alert(""请选择图片地址"");history.back();</script>")
response.end
end if
Else
RsJSObj("PicPath") = Cstr(Request.Form("PicPath"))
end if
if Request.Form("ShowTimeTF")="1" then
RsJSObj("ShowTimeTF") = Cint(Request.Form("ShowTimeTF"))
else
RsJSObj("ShowTimeTF") = "0"
end if
RsJSObj("ContentNum") = Cint(JSContentNum)
RsJSObj("NaviPic") = Cstr(Request.Form("NaviPic"))
if Request.Form("DateType")="" or isnull(Request.Form("DateType")) or isnumeric(Request.Form("DateType"))=false then
RsJSObj("DateType") = "11"
else
RsJSObj("DateType") = Cint(Request.Form("DateType"))
end if
RsJSObj("DateCSS") = Cstr(Request.Form("DateCSS"))
RsJSObj("Info") = Request.Form("Info")
RsJSObj("MoreContent") = Request.Form("MoreContent")
if Request.Form("MoreContent")=1 then
If Request.Form("LinkWord")<>"" and isnull(Request.Form("LinkWord"))=false then
RsJSObj("LinkWord") = Request.Form("LinkWord")
Else
Response.Write("<script>alert(""请输入链接文字或图片"");</script>")
Response.End
End If
If Request.Form("LinkCSS")<>"" or isnull(Request.Form("LinkCSS"))=false then
RsJSObj("LinkCSS") = Request.Form("LinkCSS")
End If
End If
If isnumeric(Request.Form("RowSpace")) then
RsJSObj("RowSpace") = Cint(Request.Form("RowSpace"))
Else
RsJSObj("RowSpace") = 2
End If
RsJSObj("RowBettween") = Request.Form("RowBettween")
RsJSObj("OpenMode") = Request.Form("OpenMode")
RsJSObj.update
RsJSObj.close
Set RsJSObj = Nothing
'--------------------需要重新生成JS文件---------------------------------
Dim JSClassObj,ReturnValue
Set JSClassObj = New JSClass
JSClassObj.SysRootDir = TempSysRootDir
Dim RefreshManner
if Request.Form("Type") = "0" then
RefreshManner = Cint(Replace(Replace(Request.Form("Manner"),"""",""),"'",""))
else
RefreshManner = Cint(Replace(Replace(Request.Form("MannerP"),"""",""),"'",""))
end if
Select case RefreshManner
case "1" ReturnValue = JSClassObj.WCssA(TempEName,True)
case "2" ReturnValue = JSClassObj.WCssB(TempEName,True)
case "3" ReturnValue = JSClassObj.WCssC(TempEName,True)
case "4" ReturnValue = JSClassObj.WCssD(TempEName,True)
case "5" ReturnValue = JSClassObj.WCssE(TempEName,True)
case "6" ReturnValue = JSClassObj.PCssA(TempEName,True)
case "7" ReturnValue = JSClassObj.PCssB(TempEName,True)
case "8" ReturnValue = JSClassObj.PCssC(TempEName,True)
case "9" ReturnValue = JSClassObj.PCssD(TempEName,True)
case "10" ReturnValue = JSClassObj.PCssE(TempEName,True)
case "11" ReturnValue = JSClassObj.PCssF(TempEName,True)
case "12" ReturnValue = JSClassObj.PCssG(TempEName,True)
case "13" ReturnValue = JSClassObj.PCssH(TempEName,True)
case "14" ReturnValue = JSClassObj.PCssI(TempEName,True)
case "15" ReturnValue = JSClassObj.PCssJ(TempEName,True)
case "16" ReturnValue = JSClassObj.PCssK(TempEName,True)
case "17" ReturnValue = JSClassObj.PCssL(TempEName,True)
End Select
Set JSClassObj = Nothing
'--------------------需要重新生成JS文件---------------------------------
if ReturnValue <> "" then
Response.Write("<script>alert('" & ReturnValue & "');location='FreeJSList.asp'</script>")
else
Response.Redirect("FreeJSList.asp")
end if
end if
end if
Set Conn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -