conn.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<!--#include file="md5.asp" -->
<%
Dim conn,WebSqlType,MySQLUser,MySqlPass,MySqlDb,WebTaoJin2008Pass
'******************************************************************************************************
MyAccEssFile="/Access/TaoJin2008.mdb" '数据库的路径,AccEss专用
'---------------------------------
MySQLUser="Sa" '连接数据库的用户名
'---------------------------------
MySqlPass="123" '连接数据库的密码
'---------------------------------
MySqlDb="Taojin2008" '数据库名称
'---------------------------------
SQLAccEssType=0 '1为SQL数据库存 , 0为ACCESS数据库
'******************************************************************************************************
'***********                                                                      *********************
'***********  开发商: 淘金网                                                      *********************
'***********  版本号: 淘金2008版                                                  *********************
'***********  QQ联系: 526605913                                                   *********************
'***********  管方网站:http://www.taojin2008.com                                  *********************
'***********  现在版本为试用版,如有问题请联系升级为正式版                         *********************
'***********  ACCESS版 800元/套  SQL版 1200元/套                                  *********************
'***********  购买方式:一次性购买.终身免费使用,免费升级,免费获取系统补丁          *********************
'***********
'******************************************************************************************************
If SQLAccEssType=1 then
On Error Resume Next
Set Conn=server.createobject("adodb.connection")  
Conn.ConnectionTimeout=20                      
Conn.open "driver={SQL Server};server=(local);uid="&MySQLUser&";pwd="&MySqlPass&";database="&MySqlDb&""
If Err.Number <> 0 Then
   Response.write "<font size=18 color=red>网站正在维护中......</font>"
   Response.End()
end if
Function CloseDatabase()
  Conn.Close
  Set Conn=Nothing
End Function
Else
conndata="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&MyAccEssFile&"")
On Error Resume Next
set conn = Server.CreateObject("ADODB.Connection")
conn.Open conndata
If Err.Number <> 0 Then
   Response.write "<font size=16 color=#666666>网站正在维护中......</font>"
   Response.End()
end if
End If
'******************************************************************************************************
WebSqlType="Taojin2008"
'=======================================
WebTaoJin2008Pass=md5("A001TaoJin2008.com")
'******************************************************************************************************
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_config where "&WebSqlType&"_TaoJin2008Pass='"&WebTaoJin2008Pass&"'"
rs.open sql,conn,1,1
if (rs.bof) and (rs.eof) then
WebPassXS="试用版用户,请及时升级为正式版或授权版,同时也感谢你使用<淘金2008>圈子专业程序!"
response.Write WebPassXS
response.End()
else
cityname=Trim(rs(""&WebSqlType&"_cityname"))
citytitle=Trim(rs(""&WebSqlType&"_citytitle"))
cityurl=Trim(rs(""&WebSqlType&"_cityurl"))
cityeurl=Trim(rs(""&WebSqlType&"_cityeurl"))
cityusertk=Trim(rs(""&WebSqlType&"_cityusertk"))
OKAr=Trim(rs(""&WebSqlType&"_OKAr"))
OKsize=Trim(rs(""&WebSqlType&"_OKsize"))
citysypkey=Trim(rs(""&WebSqlType&"_citysypkey"))
cityypkey=Trim(rs(""&WebSqlType&"_cityypkey"))
citydns=Trim(rs(""&WebSqlType&"_citydns"))
dnskey=Trim(rs(""&WebSqlType&"_dnskey"))
dnswww=Trim(rs(""&WebSqlType&"_dnswww"))
citymailsmtp=Trim(rs(""&WebSqlType&"_citymailsmtp"))
citymaillog=Trim(rs(""&WebSqlType&"_citymaillog"))
citymailpass=Trim(rs(""&WebSqlType&"_citymailpass"))
citymaildns=Trim(rs(""&WebSqlType&"_citymaildns"))
cityscayx=Trim(rs(""&WebSqlType&"_cityscayx"))
cityabout=Trim(rs(""&WebSqlType&"_cityabout"))
citycontact=Trim(rs(""&WebSqlType&"_citycontact"))
TaoJin2008Ads=Trim(rs(""&WebSqlType&"_TaoJin2008Ads"))
TaoJin2008Url=Trim(rs(""&WebSqlType&"_TaoJin2008Url"))
TaoJin2008Files=Trim(rs(""&WebSqlType&"_Files"))
rs.close
set rs=Nothing
'-------------------------------------------------------------------
Chtcs=split(citysypkey,",")
Cprice=split(cityypkey,",")
TaoFiles=split(TaoJin2008Files,"|")
end if
%>