admin_site.asp

博客模块：Blog是继Email、BBS、ICQ后的第四种网络交流方式

      <td width="400" height="25" >是否显示底部页面累计刷新次数：</td>
      <td height="25" > <input type="radio" name="blog_showrefu" value="true" <%if rs("blog_showrefu")="true" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="blog_showrefu" value="false" <%if rs("blog_showrefu")="false" then response.write "checked"%>>
        否</td>
    </tr>
    <tr> 
      <td height="25" colspan="2" class="topbg"><a name="user" id="user"></a><strong>用户选项</strong></td>
    </tr>
    <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="400" height="25" >是否允许新用户注册：</td>
      <td height="25" > <input type="radio" name="EnableUserReg" value="true" <%if rs("EnableUserReg")="true" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="EnableUserReg" value="false" <%if rs("EnableUserReg")="false" then response.write "checked"%>>
        否</td>
    </tr>
    <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
      <td width="400" height="25" > <p>新用户注册是否需要管理员认证：<br>
          若选择是，则用户必须在通过管理员认证后才能真正成功正式注册用户。</p></td>
      <td height="25" > <input type="radio" name="AdminCheckReg" value="true" <%if rs("AdminCheckReg")="true" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="AdminCheckReg" value="false" <%if rs("AdminCheckReg")="false" then response.write "checked"%>>
        否</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" ><p >新会员的默认级别： </p></td>
      <td height="25" ><select name="reguserlevel" id="reguserlevel">
          <option value="7" <%if rs("reguserlevel")=7 then response.write "selected"%>>普通会员</option>
          <option value="8" <%if rs("reguserlevel")=8 then response.write "selected"%>>VIP会员</option>
        </select> </td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >VIP用户是否能查看密码日志及隐藏日志：</td>
      <td height="25" ><input name="vip_prosee" type="radio" value="true" <%if rs("vip_prosee")="true" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="vip_prosee" value="false" <%if rs("vip_prosee")="false" then response.write "checked"%>>
        否</td>
    </tr>
    <tr> 
      <td height="25" colspan="2" class="topbg"><a name="upload" id="user"></a><strong>上传选项</strong></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >上传文件路径(修改后需要到ftp新建目录及转移文件)：</td>
      <td height="25" ><input name="upfile_path" type="text" id="upfile_path" value="<%=rs("upfile_path")%>" size="20" maxlength="80"></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >是否允许普通会员上传文件：</td>
      <td height="25" ><input type="radio" name="upfile_user" value="true" <%if rs("upfile_user")="true" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="upfile_user" value="false" <%if rs("upfile_user")="false" then response.write "checked"%>>
        否</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >普通会员上传文件类型：</td>
      <td height="25" ><input name="upfile_user_type" type="text" id="upfile_user_type" value="<%=rs("upfile_user_type")%>" size="20" maxlength="80"></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >普通会员上传单个文件大小：</td>
      <td height="25" ><input name="upfile_user_size" type="text" id="upfile_user_size" value="<%=rs("upfile_user_size")%>" size="10" maxlength="10">
        KB</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >是否允许VIP会员上传文件：</td>
      <td height="25" ><input type="radio" name="upfile_vip" value="true" <%if rs("upfile_vip")="true" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="upfile_vip" value="false" <%if rs("upfile_vip")="false" then response.write "checked"%>>
        否</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >VIP会员上传文件类型：</td>
      <td height="25" ><input name="upfile_vip_type" type="text" id="upfile_vip_type" value="<%=rs("upfile_vip_type")%>" size="20" maxlength="80"></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >VIP会员上传单个文件大小：</td>
      <td height="25" ><input name="upfile_vip_size" type="text" id="upfile_vip_size" value="<%=rs("upfile_vip_size")%>" size="10" maxlength="10">
        KB</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >是否允许前台管理员上传文件：</td>
      <td height="25" ><input type="radio" name="upfile_admin" value="true" <%if rs("upfile_admin")="true" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="upfile_admin" value="false" <%if rs("upfile_admin")="false" then response.write "checked"%>>
        否</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >前台管理员上传文件类型：</td>
      <td height="25" ><input name="upfile_admin_type" type="text" id="upfile_admin_type" value="<%=rs("upfile_admin_type")%>" size="20" maxlength="80"></td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >前台管理员上传单个文件大小：</td>
      <td height="25" ><input name="upfile_admin_size" type="text" id="upfile_admin_size" value="<%=rs("upfile_admin_size")%>" size="10" maxlength="10">
        KB</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >普通会员上传空间大小：</td>
      <td height="25" ><input name="upfile_user_maxsize" type="text" id="upfile_user_maxsize" value="<%=rs("upfile_user_maxsize")%>" size="10" maxlength="10">
        KB(不能为零或者空)</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >VIP会员上传空间大小：</td>
      <td height="25" ><input name="upfile_vip_maxsize" type="text" id="upfile_vip_maxsize" value="<%=rs("upfile_vip_maxsize")%>" size="10" maxlength="10">
        KB(不能为零或者空)</td>
    </tr>
    <tr class="tdbg" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''"> 
      <td height="25" >前台管理员上传空间大小：</td>
      <td height="25" ><input name="upfile_admin_maxsize" type="text" id="upfile_admin_maxsize" value="<%=rs("upfile_admin_maxsize")%>" size="10" maxlength="10">
        KB(不能为零或者空)</td>
    </tr>
    <tr> 
      <td height="40" colspan="2" align="center" class="tdbg" > <input name="Action" type="hidden" id="Action" value="saveconfig"> 
        <input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 " > </td>
    </tr>
  </table>

