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
Ïà¹ØÎĵµ£º
<%
'ÒÔÏÂÊÇÊÔÓðæ´úÂ룬Êǹ̶¨µÄ´úÂ룬ֻÓÐÕýʽ°æ²Å¿É×Ô¶¯´Óºǫ́Êý¾Ý¿âÖжÁȡͼƬ¡£
piao1="images/1.jpg"
piao1url=""
piaos1="ͼ1"
piao2="images/2.jpg"
piao2url=""
piaos2="ͼ2"
piao3="images/ ......
1.Èç¹ûÄúµÄ²Ù×÷ϵͳΪWindows 98£¬ÇëÔËÐÐ Windows98µÄ°²×°¹âÅÌ¡£ÔÚÆäAdd-ons\pwsĿ¼ÏÂÕÒµ½pwsµÄ°²×°³ÌÐò£¬ÔËÐа²×°¼´¿É
2.Èç¹û²Ù×÷ϵͳΪ Windows 2000 ÒÔÉÏ£¬¿ÉÒÔ°´Í¼4.1.1µÄ·½·¨°²×° IIS£º
´ò¿ª¡¾¿ØÖÆÃæ°å¡¿£¬ÕÒµ½ ¡¾Ìí¼Ó/ɾ³ý³ÌÐò¡¿→¡¾Ìí¼Ó/ɾ³ýWINDOWS×é¼þ¡¿£¬
µ¯³ö ¡¾Windows ×é¼þÏòµ¼¡¿ £¬Ñ¡Ôñ ¡¾Internet ......
<!--#include file="conn.asp"-->
<%
if request.Form("username")="" or request.form("password")="" then
response.Write("<script>alert('ÄúºÃ£¬²»ÄÜΪ¿Õ
');location.href='index.html';</script>")
end if
%>
<%
di ......
+++ ASP.NET»º´æÖеÄÊý¾ÝÊDz»Îȶ¨µÄ£¬²»»á±»ÓÀ¾ÃµØ´æ´¢£¬¿ÉÄÜ»áÓÉÓÚÒÔÏÂÔÒòÖ®Ò»¶ø´Ó»º´æÖб»×Ô¶¯ÒƳý£º
1) »º´æÂúÁË
2) »º´æÏîÒѾ¹ýÆÚ
3) »º´æÒÀÀµµÄÏî¸Ä±äÁË
+++ ³ýÁË¿ÉÒÔ×Ô¶¯ÒƳý»º´æÏîÍ⣬Äã¿ÉÒÔÏÔÊ¾ÒÆ³ý»º´æÏî¡£ÁíÍ⣬µ±ÄãÓÃInsert·½·¨ºÍAdd·½·¨Ïò»º´æÖÐÌí¼ÓµÄ»º´æÏîÒѾ´æÔÚʱ£¬ÄÇô£¬ÔÀ´µÄ»º´æÏ±»×Ô¶¯É¾³ý¡ ......
Adodb.StreamÊÇADOµÄStream¶ÔÏó,Ìṩ´æÈ¡¶þ½øÖÆÊý¾Ý»òÕßÎı¾Á÷,´Ó¶øÊµÏÖ¶ÔÁ÷µÄ¶Á¡¢Ð´ºÍ¹ÜÀíµÈ²Ù×÷.
ÓÐÏÂÁз½·¨£º
Cancel ·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.Cancel
˵Ã÷£ºÈ¡ÏûÖ´ÐÐ¹ÒÆðµÄÒì²½ Execute »ò Open ·½·¨µÄµ÷Óá£
Close ·½·¨
......