数据库编程

开发平台：

ASP/ASPX

Templets_AddFolder.asp：源码内容

							<% Option Explicit %>
<!--#include file="../FS_Inc/Const.asp" -->
<!--#include file="../FS_InterFace/MF_Function.asp" -->
<!--#include file="../FS_Inc/Function.asp" -->
<!--#include file="../FS_Inc/Cls_Cache.asp" -->
<%
Dim Conn
MF_Default_Conn
MF_Session_TF
Dim Path,AddPath,Action,sRootDir
if SysRootDir<>"" then sRootDir="/" & SysRootDir else sRootDir=""
Path = Request("Path")
AddPath = Request("AddPath")
Action = Request("Action")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<link href="../../CSS/ModeWindow.css" rel="stylesheet">
<body topmargin="0" leftmargin="0" scroll=no>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <form action="" method="post" name="Form">
  <tr> 
    <td height="36" colspan="2"> 
      <div align="center">栏目名称
        <input type="text" onFocus="CheckErrorChar();" onBlur="CheckErrorChar();" name="AddPath" value="<% = AddPath %>">
      </div></td>
  </tr>
  <tr> 
    <td height="26">
<div align="center">
        <input type="submit" name="Submit" value=" 确 定 ">
          <input name="Action" type="hidden" id="Action" value="Submit">
          <input name="ParentPath" type="hidden" value="<% = Path %>" id="ParentPath">
        </div></td>
    <td height="26">
<div align="center">
        <input type="button" onClick="window.close();" name="Submit2" value=" 取 消 ">
      </div></td>
  </tr>
 </form>
</table>
</body>
</html>
<script language="JavaScript">
document.Form.AddPath.focus();
function CheckErrorChar()
{
	var TempStr=document.Form.AddPath.value,AlertStr='';
	var ErrorCharArray=new Array(''','"','*');
	var re=null;
	for (var i=0;i<ErrorCharArray.length;i++)
	{
		if (TempStr.indexOf(ErrorCharArray[i])!=-1)
		{
			AlertStr+=ErrorCharArray[i];
			re=new RegExp('['+ErrorCharArray[i]+']?','ig');
			document.Form.AddPath.value=document.Form.AddPath.value.replace(re,'');
		}
	}
	if (AlertStr!='') alert('发现非法字符'+AlertStr);
}
</script>
<%
if Action = "Submit" then
	Dim FsoObj,PhysicalPath,ResponseStr
	if Path <> "" and AddPath <> "" then
		if Path = sRootDir &"/" then
			PhysicalPath = Server.MapPath(Path & AddPath)
		else
			PhysicalPath = Server.MapPath(Path & "/" & AddPath)
		end if
		Set FsoObj = Server.CreateObject(G_FS_FSO)
		if FsoObj.FolderExists(PhysicalPath) = True then
			ResponseStr = "目录已经存在"
		else
			FsoObj.CreateFolder PhysicalPath
		end if
		Set FsoObj = Nothing
	end if
	if ResponseStr <> "" then
		%>
			<script language="JavaScript">alert('<% = ResponseStr %>');document.Form.AddPath.select();</script>
		<%
	else
		%>
			<script language="JavaScript">dialogArguments.location.reload();window.close();</script>
		<%
	end if
end if
%>

						