asp连接SQL和Access数据代码_asp里的随机函数

SQL数据库连接代码

<%
set con=server.CreateObject("adodb.connection")
con.provider="sqloledb"
con.open "server=服务器IP或名称;database=数据库名称;uid=登陆名;pwd=登陆密码;"
%>

ACCESS数据库连接代码（一）

<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("数据库文件路径")
%>
 

ACCESS数据库连接代码（二）

<%
dim conn,cqie
cOnn="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("数据库文件路径")
set cqie=server.createobject("adodb.connection")
cqie.open conn
%>

asp里的简单随机函数

<%
dim a,b,c
a=1310:b=9215
randomize
c=int((b-a+1)*rnd+a)
%>

取出上次登陆时间记录本次登陆时间

<%
session("onetime")=rs("上次登陆时间")
session.timeout=30
rs("上次登陆时间")=now()
%>

原文链接： http://www.software8.co/wzjs/ASPjiaocheng/886.html