asp数据库连接代码
conndb.asp
<%
Session.CodePage=65001
response.Charset="utf-8"
%>
<%
'数据库连接文件
dim conn
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("../date/#heihuhuhuajian.mdb")+";Jet OLEDB:Database Password=;"
set conn=server.createobject("ADODB.CONNECTION")
On Error Resume Next
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
<%
'数据库表文件
'全局变量，方便程序的整体转移,这几个变量为核心变量。
dim table,tables,config
table="xinwen_fenlei" '定义分类表单的名称
tables="news" '定义存储数据表单的名称
config="class_config" '定义分类属性表单的名称
picwenzi="www.xx.cn" '定义水印图片的文字
pickuandu=400 '定义缩略图的宽度
picgaodu=400 '定义缩略图的高度
pickuandu_xiao=105 '定义缩略图的宽度
picgaodu_xiao=100 '定义缩略图的高度
sites=""
%>
<%
'网站基本信息显示
set rs_jiben=server.CreateObject("adodb.recordset")
rs_jiben.open "select * from site where id=1",conn,1,1
wznames=rs_jiben("title")
wzmiaoshu=rs_jiben("content")
wzkeys=rs_jiben("keys")
wztop=rs_jiben("top")
wzfoot=rs_jiben("foot")
rs_jiben.close
set rs_jiben=nothing
%>
相关文档：
<% '--------------------------------------------------------------------------------------------------
Set rs9 = Server.CreateObject("ADODB.RecordSet")
sqlstr="select * from 客户资料库 order by id desc"
rs9.open sqlstr,conn,1,3
%>
<%Set fs = server.CreateObject( ......
'函数名：CodeCookie
'作 用：Cookie防乱码写入时用
'参 数：str ---- 字符串
'返回值：整理后的字符串
'示 例：
'**************************************************
Public Function CodeCookie(str)
If is ......
我写了个程序，本地运行完全正常，上传到服务器在服务器上操作有时候能正常操作，但是运行一会儿就服务器连接超时，然后就不能正常操作了，关闭网页，打开还是不能连接数据库操作，等半小时后或者更久又能正常了，请问这个是怎么回事？本地随时都能正常运行切找不出任何问题。高手帮帮忙啊！ ......
1.记录集关闭之前再次打开:
------------------------------------
sql="select * from test"
rs.open sql,conn,1,1
if not rs.eof then
dim myName
myName=rs("name")
end if
sql="select * from myBook"
rs.open sql,conn,1,1
------------------------------------ ......
