saveimgdirename.asp

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

<%@ 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")

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





	'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>