saveimgdirdelete.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"-->
<%

	
			cc = LoadFile("bilder/"&request.Form("delvalue")&"/bilder.txt")
			dd = LoadFile("bilder/config.txt")&"|"

					ccBEGIN = InStr(dd,"&anz_shootings=") + 15
					ccEND = InStr(dd,"&now_dir=")
					ccCOUNTdir = CInt(mid(dd,ccBEGIN,ccEND-ccBEGIN))
					dd="&anz_shootings="&CStr(ccCOUNTdir-1)&mid(dd,ccEND)

					if ccCOUNTdir<2 then
response.write"<script>alert('该相册只有一个目录了，不能再删除该目录！');window.parent.close();</script>"
	'response.redirect "adminimgdir.asp"
response.end
					end if
					
					if len(cc)>12 then
					ccBEGIN = InStr(cc,"&anz_bilder=") + 12
					ccEND = InStr(cc,"&fotos=")
					ccCOUNT = CInt(mid(cc,ccBEGIN,ccEND-ccBEGIN))
					if ccCOUNT>0 then
response.write"<script>alert('该相册目录中还有照片，请全部清空后再删除该相册目录');window.parent.close();</script>"
	'response.redirect "adminimgdir.asp"
response.end
					end if
					end if


					



  Dim regEx, str1
  replStr=""					' 建立变量。
  str1 = dd
  Set regEx = New RegExp				' 建立正则表达式。
  regEx.Pattern = request.Form("deltext")&"`"&request.Form("delvalue")	& "\|"			' 设置模式。
  regEx.IgnoreCase = True				' 设置是否区分大小写。
  ReplaceTest = regEx.Replace(str1, replStr)




ReplaceTest=mid(ReplaceTest,1,len(ReplaceTest)-1)
				
'response.write ReplaceTest
'response.end
					
					
					call SaveToFile(ReplaceTest,"bilder/config.txt")
					
	response.redirect "adminimgdir.asp"
	
%>


	


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