db_conn_admin.asp

WAP2.0的手机网站留言板

<%  
Response.Buffer = True 
on error resume Next
dim db,conn,connstr,rs

db = "../#WiiMsg_data.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(db)
conn.Open connstr

if Err.Number <> 0 then
	err.clear
	Response.redirect "../admin/error.asp?err=1901"
    Response.End
end If

sqlStr="select top 1 * from WP_conf"
set rs = server.createobject("ADODB.RecordSet")
rs.open sqlStr,conn,1,1

If rs.eof Then
	Response.redirect "error.asp?err=1301"
    Response.End		
Else
	siteName=rs("conf_name")
	siteLogo=rs("conf_logo")
	siteWidth=rs("conf_width")

	isMsgShow=rs("conf_isMsgShow")
	msgShowNum=rs("conf_msgShowNum")
	msgIntro=rs("conf_msgIntro")
	msgFilter=rs("conf_filter")

	mailSMTP=rs("conf_mailSMTP")
	mailAccount=rs("conf_mailAccount")
	mailPassword=rs("conf_mailPassword")
	mailAddress=rs("conf_mailAddress")

End if
rs.close
Set rs=nothing
%>