config.asp

以朱朱相册为程序原型整合开发winds相册

<%
Dim bolog_infos,title,homeurl,desktoptitle,copyright,user,pass
Set blog_Infos=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM PersonalInfo"
blog_Infos.Open SQL,Conn,1,1
If blog_Infos.EOF And blog_Infos.BOF Then
	Response.Write("站点出错，请检查数据库中的站点基本信息设置……")
	Response.End
Else
	title=blog_Infos("title")
	homeurl=blog_Infos("homeURL")
	desktoptitle=blog_Infos("webname")
	copyright=blog_Infos("copyright")
	usr=blog_Infos("user")
	psd=blog_Infos("pass")
End If
on error resume next
%>