BlogJava-【Xine】中文站-文章分类-ASP Programhttp://www.blogjava.net/xine/category/11747.html&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;I love you not because of who you are,but because of who I am when I am with you.<br><br>zh-cnThu, 01 Mar 2007 01:29:37 GMTThu, 01 Mar 2007 01:29:37 GMT60ASP实现文件直接下载http://www.blogjava.net/xine/articles/49709.html【Xine】中文站【Xine】中文站Thu, 01 Jun 2006 09:03:00 GMThttp://www.blogjava.net/xine/articles/49709.htmlhttp://www.blogjava.net/xine/comments/49709.htmlhttp://www.blogjava.net/xine/articles/49709.html#Feedback0http://www.blogjava.net/xine/comments/commentRss/49709.htmlhttp://www.blogjava.net/xine/services/trackbacks/49709.html
<%@ language=vbscript codepage=65001%>

<% 
'Filename must be input
if Request("Filename")="" then
 response.write "<h1>Error:</h1>Filename is empty!<p>"
else
call  downloadFile(replace(replace(Request("Filename"),"\",""),"/",""))    
 
Function  downloadFile(strFile)    
'  make  sure  you  are  on  the  latest  MDAC  version  for  this  to  work    
'  get  full  path  of  specified  file    
strFilename  =  server.MapPath(strFile)    
 
'  clear  the  buffer    
Response.Buffer  =  True    
Response.Clear    
 
'  create  stream    
Set  s  =  Server.CreateObject("ADODB.Stream")    
s.Open    
 
'  Set  as  binary    
s.Type  =  1    
 
'  load  in  the  file    
on  error  resume  next    
 
'  check  the  file  exists
Set  fso  =  Server.CreateObject("Scripting.FileSystemObject")    
if  not  fso.FileExists(strFilename)  then    
Response.Write("<h1>Error:</h1>"&strFilename&" does not exists!<p>")    
Response.End    
end  if
 
'  get  length  of  file    
Set  f  =  fso.GetFile(strFilename)    
intFilelength  =  f.size    
 
s.LoadFromFile(strFilename)    
if  err  then    
Response.Write("<h1>Error: </h1>Unknown Error!<p>")    
Response.End 
end  if  

'  send  the  headers  to  the  users  Browse
Response.AddHeader  "Content-Disposition","attachment;  filename="&f.name    
Response.AddHeader  "Content-Length",intFilelength    
Response.CharSet  =  "UTF-8"    
Response.ContentType  =  "application/octet-stream"    

'  output  the  file  to  the  browser    
Response.BinaryWrite  s.Read    
Response.Flush    

'  tidy  up    
s.Close    
Set  s  =  Nothing    

End  Function    
end if
%>      

【Xine】中文站 2006-06-01 17:03 发表评论
]]>ASP Connect Databasehttp://www.blogjava.net/xine/articles/49710.html【Xine】中文站【Xine】中文站Thu, 01 Jun 2006 09:03:00 GMThttp://www.blogjava.net/xine/articles/49710.htmlhttp://www.blogjava.net/xine/comments/49710.htmlhttp://www.blogjava.net/xine/articles/49710.html#Feedback0http://www.blogjava.net/xine/comments/commentRss/49710.htmlhttp://www.blogjava.net/xine/services/trackbacks/49710.html

　利用 ASP 连接各种数据库

 

用ASP连接DBF、DBC、MDB、Excel、SQL Server型数据库的方法：
一、ASP的对象存取数据库方法
  在ASP中，用来存取数据库的对象统称ADO（Active Data Objects），主要含有三种对象：Connection、Recordset 、Command
Connection：负责打开或连接数据
Recordset：负责存取数据表
Command：负责对数据库执行行动查询命令

二、连接各数据库的驱动程序
  连接各数据库可以使用驱动程序，也可以使用数据源，不过我建议大家使用驱动程序，因为使用驱动程序非常方便、简单，而使用数据源比较麻烦。

ODBC 链接

适合数据库类型

链接方式

access

"Driver={microsoft access driver(*.mdb)};dbq=*.mdb;uid=admin;pwd=pass;"

dBase

"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"

Oracle

"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"

MSSQL server

"Driver={sql server};server=servername;database=dbname;uid=sa;pwd=pass;"

MS text

"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"

Visual Foxpro

"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"

MySQL

"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"

OLEDB 链接

适合的数据库类型

链接方式

access

"Provider=microsoft.jet.oledb.4.0;data source=your_database_path;user id=admin;password=pass;"

Oracle

"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"

MS SQL Server

"Provider=SQLOLEDB;data source=machinename;initial catalog=dbname;userid=sa;password=pass;"

MS text

"Provider=microsof.jet.oledb.4.0;data source=your_path;Extended Properties'text;FMT=Delimited'"


而我们在一般情况下使用Access的数据库比较多，在这里我建议大家连接Access数据库使用下面的方法：

dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("../db/bbs.mdb")

其中../db/bbs.mdb是你的数据库存放的相对路径！如果你的数据库和ASP文件在同一目录下，你只要这样写就可以了：

dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("bbs.mdb")

有许多初学者在遇到数据库连接时总是会出问题，然而使用上面的驱动程序只要你的数据库路径选对了就不会出问题了。



【Xine】中文站 2006-06-01 17:03 发表评论
]]>