📄 conn.asp
字号:
<%
'下载使用本系统时请将数据库改名。
'不要忘了。改名后请把下面的数据源路径修改一下。
dim db
dim connstr
dim websql
dim webrs
dim webname
dim url
dim mail
dim rows
dim cel
dim img
db="mdb/mydatabase.mdb"
connstr="DBQ="+server.MapPath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
set conn=server.CreateObject("ADODB.Connection")
conn.open connstr
websql="select * from config"
on error resume next
set webrs=server.CreateObject("Adodb.recordset")
webrs.open websql,conn,1,1
webname=webrs("webname")
url=webrs("url")
mail=webrs("mail")
rows=webrs("rows")
cel=webrs("cel")
img=webrs("img")
webrs.close
set webrs=nothing
Sub rsclose()
rs.close()
set rs=nothing
End Sub
Sub connclose()
conn.close()
set conn=nothing
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -