class_conn.asp

直接附加数据库！ 修改 Include/ Class_Main.asp 为自己信息 后台admin admin 绍兴人才网程序

<%@ LANGUAGE = VBScript CodePage = 936%>
<!--#include file="Class_Safe.asp" -->

<%
Response.Buffer = True
'On Error Resume Next
Dim Conn,Connstr
Dim Sqldatabase,Sql_pass_word,Sql_User_ID,Sql_Data_Source

Sqldatabase="jobs"            
Sql_pass_word="jobs"   
Sql_User_ID="jobs"      
Sql_Data_Source="(local)"


	
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=SQLOLEDB.1;Password='"&Sql_pass_word&"';Persist Security Info=False;User ID='"&Sql_User_ID&"';Initial Catalog='"&Sqldatabase&"';Data Source='"&Sql_Data_Source&"'"	
Conn.Open Connstr

Function CloseDB
 Conn.close
 Set conn = Nothing
End Function

Function CloseRs
 Rs.Close
 Set Rs = Nothing
End Function

If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "网站维护中..."
	Response.End
End If

%>