saveimgdir.asp

来自「Flash电子相册 v1.2 Build 1108完整版本下载」· ASP 代码 · 共 46 行

<%@ 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/"&request2.Form("mapfl")&"/bilder.txt")
			dd = LoadFile("bilder/config.txt")

					
					




					ccBEGIN = InStr(dd,"&anz_shootings=")

					ccEND = InStr(dd,"&ordner=")


					'imglist=mid(dd,ccBEGIN,ccEND+7)& mid(request.Form("imglist"),2)					

					ccEND = InStr(dd,"&ordner=")
					imglist = mid(dd,1,ccEND+7)& mid(request.Form("imglist"),2)	
					
					
					call SaveToFile(imglist,"bilder/config.txt")
					
	
	
%>


	


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