saveimgdiradd.asp

Flash电子相册 v1.2 Build 1108完整版本下载

<%@ language=vbscript %>
<%
if session("flag")<>2 then
response.write"<script>alert('请重新登录！');window.parent.close();</script>"
response.end
end if
%>
<!--#include FILE="UpLoadClass.asp"-->
<%
	Dim MyString, MyString2, MyString3, MyString4, rowscount,jjjj
	Dim A(31)
			cc = LoadFile("bilder/"&request.Form("delvalue")&"/bilder.txt")
			dd = LoadFile("bilder/config.txt")
	ROWids=dd
	ccEND = InStr(ROWids,"&ordner=")

	for i=1 to 31
	 A(i)=0
	next

	ccEND = ccEND+8
	ccCOUNT = mid(ROWids,ccEND)
	
	MyString = Split(ccCOUNT, "|", -1, 1)
	LenOfArray=UBound(MyString)-Lbound(MyString)
	

	if LenOfArray>30 then
response.write"<script>alert('该相册最多只能有31个目录了，不能再添加新目录了！');window.parent.close();</script>"
	'response.redirect "adminimgdir.asp"
response.end
	end if

				
					 for i=0 to LenOfArray
						product_namexh=trim(MyString(i))
						MyString2 = Split(product_namexh, "`", -1, 1)
						product_no=MyString2(0)
						xh=CInt(MyString2(1))
						A(xh)=1
					next 
					
						for jjjj=1 to 31
	 						if A(jjjj)=0 then
	 						 Exit For
	 						end if
						next
					
	
					ccBEGIN = InStr(dd,"&anz_shootings=") + 15
					ccEND = InStr(dd,"&now_dir=")
					ccCOUNTdir = CInt(mid(dd,ccBEGIN,ccEND-ccBEGIN))+1
					dd="&anz_shootings="&CStr(ccCOUNTdir)&mid(dd,ccEND)&"|"&replace(request.Form("addir"),"`","")&"`"&CStr(jjjj)								
call SaveToFile(dd,"bilder/config.txt")
					
	response.redirect "adminimgdir.asp"


	
%>


	


<SCRIPT>
//alert('<%=imglist%>');
//window.opener.location.reload();
window.parent.close();
</script>