setup.asp

文章管理系统,生成静态网页 .

<!--#include file=conn.asp-->
<%
function errtoinstall(a)
response.write "<table bgcolor=black cellpadding=3 cellspacing=1 align=center width=90"&"%"&"><tr><td bgcolor=white height=120 valign=middle align=center>"&a&"<meta http-equiv='refresh' content='2 url=install.asp'></table>"

end function
%>
<%

set conn=server.createobject("adodb.connection")
conn.open connstr
if conn.execute("select * from config").eof then
errtoinstall("你没有安装")
response.end
end if

set rs=conn.execute("select * from config")
webtitle=rs("webtitle")
superadmin=rs("superadmin")
superpass=rs("superpass")
path=rs("path")
num=rs("num")
adtop=rs("adtop")
adfloat=rs("adfloat")
adbottom=rs("adbottom")
conn.close
%>