asp简单文件上传源码
文件1.上传界面文件 upload.htm
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传</title>
</head>
<body>
<form method="POST" action="SaveFile.asp">
文件上传：<input type="file" name="file" size="42"> <input type="submit" value="提交" name="bb">
</form>
</body>
</html>
文件2.保存上传文件 SaveFile.asp
<%
dim file,filename,houzui
file = Request.Form("file")
if file="" then
response.write"<script>alert('请选择要上传的文件！');window.location.href='upload.htm';</script>"
else
houzui=mid(file,InStrRev(file, "."))
if houzui=".gif" or houzui=".jpg" or houzui=".bmp" then '允许上传的文件类型
filename=year(date) & month(date) & day(date) & Hour(time) & minute(time) & second(time) & houzui
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadfromFile file
objStream.SaveToFile Server.MapPath(filename),2
objStream.Close
//============================把文件名写入数据库，如无需要，可删除此段代码！
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mb.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open "select*from img",conn,1,2
rs.addnew
rs("name")=filename
rs.update
set rs=nothing
&
相关文档：
这几天好多人问我如何在asp程序中控制摄像头去抓拍照片，asp技术还是99年的时候看过一点点，早就着米饭吃了，不过既然有人问，那就是看得起咱，花了一个晚上的时间把asp程序调用摄像头拍照的问题搞定了，现记录如下，让有类似需求的同学可以少走些弯路。
用到的技术：
1.asp程序中作base64编码和解码，使用的是msxml组件� ......
1。深层次来说这不是asp.net 的问题，而是html form 的submit 按钮就是如何设计。
当你的光标焦点进入某个表单元素的时候，会激活该表单的第一个（
流布局顺从左到右，从上至下）
type=submit 的按钮（假如有），等待响应回车事件，并提交该form
你可以测试一下代码
<form action="">
<input type ="t ......
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 ......
最近写站内搜索，所以研究了一下算法，该算法的原理如图显示。
以下是一个用asp写的简单的分词程序主要的代码，词库我已经用access建立好了。
如果要注重效率，MarLen的选取很是重要，否则效率会十分低下，这里MarLen我选取的是5。
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......
代码：
<%@ 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"
& ......
