[转帖]ASP编程常用的代码

翔羽 · 发表于 2006-2-22 14:06:12

1. ASP与Access数据库连接： <% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile %> 2. ASP与SQL数据库连接： <% dim conn set conn=server.createobject("ADODB.connection") con.open "

ROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa

WD=数据库密码;DATABASE=数据库名称 %>

翔羽 · 发表于 2006-2-22 14:06:35

建立记录集对象： set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2 3. SQL常用命令使用方法： (1) 数据记录筛选： sql="select * from 数据表 where 字段名=字段值 order by 字段名 " sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 " sql="select top 10 * from 数据表 where 字段名 order by 字段名 " sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)" sql="select * from 数据表 where 字段名 between 值1 and 值2" (2) 更新数据记录： sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" (3) 删除数据记录： sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除) (4) 添加数据记录： sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) (5) 数据记录统计函数： AVG(字段名) 得出一个表格栏平均值 COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计 MAX(字段名) 取得一个表格栏最大的值 MIN(字段名) 取得一个表格栏最小的值 SUM(字段名) 把数据栏的值相加 引用以上函数的方法： sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" set rs=conn.excute(sql) 用 rs("别名") 获取统的计值，其它函数运用同上。

翔羽 · 发表于 2006-2-22 14:06:55

(5) 数据表的建立和删除： CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 例：CREATE TABLE tab01(name varchar(50),datetime default now()) DROP TABLE 数据表名称 (永久性删除一个数据表) (6) 记录集对象的方法： rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 rs.absoluteposition=N 将记录指针移到数据表第N行 rs.absolutepage=N 将记录指针移到第N页的第一行 rs.pagesize=N 设置每页为N条记录 rs.pagecount 根据 pagesize 的设置返回总页数 rs.recordcount 返回记录总数 rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否 rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否 rs.delete 删除当前记录，但记录指针不会向下移动 rs.addnew 添加记录到数据表末端 rs.update 更新数据表记录 判断所填数据是数字型if not isNumeric(request("字段名称")) then response.write "不是数字" else response.write "数字" end if

翔羽 · 发表于 2006-2-22 14:08:48

1.Access数据库的DSN-less连接方法:set adocon=Server.Createobject("adodb.connection") adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _ Server.MapPath("数据库所在路径")2.Access OLE DB连接方法：set adocon=Server.Createobject("adodb.connection") adocon.open"

rovider=Microsoft.Jet.OLEDB.4.0;"& _ "Data Source=" & Server.MapPath("数据库所在路径")3.SQL server连接方法：set adocon=server.createobject("adodb.recordset") adocon.Open"Driver={SQL Server};Server=(Local);UID=***

WD=***;"& _ "database=数据库名;"4.SQL server OLE DB连接方法:set adocon=Server.Createobject("adodb.connection") adocon.open"provider=SQLOLEDB.1;Data Source=RITANT4;"& _ "user ID=***

assword=***;"& _ "inital Catalog=数据库名"5.Oracle 连接方法:set adocon=Server.Createobject("adodb.connection") adocon.open"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"6.Oracle OLE DB 连接方法:set adocon=Server.Createobject("adodb.connection") adocon.open"

rovider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"7.dBase 连接方法:set adocon=Server.Createobject("adodb.connection") adocon.open"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"8.mySQL 连接方法:set adocon=Server.Createobject("adodb.connection") adocon.open"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"9.Visual Foxpro 连接方法:set adocon=Server.Createobject("adodb.connection") adocon.open"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"10.MS text 连接方法:set adocon=Server.Createobject("adodb.connection") adocon.open"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;"&_ "extensions=asc,csv,tab,txt

ersist SecurityInfo=false;"11.MS text OLE DB 连接方法:set adocon=Server.Createobject("adodb.connection") adocon.open"

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

翔羽 · 发表于 2006-2-22 14:09:11

