<%
Const PurviewLevel=2
Const PagePurview="RegBlogReadme"
%>
TWblog -- 系统管理中心 -- 修改用户注册条款
<%
if trim(request("action"))="SaveModify" then
call SaveModify()
else
call Normal()
end if
sub Normal()
call ConnectionDatabase
set rs=conn.execute("select "&TWBlog_SiteInfo_ID&","&TWBlog_SiteInfo_RegBlogReadme&" from "&TWBlog_SiteInfo_Table)
%>
注意:不能使用本站系统的限定字符和保留字符,否则自动被替换!
<%
call CloseDataBase
end sub
sub SaveModify()
Dim RegBlogReadme,SiteID
SiteID=Trim(Request.Form("SiteID"))
RegBlogReadme=Trim(Request.Form("edit"))
RegBlogReadme=deholdstr(debadstr(RegBlogReadme))
call ConnectionDatabase
sql="select "&TWBlog_SiteInfo_RegBlogReadme&" from "&TWBlog_SiteInfo_Table&" where "&TWBlog_SiteInfo_ID&"='"&SiteID&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn,1,3
if Rs.eof or Rs.bof then
dim errmsg
errmsg=errmsg & "
调用系统参数错误
"
call WriteErrMsg(errmsg)
exit sub
end if
rs(TWBlog_SiteInfo_RegBlogReadme)=RegBlogReadme
rs.update
rs.close
set rs=nothing
dim SuccessMsg
SuccessMsg="