conn.asp

一个简单的图书管理系统

<%
connstr = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=谢贵文 ;"
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
	%>