<%
sub joekoe_chk_shop()
  dim file_name
  file_name="../include/common_shop.asp"
  if chk() then
    tmp1=vbcrlf&"<"&"%" & _
         vbcrlf&"dim val_name,val_unit,val_brand,val_stock,val_carry,val_emoney_carry" & _
         vbcrlf&"val_name="""&code_config(request.form("val_name"),0)&"""" & _
         vbcrlf&"val_unit="""&code_config(request.form("val_unit"),0)&"""" & _
         vbcrlf&"val_brand="""&code_config(request.form("val_brand"),0)&"""" & _
         vbcrlf&"val_stock="""&code_config(request.form("val_stock"),0)&"""" & _
         vbcrlf&"val_carry="""&code_config(request.form("val_carry"),0)&"""" & _
         vbcrlf&"%"&">"
    call create_file(file_name,file_trim_vbcrlf(tmp1))
    call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
    exit sub
  end if
  call form_first()
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>商品名称：</td>
<td><input type=text name=val_name value='<%response.write val_name%>' size=20 maxlength=50></td>
<td class=gray>如：商品、产品</td>
</tr>
<tr>
<td>价格单位：</td>
<td><input type=text name=val_unit value='<%response.write val_unit%>' size=20 maxlength=50></td>
<td class=gray>如：元、美元、港币</td>
</tr>
<tr>
<td>商品品牌：</td>
<td colspan=2><input type=text name=val_brand value='<%response.write val_brand%>' size=55 maxlength=200>&nbsp;多个请用“:”隔开</td>
</tr>
<tr>
<td>商品库存：</td>
<td colspan=2><input type=text name=val_stock value='<%response.write val_stock%>' size=55 maxlength=200>&nbsp;多个请用“:”隔开</td>
</tr>
<tr>
<td>运送方式：</td>
<td colspan=2><input type=text name=val_carry value='<%response.write val_carry%>' size=55 maxlength=200>&nbsp;多个请用“:”隔开<br>形式为：<font class=red>(运送方式)</font>,<font class=red>(价格)</font>，如：<font class=blue>邮寄</font>,<font class=blue>10</font>，注意，“<font class=red>,</font>”不可丢失</td>
</tr>
<%
  call submit_config()
end sub

sub joekoe_chk_grade()
  dim udim,j,udim2,tn
  if chk() then
    web_dim(19)=""
    tn=int(trim(request.form("user_power_num")))
    for i=1 to tn
      tmp1=code_config(request.form("user_power_"&i),4)
      if len(tmp1)>1 then if instr(tmp1,":")>0 then web_dim(19)=web_dim(19)&tmp1&"|"
    next
    tmp1=code_config(request.form("user_power_new"),4)
    if len(tmp1)>1 then if instr(tmp1,":")>0 then web_dim(19)=web_dim(19)&tmp1
    if right(web_dim(19),1)="|" then web_dim(19)=left(web_dim(19),len(web_dim(19))-1)
    
    web_user_grade=""
    tn=int(trim(request.form("user_grade_num")))
    for i=1 to tn
      tmp1=code_config(request.form("user_grade_"&i),4)
      if len(tmp1)>1 then if instr(tmp1,":")>0 then web_user_grade=web_user_grade&tmp1&"|"
    next
    tmp1=code_config(request.form("user_grade_new"),4)
    if len(tmp1)>1 then if instr(tmp1,":")>0 then web_user_grade=web_user_grade&tmp1
    if right(web_user_grade,1)="|" then web_user_grade=left(web_user_grade,len(web_user_grade)-1)
    
    web_dim(21)=""
    web_forum_type=""
    tn=int(trim(request.form("forum_type_num")))
    for i=1 to tn
      tmp1=replace(trim(request.form("forum_type_"&i&"_1"))," ","")
      tmp2=code_config(request.form("forum_type_"&i&"_2"),2)
      if len(tmp1)>0 and len(tmp2)>0 then
        tmp1=replace(tmp1,",",".")
        web_dim(21)=web_dim(21)&tmp1&":"&tmp2&"|"
        web_forum_type=web_forum_type&tmp2&"|"
      end if
    next
    tmp1=replace(trim(request.form("forum_type_new_1"))," ","")
    tmp2=code_config(request.form("forum_type_new_2"),2)
    if len(tmp1)>0 and len(tmp2)>0 then
      tmp1=replace(tmp1,",",".")
      web_dim(21)=web_dim(21)&tmp1&":"&tmp2
      web_forum_type=web_forum_type&tmp2
    end if
    if right(web_dim(21),1)="|" then web_dim(21)=left(web_dim(21),len(web_dim(21))-1)
    if right(web_forum_type,1)="|" then web_forum_type=left(web_forum_type,len(web_forum_type)-1)
    
    call joekoe_template_common()
    call joekoe_template_common_other()
    call joekoe_template_js_config()
    call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
    exit sub
  end if
  call form_first()
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<%
  tdim=split(web_dim(19),"|")
  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><%call admin_read("","用户组设置说明","你可以添加、修改、删除用户组，但文本框中只能是以“huser:高级用户:1”的形式（组别:用户组名:组系数）存在，否则将出错！<br><font class=blue>最后一个数值为该用户组的系数，如：用户短信基数 * 用户组系数 = 用户短信数量</font><br><font class=red>添加用户组</font>即在“增加新用户组”中按规则加入要新添的用户组，只能单个的增加；<br><font class=red>修改用户组</font>可修改所有的，如要排序，只要将其内容互换即可，但用户组别和用户组名要同时互换；<br><font class=red>删除用户组</font>可一次删除一个或多个，方法为将要删除的用户组框里的内容清空，再将栏目数较大的向较小的里转移。<br><font class=red2>前三个用户组别请勿私自修改，但修改其用户组名可以！当网站正式运行后，请勿再修改用户组别，以防部分用户将会不能被程序正确识别！</font>")%></td>
</tr>
<tr><td colspan=3 class=td>用户等级设置</td></tr>
<%
  tdim=split(web_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='../../skin/<%response.write joekoe_cms.web_skin%>/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><%call admin_read("","用户等级设置说明","你可以添加、修改、删除用户等级，但文本框中只能是以“10000:超级”的形式（所需积分:等级名称）存在，否则将出错！<br><font class=red>添加用户等级</font>即在“增加新用户组”中按规则加入要新添的用户等级，只能单个的增加；<br><font class=red>修改用户等级</font>可修改所有的，如要排序，只要将其内容互换即可，但所需积分和等级名称要同时互换；<br><font class=red>删除用户等级</font>可一次删除一个或多个，方法为将要删除的用户等级框里的内容清空，再将栏目数较大的向较小的里转移。</font></td></tr></table>")%></td>
</tr>
<tr><td colspan=3 class=td>论坛类型及权限设置</td></tr>
<%
  udim=split(web_dim(19),"|")
  tdim=split(web_dim(21),"|")
  for i=0 to ubound(tdim)
    tmp1=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)
      tmp2=right(udim(j),len(udim(j))-instr(udim(j),":"))
      tmp2=left(tmp2,instr(tmp2,":"))
      response.write vbcrlf&"<input type=checkbox name=forum_type_"&i+1&"_1 value='"&j+1&"'"
      if instr(1,"."&tmp1&".","."&j+1&".")>0 then response.write " checked"
      response.write ">"&tmp2
    next
%><input type=checkbox name=forum_type_<%response.write i+1%>_1 value='0'<%if instr(1,"."&tmp1&".",".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;<%call admin_read("","论坛类型及权限设置","你可以添加、修改、删除论坛分类，但文本框中只能是以“精华论坛”的形式（论坛分类名称）存在，否则将出错！<br><font class=red>添加论坛分类</font>即在“新论坛分类”中按规则加入要新添的论坛分类，只能单个的增加；<br><font class=red>修改论坛分类</font>可修改所有的，排序对论坛的权限没有影响；<br><font class=red>删除论坛分类</font>可一次删除一个或多个，方法为将要删除的论坛分类框里的内容删除即可。<br><font class=red2>如用户组有删除或修改其权限后，请重新分配论坛权限！如论坛分类及权限有修改，请进入论坛管理以重新分配论坛类别！</font>")%></td>
</tr>
<tr><td class=gray>论坛权限</td><td colspan=2><%
for j=0 to ubound(udim)
  tmp2=right(udim(j),len(udim(j))-instr(udim(j),":"))
  tmp2=left(tmp2,instr(tmp2,":"))
  response.write vbcrlf&"<input type=checkbox name=forum_type_new_1 value='"&j+1&"'>"&tmp2
next
%><input type=checkbox name=forum_type_new_1 value='0'>游客</td></tr>
<%
  call submit_config()
end sub

sub joekoe_chk_upload()
  dim tdown
  if chk() then
    web_down=code_config(request.form("tdown_0"),4)&"|"&code_config(request.form("tdown_1"),4)
    web_dim(13)=code_url(code_config(request.form("web_upload"),2))
    web_dim(14)=code_config(request.form("tdim_0"),2)&"|"&code_num(request.form("tdim_1"),500)&"|"&code_num(request.form("tdim_2"),5)&"|"&code_num(request.form("tdim_3"),0)&"|"& _
		code_url(code_config(request.form("tdim_4"),2))&"|"&code_url(code_config(request.form("tdim_5"),2))&"|"&code_url(code_config(request.form("tdim_6"),2))
    call joekoe_template_common()
    call joekoe_template_common_other()
    call joekoe_template_js_config()
    call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
    exit sub
  end if
  call form_first()
  tdim=split(web_dim(14),"|")
  tdown=split(web_down,"|")
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>上传路径：</td>
<td><input type=text name=web_upload value='<% response.write web_dim(13) %>' size=20 maxlength=20></td>
<td class=gray>为防有错，尽量不要修改此项</td>
</tr>
<tr>
<td>文件类型：</td>
<td><input type=text name=tdim_0 value='<% response.write tdim(0) %>' size=35 maxlength=50></td>
<td class=gray>多个类型用“,”分开</td>
</tr>
<tr>
<td>文件大小：</td>
<td><input type=text name=tdim_1 value='<% response.write tdim(1) %>' size=20 maxlength=10>&nbsp;KB（千字节），最好小于500</td>
<td class=gray>上传文件大小的最大值</td>
</tr>
<tr>
<td>上传数量：</td>
<td><input type=text name=tdim_2 value='<% response.write tdim(2) %>' size=12 maxlength=10>&nbsp;个&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;每天可上传文件的数量&nbsp;=&nbsp;上传数量&nbsp;*&nbsp;用户组系数</td>
<td class=gray></td>
</tr>
<%
tmp1=tdim(3)
if not(isnumeric(tmp1)) then tmp1=0
tmp1=int(tmp1)
%>
<tr>
<td>组件类型：</td>
<td><select name=tdim_3 size=1>
<option value='0'<%if tmp1=0 then response.write " selected"%>>无组件上传</option>
<option value='1'<%if tmp1=1 then response.write " selected"%>>LyfUpload<%if object_install("lyfupload.uploadfile")=false then response.write "（不支持）"%></option>
<option value='2'<%if tmp1=2 then response.write " selected"%>>Aspupload<%if object_install("persits.upload")=false then response.write "（不支持）"%></option>
</select></td>
<td class=gray>上传文件时的上传组件类型</td>
</tr>
<tr><td colspan=3 class=td>其它路径设置</td></tr>
<tr>
<td>软件目录：</td>
<td><input type=text name=tdim_4 value='<%response.write tdim(4)%>' size=20 maxlength=20></td>
<td class=gray>下载栏目的软件目录路径</td>
</tr>
<tr><td colspan=3 class=td>软件相关属性设置</td></tr>
<tr>
<td>运行环境：</td>
<td colspan=2><input type=text name=tdown_0 value='<%response.write tdown(0)%>' size=62 maxlength=200>&nbsp;多个请用“:”隔开</td>
</tr>
<tr>
<td>授权类型：</td>
<td colspan=2><input type=text name=tdown_1 value='<%response.write tdown(1)%>' size=62 maxlength=200>&nbsp;多个请用“:”隔开</td>
</tr>
<%
  erase tdim
  erase tdown
  call submit_config()
end sub

sub joekoe_chk_number()
  dim temp1
  if chk() then
    for i=0 to dim_12_len
      temp1=temp1&"|"&code_num(request.form("web_num_"&i),0)
    next
    if left(temp1,1)="|" then temp1=right(temp1,len(temp1)-1)
    web_dim(12)=temp1
    call joekoe_template_common()
    call joekoe_template_js_config()
    call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
    exit sub
  end if
  call form_first()
  tdim=dim_num
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td>列表页显示数：</td>
<td><input type=text name=web_num_0 value='<%response.write tdim(0)%>' size=10 maxlength=20>&nbsp;篇/贴/个/张</td>
<td class=gray>文章、论坛等列表页显示数量</td>
</tr>
<tr>
<td>论坛页显示数：</td>
<td><input type=text name=web_num_1 value='<%response.write tdim(1)%>' size=10 maxlength=20>&nbsp;贴</td>
<td class=gray>论坛浏览贴子内容页显示数</td>
</tr>
<tr>
<td>登陆超时时间：</td>
<td><input type=text name=web_num_2 value='<%response.write tdim(2)%>' size=10 maxlength=20>&nbsp;分钟</td>
<td class=gray>用户登陆超时的时间</td>
</tr>
<tr>
<td>防刷新时间：</td>
<td><input type=text name=web_num_3 value='<%response.write tdim(3)%>' size=10 maxlength=20>&nbsp;秒</td>
<td class=gray>非管理员用户页面刷新时间间隔</td>
</tr>
<tr>
<td>论坛发贴字数：</td>
<td><input type=text name=web_num_4 value='<%response.write tdim(4)%>' size=10 maxlength=20>&nbsp;KB（千字节）</td>
<td class=gray>论坛发贴内容等最大长度</td>
</tr>
<tr>
<td>论坛发贴间隔时间：</td>
<td><input type=text name=web_num_28 value='<%response.write tdim(28)%>' size=10 maxlength=20>&nbsp;秒</td>
<td class=gray>论坛发贴间隔时间</td>
</tr>
<tr>
<td>头像数量：</td>
<td><input type=text name=web_num_5 value='<%response.write tdim(5)%>' size=10 maxlength=20>&nbsp;个，目录及名称：../../images/face/(*).gif</td>
<td class=gray>网站可用用户头像的总数</td>
</tr>

<tr>
<td>表格高度系数：</td>
<td><input type=text name=web_num_6 value='<%response.write tdim(6)%>' size=10 maxlength=20>&nbsp;像素</td>
<td class=gray>页面常规表格高度系数</td>
</tr>
<tr class=tr1>
<td>积分换算系数：</td>
<td><input type=text name=web_num_7 value='<%response.write tdim(7)%>' size=10 maxlength=20>&nbsp;分&nbsp;换&nbsp;<font class=red>1</font>&nbsp;<%response.write joekoe_cms.web_unit%></td>
<td class=gray>积分换算货币（<%response.write joekoe_cms.web_unit%>）的系数</td>
</tr>
<tr class=tr1>
<td>人民币购买系数：</td>
<td>&nbsp;<font class=red>1</font>元&nbsp;可购买&nbsp;<input type=text name=web_num_8 value='<%response.write tdim(8)%>' size=10 maxlength=20>&nbsp;<%response.write joekoe_cms.web_unit%></td>
<td class=gray>人民币购买货币（<%response.write joekoe_cms.web_unit%>）的系数</td>
</tr>
<tr class=tr1>
<td>最低消费额：</td>
<td><input type=text name=web_num_25 value='<%response.write tdim(25)%>' size=10 maxlength=20> 元</td>
<td class=gray>人民币换货币的最低消费额</td>
</tr>
<tr class=tr1>
<td>转帐手续费：</td>
<td><input type=text name=web_num_22 value='<%response.write tdim(22)%>' size=10 maxlength=20> %，百分点，结果4舍5入，小于<font class=red>1</font>时按<font class=red>1</font>计算</td>
<td class=gray>开放转帐时的手续费（百分点）</td>
</tr>
<tr>
<td>发表得分：</td>
<td><input type=text name=web_num_9 value='<%response.write tdim(9)%>' size=10 maxlength=20>&nbsp;分</td>
<td class=gray>论坛发布新的主题加分值</td>
</tr>
<tr>
<td>回贴得分：</td>
<td><input type=text name=web_num_10 value='<%response.write tdim(10)%>' size=10 maxlength=20>&nbsp;分</td>
<td class=gray>论坛回复主题加分值</td>
</tr>
<tr>
<td>发颜色贴扣分：</td>
<td><input type=text name=web_num_11 value='<%response.write tdim(11)%>' size=10 maxlength=20>&nbsp;分</td>
<td class=gray>论坛发布颜色贴扣分值</td>
</tr>
<tr>
<td>发加粗贴扣分：</td>
<td><input type=text name=web_num_12 value='<%response.write tdim(12)%>' size=10 maxlength=20>&nbsp;分</td>
<td class=gray>论坛发布加粗贴扣分值</td>
</tr>
<tr>
<td>发短信扣分：</td>
<td><input type=text name=web_num_20 value='<%response.write tdim(20)%>' size=10 maxlength=20>&nbsp;分</td>
<td class=gray>每发一条短信所扣的用户积分</td>
</tr>
<tr>
<td>发布信息得分：</td>
<td><input type=text name=web_num_24 value='<%response.write tdim(24)%>' size=10 maxlength=20>&nbsp;分</td>
<td class=gray>用户中心发布信息得分数</td>
</tr>
<tr>
<td>头像最大数值：</td>
<td>宽度&nbsp;<input type=text name=web_num_13 value='<%response.write tdim(13)%>' size=10 maxlength=20>&nbsp;像素，高度&nbsp;<input type=text name=web_num_14 value='<%response.write tdim(14)%>' size=10 maxlength=20>&nbsp;像素</td>
<td class=gray>用户头像可设置的最大数值</td>
</tr>
<tr>
<td>小图片数值：</td>
<td>宽度&nbsp;<input type=text name=web_num_15 value='<%response.write tdim(15)%>' size=10 maxlength=20>&nbsp;像素，高度&nbsp;<input type=text name=web_num_16 value='<%response.write tdim(16)%>' size=10 maxlength=20>&nbsp;像素</td>
<td class=gray>普通小图片的宽和高数值</td>
</tr>
<tr>
<td>最大图片宽度：</td>
<td><input type=text name=web_num_17 value='<%response.write tdim(17)%>' size=10 maxlength=20>&nbsp;像素</td>
<td class=gray>贴图、FLASH等最大宽度</td>
</tr>
<tr>
<td>热门的数量：</td>
<td><input type=text name=web_num_18 value='<%response.write tdim(18)%>' size=10 maxlength=20>&nbsp;点击数/回贴数</td>
<td class=gray>热门文章、主题等的数量</td>
</tr>
<tr class=tr1>
<td>最多短信基数：</td>
<td colspan=2><input type=text name=web_num_19 value='<%response.write tdim(19)%>' size=10 maxlength=20>&nbsp;条&nbsp;&nbsp;&nbsp;&nbsp;用户最多短信基数&nbsp;*&nbsp;用户组系数&nbsp;=&nbsp;用户最多短信数量</td>
</tr>
<tr>
<td>自动返回时间：</td>
<td><input type=text name=web_num_21 value='<%response.write tdim(21)%>' size=10 maxlength=20>&nbsp;秒</td>
<td class=gray>自动返回的时间值，按秒计算</td>
</tr>
<tr class=tr1>
<td>密码最小长度：</td>
<td><input type=text name=web_num_23 value='<%response.write tdim(23)%>' size=10 maxlength=20>&nbsp;位</td>
<td class=gray>用户登陆密码的最小长度</td>
</tr>
<tr>
<td>评论页显示数：</td>
<td><input type=text name=web_num_26 value='<%response.write tdim(26)%>' size=10 maxlength=20>&nbsp;条</td>
<td class=gray>评论每页显示数</td>
</tr>
<tr class=tr1>
<td>发布房屋货币数：</td>
<td colspan=2><input type=text name=web_num_46 value='<%response.write tdim(46)%>' size=10 maxlength=20>&nbsp;<%response.write joekoe_cms.web_unit%>&nbsp;&nbsp;<font class=gray>发布一条（房屋租赁）信息所扣的货币（<%response.write joekoe_cms.web_unit%>）数</font></td>
</tr>
<tr class=tr1>
<td>发布企业货币数：</td>
<td colspan=2><input type=text name=web_num_45 value='<%response.write tdim(45)%>' size=10 maxlength=20>&nbsp;<%response.write joekoe_cms.web_unit%>&nbsp;&nbsp;<font class=gray>发布一条（企业黄页）信息所扣的货币（<%response.write joekoe_cms.web_unit%>）数</font></td>
</tr>
<tr>
<td>发布信息货币数：</td>
<td colspan=2><input type=text name=web_num_27 value='<%response.write tdim(27)%>' size=10 maxlength=20>&nbsp;<%response.write joekoe_cms.web_unit%>&nbsp;&nbsp;<font class=gray>发布一条（跳骚市场）信息所扣的货币（<%response.write joekoe_cms.web_unit%>）数</font></td>
</tr>
<%
  erase tdim
  call submit_config()
end sub

sub joekoe_chk_config()
  dim temp1
  if chk() then
    for i=1 to dim_11_len
      temp1=temp1&code_num(request.form("web_setup_"&i),0)
    next
    web_dim(11)=temp1
    call joekoe_template_common()
    call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
    exit sub
  end if
  call form_first()
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<%
  tmp1=format_mid_num(1)
  if int(tmp1)<>1 and tmp1<>2 then tmp1=0
  tdim=split(web_stamp,"|")
%>
<tr>
<td>网站模式说明：</td>
<td colspan=2 class=gray><input type=radio name=web_setup_1 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;<input type=text name=web_stamp_1 value='<%response.write tdim(0)%>' size=10 maxlength=10 disabled>&nbsp;&nbsp;&nbsp;本站的注册用户可以登陆，不记录在线列表</td>
<tr>
<td>&nbsp;</td>
<td colspan=2 class=gray><input type=radio name=web_setup_1 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;<input type=text name=web_stamp_2 value='<%response.write tdim(1)%>' size=10 maxlength=10 disabled>&nbsp;&nbsp;&nbsp;本站的注册用户可以登陆，并记录用户在线列表</td>
<tr>
<td>&nbsp;</td>
<td colspan=2 class=gray><input type=radio name=web_setup_1 value='2'<% if int(tmp1)=2 then response.write " checked" %>>&nbsp;<input type=text name=web_stamp_3 value='<%response.write tdim(2)%>' size=10 maxlength=10 disabled>&nbsp;&nbsp;&nbsp;所有登陆和浏览本站的人被并记录在线列表</td>
</tr>
<%
  erase tdim
  tmp1=format_mid_num(2)
%>
<tr class=tr1>
<td>是否允许注册：</td>
<td><input type=radio name=web_setup_2 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_2 value='1'<% if int(tmp1)<>0 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否允许网站注册新用户</td>
</tr>
<% tmp1=format_mid_num(3) %>
<tr class=tr1>
<td>注册审核：</td>
<td><input type=radio name=web_setup_3 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_3 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否对新注册进行邮件审核认证</td>
</tr>
<% tmp1=format_mid_num(5) %>
<tr class=tr1>
<td>注册邮件限制：</td>
<td><input type=radio name=web_setup_5 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_5 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>如限制一个邮件只可注册一个用户名</td>
</tr>
<% tmp1=format_mid_num(4) %>
<tr class=tr1>
<td>是否可登陆：</td>
<td><input type=radio name=web_setup_4 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_4 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>网站注册用户是否可以登陆</td>
</tr>
<% tmp1=format_mid_num(8) %>
<tr class=tr1>
<td>登陆浏览：</td>
<td colspan=2><input type=radio name=web_setup_8 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_8 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否&nbsp;&nbsp;&nbsp;&nbsp;<font class=gray>是否要登陆才可浏览文章、下载软件或查看论坛主题内容等</font></td>
</tr>
<% tmp1=format_mid_num(15) %>
<tr class=tr1>
<td>开放用户信息：</td>
<td colspan=2><input type=radio name=web_setup_15 value='1'<% if int(tmp1)<>0 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_15 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;否&nbsp;&nbsp;&nbsp;&nbsp;<font class=gray>是否开放用户联系信息，浏览用户信息时对于管理员及好友无效</font></td>
</tr>
<% tmp1=format_mid_num(6) %>
<tr>
<td>健康信息过滤：</td>
<td><input type=radio name=web_setup_6 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_6 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否对论坛等信息进行字符过滤</td>
</tr>
<% tmp1=format_mid_num(34) %>
<tr>
<td>验证码机制：</td>
<td><input type=radio name=web_setup_34 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_34 value='1'<% if int(tmp1)<>0 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否起用前台验证码机制</td>
</tr>
<% tmp1=format_mid_num(7) %>
<tr>
<td>FLASH支持：</td>
<td><input type=radio name=web_setup_7 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;&nbsp;&nbsp;<input type=radio name=web_setup_7 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否对UBB进行FLASH支持</td>
</tr>
<% tmp1=format_mid_num(9) %>
<tr>
<td>计数方式：</td>
<td><input type=radio name=web_setup_9 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;记录多次&nbsp;<input type=radio name=web_setup_9 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;记录一次</td>
<td class=gray>网站计数的方式</td>
</tr>
<%
tmp1=format_mid_num(10)
if int(tmp1)<>0 and tmp1<>1 then tmp1=2
%>
<tr>
<td>显示 IP：</td>
<td><input type=radio name=web_setup_10 value='0'<% if int(tmp1)=0 then response.write " checked" %>> 完全保密
<input type=radio name=web_setup_10 value='1'<% if int(tmp1)=1 then response.write " checked" %>> 显示部分
<input type=radio name=web_setup_10 value='2'<% if int(tmp1)=2 then response.write " checked" %>> 完全开放</td>
<td class=gray>对管理员总是完全开放</td>
</tr>
<% tmp1=format_mid_num(11) %>
<tr class=tr1>
<td>积分换货币：</td>
<td><input type=radio name=web_setup_11 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;<input type=radio name=web_setup_11 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否可用积分换货币</td>
</tr>
<% tmp1=format_mid_num(12) %>
<tr class=tr1>
<td>转帐功能：</td>
<td><input type=radio name=web_setup_12 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;<input type=radio name=web_setup_12 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否开放会员间的转帐功能</td>
</tr>
<% tmp1=format_mid_num(13) %>
<tr class=tr1>
<td>充值升级级别：</td>
<td><input type=radio name=web_setup_13 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;<input type=radio name=web_setup_13 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否&nbsp;&nbsp;
&nbsp;升级级别选择：<select name=web_setup_14>
<%
  tmp1=format_mid_num(14)
  tdim=split(web_dim(19),"|")
  for i=2 to ubound(tdim)
    tmp2=split(tdim(i),":")
    response.write vbcrlf&"<option value='"&(i+1)&"'"
    if int(tmp1-1)=int(i) then response.write " selected"
    response.write ">"&tmp2(1)&"</option>"
    erase tmp2
  next
  erase tdim
%>
</select>
</td>
<td class=gray>充值后是否升级用户级别</td>
</tr>
<% tmp1=format_mid_num(21) %>
<tr>
<td>发布新闻：</td>
<td><input type=radio name=web_setup_21 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_21 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(22) %>
<tr>
<td>发表女性：</td>
<td><input type=radio name=web_setup_22 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_22 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>

<% tmp1=format_mid_num(27) %>
<tr>
<td>发表本埠</td>
<td><input type=radio name=web_setup_27 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_27 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(30) %>
<tr>
<td>发表母婴</td>
<td><input type=radio name=web_setup_30 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_30 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(32) %>
<tr>
<td>发表生活</td>
<td><input type=radio name=web_setup_32 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_32 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(33) %>
<tr>
<td>发表房产</td>
<td><input type=radio name=web_setup_33 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_33 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(35) %>
<tr>
<td>发表服装</td>
<td><input type=radio name=web_setup_35 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_35 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(36) %>
<tr>
<td>发表学习</td>
<td><input type=radio name=web_setup_36 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_36 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(38) %>
<tr>
<td>发表文学</td>
<td><input type=radio name=web_setup_38 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_38 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(39) %>
<tr>
<td>发表美食</td>
<td><input type=radio name=web_setup_39 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_39 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(23) %>
<tr>
<td>发表软件：</td>
<td><input type=radio name=web_setup_23 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_23 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<!-- 深蓝二手市场插件代码开始 -->
<% tmp1=format_mid_num(20) %>
<tr>
<td>发布信息：</td>
<td><input type=radio name=web_setup_20 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_20 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray>是否允许发布二手信息</td>
</tr>
<!-- 深蓝二手市场插件代码结束 -->
<% tmp1=format_mid_num(24) %>
<tr>
<td>上传贴图：</td>
<td><input type=radio name=web_setup_24 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_24 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(25) %>
<tr>
<td>推荐网站：</td>
<td><input type=radio name=web_setup_25 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_25 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>


<% tmp1=format_mid_num(31) %>
<tr>
<td>发布聚会信息：</td>
<td><input type=radio name=web_setup_31 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_31 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>

<% tmp1=format_mid_num(46) %>
<tr>
<td>房屋资料：</td>
<td><input type=radio name=web_setup_46 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_46 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(45) %>
<tr>
<td>企业资料：</td>
<td><input type=radio name=web_setup_45 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_45 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(26) %>
<tr class=tr1>
<td>启用下载防盗：</td>
<td><input type=radio name=web_setup_26 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;<input type=radio name=web_setup_26 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否对下载软件时启用防盗措施</td>
</tr>
<% tmp1=format_mid_num(40) %>
<tr>
<td>发布交易：</td>
<td><input type=radio name=web_setup_40 value='1'<% if int(tmp1)=1 then response.write " checked" %>> 开放 <input type=radio name=web_setup_40 value='0'<% if int(tmp1)=0 then response.write " checked" %>> 关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(37) %>
<tr>
<td>发布招聘：</td>
<td><input type=radio name=web_setup_37 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_setup_37 value='0'<% if int(tmp1)=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray></td>
</tr>
<% tmp1=format_mid_num(28) %>
<tr class=tr>
<td>论坛事件保密：</td>
<td><input type=radio name=web_setup_28 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;<input type=radio name=web_setup_28 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否对论坛事件操作人保密</td>
</tr>
<% tmp1=format_mid_num(29) %>
<tr class=tr>
<td>论坛删帖模式：</td>
<td><input type=radio name=web_setup_29 value='1'<% if int(tmp1)=1 then response.write " checked" %>>&nbsp;是&nbsp;<input type=radio name=web_setup_29 value='0'<% if int(tmp1)<>1 then response.write " checked" %>>&nbsp;否</td>
<td class=gray>是否开启删帖后一并删除用户发帖数</td>
</tr>
<%
  call submit_config()
end sub

sub joekoe_chk_common()
  if chk() then
    for i=1 to ubound(web_dim)
      web_dim(i)=code_config(request.form("web_dim_"&i),0)
    next
    web_dim(0)=code_num(request.form("web_dim_0"),1)
    if int(web_dim(0))>0 and trim(request.form("js_mode"))="yes" then web_dim(0)=2
    web_dim(2)=code_url(web_dim(2))
    web_dim(6)=code_url(web_dim(6))
    web_dim(10)=code_num(request.form("web_dim_10_1"),0)&":"&code_num(request.form("web_dim_10_2"),0)
    web_dim(22)=replace(web_dim(22)," ","")
    web_dim(22)=replace(web_dim(22),",","|")
    web_dim(22)=web_dim(22)&"|"
    for i=0 to 1
      if instr(web_dim(22),"||")<1 then exit for
      web_dim(22)=replace(web_dim(22),"||","|")
    next
    if right(web_dim(22),1)="|" then web_dim(22)=left(web_dim(22),len(web_dim(22))-1)
    'admin_valcode="e4bdbc16a6c6f7ee"
    tmp1=code_config(request.form("admin_valcode"),0)
    if trim(request.form("admin_valcode_clear"))="yes" then
      admin_valcode=""
    else
      if tmp1<>"" then
        admin_valcode=jk_md5(tmp1,"short")
      end if
    end if
    top_pic=code_config(request.form("top_pic"),0)
    top_url=code_config(request.form("top_url"),0)
    top_type=code_config(request.form("top_type"),0)
    top_wh=code_config(request.form("top_wh"),0)
    banner_pic=code_config(request.form("banner_pic"),0)
    banner_url=code_config(request.form("banner_url"),0)
    banner_type=code_config(request.form("banner_type"),0)
    banner_wh=code_config(request.form("banner_wh"),0)
    scroll_head=code_config(request.form("scroll_head"),0)
    web_stamp=code_config(request.form("web_stamp_1"),0)&"|"&code_config(request.form("web_stamp_2"),0)&"|"&code_config(request.form("web_stamp_3"),0)
    web_forum_power_type=code_config(request.form("web_forum_power_type"),0)
    web_nologin=code_config(request.form("web_nologin"),0)
    web_nopost=code_config(request.form("web_nopost"),0)
    web_copyright=code_config(request.form("web_copyright"),0)
    web_frm_word=code_config(request.form("web_frm_word"),0)
    web_n_boy=code_config(request.form("web_n_boy"),0)
    web_n_girl=code_config(request.form("web_n_girl"),0)
    call joekoe_template_common()
    call joekoe_template_common_other()
    call joekoe_template_js_config()
    call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
    exit sub
  end if
  call form_first()
%>
<form name=common_frm action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<input type=hidden name=web_dim_7 value='<%response.write web_dim(7)%>'>
<input type=hidden name=web_dim_8 value='<%response.write web_dim(8)%>'>
<input type=hidden name=web_dim_11 value='<%response.write web_dim(11)%>'>
<input type=hidden name=web_dim_12 value='<%response.write web_dim(12)%>'>
<input type=hidden name=web_dim_13 value='<%response.write web_dim(13)%>'>
<input type=hidden name=web_dim_14 value='<%response.write web_dim(14)%>'>
<input type=hidden name=web_dim_19 value='<%response.write web_dim(19)%>'>
<input type=hidden name=web_dim_20 value='<%response.write web_dim(20)%>'>
<input type=hidden name=web_dim_21 value='<%response.write web_dim(21)%>'>
<tr>
<td>网站名称：</td>
<td><input type=text name=web_dim_1 value='<%response.write web_dim(1)%>' size=40 maxlength=20></td>
<td class=gray></td>
</tr>
<tr>
<td>网站地址：</td>
<td><input type=text name=web_dim_2 value='<%response.write web_dim(2)%>' size=40 maxlength=100></td>
<td class=gray></td>
</tr>
<tr class=tr1>
<td>网站状态：</td>
<td><input type=radio name=web_dim_0 value='1'<% if int(web_dim(0))>0 then response.write " checked" %>>&nbsp;开放&nbsp;<input type=radio name=web_dim_0 value='0'<% if int(web_dim(0))=0 then response.write " checked" %>>&nbsp;关闭</td>
<td class=gray>是否开放网站</td>
</tr>
<tr>
<td>登陆验证码：</td>
<td><input type=text name=admin_valcode value='' size=20 maxlength=20>&nbsp;　&nbsp;<input type=checkbox name=admin_valcode_clear value='yes'>&nbsp;清空验证码</td>
<td class=gray>加密值：<%
  if admin_valcode="" then
    response.write "<font class=red>未设定</font>"
  else
    response.write "<font class=blue>"&admin_valcode&"</font>"
  end if
%></td>
</tr>
<tr>
<td>超级管理员：</td>
<td><input type=text name=web_dim_3 value='<%response.write web_dim(3)%>' size=20 maxlength=20></td>
<td class=gray></td>
</tr>
<tr>
<td>联系邮箱地址：</td>
<td><input type=text name=web_dim_4 value='<%response.write web_dim(4)%>' size=30 maxlength=100></td>
<td class=gray></td>
</tr>
<tr>
<td>电话：</td>
<td><input type=text name=web_dim_23 value='<%response.write web_dim(23)%>' size=30 maxlength=100></td>
<td class=gray></td>
</tr>
<tr>
<td>QQ号码：</td>
<td><input type=text name=web_dim_24 value='<%response.write web_dim(24)%>' size=30 maxlength=100></td>
<td class=gray></td>
</tr>
<tr>
<td>网站备案号：</td>
<td><input type=text name=web_dim_25 value='<%response.write web_dim(25)%>' size=30 maxlength=100></td>
<td class=gray></td>
</tr>
<!--
<tr>
<td>Cookies名称：</td>
<td><input type=text name=web_dim_5 value='<%response.write web_dim(5)%>' size=30 maxlength=30></td>
<td class=gray></td>
</tr>
-->
<%
dim GetSetupDir
GetSetupDir = Replace(Left(LCase(Request.ServerVariables("SCRIPT_NAME")), InStrRev(LCase(Request.ServerVariables("SCRIPT_NAME")), "/")),"admin/","")%>
<tr>
<td>网站目录：</td>
<td><input type=text name=web_dim_6 value='<%response.write web_dim(6)%>' size=20 maxlength=100></td>
<td class=gray></td>
</tr>
<tr>
<td>网站SKIN：</td>
<td>当前SKIN：<font class=red><%response.write web_dim(7)%></font>&nbsp;&nbsp;当前页面宽度：<font class=red><%response.write web_dim(8)%></font></td>
<td class=gray><%response.write img_admin("","")%>&nbsp;<a href='admins_config_skin.asp'>网站SKIN及相关设置</a></td>
</tr>
<tr>
<td>货币单位：</td>
<td><input type=text name=web_dim_9 value='<%response.write web_dim(9)%>' size=20 maxlength=20></td>
<td class=gray>尽量减短其名称</td>
</tr>
<tr>
<td>性别称谓：</td>
<td>男：<input type=text name=web_n_boy value='<%response.write web_n_boy%>' size=8 maxlength=20>&nbsp;女：<input type=text name=web_n_girl value='<%response.write web_n_girl%>' size=8 maxlength=20></td>
<td class=gray>尽量减短其名称</td>
</tr>
<%
  tmp1=web_dim(10)
  if tmp1="" then tmp1="0:0"
%>
<tr>
<td>安全开放时间：</td>
<td><input type=text name=web_dim_10_1 value='<%response.write left(tmp1,instr(1,tmp1,":")-1)%>' size=3 maxlength=2> 点至 <input type=text name=web_dim_10_2 value='<%response.write right(tmp1,len(tmp1)-instr(1,tmp1,":"))%>' size=3 maxlength=2> 点关闭，填写相同数值则不限</td>
<td class=gray>安全的发布信息时间段</td>
</tr>
<%
  tmp1=format_mid_num(1)
  if int(tmp1)<>1 and tmp1<>2 then tmp1=0
  tdim=split(web_stamp,"|")
%>
<tr>
<td>网站模式说明：</td>
<td colspan=2 class=gray><input type=radio name=web_setup_1 value='0'<% if int(tmp1)=0 then response.write " checked" %> disabled>&nbsp;<input type=text name=web_stamp_1 value='<%response.write tdim(0)%>' size=10 maxlength=10>&nbsp;&nbsp;&nbsp;本站的注册用户可以登陆，不记录在线列表</td>
<tr>
<td>&nbsp;</td>
<td colspan=2 class=gray><input type=radio name=web_setup_1 value='1'<% if int(tmp1)=1 then response.write " checked" %> disabled>&nbsp;<input type=text name=web_stamp_2 value='<%response.write tdim(1)%>' size=10 maxlength=10>&nbsp;&nbsp;&nbsp;本站的注册用户可以登陆，并记录用户在线列表</td>
<tr>
<td>&nbsp;</td>
<td colspan=2 class=gray><input type=radio name=web_setup_1 value='2'<% if int(tmp1)=2 then response.write " checked" %> disabled>&nbsp;<input type=text name=web_stamp_3 value='<%response.write tdim(2)%>' size=10 maxlength=10>&nbsp;&nbsp;&nbsp;所有登陆和浏览本站的人被并记录在线列表</td>
</tr>
<% erase tdim %>
<tr>
<td>论坛版主显示：</td>
<td><input type=radio name=web_forum_power_type value='1'<% if int(web_forum_power_type)=1 then response.write " checked" %>>&nbsp;文字链接&nbsp;<input type=radio name=web_forum_power_type value='0'<% if int(web_forum_power_type)<>1 then response.write " checked" %>>&nbsp;下拉菜单框</td>
<td class=gray>论坛版主显示模式</td>
</tr>
<tr><td colspan=3 class=td>&nbsp;网站头部及底部信息设置</td></tr>
<tr>
<td>网站标志：</td>
<td><input type=text name=top_pic value='<%response.write top_pic%>' size=40 maxlength=200></td>
<td>&nbsp;类型：<input type=radio name=top_type value='pic'<%if top_type<>"swf" then response.write "checked"%>>&nbsp;图片&nbsp;<input type=radio name=top_type value='swf'<%if top_type="swf" then response.write "checked"%>>&nbsp;Flash</td>
</tr>
<tr>
<td>标志链接：</td>
<td><input type=text name=top_url value='<%response.write top_url%>' size=40 maxlength=200></td>
<td><%call admin_read("参数","网站标志参数","当设置类型为“FLASH”是请填写参数：<font class=red>width=468 height=60</font><br>为“图片”时也可设置宽度和高度，还可增加：<font class=red>alt=这里填写图片扩展文字说明</font>")%><input type=text name=top_wh value='<%response.write top_wh%>' size=16 maxlength=200></td>
</tr>
<tr>
<td>网站Banner：</td>
<td><input type=text name=banner_pic value='<%response.write banner_pic%>' size=40 maxlength=200></td>
<td>&nbsp;类型：<input type=radio name=banner_type value='pic'<%if banner_type<>"swf" then response.write "checked"%>>&nbsp;图片&nbsp;<input type=radio name=banner_type value='swf'<%if banner_type="swf" then response.write "checked"%>>&nbsp;Flash</td>
</tr>
<tr>
<td>Banner链接：</td>
<td><input type=text name=banner_url value='<%response.write banner_url%>' size=40 maxlength=200></td>
<td><%call admin_read("参数","网站Banner参数","当设置类型为“FLASH”是请填写参数：<font class=red>width=468 height=60</font><br>为“图片”时也可设置宽度和高度，还可增加：<font class=red>alt=这里填写图片扩展文字说明</font>")%><input type=text name=banner_wh value='<%response.write banner_wh%>' size=16 maxlength=200></td>
</tr>
<tr>
<td>头部滚动广告：</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=scroll_head value='<%response.write scroll_head%>' size=62 maxlength=200>&nbsp;</td>
  <td><%call admin_read("","头部滚动广告","网站头部的滚动广告，在登陆用户有新短信时是会暂时隐掉，支持HTML。")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>底部版权信息：</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=web_copyright value='<%response.write web_copyright%>' size=62 maxlength=200>&nbsp;</td>
  <td><%call admin_read("","底部版权信息","网站底部的版权信息，支持HTML。")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>未注册登陆：</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=web_nologin value='<%response.write web_nologin%>' size=62 maxlength=200>&nbsp;</td>
  <td><%call admin_read("","未注册登陆","网站用户在未注册或未登陆时提示的错误信息，支持HTML。")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>外部提交错误：</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=web_nopost value='<%response.write web_nopost%>' size=62 maxlength=200>&nbsp;</td>
  <td><%call admin_read("","外部提交错误","网站浏览用户在非正常提交表单是提示的错误信息，支持HTML。")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>编码支持信息：</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=web_frm_word value='<%response.write web_frm_word%>' size=62 maxlength=200>&nbsp;</td>
  <td><%call admin_read("","编码支持信息","网站表单内常规的文本框所支持的编码提示信息，支持HTML。")%></td>
  </tr>
  </table>
</td>
</tr>
<tr><td colspan=3 class=td>&nbsp;网站安全过滤设置</td></tr>
<tr>
<td>用户名禁用：</td>
<td><input type=text name=web_dim_15 value='<%response.write web_dim(15)%>' size=40 maxlength=200></td>
<td class=gray><%call admin_read("","用户名禁用","网站注册用户名过滤字符，系统将默认禁用以下字符：<br>空格、|、:、&#39;、&quot;、TABLE符、回车符、换行符等")%></td>
</tr>
<tr>
<td>密码可用字符：</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=web_dim_16 value='<%response.write web_dim(16)%>' size=62 maxlength=200>&nbsp;</td>
  <td><%call admin_read("","密码可用字符","网站注册新用户时设置密码的可用（有效）的字符，区分大小写")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>保留用户名：</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=web_dim_17 value='<%response.write web_dim(17)%>' size=62 maxlength=200>&nbsp;</td>
  <td><%call admin_read("","保留用户名","网站注册新用户时要保留下来的用户名，多个关键字请用“:”（小写的冒号）格开")%></td>
  </tr>
  </table>
</td>
</tr>
<tr>
<td>不健康字符：</td>
<td colspan=2>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><input type=text name=web_dim_18 value='<%response.write web_dim(18)%>' size=62 maxlength=200>&nbsp;</td>
  <td><%call admin_read("","不健康字符","网站注册新用户时要保留下来的用户名，多个关键字请用“:”（小写的冒号）格开")%></td>
  </tr>
  </table>
</td>
</tr>
<tr><td colspan=3 class=td>&nbsp;IP过滤访问设置</td></tr>
<tr><td colspan=3 align=center>
  <table border=0 width='98%'>
  <tr><td width='33%' height=1></td><td width='34%'></td><td width='33%'></td></tr>
<%
  tdim=split(web_dim(22),"|")
  tnum=ubound(tdim)
  for i=0 to tnum+1
    if (i/3)-(i\3)=0 then response.write vbcrlf&"<tr>"
    tmp1=""
    if i<tnum+1 then tmp1=tdim(i)
    response.write vbcrlf&"<td>IP"&i+1&"：<input type=text name=web_dim_22 value='"&tmp1&"' size=18 maxlength=15></td>"
    if ((i-2)/3)-((i-2)\3)=0 then response.write vbcrlf&"</tr>"
  next
  erase tdim
%>
  </table>
</td></tr>
<%
  call submit_config()
end sub

%>