conn.asp

来自「自己去看吧ASP的图书馆系统」· ASP 代码 · 共 29 行

<%
'connstr = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=谢贵文;"
connstr = "DBQ=" + server.mappath("book.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"  
Set db = Server.Createobject("ADODB.Connection")
db.open connstr
%>
<%

'超期函数 
function chaoqi()
'sql="select * from loans"
'set rs=server.CreateObject("adodb.recordset")
'rs.open sql,db,1,3
  if datediff("d",rs("time"),date)>=30 then 
	  response.Write("超期 "&datediff("d",rs("time"),date)&" 天")
  else
	  response.Write("无")
  end if
end function
%>