发布:goodtext,分类:编程开发,2008-12-19 11:22:34
将数据库连接代码封装在函数里，在需要读取时调用这个函数。
以下是SQL连接代码：
Function Open_conn()
dim Conn,Strconn
set Conn=server.createobject("adodb.connection")
Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);"
Conn.open Strconn
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function
调用方法：
将原来的
rs.open sql,conn
改成
rs.open sql,Open_conn()
以下是ACCESS连接代码：
Function Open_conn()
dim Dbpath,Conn
Dbpath=server.MapPath("数据库路径")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function
调用方法：
将原来的
rs.open sql,conn
改成
rs.open sql,Open_conn()
读取和写入UTF-8编码的文件函数一则 (2008-11-22 17:49:7)
编写简单文章管理系统 - goodtext.org新闻&文章发布管理系统（GTArticle V1.0 ） (2008-10-19 8:58:16)
ASP动态网页下UTF-8页面乱码+GB2312转UTF-8 +生成UTF-8格式的文件(编码) (2008-10-2 8:20:12)
给网站加上RSS - Asp生成RSS的类 (2008-9-21 12:9:40)
说明：本函数作用是截取指定英汉混合字符串，并保持显示长度一至。就是将一个汉字当两英文来截取。 (2008-8-20 11:31:30)
一个asp版XMLDOM的类 (2008-8-20 8:26:5)
ASP操作XML文件创建，查询，修改等对xml操作的主要方法 (2008-7-26 14:17:29)
用fso\用ado.stream写xml文件 (2008-7-23 7:20:54)
操作文本的精典Function函数ASP+FSO (2008-7-22 10:23:7)
数据操作函数 (2008-6-25 7:49:46)