常用的四种SQL命令：1.查询数据记录(Select) 语法：Select 字段串行 From table Where 字段=内容 例子：想从book表中找出作者为"cancer"的所有记录，SQL语句便如下： select * from book where author=’cancer’ "*"是取出book表所有的字段，如查询的字段值为数字，则其后的"内容"便无须加上单引号，如是日期，则在Access中用(#)包括，而在SQL server中则用(’)包括， 如:select * from book where id=1 select * from book where pub_date=#2002-1-7# (Access) select * from book where pub_date=’2002-1-7’ (SQL Server)提示： 日期函数to_date不是标准sql文，不是所有的数据库适用，所以大家在使用的时候要参考数据库具体语法另外如果是查询传入的变量，则如下：strau=request.form("author") strsql="select * from book where author=’"&strau&"’"如果查询的是数字，则：intID=request.form("id") strsql="select * from book where id="&intID在很多数据库中，如：oracle，上面的语句是可以写成： strsql="select * from book where id='"&intID&"'"的。 但是字符型一定不能按照数字格式写，需要注意。2.添加记录(Insert) 语法：Insert into table(field1,field2,....) Values (value1,value2,....) 例子：添加一作者是"cancer"的记录入book表: insert into book (bookno,author,bookname) values (’CF001’,’cancer’,’Cancer无组件上传程序’) 同样，如果用到变量就如下：strno=request.form("bookno") strau=request.form("author") strname=request.form("bookname") strsql="insert into book (bookno,author,bookname) values (’"&strno&"’,’"&strau&"’,’"&strname&"’)"3.用Recordset对象的Addnew插入数据的方法: 语法：rs.addnew rs("field1").value=value1 rs("field2").value=value2 ... rs.update4.修改数据记录(Update) 语法：update table set field1=value1,field2=value2,...where fieldx=valuex 例子：update book set author=’babycrazy’ where bookno=’CF001’ 如果用到变量就如下：strno=request.form("bookno") strau=request.form("author") strsql="update book set author=’"&strau&"’ where bookno=’"&strno"’"5.Recordset对象的Update方法: 语法：rs("field1").value=value1 rs("field2").value=value2 ... rs.update注意：使用语法3和语法5的时候，一定要注意字段的类型（尤其是日期型）一致，否则出错的几率非常的高。

翔羽 · 发表于 2006-2-22 14:09:38

例子：strno=request.form("bookno") strau=request.form("author") set adocon=server.createobject("adodb.connection") adocon.open "Driver={Microsoft Access Driver(*.mdb)};DBQ=" & _ Server.Mappath=("/cancer/cancer.mdb") strsql="select * from book where bookno=’"&strno&"’" set rs=server.createobject("adodb.recordset") rs.open strsql,adconn,1,3 if not rs.eof then ’如果有此记录的话 rs("author").value=strau rs.update end if rs.close set rs=nothing adocon.close set adocon=nothing6.删除一条记录(Delete) 语法：Delete table where field=value 例子：删除book表中作者是cancer的记录delete book where author=’cancer’(注意：如果book表中author字段的值为cancer的记录有多条，将会删除所有author为cancer的记录)

翔羽 · 发表于 2006-2-22 14:10:00

一、Request 　　Request对象把客户信息保存在几个集合中，供ASP应用使用。通用的访问方法为：Request.Collection("membername") 　　当你不指定集合名时，以(1)QueryString,(2)Form,(3)Cookie和(4)ServerVariable 的顺序搜索所有集合，当发现第一个匹配的变量时，就认定他是要引用的成员。当然，为了提高效率，你最好显式指定是那个集合中的成员。 　　QueryString集合 　　当HTML表单使用GET方法向ASP文件传递数据时，数据被保存在集合QueryString中。其成员可以具有与之相关的多个值，也就是说，同一个表单中，多个元素可以有相同的名字，下面的代码访问这些数据： <%For each item in Request.QueryString("Name") Response.write Item &" " Next %> 　　Form集合 　　当表单用POST方法时，数据被保存在Form集合中。 　　ServerVariable集合 　　保存了随HTTP请求一起传送HTTP头的信息，可以通过他获取有关浏览器的信息，主要成员有： REMOTE_ADDR 远程主机IP地址 REMOTE_HOST 远程主机名称 REMOTE_USER 客户名称 REQUEST_METHOD 请求方法（如POST，GET，HEAD） SERVER_NAME 服务器名 SERVER_PROTOCOL 服务器版本号（如HTTP/1。0）　　二、Response对象 　　用来控制向客户返回的HTML的内容，有若干属性和方法。下面介绍我认为重要的： 　　Buffer属性 　　如果为True,则Response的内容要写入缓冲区，当脚本处理完时再发给客户。 　　Status属性 传递HTTP Response报文的状态。服务器返回的状态代码由三位数字组成，可以用于测试阶段和转换控制到其他站点（即Forward） 　　Write方法 　　向客户输出HTML，可以是任何合法的HTML脚本。 　　Redirect方法 　　使浏览器重新定向到另外一个URL上，如： <%browsetype=Request.ServerVariables("HTTP_USER_AGENT") IF Left(browsetype,11)="Mozilla/2.0" then Response.Redirect "FancyStart.asp" Else Response.Redirect "OldStart.asp" End if%> 　　Clear方法 　　如果设Buffer属性为True，则Clear方法清楚所有缓冲区内容。 　　Flush方法 　　将缓冲内容立即发送给客户。 　　End方法 　　当Active Server遇到该方法时，立即停止处理ASP文件，如果有缓冲，立即发送内容到客户。 　　BinaryWrite方法 　　输出二进制数据

翔羽 · 发表于 2006-2-22 14:10:13

三、Request对象和Response对象的Cookies集合 　　1.写入Cookies 　　Response.Cookies("Cookie名称")[("键名称").属性]=值 　　如果该Cookie已经存在，则值被新值替代，否则，创建该cookie 　　例如： <% Response.Cookies("NewCookie")="New Cookie Value" %> 　　2.读取Cookies 　　如： <%=Request.Cookies("NewCookie")%> 　　Cookie还有一些属性，请参见有关资料。　　四、Application对象 　　Active Server应用程序是虚拟目录及其子目录下的所有文件，即一个WEB。可以使用Application对象在应用软件的所有用户中共享信息，并可以在服务器运行期间持久地保存数据。他有一些控制访问应用层数据的方法和事件。 　　Application本身没有内置属性，可以有用户定义：Application("属性名")=值 　　保存在Application对象中的数据可以被Application的所有用户读取。如用来做访问记数：Application("aVisits")=Application("aVisits")+1 　　方法有两个： 　　Lock: 　　当用户调用Lock时，只有当前用户能够编辑或增加Application对象的属性。 　　Unlock: 　　一定要记住，调用了Lock，完成时一定要调用Unlock. 　　事件也有两个： 　　Application_OnStart事件：应用程序启动时调用。 　　Application_OnStart事件：应用程序终止时调用。 　　这两个事件再加上Session的两个事件的处理程序都放在文件Global.asp中，一个Web应用只有一个Global.asa文件，且放在该应用的根目录下。一个Global.asp文件的例子如下： <Script Language="VBScript" Runat="Server"> Sub Application_OnStart Dim laChats(15) Application("gaChats")=maChats Application("giCounter")=0 End Sub

翔羽 · 发表于 2006-2-22 14:10:29

五、Session对象 Active Server使用会话设置为使用应用程序的单个用户持久保持数据。当用户请求Active Server应用程序中ASP文件的URL时，要启动Session。在缺省情况下，如果没有用户请求，则服务器只保留Session20分钟。用户也可以通过设Session的属性TimeOut来改变。或显示地调用Session.Abandon方法来释放Session对象。 　　SessionID属性 　　唯一标识一个会话的标识符。 　　TimeOut属性 　　定义Session保留的时限，单位为分钟，如Session.TimeOut=10 　　像Application一样，Session也可由用户来定义属性。 　　Session的唯一方法是Abandon,用来取消用户的Session对象，并释放其占用的服务器资源。如：<%Session.Abandon%> 　　事件有Session_OnStart和Session_OnEnd,其处理程序应放在文件Glabal.asa中。　　六、Server对象 　　1.HTMLEncode方法 　　对特定的字符串进行HTML编码，如你本来要显示下列内容： The Underline tag() is used to underline the surrounded text. 　　但很可能实际显示成： The Underline tag() is used to underline the surrounded text. 　　为了避免这种情况，可以调用Server对象的HTMLEncode方法，如： <% Response.Write Server.HTMLEncode("The Underline tag() is used to underline the surrounded text.") %> 　　2.URLEncode方法 　　根据URL规则对字符串进行编码。当字符串数据以URL格式传递到服务器时，串中间不能有空格，不能有特殊字符，这时，你就必须用URL编码。 　　3.CreateObject方法 　　用于创建已注册到服务器机器上的ActiveX组件例程，这恐怕是最重要的一个方法了: 　　句法如下： Server.CreateObject("ComponentName") 　　可以作为例程启动的组件可以是ActiveX能够使用的所有内置组件，实际上是存在于服务器上的任何ActiveX组件。比如，要使用金融计算，步骤如下： 　　1.创建对象 <% set x=server.createobject("extend.financial"); %> 　　2.调用对象的方法 <% set x=server.createobject("extend.financial") response.write Format(x.futval(.07/12,200,-500),"###,###,##0.00") %> 　　3.释放例程 <% set x=Nothing %>

翔羽 · 发表于 2006-2-22 14:10:42

七、FileSystem和TextStream对象 　　FileSystem和TextStream对象可用于建立对文件系统的访问，并提供顺序访问文件的机制。FileSystem没有属性，只有两个方法，第一个方法是CreateTextFile方法，可以在宿主机上创建新的文本文件，并返回TextStream对象以提供对新创建文件的访问机制。第二个是OpenTextFile方法，用于打开文本文件供顺序访问并返回一个TextStream对象。如：<% set fsFilesys=CreateObject("Scripting.FileSystemObject") set tsCoffee=fsFilesys.CreateTextFile("c:\coffe.txt",True) tsCoffee.WriteLine("Man,I Could use some coffee.") tsCoffee.Close %> 　　TextStream对象的使用有： 　　AtEndOfLine:如果文件当前字符处在行的末尾则返回true 　　AtEndOfScreen:如果当前字符在文件的末尾则返回true 　　Column:返回当前字符的列号 　　Line:返回当前字符的行号 　　TextStream对象的方法为： 　　Close:关闭并释放TextStream对象 　　Read:从一个文件中读取给定个数的字符到一个变量中 　　ReadAll:读取文件的全部内容到一个变量中 　　ReadLine:读取给定行号的内容到一个变量中 　　Skip:跳过给定个数的字符 　　SkipLine:跳过给顶的行书 　　Write:写如字符串 　　WriteLine:写入以换行结束的字符串 　　WriteBlankLines:写入给顶数量的空格

帐号		自动登录	找回密码
密码			马上注册



软考应考经验分享交流	IT项目管理师电子资料	系分·项管·信工·必读	会声会影下载
IT项管考前一个月复习安排	分享历届IT项管真题答案	历年软考分数线大全	IT项目管理新手看什么书？
清华、电工教材比较	国家信息技术紧缺人才	哪些软考证书可以挂靠?	项目管理发展史
信息系统项目管理师挂靠一年多少钱？	信息系统项目管理师考试费用及收费依据（汇总）

[转帖]ASP编程常用的代码

浏览过的版块