setup.asp

大型黄页系统,精美黄页flash演示,10m

<!--#include file="conn.asp" -->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/NC_userCls.Asp" -->
<%
Response.CacheControl = "no-cache"
Dim NC_Admin
Dim Rs,SQL
Dim FoundErr,ErrMsg,SucMsg
Dim NowTime
FoundErr = False
Set NC_Admin = New Check
Session.TimeOut = CInt(DownsysClass.setting(21))    'Session会话的保持时间(分钟)
NowTime = Now() + CInt(DownsysClass.setting(16)) / 24
DownsysClass.LoadTemplates("")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sub NothingObject()
	If IsObject(NC_Admin) Then
		Set NC_Admin = Nothing
	End If
	CloseConn
End Sub
%>