<%
dim sql,rs,objPost
if request.form<>"" then
set objPost=request.form
sql="select pageLinkNum,mustReg,masterRe,imgUbb,rcPerPage1,rcPerPage2,defaultSkin,defaultStyle,homepage,title,masterEmail,timeDiff,killWord,maxLength,showface,postLimit from GBconst"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
for i=1 to objPost.count
if objPost(i)="" then
rs(i-1)=null
else
rs(i-1)=objPost(i)
end if
next
rs.update
rs.close
set rs=nothing
set objPost=nothing
getConst()
end if
connclose()
%>