</form>
<% call copyright()%>
</body>
</html>
<%
set rs=nothing
call closeconn
end sub

sub saveconfig()
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from bloginfo"
rs.open sql,conn,1,3
rs("SiteName")=trim(request("sitename"))
rs("sitetitle")=trim(request("sitetitle"))
rs("siteurl")=trim(request("siteurl"))
rs("copyrighturl")=trim(request("copyrighturl"))
rs("webmastername")=trim(request("webmastername"))
rs("webmasteremail")=trim(request("webmasteremail"))
rs("show_log_num")=trim(request("show_log_num"))
rs("blogcheck")=trim(request("blogcheck"))
rs("commentcheck")="false"'trim(request("commentcheck"))
rs("gourl")=trim(request("gourl"))
rs("timediff")=trim(request("timediff"))
'rs("sessiontimeout")=trim(request("sessiontimeout"))
rs("enableuserReg")=trim(request("enableuserReg"))
rs("AdminCheckReg")=trim(request("AdminCheckReg"))
rs("enguestcomment")=trim(request("enguestcomment"))
rs("showedittime")="false"'trim(request("showedittime"))
rs("site_keyword")=trim(request("site_keyword"))
rs("show_listuser_num")=clng(trim(request("show_listuser_num")))
rs("reguserlevel")=clng(trim(request("reguserlevel")))
if request("getlog_num")="" then
	rs("getlog_num")=500
else
	rs("getlog_num")=clng(trim(request("getlog_num")))
end if

if request("show_imgw_num")="" then
	rs("show_imgw_num")=0
else
	rs("show_imgw_num")=clng(trim(request("show_imgw_num")))
end if

rs("show_img_mouse")=trim(request("show_img_mouse"))
rs("blog_profilt")=trim(request("blog_profilt"))
rs("blog_showruntime")=trim(request("blog_showruntime"))
rs("blog_showrefu")=trim(request("blog_showrefu"))
rs("vip_prosee")=trim(request("vip_prosee"))

rs("upfile_user")=trim(request("upfile_user"))
rs("upfile_user_type")=trim(request("upfile_user_type"))
if request("upfile_user_size")="" then
	rs("upfile_user_size")=0
else
	rs("upfile_user_size")=clng(trim(request("upfile_user_size")))
end if

rs("upfile_vip")=trim(request("upfile_vip"))
rs("upfile_vip_type")=trim(request("upfile_vip_type"))
if request("upfile_vip_size")="" then
	rs("upfile_vip_size")=0
else
	rs("upfile_vip_size")=clng(trim(request("upfile_vip_size")))
end if

rs("upfile_admin")=trim(request("upfile_admin"))
rs("upfile_admin_type")=trim(request("upfile_admin_type"))
if request("upfile_admin_size")="" then
	rs("upfile_admin_size")=0
else
	rs("upfile_admin_size")=clng(trim(request("upfile_admin_size")))
end if

if request("maxbadstr_num")="" then
	rs("maxbadstr_num")=0
else
	rs("maxbadstr_num")=clng(trim(request("maxbadstr_num")))
end if

rs("upfile_path")=trim(request("upfile_path"))
rs("show_comment_asc")=trim(request("show_comment_asc"))
'response.Write clng(trim(request("reguserlevel"))
if request("upfile_user_maxsize")="" then
	rs("upfile_user_maxsize")=0
else
	rs("upfile_user_maxsize")=clng(trim(request("upfile_user_maxsize")))
end if
if request("upfile_vip_maxsize")="" then
	rs("upfile_vip_maxsize")=0
else
	rs("upfile_vip_maxsize")=clng(trim(request("upfile_vip_maxsize")))
end if
if request("upfile_admin_maxsize")="" then
	rs("upfile_admin_maxsize")=0
else
	rs("upfile_admin_maxsize")=clng(trim(request("upfile_admin_maxsize")))
end if

rs("needclassid")=trim(request("needclassid"))

rs.update
rs.close
set rs=nothing
call PutApplicationValue()
call closeconn
response.Redirect "admin_site.asp"
end sub
%>