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
&
相关文档:
1.如果您的操作系统为Windows 98,请运行 Windows98的安装光盘。在其Add-ons\pws目录下找到pws的安装程序,运行安装即可
2.如果操作系统为 Windows 2000 以上,可以按图4.1.1的方法安装 IIS:
打开【控制面板】,找到 【添加/删除程序】→【添加/删除WINDOWS组件】,
弹出 【Windows 组件向导】 ,选择 【Internet ......
最近写站内搜索,所以研究了一下算法,该算法的原理如图显示。
以下是一个用asp写的简单的分词程序主要的代码,词库我已经用access建立好了。
如果要注重效率,MarLen的选取很是重要,否则效率会十分低下,这里MarLen我选取的是5。
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......
asp 中文乱码,asp access 乱码,asp 刷新后乱码,asp utf 8乱码,ajax 乱码 asp,asp 汉字乱码,asp乱码怎么办
用utf-8编码用在新的网站上,不想问题还真多,所以找了些文章,帖子,看了看,等下有用的就贴下面了。
今天,我开始把 CODEPAGE="936" 改成 CODEPAGE="65001"
把charset=gb2312改成 charset=utf-8
可是还是乱码 ......
'SQL防注入函数,调用方法,在需要防注入的地方替换以前的request("XXXX")为SafeRequest("XXXX")
'www.yongfa365.com
Function
SafeRequest(ParaValue)
ParaValue =
Trim
(
Request
(Pa ......