随笔 - 100  文章 - 50  trackbacks - 0
<2024年11月>
272829303112
3456789
10111213141516
17181920212223
24252627282930
1234567

常用链接

留言簿(3)

随笔分类

随笔档案

文章分类

文章档案

收藏夹

我收藏的一些文章!

搜索

  •  

最新评论

阅读排行榜

评论排行榜

<%
Option Explicit
Server.ScriptTimeOut=90    '脚本超时时间(单位:秒)
Response.Expires=-1

'以下部分勿动
Dim SQL,Rs,Conn

Sub DataConn()'本地数据库
   On Error Resume Next
 Dim strConn
    Set Conn = Server.Createobject("Adodb.Connection")
 strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=127.0.0.1;User ID=sa;Password=sa ;Database=test;"
 
    Conn.Open strConn
        If Err Then
  err.Clear
  Set Conn = Nothing
  Response.Write "数据库连接出错,请检查连接字串。"
  Response.End
 End If
End Sub

'以下代码是用来关闭数据库连接的
Sub DataClose()
 If IsObject(Conn) Then
  Conn.Close
  Set Conn=Nothing
 End If
End Sub
%>
把以上代码做成一个const.asp文件,以后哪个文件要用到的时候用
<!--#include file="const.asp"-->包含进来即可
然后调用,DataConn(),即可打开数据库了
后用DataClose()关闭数据库

posted on 2006-08-12 10:47 fly 阅读(368) 评论(0)  编辑  收藏 所属分类: ASP学习

只有注册用户登录后才能发表评论。


网站导航: