<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
Dim Dvbbs,template
Dim SqlNowString,Conn
Const IsSqlDataBase = 0
Const Forum_CacheName = "aspsky"
Const IsDeBug = 1
Startime = Timer()
Dim MyBoardOnline
Dim Db
Set Dvbbs = New Cls_Forum
Set MyBoardOnline=new Cls_UserOnlne
Set template = New cls_templates
If IsSqlDataBase = 1 Then
    SqlNowString = "GetDate()"
Else
    SqlNowString = "Now()"
End If
   这工作原理怎么和WINSOCK差不多!~ 怎么全改为我的