asp笔记

zxwwjs

浏览: 9826 次
来自: ...

最近访客更多访客>>

snowstorm

博主相关

博客

微博

相册

留言

关于我

文章分类

全部博客 (20)

社区版块

存档分类

一、javascript程序

写入注册表

REGEDIT4

[HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerMenuExt]

[HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerMenuExt添加到百度搜藏]

@="http://cang.baidu.com/-/cang.html"

之后用JAVASCRIPT接收数据

<html>

<body>

<scriptLANGUAGE="JavaScript">

if(external.menuArguments){

varparentwin=external.menuArguments;

if(parentwin.document.selection){

varsel=parentwin.document.selection.createRange().text;

}

if(!sel){

varsel='';

}

sel=substr(sel,1,240);

varurl=parentwin.location.href;

vartitle=parentwin.document.title;

if(parentwin.event.srcElement.tagName=="A"){

url=parentwin.event.srcElement.getAttribute("HREF");

title=parentwin.event.srcElement.innerText;

}

title=substr(title,1,76);

url=substr(url,1,255);

alert("title:"+title+" url:"+url);

}

functionsubstr(str,num1,num2)

{

varbytes=0;

varretStr="";

for(vari=0;i<str.length;i++){

if(str.charCodeAt(i)>127){

bytes=bytes+2;

}

else{

bytes++;

}

if(bytes<(num2+1)&&bytes>(num1-1)){

retStr=retStr+str.charAt(i);

}

returnretStr;

}

</script>

</body>

</html>

二、将目录列表写入数据库

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

dimid

id=request.QueryString("file_id")

ifid<>""then

setconnect=Server.CreateObject("ADODB.CONNECTION")

connect.open"DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("data/data.mdb")

setrsObj=connect.execute("selectfile_datafrom[file]wherefile_id='"&id&"'")

response.ContentType="image/jpeg"

response.BinaryWrite(rsObj("file_data"))

response.Flush()

response.End()

endif

<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<htmlxmlns="http://www.w3.org/1999/xhtml">

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>

<title>无标题文档</title>

</head>

<body>

'dimfileObj,folderObj,file

'setfileObj=Server.CreateObject("SCRIPTING.FileSystemObject")

'setfolderObj=fileObj.GetFolder(Server.MapPath("img"))

'foreachfileinfolderObj.Files

'ifinStrRev(file.Name,".")>0then

'FileWriteDatabasefile.Path,lcase(right(file.Name,len(file.Name)-inStrRev(file.Name,".")))

'endif

'next

'setfolderObj=nothing

'setfileObj=nothing

setconnect=Server.CreateObject("ADODB.CONNECTION")

connect.open"DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("data/data.mdb")

setrsObj=connect.execute("selectfile_id,file_namefrom[file]")

whilenotrsObj.eof

response.Write"<ahref=""index.asp?file_id="&rsObj("file_id")&""">"&rsObj("file_name")&"</a><br/>"

rsObj.movenext

wend

rsObj.close

connect.close

functionFileWriteDatabase(FileName,FileType)

dimconnect,cmdObj,paraObj

setconnect=Server.CreateObject("ADODB.CONNECTION")

setcmdObj=Server.CreateObject("ADODB.COMMAND")

setstreamObj=Server.CreateObject("ADODB.STREAM")

streamObj.Type=1

streamObj.open

streamObj.LoadFromFile(FileName)

connect.open"DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("data/data.mdb")

withcmdObj

.ActiveConnection=connect

.CommandType=AdCmdText

.CommandText="insertinto[file](file_name,file_extname,File_type,File_data)values(?,?,?,?)"

endwith

setparaObj=cmdObj.CreateParameter("file_name",adVarChar,adParamInput,len(FileName),FileName)

cmdObj.Parameters.appendparaObj

setparaObj=cmdObj.CreateParameter("file_extname",adVarChar,adParamInput,len(FileType),FileType)

cmdObj.Parameters.appendparaObj

setparaObj=cmdObj.CreateParameter("File_type",adVarChar,adParamInput,len(FileType),FileType)

cmdObj.Parameters.appendparaObj

setparaObj=cmdObj.CreateParameter("File_data",adLongVarBinary,adParamInput,streamObj.Size,streamObj.read)

cmdObj.Parameters.appendparaObj

cmdObj.execute

setcmdObj=nothing

endfunction

</body>

</html>

分享到：

commons-fileupload使用方法 | 关于Adodb.Stream 的使用说明

2007-03-04 14:02
浏览 324
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论

asp笔记

评论

发表评论

相关推荐

最近访客 更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论

asp笔记

评论

发表评论

相关推荐

最近访客更多访客>>