asp和fso实现新建文件夹
'-------------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>
<script>
function checkAll(){
for (i=0;i<document.forms[0].length;i++){
if (document.forms[0][i].tagName=="INPUT"){
if (document.forms[0][i].type=="radio")
{document.forms[0][i].checked="checked"}
}
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {
color: #CC3300;
font-size: 13px;
font-family: "宋体";
font-weight: bold;
}
.STYLE5 {
font-family: "宋体";
color: #FF0000;
}
.STYLE7 {
font-family: "宋体";
font-size: 13px;
}
-->
</style>
<form name="form1" method="post" action="folder-action.asp">
<%
AttPath=Request.QueryString("AttPath")
if len(AttPath)<1 then
AttPath="uploadfile"
elseif bc(server.mapPath(AttPath),server.mapPath("uploadfile")) then
AttPath="uploadfile"
end If
ArrFolders=split(getPathList(AttPath)(0),"*")
Arrfiles=split(getPathList(AttPath)(1),"*")
'response.write (AttPath&"<br>")
if AttPath<>"uploadfile" then
arrUpFolders=split(AttPath,"/")
for i=0 to ubound(arrUpFolders)-1
arrUpFolder=arrUpFolder&TempF&arrUpFolders(i)
TempF="/"
next
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ff9600" colspan="5"height="2"></td>
</tr>
<tr>
<td height="32" colspan="3" align="left">
<table width="100%"
相关文档:
只能输入1个数字
表达式 ^\d$
描述 匹配一个数字
匹配的例子 0,1,2,3
不匹配的例子
只能输入n个数字
表达式 ^\d{n}$ 例如^\d{8}$
描述 匹配8个数字
匹配的例子 12345678,22223334,12344321
不匹配的例子
只能输入至少n个数字
表达式 ^\d{n,}$ 例如^\d{8, ......
在文章调试JavaScript/VB Script脚本程序(Wscript篇)里面,有网友问我如何调试ASP里面的脚本程序,我不知道他问得是调试ASP网页里面的VBScript ASP代码,还是ASP.NET网页里面的JavaScript/VBScript客户端代码,所以我就在这篇文章里面先将调试ASP网页里面的ASP代码这种情况都解释一下吧。
估计ASP这个玩艺用的人已经很少 ......
这篇文章主要介绍了如何使用ASP控制Web的各种打印效果,它能够控制纵打、横打和页面边距等。
1、控制"纵打"、 "横打"和"页面的边距"。
(1)
< script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) ......
本机ip[客户端]:
request.servervariables("remote_addr")
从哪个页面转到当前页面的:
Request.ServerVariables("HTTP_REFERER")
得到本页地址:
<%="http://" + Request.ServerVariables("SERVER_NAME") + ":" + Request.ServerVariables("SERVER_PORT") + reques ......