易截截图软件、单文件、免安装、纯绿色、仅160KB

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">&nbsp;<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函数及表达式

ASP系列函数大全-网上收集的一些ASP函数及表达式
ASP函数
大全 
ASP函数与VBSCRIPT类似,以下举一些常用的函数 
 
Array() 
 
函数返回一个数组 

 
表达式 Array(list) 
 
允许数据类型: 字符,数字均可 
 
实例: <% 
 
Dim
myArray() 
 
For i = 1 to 7 
 
Redim Preser ......

简单的asp分词算法(正向最大匹配)

最近写站内搜索,所以研究了一下算法,该算法的原理如图显示。
以下是一个用asp写的简单的分词程序主要的代码,词库我已经用access建立好了。
如果要注重效率,MarLen的选取很是重要,否则效率会十分低下,这里MarLen我选取的是5。
 
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......

asp数据库连接总是出错的不完全解决方案

使用Dreamweaver测试连接成功,但是IIS里面运行却总是错误百出,看了下面这篇博文问题才得以解决、、、
一般情况下asp可以正常运行,但只要连接数据库就提示,Microsoft JET Database Engine 错误
'80004005',我的电脑因为用批处理清理文件,所以不能运行了, 只
1.查看数据库连接语句没有发现错误;
2.查看文件夹的权限已 ......

asp防SQL注入函数


'SQL防注入函数,调用方法,在需要防注入的地方替换以前的request("XXXX")为SafeRequest("XXXX")
  
'www.yongfa365.com
  
  
Function
 SafeRequest(ParaValue)   
    ParaValue = 
Trim
(
Request
(Pa ......

[ASP.net]学习asp.net的完整流程

本贴来自ZDNetChina中文社区 http://bbs.zdnet.com.cn/
本贴地址:http://bbs.zdnet.com.cn/viewthread.php?tid=108315
 
如果你已经有较多的面向对象开发经验,跳过以下这两步:
  第一步 掌握一门.NET面向对象语言,C#或VB.NET 我强烈反对在没系统学过一门面向对象(OO)语言的前提下去学ASP.NET。 ASP.NET是 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号