<%
   'dim conn   
   'dim connstr   

'Set conn = Server.CreateObject("ADODB.Connection")
'connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=127.0.0.1; Initial Catalog=数据库名; User ID=用户名; Password=密码"
'conn.Open connstr

  connstr="DBQ="+server.mappath("../data/Huanqiu.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  set conn=server.createobject("ADODB.CONNECTION")
  conn.open connstr 
%>
<%
function chkcookie(fString)
fString = replace(fString, "'", "")
fString = replace(fString, " ", "")
chkcookie = fString
end function

%>
<%
Set rsr= Server.CreateObject("ADODB.Recordset")
rsr.open "select top 1 * from home",conn,1,1
webname=rsr("webname")
weburl=rsr("weburl")
webtitle=rsr("webtitle")
set_ie=rsr("set_ie")
set_logo=rsr("set_logo")
adminurl=rsr("adminurl")
logintype=rsr("logintype")
loginip=rsr("loginip")
bad_words=rsr("bad_words")
keywords=rsr("keywords")
Description=rsr("Description")
Payother=rsr("Pay")
rsr.close
set rsr=nothing
%>
