admin_config_edit1.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

for j=0 to ubound(udim)
  response.write vbcrlf&"<input type=checkbox name=forum_type_"&i+1&"_1 value='"&j+1&"' class=bg_1"
  if instr(1,"."&t2&".","."&j+1&".")>0 then response.write " checked"
  response.write ">"&right(udim(j),len(udim(j))-instr(udim(j),":"))
next
%>
        <input type=checkbox name=forum_type_<%response.write i+1%>_1 value='0' class=bg_1<%if instr(1,"."&t2&".",".0.")>0 then response.write " checked"%>>
        游客</td>
    </tr>
    <%
  next
  erase tdim
%>
    <input type=hidden name=forum_type_num value='<%response.write i%>'>
    <tr> 
      <td>新论坛分类：</td>
      <td><input type=text name=forum_type_new_2 value='' size=30 maxlength=20></td>
      <td class=gray>&nbsp;例：精华论坛</td>
    </tr>
    <tr> 
      <td class=gray>论坛权限</td>
      <td colspan=2> 
        <%
for j=0 to ubound(udim)
  response.write vbcrlf&"<input type=checkbox name=forum_type_new_1 value='"&j+1&"' class=bg_1>"&right(udim(j),len(udim(j))-instr(udim(j),":"))
next
%>
        <input type=checkbox name=forum_type_new_1 value='0' class=bg_1>
        游客</td>
    </tr>
    <tr> 
      <td colspan=3 class=htd><font class=red>论坛分类修改说明：</font>你可以添加、修改、删除论坛分类，但文本框中只能是以“文章学习”的形式（论坛分类名称）存在，否则将出错！！！ 
        <font class=red>如用户组有删除或修改其权限后，请重新分配论坛权限！如论坛分类及权限有修改，请进入论坛管理以重新分配论坛类别！</font><br> 
        <font class=red_3>添加论坛分类</font>即在“新论坛分类”中按规则加入要新添的论坛分类，只能单个的增加；<br> <font class=red_3>修改论坛分类</font>可修改所有的，排序对论坛的权限没有影响；<br> 
        <font class=red_3>删除论坛分类</font>可一次删除一个或多个，方法为将要删除的论坛分类框里的内容删除即可。</td>
    </tr>
    <%
  erase udim
else
%>
    <input type=hidden name=forum_type value='<%response.write forum_type%>'>
    <%
end if

if tt=0 then
%>
    <tr> 
      <td colspan=3 align=center height=150 class=htd><font class=red>请先选择配置修改的类型！建议在修改配置文件前先<a href='javascript:Do_b_data();'>备份配置</a>。<br>
        如果在修改配置时出现了错误，您可以试着<a href='javascript:Do_h_data();'>还原配置</a>。<br>
        如果因为您的一时不小心，将配置文件修改错误，请尽快用FTP连上并用可用的配置文件覆盖错误的文件（include/common.asp）</font></td>
    </tr>
    <% else %>
    <tr> 
      <td colspan=3 align=center height=30><input type=submit value='提 交 修 改'> 
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type=reset value=' 重 置 '> 
      </td>
    </tr>
    <% end if %>
  </form>
</table>
<%
end sub

