`
zxwwjs
  • 浏览: 8845 次
  • 来自: ...
最近访客 更多访客>>
snowstorm
文章分类
社区版块
存档分类
最新评论

asp笔记

 
阅读更多

一、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"%><!--#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">
<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>

分享到：
| 关于Adodb.Stream 的使用说明
评论
发表评论

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

相关推荐

Magicbox
Global site tag (gtag.js) - Google Analytics