[ÇóÖú]ºÃÏñÊÇÊý¾Ý¿âÁ¬½ÓÎÊÌ⣡²»¶®£¡Çë¿´¿´

°®»¢ÀÏÓÍ¡á

<%
option explicit
dim conn,connstr,i,sql,rs

const serverIP1 = "" '''·þÎñÆ÷IPµØÖ·
const DbUserName1 = "" '''Êý¾Ý¿âÓû§Ãû
const DbPassword1 = "" ''Êý¾Ý¿âÃÜÂë
const DatabaseName1 = "metin" ''Êý¾Ý¿âÃû

const serverIP2 = "" '''·þÎñÆ÷IPµØÖ·
const DbUserName2 = "" '''Êý¾Ý¿âÓû§Ãû
const DbPassword2 = "" ''Êý¾Ý¿âÃÜÂë
const DatabaseName2 = "metin" ''Êý¾Ý¿âÃû

const serverIP3 = "" '''·þÎñÆ÷IPµØÖ·
const DbUserName3 = "" '''Êý¾Ý¿âÓû§Ãû
const DbPassword3 = "" ''Êý¾Ý¿âÃÜÂë
const DatabaseName3 = "metin" ''Êý¾Ý¿âÃû

dim connstr1,connstr2,connstr3
connstr1="driver={mysql odbc 3.51 driver}; server="&serverIP1&";uid="&DbUserName1&";pwd="&DbPassword1&";database="&DatabaseName1&""
connstr2="driver={mysql odbc 3.51 driver}; server="&serverIP2&";uid="&DbUserName2&";pwd="&DbPassword2&";database="&DatabaseName2&""
connstr3="driver={mysql odbc 3.51 driver}; server="&serverIP3&";uid="&DbUserName3&";pwd="&DbPassword3&";database="&DatabaseName3&""
Function OpenDb(s)
Set conn = Server.CreateObject("ADODB.Connection")
select case s
case 1
conn.open Connstr1
case 2
conn.open Connstr2
case 3
conn.open Connstr3
case else
conn.open Connstr1
end select
End Function
FUNCTION GetError(str)
Response.Write(str)
Response.End()
End Function
Public Function CheckStr(Str)
If Isnull(Str) Then
CheckStr = ""
Exit Function
End If
Str = Replace(Str,Chr(0),"")
Str = Replace(Str,chr(34),"")
Str = Replace(Str,";","")
CheckStr = Replace(Str,"'","''")
End Function
public Function GetQS(str)
if str = "" then exit Function
GetQS = CheckStr(trim(Request.QueryString(Str)))


End function
Public Function GetForm(s)
if s="" then exit function
GetForm=CheckStr(trim(request.Form(s)))
End Function

Public Function GetForm2(s)
if s="" then exit function
GetForm2=trim(request.Form(s))
End Function

Public Function ChkPost()
Dim server_v1,server_v2
Chkpost=False
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,len(server_v2))=server_v2 Then
Chkpost=True
else
response.Write("<li>²»ÔÊÐíÌá½»Íⲿ·¢ÑÔ£¬Çë¼ì²éÄúµÄä¯ÀÀÆ÷»òÕß·À»ðǽÊÇ·ñ¹ýÂËÁËREF²ÎÊý<li>Èç¹û¶à´Î³öÏÖ¸ÃÇé¿ö£¬ÇëÇå¿ÕÄúµÄÁÙʱÎļþ»òÕßÖØÆôÄúµÄ¼ÆËã»ú¡£")
Chkpost=False
end if
End Function
%>


µ½ conn.open Connstr1 ³ö´í£¡


Microsoft OLE DB Provider for ODBC Drivers ´íÎó '80004005'
[Microsoft][ODBC Çý¶¯³ÌÐò¹ÜÀíÆ÷] δ·¢ÏÖÊý¾ÝÔ´Ãû³Æ²¢ÇÒδָ¶¨Ä¬ÈÏÇý¶¯³ÌÐò
/inc/conn.asp£¬ÐÐ 31