head.asp

使用本程序在局域网内聊天

<%
Option Explicit				'变量定义后可用
Response.Expires = -1 
Response.ExpiresAbsolute = Now() - 1 
Response.CacheControl = "no-cache"
Response.Buffer = True		'页面缓冲
Dim PageStartTime
PageStartTime=Timer()
%>
<!--#include file="functions.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<%
Dim SystemKey
Dim User_ID,User_Group,User_Pass,User_sex,User_email,User_web,User_oicq,User_Ip,Enable_Anonymous,Enable_Ubb,copyright
Dim Sql,Num,i,Key,Act
SystemKey="DFdfF834FDSdsfseK_"
copyright=""
OpenData
Dim ClassName()
%>
<!--#include file="class.asp"-->
<!--#include file="config.asp"-->
<%
Call CheckUser()
Call CheckVisit()
%>