<%@ LANGUAGE="VBSCRIPT" %>
<%=ForumName%>--安装论坛
<%
call main()
dim Errmsg
dim Founderr
Founderr=false
sub main()
%>
align=center>
欢迎您使用动网论坛 DV Ver5.0 Build 0109
>
<%
if request("action")="save" then
call saveconst()
elseif request("action")="agree" then
call consted()
elseif request("action")="saveadmin" then
call saveadmin()
else
call agreeinfo()
end if
conn.close
set conn=nothing
%>
使用环境：NT4/5+IIS4/5+ACCESS2000 or WIN9X+PWS+ACCESS2000 IE5.0以上版本
<%
end sub
sub consted()
%>
<%
end sub
sub saveconst()
cookies_path_s=split(Request.ServerVariables("PATH_INFO"),"/")
cookies_path_d=ubound(cookies_path_s)
cookies_path="/"
for i=1 to cookies_path_d-1
if not (cookies_path_s(i)="upload" or cookies_path_s(i)="admin") then cookies_path=cookies_path&cookies_path_s(i)&"/"
next
cookiepath=cookies_path
conn.execute("update config set cookiepath='"&cookiepath&"'")
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from config"
rs.open sql,conn,1,3
if Request("ForumName")="" then
errmsg = errmsg + " " + "
请填论坛名称！
"
call error()
else
rs("ForumName") = Request("ForumName")
end if
if Request("ForumURL")="" then
errmsg = errmsg + " " + "
请填论坛连接地址！
"
call error()
else
rs("ForumURL") = Request("ForumURL")
end if
if Request("CompanyName")="" then
errmsg = errmsg + " " + "
请填主页名称名称！
"
call error()
else
rs("CompanyName") =Request("CompanyName")
end if
if Request("HostUrl")="" then
errmsg = errmsg + " " + "
请填论坛名称名称！
"
call error()
else
rs("HostUrl") = Request("HostUrl")
end if
if Request("SMTPServer")="" then
errmsg = errmsg + " " + "
请填写邮件服务器地址！
"
call error()
else
rs("SMTPServer") = request("SMTPServer")
end if
if Request("SystemEmail")="" then
errmsg = errmsg + " " + "
请填写邮件服务器地址！
"
call error()
else
rs("SystemEmail") = Request("SystemEmail")
end if
if Request("TimeAdjust")="" then
rs("TimeAdjust") = 0
else
rs("TimeAdjust") = Request("TimeAdjust")
end if
if Request("ScriptTimeOut")="" then
rs("ScriptTimeOut") = 300
else
rs("ScriptTimeOut") = Request("ScriptTimeOut")
end if
if Request("logo")="" then
errmsg = errmsg + " " + "
请填写论坛logo地址！
"
call error()
else
rs("Logo") = Request("Logo")
end if
if Request("Picurl")="" then
errmsg = errmsg + " " + "
请填写论坛图片目录！
"
call error()
else
rs("Picurl") = Request("Picurl")
end if
if Request("Faceurl")="" then
errmsg = errmsg + " " + "
请填写论坛表情目录！
"
call error()
else
rs("Faceurl") = Request("Faceurl")
end if
rs("EmailFlag") = Request("EmailFlag")
rs("Uploadpic") = Request("Uploadpic")
rs("IpFlag") = Request("IpFlag")
rs("FromFlag") = Request("FromFlag")
rs("TitleFlag")=Request("TitleFlag")
rs("uploadFlag")=request("uploadFlag")
rs("guestuser") = Request("guestuser")
rs("openmsg") = Request("openmsg")
rs("AnnounceMaxBytes") = Request("AnnounceMaxBytes")
rs("MaxAnnouncePerPage") = Request("MaxAnnouncePerPage")
rs("Maxtitlelist") = Request("Maxtitlelist")
rs("Tablebackcolor") = Request("Tablebackcolor")
rs("aTablebackcolor") = Request("aTablebackcolor")
rs("Tabletitlecolor") = Request("Tabletitlecolor")
rs("aTabletitlecolor") = Request("aTabletitlecolor")
rs("Tablebodycolor") = Request("Tablebodycolor")
rs("aTablebodycolor") = Request("aTablebodycolor")
rs("TableFontcolor") = Request("TableFontcolor")
rs("TableContentcolor") = Request("TableContentcolor")
rs("AlertFontColor") = Request("AlertFontColor")
rs("ContentTitle") = Request("ContentTitle")
rs("ads1") = Request("ads1")
rs("ads2") =Request("ads2")
rs("Copyright") = Request("Copyright")
rs.update
rs.close
set rs=nothing
call getconst()
if founderr=true then
exit sub
else
set rs = server.CreateObject ("adodb.recordset")
sql="select * from [user]"
rs.open sql,conn,1,3
rs.addnew
rs("username")="admin"
rs("userpassword")="admin"
rs("userclass")=1
Rs("article")=0
Rs("lockuser")=0
Rs("sex")=1
Rs("showRe")=1
Rs("addDate")=NOW()
rs("face")="pic/image1.gif"
Rs("width")=32
Rs("height")=32
rs("logins")=1
rs("userclass")=20
Rs("lastlogin")=NOW()
rs("userWealth")=wealthReg
rs("userEP")=epReg
rs("usercP")=cpReg
rs.update
rs.close
set rs=nothing
%>
<%
end if
end sub
%>