我写的一个asp上传组件
网上流传的种种asp上传类真是太烦琐了，我自己写了一个上传类。这个上传类体积很小，只适用于单文件上传，返回结果是一个json，格式为：{"err":"出错原因","msg":"上传文件的地址"}，例如：{"err":"\u6587\u4EF6\u592A\u5927\u4E86\2C\u4E0A\u4F20\u6587\u4EF6\u4E0D\u80FD\u8D85\u8FC7200K","msg":""}
或者{"err":"","msg":"uploadfile/201013/7897896786.zip"}
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit
Response.Buffer = True
response.charset = "gb2312"
Const uploadfolder="uploadpic"
Const allowExt="jpg,jpeg,gif,png,rar,doc,zip,xls,pdf,swf,avi,mp3,txt,htm,html"
Function BytestoStr(filestr)
dim skipflag : skipflag = 0
dim varlen,clow,i
dim content : content = ""
if not isnull(filestr) then
varlen = lenb(filestr)
for i=1 to varlen
if skipflag=0 then
clow = midb(filestr,i,1)
if ascb(clow) > 127 then
content = content & chr(ascw(midb(filestr,i+1,1) & clow))
skipflag = 1
else
content = content & chr(ascb(clow))
end if
else
skipflag = 0
end if
next
end if
BytestoStr = content
End Function
Function getFilepath(ext)
dim folderpath,fso,filename
folderpath=server.mappath(uploadfolder)
set fso=server.createobject("Scripting.FileSystemObject")
if Fso.FolderExists(folderpath)=false then fso.CreateFolder(folderpath)
folderpath=folderpath&"\"&replace(replace(date(),"/",""),"-","")
fileinfo=uploadfolder&date()
if Fso.FolderExists(folderpath)=false then fso.CreateFolder(folderpath)
filename=cstr(timer()*100)&"."&ext
getFilepath=folderpath&"\"&filename
fileinfo=fileinfo&"/"&filename
set Fso=nothing
End Function
Function CheckExt(fileinfo)
dim re
set re=new
相关文档：
引自：http://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx
访问远程数据库的情况有以下几种：
1）访问远程数据库的access数据库
2）访问远程mssql数据库或oracle等其他关系数据库，但是数据库通信端口被防火墙阻挡或其他网络原因造成无法使用该端口
本文仅在windows2000 advance server,mdac2.8下测试通过� ......
asp中的rs.open于conn.execute的区别
rs.open sql,conn：如果sql是delete,update,insert则会返回一个关闭的记录集，在使用过程中不要来个rs.close在文件最后再写rs.close
中间可以来多个记录集rs1.open sql1,conn，最后一块关闭记录集:rs.close rs1.close
con ......
1，在web服务器上安装Oracle数据库客户端，这是连接Oracle数据库的基础（但，不一定是必须的）。
2，在客户端的Net Manager 中进行配置服务的名称，配置如图（这一点非常的重要以后的链接全都在这个服务名称的基础上进行的）
3，ASP链接服务的链接字符串和方法如下：
<%
connstr= "Provider=MSDAORA.1;Password=***; ......
编写过程
过程是一组能执行指定任务且具有返回值的脚本命令。您可以定义自己的过程，然后在脚本中反复调用它们。
您可以将过程定义放在调用过程的 .asp 文件中，也可以将通用过程放在一个共享的 .asp 文件中，然后用 SSI #include 指令将其包含进其他调用其过程的 .asp 文件中。您还可选择另一种方法，即把这些功能打包 ......
1.错误信息
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝
原因：
2005里似乎不支持“(local)”和“点”将其改为服务器的名称。
2000是可以的。所以不会出现这样的问题。
2.错误信息
错误类型一：
Mi ......
