conn.asp

asp+sql软件系统

<%@ Language=VBScript CodePage=936%>
<%
Option Explicit
Response.Buffer = True
Server.ScriptTimeOut = 90			
Session.Timeout = 90				
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
Dim Conn,Sql,Rs,FoundErr,ErrTitle,ErrInfo,SucTitle,SucInfo,SucUrl,PagePath
FoundErr=False
Dim Action
Action=Request.QueryString("Action")
PagePath = Request.ServerVariables("URL") 
Const ErrorType="2"		                
Const PageTitle="Jstu校园软件系统"              
Const UplaodPath="UplaodImages/"               
Const MaxFileSize="1000"                       
Const UpFileType="GIF|JPG|SWF|BMP|PNG|JPEG"    
Sub OpenDatabase()
Dim StrConn
on error resume next
Set Conn = Server.Createobject("Adodb.Connection")
strConn="Provider = Sqloledb; User ID = sa; Password =123456 ; Initial Catalog =xiaoyuan; Data Source = (local);"
Conn.Open StrConn
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
Sub CloseDatabase()
Conn.Close
Set Conn = Nothing
End Sub
Dim NetCom
Set NetCom = New NetCom_Char
%><!--#include file="Include/Function.asp"--><!--#include file="Include/Module.asp"-->