Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

asp ÉãÏñÍ·±à³Ì¼¼ÊõÓ¦ÓÃ

´úÂ룺
<%@ LANGUAGE=VBScript CodePage=65001%>
<%
private function decodeBase64(base64) 
   dim DM, EL 
   Set DM = CreateObject("Microsoft.XMLDOM") 
   Set EL = DM.createElement("tmp") 
   EL.DataType = "bin.base64"
   EL.Text = base64 
   decodeBase64 = EL.NodeTypedValue 
end function
dim data
data=decodeBase64(request.Form("pic_data"))
set stm=Server.CreateObject("ADODB.Stream")
'stm.Mode=adSaveCreateOverWrite 'adModeReadWrite
stm.type=1
stm.open
stm.Write(data)
stm.SaveToFile Server.MapPath("./") & "/" & request.Form("desc") & ".jpg",2
stm.Close
set stm=nothing
response.write "<img src='" & request.Form("desc") & ".jpg" & "'/>"
response.write "desc:" & request.Form("desc")
response.end
%>
»ªÀöµÄ·Ö¸îÏßÒÔÏÂΪǰ̨²Ù×÷ÉãÏñÍ·ÅÄÕÕµÄhtmlÒ³ÃæÔ´´úÂë
---------------------------------------------------------------------------------------------------
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>video cap control demo</title>
<script type="text/javascript" src="./js/jquery-1.4.2.min.js"></script>
<script type="text/javascript" src="test1.js"></script>
</head>
<body>
 
<form action="test1.asp" id="cap_form" method="post">
<input type="hidden"  id="picData" name="picData">
<object classid="clsid:34681DB3-58E6-4512-86F2-9477F1A9F3D8"
 id="WebVideoCap1" codebase="./cabs/Package.cab#version=1,0,0,50" width="636" height="238">
 <param name="Visible" value="0">
 <param name="AutoScroll" value="0">
 <param name="AutoSize" value="0">
 <param name="AxBorderStyle" value="1">
 <param name="Caption


Ïà¹ØÎĵµ£º

·þÎñÆ÷ʵÀý£ºÓÃASP¼ÜÉè¸øÃ¿¸öIISÕ¾µã½¨Á¢Ò»¸öÓû§


Ò»¡¢ÕâÑùÅäÖõĺô¦£¿
²»Öª´ó¼ÒÓÐûÓÐÌý¹ýÅÔ×¢£¿ÎÒ¼òµ¥µÄ½âÊÍһϰɣºÓиöÈËÏëºÚµôAÕ¾µã£¬µ«ÕÒÀ´ÕÒÈ¥¶¼Ã»·¢ÏÖ¿ÉÀûÓõÄ©¶´£¬ÎÞÒâÖÐËû·¢ÏÖÓëAͬ·þÎñÆ÷ÉÏ»¹ÓиöBÕ¾µã£¬²¢ÇÒÔÚBÕ¾µãÉÏÕÒµ½ÁË¿ÉÀûÓõÄ©¶´£¬ÓÚÊÇËû½«Ä¾Âí´ÓBÕ¾ÖÐÉÏ´«ÖÁ·þÎñÆ÷£¬Èç¹û·þÎñÆ÷ȨÏÞÅäÖò»µ±£¬ÄÇôÏÖÔÚËû¾Í¿ÉÒÔºÚµô·þÎñÆ÷ÉϵÄËùÓÐÕ¾µãÁË£¡Èç¹ûÎÒÃÇΪà ......

ÓÃVB±àдActiveX DLLʵÏÖASP±à³Ì

ASPÊÇĿǰһÖÖ¹ãΪӦÓõÄÓÃÀ´¿ìËÙ¹¹½¨¶¯Ì¬WEBÕ¾µãµÄ±à³ÌÓïÑÔ£¬Ä¬ÈϵÄÄÚÖÿª·¢ÓïÑÔÊÇVBScript£¬ÓÉÓÚASPºÍ΢ÈíWindowsϵÁвÙ×÷ϵͳµÄ½áºÏ·Ç³£µÄºÃ£¬Ê¹µÃASPÒѾ­³ÉΪÁËNT¿ª·¢Æ½Ì¨ÉÏÃæ½øÐÐWEB¿ª·¢µÄÊ×Ñ¡ÓïÑԺͻ·¾³¡£
ËûÓÐ׿òµ¥Ò×ѧ£¬·½±ã¿ìËÙ¿ª·¢µÄÖÖÖÖÓŵ㣬µ«ÊÇËûÒ²ÓÐ×ÅÖÂÃüµÄÈõµã£¬¾ÍÊÇËûÊǽű¾ÓïÑÔ½âÊÍÖ´Ðеģ¬ËÙ¶È»áÊܵ½ ......

asp»ñȡһ¸öÎļþ¼Ð¼°Æä×ÓÎļþ¼ÐϵÄËùÓÐͼƬµØÖ·

Ô­ÎÄÁ´½Ó:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic´úÂë
<%   
dim picurl,all_picurl   
 
'½ÔÊÇÈ«¾Ö±äÁ¿:·Ö±ð¶¨ÒåͼƬµÄÁ´½ÓµØÖ·;ËùÓÐÖ¸¶¨Îļþ¼Ð(°üÀ¨Ö¸¶¨Îļþ¼ÐµÄ×ÓÎļþ¼ÐÏÂͼƬurlµØÖ·)   
 
picurl=""   &n ......

aspÁ¬½ÓaccessÊý¾ÝÀý×Ó

<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......

asp¶ÁÈ¡word ÎĵµÄÚÈÝת»»Îª¶þ½øÖÆÊý¾ÝÁ÷

Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