conn.asp

关于网络渗透技术的详细讲解

<%@ LANGUAGE = VBScript CodePage = 936%>
<%

Option Explicit
Response.Buffer=True
Session.TimeOut=1024

Const iDataBaseType=0						'定义数据库类别，1为SQL数据库，0为Access数据库
Const BowelVersion="NBA-F-160-1226"
Const SysVersion="NBArticle Free Ver 1.60"

Dim NowString,Diff(5)						
Dim Conn									
Dim FoundErr								
Dim StarTime,EndTime						
Dim ErrMsg

StarTime=Timer()
FoundErr=False
Dim ConnStr
ConnStr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("../Depot/NBArticle.asp")
Const sCacheName="NB274868191"
If iDataBaseType=1 Then
	NowString="GetDate()"
	Diff(0)="s"
	Diff(1)="d"
	Diff(2)="ww"
	Diff(3)="n"
	Diff(4)="h"
	Diff(5)="m"	
Else
	NowString="Now()"
	Diff(0)="'s'"
	Diff(1)="'d'"
	Diff(2)="'ww'"
	Diff(3)="'n'"
	Diff(4)="'h'"
	Diff(5)="'m'"
End If

Function ConnectionDatabase
	On Error Resume Next

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open ConnStr
	If Err Then	
		CloseAppDataBase
		Response.Write "对不起，数据连接错误！如果第一次使用，请先运行setup.asp进行系统配置。"
		Err.Clear
		Response.End
	End If

End Function

Function CloseDataBase
	Conn.Close
	Set Conn = Nothing
End Function
%>