国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP實例:一個簡單的ASP無組件上傳類_ASP教程

2024-05-04 11:03:34
字體:
供稿:網(wǎng)友

推薦:ASP技巧實例:ASP實現(xiàn)最簡潔的多重查詢的解決方案
我們經(jīng)常會遇到多重查詢問題,而長長的SQL語句往往讓人丈二和尚摸不著頭腦。特別是客戶端部分填入查詢條件時,如用普通方法將更是難上加難。以下巧妙地利用"where 1=1"的恒等式(

簡單的ASP無組件上傳類,發(fā)出來讓大家看看??梢宰鲎鰧嶒?!

以下為引用的內(nèi)容:

<%@ language="javascript"%>
<%
var self = Request.serverVariables("SCRIPT_NAME");
if (Request.serverVariables("REQUEST_METHOD")=="POST")
{
var oo = new uploadFile();
oo.path = "myFile"; //存放路徑,為空表示當(dāng)前路徑,默認為uploadFile
oo.named = "file"; //命名方式,date表示用日期來命名,file表示用文件名本身,默認為file
oo.ext = "all"; //允許上傳的擴展名,all表示都允許,默認為all
oo.over = true; //當(dāng)存在相同文件名時是否覆蓋,默認為false
oo.size = 1*1024*1024; //最大字節(jié)數(shù)限制,默認為1G
oo.upload();
Response.write('<script type="text/javascript">location.replace("' self '")</script>');
}

//ASP無組件上傳類
function uploadFile()
{
var bLen = Request.totalBytes;
var bText = Request.binaryRead(bLen);
var oo = Server.createObject("ADODB.Stream");
oo.mode = 3;
this.path = "uploadFile";
this.named = "file";
this.ext = "all";
this.over = false;
this.size = 1*1024*1024*1024; //1GB

//文件上傳
this.upload = function ()
{
var o = this.getInfo();
if (o.size>this.size)
{
alert("文件過大,不能上傳!");
return;
}
var f = this.getFileName();
var ext = f.replace(/^. /./,"");
if (this.ext!="all"&&!new RegExp(this.ext.replace(/,/g,"|"),"ig").test(ext))
{
alert("目前暫不支持擴展名為 " ext " 的文件上傳!");
return;
}
if (this.named=="date")
{
f = new Date().toLocaleString().replace(//D/g,"") "." ext;
}

oo.open();
oo.type = 1;
oo.write(o.bin);
this.path = this.path.replace(/[^////]$/,"$&/");
var fso = Server.createObject("Scripting.FileSystemObject");
if(this.path!=""&&!fso.folderExists(Server.mapPath(this.path)))
{
fso.createFolder(Server.mapPath(this.path));
}
try
{
oo.saveToFile(Server.mapPath(this.path f),this.over?2:1);
alert("上傳成功!");
}
catch(e)
{
alert("對不起,此文件已存在!");
}
oo.close();
delete(oo);

}

//獲取二進制和文件字節(jié)數(shù)
this.getInfo = function ()
{
oo.open();
oo.type=1;
oo.write(bText);
oo.position = 0;
oo.type=2;
oo.charset="unicode";
var gbCode=escape(oo.readText()).replace(/%u(..)(..)/g,"%$2%$1");
var sPos=gbCode.indexOf("") 12;
var sLength=bLen-(gbCode.substring(0,gbCode.indexOf("")).length/3)-sPos/3-6;
oo.close();

oo.open();
oo.type = 1;
oo.write(bText);
oo.position=sPos/3;
var bFile=oo.read(sLength);
oo.close();

return { bin:bFile, size:sLength };
}

//獲取文件名
this.getFileName = function ()
{
oo.open();
oo.type = 2;
oo.writeText(bText);
oo.position = 0;
oo.charset = "gb2312";
var fileName = oo.readText().match(/filename=/"(. ?)/"/i)[1].split("//").slice(-1)[0];
oo.close();
return fileName;
}

function alert(msg)
{
Response.write('<script type="text/javascript">alert("' msg '");</script>');
}
}
%>
<html>
<head>
<title>ASP無組件上傳類</title>
<meta http-equiv="content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form action="<%=self%>" method="post" enctype="multipart/form-data" onSubmit="return (this.upFile.value!='');">
<input type="file" name="upFile"/>
<input type="submit" value="上傳文件"/>
</form>
</body>
</html>


分享:10行代碼讓你告別Arp作惡導(dǎo)致的掉線
一同學(xué)在宿舍是很多人一起上網(wǎng),有不少人用arp作惡,導(dǎo)致上網(wǎng)老是掉線。問我有什么辦法嗎,于是就寫了下面的vbs腳本,同學(xué)說用了后聊天也不掉線了。 以

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 莒南县| 邵武市| 建水县| 原阳县| 大新县| 昌乐县| 安徽省| 珠海市| 西昌市| 甘肃省| 吴川市| 五寨县| 邯郸市| 巴南区| 藁城市| 盖州市| 洛浦县| 仁怀市| 清流县| 鄂尔多斯市| 兰坪| 阿拉尔市| 本溪| 新平| 柯坪县| 朝阳区| 怀远县| 扎赉特旗| 广昌县| 三台县| 乐业县| 抚远县| 盐山县| 云南省| 张家港市| 赞皇县| 凤凰县| 甘孜县| 华阴市| 杭州市| 柘荣县|