
<!--#include file=config.asp-->
<%sid=Request.querystring("sid")

saytk=Request.querystring("saytk")


YD_SQL_SERVERIP=""&YD_SQL_SERVERIP1&""   '数据库IP或数据库服务名
YD_SQL_UserName=""&YD_SQL_UserName1&""          '登录数据库用户名
YD_SQL_PassWord=""&YD_SQL_PassWord1&""         '登录数据库密码
YD_Main_DatabaseName=""&YD_Main_DatabaseName1&"" '主数据库名


On Error Resume Next
set conn=server.createobject("ADODB.connection")


if datesql="0" then    '数据库方式，1为access，0为sql


conn.open "PROVIDER=SQLOLEDB;DATA SOURCE="&YD_SQL_SERVERIP&";UID="&YD_SQL_UserName&";PWD="&YD_SQL_PassWord&";DATABASE="&YD_Main_DatabaseName




else
conn.open"Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath(""&acc1&"")
'Conn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & accdate
end if
Sub Head() 
    Response.ContentType = "text/vnd.wap.wml"
    Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"
    Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">"
    Response.Write "<wml>"
    Response.Write "<head>"
    Response.Write "<meta name=""keywords"" content=""saytk.com提示，数据库链接出错"" />"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"
    Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache""/>"
    Response.Write "</head>"
End Sub


	'采集数据联接
	set Conn2=Server.CreateObject ("Adodb.Connection")
	Conn2.Open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("#saytk_xyzj.mdb")



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


%>