conn.asp

金路网络硬盘====特首快传系统 (Tso upload system 1.0) 使用ASP脚本编写,大量使用类封装,全面集成优化aspuplaod3.0批量上传

<%
Server.ScriptTimeout = 9999
Response.Charset="GB2312"
Response.Buffer = True
Const IsSqlDataBase=0								'定义数据库类别，0为Access，1为SQL数据库
Const IsDeBug = 1									'调试模式，1显示数据库查询的错误信息，2显示所有错误信息
Const CN_VersionName = "金路网络硬盘"
Const EN_VersionName = "dongtso Net Disk"
Const CopyRight = "Copyright (c) 2003 jinlujy dongtso ."
Dim StarTime, EndTime
Dim SqlNowString
Dim SysMsg,FoundErr
Dim Conn
StarTime = Timer()
%>

<!--#include file="Const.asp"-->
<!--#Include File="Include/Component.asp"-->

<%
If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
Else
	SqlNowString = "Now()"
End If
Function OpenDB()
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open ConnStr
	If Err Then	
		Response.Clear
		CloseDataBase
		Response.Write "对不起，数据连接错误！如果第一次使用，请先运行setup.asp进行系统配置。"
		Err.Clear
		Response.End
	End If
End Function
%>
<%
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
PID = "PID=" & UploadProgress.CreateProgressID()
barref = "framebar1.asp?to=10&" & PID
%>