ASP實例：一個簡單的ASP無組件上傳類

作者：Eve Cole 更新時間：2025-05-10 01:48:01

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

簡單的ASP無組件上傳類，發出來讓大家看看。可以做做實驗！

以下為引用的內容：

<%@ language=javascript%>

var self = Request.serverVariables(SCRIPT_NAME);

if (Request.serverVariables(REQUEST_METHOD)==POST)

{

var oo = new uploadFile();

oo.path = myFile; //存放路徑,為空表示當前路徑,默認為uploadFile

oo.named = file; //命名方式,date表示用日期來命名,file表示用文件名本身,默認為file

oo.ext = all; //允許上傳的擴展名,all表示都允許,默認為all

oo.over = true; //當存在相同文件名時是否覆蓋,默認為false

oo.size = 1*1024*1024; //最大字節數限制,默認為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);

}

//獲取二進制和文件字節數

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>

</head>

<body>

<form action=<%=self%> method=post enctype=multipart/form-data onSubmit=return (this.upFile.value!='');>

</form>

</body>

</html>

分享：10行代碼讓你告別Arp作惡導致的掉線
一同學在宿舍是很多人一起上網，有不少人用arp作惡，導致上網老是掉線。問我有什麼辦法嗎，於是就寫了下面的vbs腳本，同學說用了後聊天也不掉線了。以