📄 jsadd.asp

📁 asp源码图片ASP整站
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
function document.onreadystatechange()
{
	if (document.readyState!="complete") return;
	if (DocumentReadyTF) return;
	DocumentReadyTF=true;
	ChoosePic();
}
function TypeChoose()
{
	if (document.JSForm.TypeW.checked==true)
	{ 
		document.JSForm.MannerW.disabled=false;
		document.JSForm.MannerP.disabled=true;
		document.JSForm.PicPath.disabled=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.disabled=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>&nbsp;&nbsp;&nbsp;&nbsp;<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">';
}
//===============================
//2006-3-20
function setNaviPic(obj){
	var ret = OpenWindow('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300,window);
	if(ret !='' && ret != null){
		obj.value = '<img src="<%=TempSysRootDir%>' + ret + '" border=0>';
	}
}
//===============================
</script>
<%
  if Request.Form("action")="add" 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 request.form("EName")<>"" then
	    ENameStr = Replace(Replace(request.form("EName"),"""",""),"'","")
		ENameWordNum = Cint(Len(ENameStr))
		if ENameWordNum>=50 then
			 response.Write("<script>alert(""英文名称不能多于50个字符"");history.back();</script>")
			 response.end
		end if
		Set JSAddObj = Conn.Execute("select EName from FS_FreeJS where EName='"&ENameStr&"'")
		if Not JSAddObj.eof then
			 response.Write("<script>alert(""英文名称重复,请重新填写"");history.back();</script>")
			 response.end
		end if
		JSAddObj.close
		Set JSAddObj = Nothing
	  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"
	  RsJSObj.open RsJSSql,Conn,3,3
	  RsJSObj.addnew 
	  RsJSObj("EName") = Cstr(ENameStr)
	  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)
	  if Replace(Replace(Request.Form("TitleCSS"),"""",""),"'","")<>"" then
		  RsJSObj("TitleCSS") = Cstr(Request.Form("TitleCSS"))
	  end if
	  if Replace(Replace(Request.Form("ContentCSS"),"""",""),"'","")<>"" then
		  RsJSObj("ContentCSS") = Cstr(Request.Form("ContentCSS"))
	  end if
	  if Replace(Replace(Request.Form("BackCSS"),"""",""),"'","")<>"" then
		  RsJSObj("BackCSS") = Cstr(Request.Form("BackCSS"))
	  end if
	  RsJSObj("RowNum") = Cint(JSRowNum)
	  Dim OpenCreateThumbnail,CreateSmallPicOK
	  CreateSmallPicOK=False
 	  OpenCreateThumbnail=GetConfig(32)
	  if Request.Form("MannerP")="12" or Request.Form("MannerP")="16" then
		  if Replace(Replace(Request.Form("PicPath"),"""",""),"'","")<>"" then
				'======================================
				'如果系统设置了生成缩略图功能 则生成缩略图
				If OpenCreateThumbnail=1 then 
					Dim sRootDir,PicFileName
					PicFileName=mid(Request.Form("PicPath"),InStrRev(Request.Form("PicPath"),"/")+1)
					sRootDir=TempSysRootDir& left(Request.Form("PicPath"),instrrev(Request.Form("PicPath"),"/"))
					CreateSmallPicOK=CreateThumbnail(sRootDir&PicFileName,Request.Form("PicWidth"),Request.Form("PicHeight"),"0",sRootDir&"s_"&PicFileName)'由原图片生成指定宽度和高度的缩略图,如果成功返回True,失败返回False
					'=======================================
					If CreateSmallPicOK=True then
						RsJSObj("PicPath") =left(Request.Form("PicPath"),InStrRev(Request.Form("PicPath"),"/"))&"s_"&PicFileName
					Else
						RsJSObj("PicPath") =Replace(Replace(Request.Form("PicPath"),"""",""),"'","")
					End If
				Else
					RsJSObj("PicPath") =Replace(Replace(Request.Form("PicPath"),"""",""),"'","")
				End If
		  else
				response.Write("<script>alert(""请选择图片地址"");history.back();</script>")
				response.end
		  end if
	   Else
	   	  RsJSObj("PicPath") ="/" &Upfiles& "/help/dot.gif"
	  end if
	  RsJSObj("ShowTimeTF") = Cint(Request.Form("ShowTimeTF"))
	  RsJSObj("AddTime") = Now()
	  RsJSObj("ContentNum") = Cint(JSContentNum)
	  if Replace(Replace(Request.Form("NaviPic"),"""",""),"'","")<>"" then
		  RsJSObj("NaviPic") = Cstr(Request.Form("NaviPic"))
	  end if
	  if Request.Form("DateCSS")<>"" and isnull(Request.Form("DateColor"))=false then
		  RsJSObj("DateCSS") = Cstr(Request.Form("DateCSS"))
	  end if
	  if Request.Form("DateType")<>"" or isnull(Request.Form("DateType"))=false then
		  RsJSObj("DateType") = Cint(Request.Form("DateType"))
	  end if
	  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
	Select case Request.Form("Manner")
		case "1"   ReturnValue = JSClassObj.WCssA(ENameStr,True)
		case "2"   ReturnValue = JSClassObj.WCssB(ENameStr,True)
		case "3"   ReturnValue = JSClassObj.WCssC(ENameStr,True)
		case "4"   ReturnValue = JSClassObj.WCssD(ENameStr,True)
		case "5"   ReturnValue = JSClassObj.WCssE(ENameStr,True)
		case "6"   ReturnValue = JSClassObj.PCssA(ENameStr,True)
		case "7"   ReturnValue = JSClassObj.PCssB(ENameStr,True)
		case "8"   ReturnValue = JSClassObj.PCssC(ENameStr,True)
		case "9"   ReturnValue = JSClassObj.PCssD(ENameStr,True)
		case "10"   ReturnValue = JSClassObj.PCssE(ENameStr,True)
		case "11"   ReturnValue = JSClassObj.PCssF(ENameStr,True)
		case "12"  ReturnValue = JSClassObj.PCssG(ENameStr,True)
		case "13"   ReturnValue = JSClassObj.PCssH(ENameStr,True)
		case "14"   ReturnValue = JSClassObj.PCssI(ENameStr,True)
		case "15"   ReturnValue = JSClassObj.PCssJ(ENameStr,True)
		case "16"   ReturnValue = JSClassObj.PCssK(ENameStr,True)
		case "17"   ReturnValue = JSClassObj.PCssL(ENameStr,True)
	End Select
	Set JSClassObj = Nothing
	Dim TempFreeJSID
	TempFreeJSID = Conn.Execute("Select ID from FS_FreeJS where EName='" & ENameStr & "'")("ID")
	if ReturnValue <> "" then
		Response.Write("<script>alert('" & ReturnValue & "');location='FreeJSList.asp'</script>")
	else
		Response.Redirect("FreeJSList.asp")
	end if
end if
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -