admin_config_edit.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

if action="user" then
  tt=1
  tdim=split(user_power,"|")
  for i=0 to ubound(tdim)
%>
<tr>
<td>用户组 <%response.write i+1%>：</td>
<td><input type=text name=user_power_<%response.write i+1%> value='<%response.write tdim(i)%>' size=30 maxlength=20></td>
<td class=gray>&nbsp;</td>
</tr>
<%
  next
  erase tdim
%>
<input type=hidden name=user_power_num value='<%response.write i%>'>
<tr>
<td>新用户组：</td>
<td><input type=text name=user_power_new value='' size=30 maxlength=20></td>
<td class=gray>&nbsp;例：huser:高级用户</td>
</tr>
<tr>
<td colspan=3 class=htd><font class=red>用户组修改说明：</font>你可以添加、修改、删除用户组，但文本框中只能是以“huser:高级用户”的形式（组别:用户组名）存在，否则将出错！！！
<font class=red>在程序中，用户组数越小，权限越大，前三个用户组别请勿私自修改，但修改其用户组名可以！当网站正式运行后，请勿再修改用户组别，以防部分用户将会不能被程序正确实别！</font><br>
<font class=red_3>添加用户组</font>即在“增加新用户组”中按规则加入要新添的用户组，只能单个的增加；<br>
<font class=red_3>修改用户组</font>可修改所有的，如要排序，只要将其内容互换即可，但用户组别和用户组名要同时互换；<br>
<font class=red_3>删除用户组</font>可一次删除一个或多个，方法为将要删除的用户组框里的内容清空，再将栏目数较大的向较小的里转移。</td>
</tr>
<% else %>
<input type=hidden name=user_power value='<%response.write user_power%>'>
<%
end if

if action="grade" then
  tt=1
  tdim=split(user_grade,"|")
  for i=0 to ubound(tdim)
%>
<tr>
<td>用户等级 <%response.write i%>：</td>
<td><input type=text name=user_grade_<%response.write i+1%> value='<%response.write tdim(i)%>' size=30 maxlength=20></td>
<td class=gray>&nbsp;<img src='images/star/star_<%response.write i%>.gif' border=0></td>
</tr>
<%
  next
  erase tdim
%>
<input type=hidden name=user_grade_num value='<%response.write i%>'>
<tr>
<td>新用户等级：</td>
<td><input type=text name=user_grade_new value='' size=30 maxlength=20></td>
<td class=gray>&nbsp;例：10000:超级</td>
</tr>
<tr>
<td colspan=3 class=htd><font class=red>用户等级修改说明：</font>你可以添加、修改、删除用户等级，但文本框中只能是以“10000:超级”的形式（所需积分:等级名称）存在，否则将出错！！！<br>
<font class=red_3>添加用户等级</font>即在“增加新用户组”中按规则加入要新添的用户等级，只能单个的增加；<br>
<font class=red_3>修改用户等级</font>可修改所有的，如要排序，只要将其内容互换即可，但所需积分和等级名称要同时互换；<br>
<font class=red_3>删除用户等级</font>可一次删除一个或多个，方法为将要删除的用户等级框里的内容清空，再将栏目数较大的向较小的里转移。</td>
</tr>
<% else %>
<input type=hidden name=user_grade value='<%response.write user_grade%>'>
<%
end if

if action="forum" then
  tt=1
  udim=split(user_power,"|")
  tdim=split(forum_type,"|")
  for i=0 to ubound(tdim)
    t2=left(tdim(i),instr(tdim(i),":")-1)
%>
<tr>
<td>论坛分类 <%response.write i+1%>：</td>
<td><input type=text name=forum_type_<%response.write i+1%>_2 value='<%response.write right(tdim(i),len(tdim(i))-instr(tdim(i),":"))%>' size=20 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_"&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
  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"))
  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"))
  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")),15)
  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)
  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"))
  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
%>