asp笔记

一、javascript程序

写入注册表

REGEDIT4

[ HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerMenuExt ]

[ HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerMenuExt添加到百度搜藏 ]
@ = " http://cang.baidu.com/-/cang.html "

之后用JAVASCRIPT接收数据

< html >
< body >
< script LANGUAGE ="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" %> <!-- #includefile="inc/adovbs.inc" -->
<% ...
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" >
< html xmlns ="http://www.w3.org/1999/xhtml" >
< head >
< meta http-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 >