<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
db=""&db
Dim ConnStr
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
<%
set sd=server.createobject("adodb.recordset")
sd.open "select * from sd_title",conn,1,3
sd_site=sd("sd_site")
sd_fbt=sd("sd_fbt")
sd_Keywords=sd("sd_Keywords")
sd_Description=sd("sd_Description")
sd_Copyright=sd("sd_Copyright")
sd_union=sd("sd_union")
sd_icp=sd("sd_icp")
sd_sd=sd("sd_sd")
sd.close
set sd=nothing
%>