readerquery.asp

用户名：admin,口令：123456。 使用的数据库SQL Server 2000和Microsoft Access数 据库。Microsoft Access数据库使用Visual Basic提

<%
Server.ScriptTimeout=600
Response.Buffer=True
Response.Expires=0

If (VarType(Application("~WC~WebClassManager")) = 0) Then
	Application.Lock
	If (VarType(Application("~WC~WebClassManager")) = 0) Then
		Set Application("~WC~WebClassManager") = Server.CreateObject("WebClassRuntime.WebClassManager")
	End If
	Application.UnLock
End If

Application("~WC~WebClassManager").ProcessNoStateWebClass "图书管理查询系统.ReaderQuery", _
		Server, _
		Application, _
		Session, _
		Request, _
		Response
%>