<%if request("action")="delall" then%> <%end if if request("action")="delall_post" then Dim StrSQL StrSQL="delete from gb" conn.Execute StrSQL response.write "已经成功删除全部纪录" response.write "若浏览器没有自动返回，请点击这里" Response.Redirect("gb.asp") end if %>

公司简介 <%=jianjie%>

产品图片基本设置(最好用默认的3行3列9张) 每页显示 >2 >3 >4 >5 >6 >7 >8 >9 >10 行    每页显示 >2 >3 >4 >5 >6 >7 >8 >9 >10 列 张图片

留言本使用设置 重复留言时间 秒（0为不限制） 分页显示类型 （1、2） 是否开放留言本 （0关闭，1开放） 是否限制留言数 （0为不限制，1为限制） 最大允许留言数 (若上项为0则不起作用) 最大留言字符数 每页显示记录数 是否显示编辑器 （0关闭，1开放） 是否使用屏蔽昵称 （0关闭，1开放） 是否使用屏蔽字符 （0关闭，1开放） 屏蔽使用的昵称 <%=splitwords1%> (以,分开) 屏蔽使用的字符 <%=badwords1%>   (将会删除所有留言！)

<% action=request("action") if action="post1" then sql="update setting set rows='"&request("rows")&"',cel='"&request("cel")&"',img='"&request("img")&"'" conn.Execute(sql) response.redirect "gb_setting.asp" end if if action="post2" then gbset=request("posttime")&","&request("listpagetype")&","&request("opengb")&","&request("usesplitwords")&","&request("usebadwords")&","&request("usemaxdata")&","&request("msgperpage")&","&request("ubbedit") sql="update setting set gbset='"&gbset&"',maxdata="&request("maxdata")&",maxtext="&request("maxtext")&",splitwords='"&request("splitwords")&"',badwords='"&request("badwords")&"'" conn.Execute(sql) response.redirect "gb_setting.asp" end if if action="post3" then sql="update setting set jianjie='"&request("Content")&"'" conn.Execute(sql) response.redirect "gb_setting.asp" end if %>