conn.asp

实现一个投票系统

<%
dim stime,db,conn,typess
stime=timer()
typess=1
db="db.mdb"
select case typess
case "1" 'access数据库
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath(db)
case "2" 'sql数据库
set conn=server.createobject("adodb.connection")
conn.open "driver=SQL Server;uid=sa;pwd=;SERVER=local;database=aa"
end select
%>