<%
call htmlend()
Response.End
end sub
sub setup()
gbook_name=Server.htmlencode(Request.form("gbook_name"))
password=Request.form("password")
name=Server.htmlencode(Request.form("name"))
url=Request.form("url")
bodymax=Request.form("bodymax")
pagesize=Request.form("pagesize")
setup_ip=Request.ServerVariables("REMOTE_ADDR")
if gbook_name = "" then
message="留言本名称不能为空!\n"
end if
if password = "" then
message=message&"管理员口令不能为空!\n"
end if
if name = "" then
message=message&"您的网站名称必须填写!\n"
end if
if url = "" then
message=message&"您的网站地址必须填写!\n"
end if
if bodymax = "" then
message=message&"您不能把留言内容大小限制设置为空!\n"
end if
if pagesize = "" then
message=message&"每页显示的留言数必须填写!\n"
end if
if message<> "" then
call error(""&message&"")
Response.end
end if
sql = "select * from admin where gbook_name='"&gbook_name&"'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,3,3
if Rs.eof or Rs.bof then
Rs.addnew
Rs("gbook_name")=gbook_name
Rs("password")=password
Rs("name")=name
Rs("url")=url
Rs("bodymax")=bodymax
Rs("pagesize")=pagesize
Rs("setup_ip")=setup_ip
Rs("setup_time")=now
Rs.update
else
message=message&"该留言本已存在,请换一个留言本名称!\n"
call error(""&message&"")
end if
Rs.close
sql = "select * from admin where gbook_name='"&gbook_name&"'"
Rs.open sql,conn,3,3
userid=Rs("id")
Rs.close
set Rs = nothing
conn.close
set conn = nothing
Response.redirect "success.asp?userid="&userid&"&bookname="&gbook_name
Response.End
end sub
%>