sub config_chk()
  dim t1,t2,tn
  face_url=code_config(request.form("face_url_1"),3) &"|"& code_config(request.form("face_url_2"),3)
  web_font_family=code_config(request.form("web_font_family"),0):web_font_size=code_config(request.form("web_font_size"),0)
  web_config=code_config(request.form("web_config_1"),3) &"|"& code_config(request.form("web_config_2"),3) &"|"& _
	     code_config(request.form("web_config_3"),3) &"|"& code_config(request.form("web_config_4"),3) &"|"& _
	     code_config(request.form("web_config_5"),3) &"|"& code_config(request.form("web_config_6"),3) &"|"& _
	     code_config(request.form("web_config_7"),3) &"|"& code_config(request.form("web_config_8"),3) &"|"& _
	     trim(request.form("web_config_9_1")) & trim(request.form("web_config_9_2")) & _
	     trim(request.form("web_config_9_3")) & trim(request.form("web_config_9_4")) & _
	     trim(request.form("web_config_9_5")) & trim(request.form("web_config_9_6")) & _
	     trim(request.form("web_config_9_7")) & trim(request.form("web_config_9_8")) & _
	     trim(request.form("web_config_9_9"))
  web_cookies=code_config(request.form("web_cookies"),3):web_login=trim(request.form("web_login"))
  web_setup=trim(request.form("web_setup_1"))&trim(request.form("web_setup_2"))&trim(request.form("web_setup_3"))&_
	    trim(request.form("web_setup_4"))&trim(request.form("web_setup_5"))&trim(request.form("web_setup_6"))&_
	    trim(request.form("web_setup_7"))&trim(request.form("web_setup_8"))
  web_num=code_num(trim(request.form("web_num_1")),20) &"|"& code_num(trim(request.form("web_num_2")),20) &"|"& _
	  code_num(trim(request.form("web_num_3")),10) &"|"& code_num(trim(request.form("web_num_4")),5) &"|"& _
	  code_num(trim(request.form("web_num_5")),3) &"|"& code_num(trim(request.form("web_num_6")),12) &"|"& _
	  code_num(trim(request.form("web_num_7")),150) &"|"& code_num(trim(request.form("web_num_8")),112) &"|"& _
	  code_num(trim(request.form("web_num_9")),430) &"|"& code_num(trim(request.form("web_num_10")),350) &"|"& _
	  code_num(trim(request.form("web_num_11")),24) &"|"& code_num(trim(request.form("web_num_12")),16) &"|"& _
	  code_num(trim(request.form("web_num_13")),20) &"|"& code_num(trim(request.form("web_num_14")),20) &"|"& _
          code_num(trim(request.form("web_num_15")),2) &"|"& code_num(trim(request.form("web_num_16")),0) &"|"& _
          code_num(trim(request.form("web_num_17")),0) &"|"& code_num(trim(request.form("web_num_18")),0) &"|"& _
          code_num(trim(request.form("web_num_19")),0) &"|"& _
          code_num(trim(request.form("web_num_20")),0) &"|"& _
          code_num(trim(request.form("web_num_21")),0) &"|"& _
          code_num(trim(request.form("web_num_22")),0) &"|"& _
          code_num(trim(request.form("web_num_23")),0) &"|"& _
          code_num(trim(request.form("web_num_24")),0) &"|"& _
          code_num(trim(request.form("web_num_25")),0) &"|"& _
          code_num(trim(request.form("web_num_26")),0) &"|"& _
          code_num(trim(request.form("web_num_27")),0) &"|"& _
          code_num(trim(request.form("web_num_28")),0) &"|"& _
          code_num(trim(request.form("web_num_29")),0) &"|"& _
          code_num(trim(request.form("web_num_30")),0) &"|"& _
          code_num(trim(request.form("web_num_31")),0) &"|"& _
          code_num(trim(request.form("web_num_32")),0) &"|"& _
          code_num(trim(request.form("web_num_33")),0) &"|"& _
          code_num(trim(request.form("web_num_34")),0) &"|"& _
	  code_num(trim(request.form("web_num_35")),0) &"|"& _
          code_num(trim(request.form("web_num_36")),0) &"|"& _
          code_num(trim(request.form("web_num_37")),0) &"|"& _
          code_num(trim(request.form("web_num_38")),0) &"|"& _
          code_num(trim(request.form("web_num_39")),0) &"|"& _
          code_num(trim(request.form("web_num_40")),1) &"|"& _
          code_num(trim(request.form("web_num_41")),0) &"|"& _
          code_num(trim(request.form("web_num_42")),0) &"|"& _
          code_num(trim(request.form("web_num_43")),0)

  if action="menu" then
    web_menu="":tn=int(trim(request.form("web_menu_num")))
    for i=1 to tn
      t1=code_config(request.form("web_menu_"&i),4)
      if len(t1)>1 then if instr(1,t1,":")>0 then web_menu=web_menu&t1&"|"
    next
    t1=code_config(request.form("web_menu_new"),4)
    if len(t1)>1 then if instr(1,t1,":")>0 then web_menu=web_menu&t1
    if right(web_menu,1)="|" then web_menu=left(web_menu,len(web_menu)-1)
  else
    web_menu=trim(request.form("web_menu"))
  end if
  web_color=code_config(request.form("web_color_1"),2)&"|"&code_config(request.form("web_color_2"),2)&"|"&code_config(request.form("web_color_3"),2)&"|"&_
	    code_config(request.form("web_color_4"),2)&"|"&code_config(request.form("web_color_5"),2)&"|"&code_config(request.form("web_color_6"),2)&"|"&_
	    code_config(request.form("web_color_7"),2)&"|"&code_config(request.form("web_color_8"),2)&"|"&code_config(request.form("web_color_9"),2)&"|"&_
	    code_config(request.form("web_color_10"),2)&"|"&code_config(request.form("web_color_11"),2)&"|"&code_config(request.form("web_color_12"),2)
  web_upload=code_config(request.form("web_upload_1"),2)&"|"&code_config(request.form("web_upload_2"),2)&"|"&code_config(request.form("web_upload_3"),2)&"|"&code_config(request.form("web_upload_4"),2)&"|"&code_config(request.form("web_upload_5"),2)
 sweb_upload=code_config(request.form("sweb_upload_1"),2)&"|"&code_config(request.form("sweb_upload_2"),2)&"|"&code_config(request.form("sweb_upload_3"),2)
 web_safety=replace(trim(request.form("web_safety_1")),"""","""&chr(34)&""")&"'"&"|"&trim(request.form("web_safety_2"))&"|"&trim(request.form("web_safety_3"))&"|"&trim(request.form("web_safety_4"))&"|"&trim(request.form("web_safety_5"))
  web_error=code_config(request.form("web_error_1"),3)&"|"&code_config(request.form("web_error_2"),3)&"|"&code_config(request.form("web_error_3"),3)&"|"&code_config(request.form("web_error_4"),3)
  web_news_art=trim(request.form("web_news_art"))
  web_down=code_num(trim(request.form("web_down_1")),95)&"|"&code_num(trim(request.form("web_down_2")),75)&"|"&_
	   code_config(request.form("web_down_3"),4)&"|"&code_config(request.form("web_down_4"),4)&"|"&code_config(request.form("web_down_5"),4)
  web_shop=trim(request.form("web_shop"))
  web_stamp=code_config(request.form("web_stamp_1"),3)&"|"&code_config(request.form("web_stamp_2"),3)&"|"&code_config(request.form("web_stamp_3"),3)
  if action="user" then
    user_power="":tn=int(trim(request.form("user_power_num")))
    for i=1 to tn
      t1=code_config(request.form("user_power_"&i),4)
      if len(t1)>1 then if instr(1,t1,":")>0 then user_power=user_power&t1&"|"
    next
    t1=code_config(request.form("user_power_new"),4)
    if len(t1)>1 then if instr(1,t1,":")>0 then user_power=user_power&t1
    if right(user_power,1)="|" then user_power=left(user_power,len(user_power)-1)
  else
    user_power=trim(request.form("user_power"))
  end if
  if action="grade" then
    user_grade="":tn=int(trim(request.form("user_grade_num")))
    for i=1 to tn
      t1=code_config(request.form("user_grade_"&i),4)
      if len(t1)>1 then if instr(1,t1,":")>0 then user_grade=user_grade&t1&"|"
    next
    t1=code_config(request.form("user_grade_new"),4)
    if len(t1)>1 then if instr(1,t1,":")>0 then user_grade=user_grade&t1
    if right(user_grade,1)="|" then user_grade=left(user_grade,len(user_grade)-1)
  else
    user_grade=trim(request.form("user_grade"))
  end if
  if action="forum" then
    forum_type="":tn=int(trim(request.form("forum_type_num")))
    for i=1 to tn
      t1=replace(trim(request.form("forum_type_"&i&"_1"))," ","")
      t2=code_config(request.form("forum_type_"&i&"_2"),2)
      if len(t1)>0 and len(t2)>0 then t1=replace(t1,",","."):forum_type=forum_type&t1&":"&t2&"|"
    next
    t1=replace(trim(request.form("forum_type_new_1"))," ","")
    t2=code_config(request.form("forum_type_new_2"),2)
    if len(t1)>0 and len(t2)>0 then t1=replace(t1,",","."):forum_type=forum_type&t1&":"&t2
    if right(forum_type,1)="|" then forum_type=left(forum_type,len(forum_type)-1)
  else
    forum_type=trim(request.form("forum_type"))
  end if
  
  call config_file()
  if action="color" then call config_css():call config_mouse_on_title()
  response.write "<script language=javascript>alert(""配置修改成功！"");</script>"
  call config_main()
end sub

sub config_bh(bht)
  dim vv,filetype,file_name1,file_name2,filetemp,fileos,filepath:filetype=""
  if bht="h" then
    file_name1="include/back_common.asp"
    file_name2="include/common.asp"
    vv="还原"
  else
    file_name1="include/common.asp"
    file_name2="include/back_common.asp"
    vv="备份"
  end if
  
  set fileos=CreateObject("Scripting.FileSystemObject")
  filepath=server.mappath(file_name1)
  set filetemp=fileos.OpenTextFile(filepath,1,true)
  filetype=filetemp.ReadAll
  filetemp.close
  filepath=server.mappath(file_name2)
  set filetemp=fileos.createtextfile(filepath,true)
  filetemp.writeline( filetype )
  filetemp.close
  set filetemp=nothing
  set fileos=nothing
  response.write "<script language=javascript>alert("""&vv&" 网站配置成功！"");</script>"
end sub

function code_num(strers,cnum)
  dim strer:strer=trim(strers)
  if not(isnumeric(strer)) then strer=cnum
  if int(strer)<1 then strer=cnum
  code_num=strer
end function

function code_config(strers,ct)
  dim strer:strer=trim(strers)
  if isnull(strer) or strer="" then code_config="":exit function
  select case ct
  case 1
    strer=replace(strer,"'","&#39;")
    strer=replace(strer,CHR(34),"&quot;")
  case 2
    strer=replace(strer,CHR(34),"")
    strer=replace(strer,"'","")
    strer=replace(strer,":","")
    strer=replace(strer,"|","")
  case 3
    strer=replace(strer,"'","&#39;")
    strer=replace(strer,CHR(34),"&quot;")
    strer=replace(strer,"|","")
  case 4
    strer=replace(strer,CHR(34),"")
    strer=replace(strer,"'","")
    strer=replace(strer,"|","")
  case else
    strer=replace(strer,"'","")
    strer=replace(strer,CHR(34),"")
  end select
  code_config=strer
end function
%>