ASP实现文�g直接下蝲

【Xine】中文站 — Thu, 01 Jun 2006 09:03:00 GMT

在IE�q�行文档链接�?如果遇到OLE支持的文�?IE�?x��)自动调用相应程序打开�?有时候这�U�功能�ƈ不是我们所需�?虽然我们可以提醒用户用鼠标右�?->"目标另存�?..."命��o(h��)来下载文�?但这��h��竟不太友�?本文描述了利用FSO�?qi��ng)Stream�Ҏ(gu��)��实现IE直接下蝲文档.

<%@ language=vbscript codepage=65001%>

<%
'Filename must be input
if Request("Filename")="" then
response.write "

Error:

Filename is empty!

"
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("

Error:

"&strFilename&" does not exists!

")
Response.End
end  if

'  get  length  of  file
Set  f  =  fso.GetFile(strFilename)
intFilelength  =  f.size

s.LoadFromFile(strFilename)
if  err  then
Response.Write("

Error:

Unknown Error!

")
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 Database

【Xine】中文站 — Thu, 01 Jun 2006 09:03:00 GMT

　利用 ASP �q�接各种数据�?/span>

�?span lang="EN-US">ASP�q�接DBF�?span lang="EN-US">DBC�?span lang="EN-US">MDB�?span lang="EN-US">Excel�?span lang="EN-US">SQL Server型数据库的方法：(x��)
一�?span lang="EN-US">ASP的对象存取数据库�Ҏ(gu��)��
�?span lang="EN-US">ASP中，用来存取数据库的对象�l�称ADO�Q?span lang="EN-US">Active Data Objects�Q�，主要含有三种对象�Q?span lang="EN-US">Connection�?span lang="EN-US">Recordset �?span lang="EN-US">Command
Connection�Q�负责打开或连接数�?span lang="EN-US">
Recordset�Q�负责存取数据表
Command�Q�负责对数据库执行行动查询命�?span lang="EN-US">

二、连接各数据库的驱动�E�序
�q�接各数据库可以使用驱动�E�序�Q�也可以使用数据源，不过我徏议大家��用驱动程序，因�ؓ(f��)使用驱动�E�序非常方便、简单，而��用数据源比较�ȝ��?/span>

ODBC 链接

适合数据库类�?/span>	链接方式
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 链接

适合的数据库�c�d��	链接方式
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的数据库比较多，在这里我��大家�q�接Access数据库��用下面的�Ҏ(gu��)��Q?/span>

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文�g在同一目录下，你只要这样写��可以了�Q?/span>

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

有许多初学者在遇到数据库连接时��L��?x��)出问题�Q�然而��用上面的驱动�E�序只要你的数据库�\径选对了就不会(x��)出问题了�?/span>

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

亚洲精品人成无码中文毛片,亚洲av永久无码精品秋霞电影影院 ,亚洲制服丝袜第一页

ASP实现文�g直接下蝲

Error:

Error:

Error:

ASP Connect Database