献给 Asp 编程爱好者的一些实例与建议

以下是我搜集的一些网友经常问到的问题及解答，希望可以帮的上大家。希望大家在学习的过程中，不要盲目的询问 + Copy + Pause 而没有经过大脑的思考，其实学所有的语言都一样，都需要先看相关的书籍，然后经过不断的练习，练习过程是最重要的，可能会有不断的新问题出现，这时，就应该自己冷静的思考问题出在哪里，如果实在是想不出来，可以先使用CSDN的论坛搜索工具（http://search.csdn.net/）或 Google （www.google.com），几乎可以搜索到所有你想问的问题，如果你的E文不错的话，google 还是一个很好的工具，在外国网站上也可以查找到很多实现方法不同的答案，然后你自己再筛选出一种最好的。大家有好的方法可以共同交流.

1、无组件上传
http://www.5xsoft.com/page/200311/56.htm 地址上有完整例子和类。只要小改就可以实现自己的无组件上传操作。

2、上传任何类型文件到数据库
代码如下:

upload.htm
' 上传页面

 1<html>
 2<body>
 3<center>
 4<!--以下 form 中的 enctype="multipart/form-data" 是得到数据的关键-->
 5<form action="get.asp" enctype="multipart/form-data" method="post" name="mainform">
 6<input name="mefile" type="file"/><br/>
 7<input name="ok" type="submit" value="上传"/>
 8</form>
 9</center>
10</body>
11</html>

get.asp
' 处理浏览器中送来的数据

 1   
 2response.buffer=true   
 3formsize=request.totalbytes   
 4formdata=request.binaryread(formsize)   
 5bncrlf=chrb(13) & chrb(10)   
 6divider=leftb(formdata,clng(instrb(formdata,bncrlf))-1)   
 7datastart=instrb(formdata,bncrlf & bncrlf)+4   
 8dataend=instrb(datastart+1,formdata,divider)-datastart   
 9mydata=midb(formdata,datastart,dataend)   
10  
11set conn=server.createobject("adodb.connection")   
12conn.connectionstring="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("images.mdb")   
13conn.open   
14  
15set rs=server.createobject("adodb.recordset")   
16rs.open "select * from [images] where id is null",conn,1,3   
17rs.addnew   
18rs("img").appendchunk mydata   
19rs.update   
20rs.close   
21set rs=nothing   
22set conn=nothing

showimg.asp
' 显示图片

 1   
 2set conn=server.createobject("adodb.connection")   
 3conn.connectionstring="driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("images.mdb")   
 4conn.open   
 5set rs=server.createobject("adodb.recordset")   
 6strsql="select img from images where id=" & trim(request("id"))   
 7rs.open strsql,conn,1,1   
 8response.contenttype = "image/*"   
 9' 在输出到浏览器之前一定要指定response.contenttype = "image/*",以便正常显示图片   
10response.binarywrite rec("img").getchunk(7500000)   
11rs.close   
12set rs=nothing   
13set conn=nothing

数据库结构如下：
Access：
序号 字段名称 类 型 描 述
1 id 自动编号 主键值
2 img ole对象 用来保存图片数据

MS Sql Server：
序号 字段名称 类 型 描 述
1 id int(identity) 主键值
2 img image 用来保存图片数据

3、常用的几种数据库连接代码
1） MS Access数据库连接
用DSN连接并且没有用户名和密码：

1   
2set conn = Server.CreateObject("ADODB.Connection")   
3conn.open "YourDSNName"

2） 用DSN连接并且有用户名和密码：

1   
2set conn = Server.CreateObject("ADODB.Connection")   
3conn.open "YourDSNName","username","password"

3） 用实际的数据库绝对路径连接：

1   
2Set conn = Server.CreateObject("ADODB.Connection")   
3Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "   
4Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"   
5conn.Open Strconn

4） 用实际的数据库相对路径连接：

1   
2Set conn = Server.CreateObject("ADODB.Connection")   
3Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "   
4Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")   
5conn.Open Strconn

5） MS SQL Server数据库连接
用DSN连接：

1   
2set conn = Server.CreateObject("ADODB.Connection")   
3conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"

6） 不用DSN连接：

1   
2Set conn = Server.CreateObject("ADODB.Connection")   
3DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"   
4conn.open DSNtemp

7） FoxPro数据库连接

1   
2Set Conn = Server.CreateObject("ADODB.connection")   
3ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\yanhang\database.dbc"   
4Conn.Open ConnStr

8） Oracle数据库连接：

1   
2set conn=server.createobject("adodb.connection")   
3conn.cursorlocation=adUseClient   
4DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"   
5conn.open DSNtemp

9） Paradox数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=
---------------------------------------------------------------

哇塞！受益非浅，谢谢楼主！
---------------------------------------------------------------

收藏
---------------------------------------------------------------

谢了
---------------------------------------------------------------

不错，谢谢楼主，向你学习！
---------------------------------------------------------------

非常好的帖子！
---------------------------------------------------------------

很好 就是快过时了
在 ASP.NET 中实现这些,要简单的多.
还是谢谢楼主!!! UP!
---------------------------------------------------------------

好东西，多多学习.....
---------------------------------------------------------------

又好又能接分
up.。○
---------------------------------------------------------------

哈哈，辛苦了！
---------------------------------------------------------------

好文~~

收藏~~
---------------------------------------------------------------

經典珍藏
---------------------------------------------------------------

11
---------------------------------------------------------------

这样的东西对菜岛来说太好了。
---------------------------------------------------------------

学习
---------------------------------------------------------------

谢谢搂主！

顶！
---------------------------------------------------------------

收藏
---------------------------------------------------------------

谢谢，顶。
希望高手多有些这样的行为；）
---------------------------------------------------------------

谢谢， 总结的不错。
我给你置顶吧 :)
---------------------------------------------------------------

谢谢搂主！
---------------------------------------------------------------

顶！
接分！！！
---------------------------------------------------------------

受，呵呵
---------------------------------------------------------------

UP
---------------------------------------------------------------

不错！up
---------------------------------------------------------------

谢谢搂主！
楼主真是好人啊！
---------------------------------------------------------------

谢谢楼主！顶
---------------------------------------------------------------

不错，呵！~~
---------------------------------------------------------------

收藏
---------------------------------------------------------------

顶
---------------------------------------------------------------

收下，呵呵
---------------------------------------------------------------

这贴,不收藏!
才怪!
---------------------------------------------------------------

我有备份!!!!!
---------------------------------------------------------------

GOOD
---------------------------------------------------------------

请问楼主.有没有将.HTML,或ASP的内容转为SQL SERVER2000的?
---------------------------------------------------------------

精彩
---------------------------------------------------------------

适合初学者
---------------------------------------------------------------

8错8错

^_^
---------------------------------------------------------------

up 一下!!
---------------------------------------------------------------

整理的不错，大部分的编程爱好者碰见好的东西，总是忍不住会收藏，反而消化的时间很少。导致了在别人的基础上做的二次开发性质的工作也比较少。都养成了一些惰性了。(好听一点叫拿来主义）很多时候本人也有这种不好的习惯。多向楼主学习，一定要

Published At
Categories with Web编程
Tagged with
comments powered by Disqus