DataBaseType=0
if DataBaseType=1 then
'数据库类型Access2000
'数据库文件位置,使用相对路径
dbfile="Data.mdb"
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.Mappath(dbfile)
else
'定义数据库连接
dim server1
dim user1
dim ps
dim Db
dim connstr
server1="192.168.1.100"
user1="sa"
ps="你的密码"
Db="dns"
connstr="Driver={SQL SERVER};SERVER="&server1&";UID="&user1&";PWD="&ps&";Database="&Db
Set Conn=Server.Createobject("ADODB.CONNECTION")
Conn.open connstr
end if
'Recordset
set Rs=server.CreateObject("ADODB.Recordset")
SqlStr = "select * from [DNS] where name='"&temp(0)&"'"
Rs.open SqlStr,Conn,1,1
if Rs.eof=true or Rs.bof then
targeturl=targeturl+"error.asp"
else
targeturl = targeturl+Rs("url")
end if
'if targeturl = "" then
' targeturl="http://www.aliang.com/"
'end if