JS注册表写入与VBS数据库操作-优快云博客

一、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>

asp笔记