<!--#include file="../fy.Function.asp"-->
<!--#include file="../../fy_inc/fy.Code.asp"-->
<%
	Dim Save_Rs,ClassIDValue,Save_Rs1,Getrootid,Articleadd,EnName,ShowErr,Save_SQL,Save_SQL1,ClassID
	Dim picurl,Extension,ClassKeywords,ClassDescription,ChangesLinkUrl 
	dim ismenu,tg,classename,ConTentTemplate,sitepath,moresite,siteurl,ACTlink
	Dim TGGroupID,OrderID,FolderTemplate,ModeID,FilePathName,content,makehtmlname,pageTemplate
	dim ClassPurview,ClassArrGroupID,ClassReadPoint,ClassChargeType ,ClassPitchTime,ClassReadTimes,ClassDividePercent,Action,aid,FieldName
	Dim ext,extarr,labelfor,classmake,i
	
	Action=Request("Action")
	aid=ChkNumeric(Request("aid"))
	ModeID=ChkNumeric(Request("ModeID"))
	
 	FieldName=rsql(Request("FieldName"))
	
 
	picurl=fycms.S("picurl")
	Dim carr
	carr=Split(picurl, vbCrLf)
	For i=0 To ubound(carr)
		'ClassEname=""
		picurl= carr(i)
		If Trim(carr(i))="" Then  Exit For
 		extarr=Split(carr(i),".")
		If  ubound(extarr)>0 Then ext =  extarr(1) Else ext=""
 		  fycms.actexe("insert Into syspic(aid,picurl,title,ModeID,addtime,Fieldname,ext,orderid) values("&aid&",'" &carr(i)& "','',"&ModeID&",'"&Now()&"','"&Fieldname&"','"&ext&"',10)")
	Next 
  	 Call fycms.ActErr("²Ù×÷³É¹¦","fy_Mode/allpic.asp?Action=addall&ModeID="&ModeID&"&FieldName="&FieldName&"&aid="&aid&"","")
   %>