  <% 
	data_path="../" 'ACC连接数据库路径，对SQL无效
	numid="01"
	dir="err.asp" 
  %>
 <!--#include file="../editor/Include/Startup.asp"-->
 <!--#include file="../conn/conn.asp"-->
 <!--#include file="../inc/safe.asp"-->
 <!--#include file="rolecheckout.asp"-->
<%
set rss=server.CreateObject("adodb.recordset")
sqll="select top 1 * from Websen_worldec_config"  
rss.open sqll,conn,1,1

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站信息设置</title>
<LINK href="css/style.css" rel=stylesheet type=text/css>
<style type="text/css">
<!--
.STYLE4 {color: #003399}
.STYLE6 {color: #FF0000}
.STYLE8 {color: #0099CC}
-->
#colorBoard{position:absolute; padding:10px; width:256px; height:220px; background:#f3f3f3; border:#d9d9d9 1px solid;}
#colorBank{ clear:both; border:#d9d9d9 1px solid; background:#FFF; width:252px; padding:0 0 2px 2px; overflow:hidden; margin:0 auto 0 auto;}
#colorBank div{ overflow:hidden; height:12px; width:12px; margin:2px 2px 0 0; float:left; overflow:hidden; cursor:pointer;}
#colorViews{width:80px; height:20px; float:left;border:#d9d9d9 1px solid; background:#000; display:block; margin: 0 10px 10px 0;}
#colorInput{width:70px; height:18px; float:left; font-family:Verdana; font-size:13px; color:#333; display:block; border:none; background:#FFF;border:#d9d9d9 1px solid;margin: 0 10px 10px 0;}
#colorClose{width:80px; color:#999999; height:22px; float:left;display:block; background:#f3f3f3;cursor:pointer;border:#d9d9d9 1px solid; border-top:#FFF 1px solid; border-left:#FFF 1px solid;}
</style>
<SCRIPT language=javascript>
<!--
function colorSelect(now,page,e){
 if(document.getElementById("colorBoard")){
  return;
 }
 //关于出现位置
 e=e||event;
 var scrollpos = getScrollPos();
 var l = scrollpos.l + e.clientX;
    var t = scrollpos.t + e.clientY + 10;
    if (l > getBody().clientWidth-253){
        l = getBody().clientWidth-253;
    }
 //创建DOM
 var nowColor = document.getElementById(now);
 var pageColorViews = document.getElementById(page);
 var ColorHex=new Array('00','33','66','99','CC','FF');
 var SpColorHex=new Array('FF0000','00FF00','0000FF','FFFF00','00FFFF','FF00FF');
 var colorBank = document.createElement("div");
 colorBank.setAttribute("id","colorBank");
 var colorViews = document.createElement("div");
 colorViews.setAttribute("id","colorViews");
 var colorInput = document.createElement("input");
 colorInput.setAttribute("id","colorInput");
 colorInput.setAttribute("type","text");
 colorInput.setAttribute("disabled","disabled");
 var colorClose = document.createElement("input");
 colorClose.setAttribute("id","colorClose");
 colorClose.setAttribute("value","取消");
 colorClose.setAttribute("type","button");
  var colortext=document.createElement("input");
 colorClose.onclick=function(){document.body.removeChild(colorBoard)};
 var colorBoard =document.createElement("div");
 colorBoard.id="colorBoard";
 colorBoard.style.left = l+"px";
 colorBoard.style.top = t+ "px";
 colorBoard.appendChild(colorViews);
 colorBoard.appendChild(colorInput);
 colorBoard.appendChild(colorClose);
 colorBoard.appendChild(colorBank);

 document.body.appendChild(colorBoard);
 //循环出调色板
 for(b=0;b<6;b++){
  for(a=0;a<3;a++){
   for(i=0;i<6;i++){
    colorItem = document.createElement("div");
    colorItem.style.backgroundColor=ColorHex[a]+ColorHex[i]+ColorHex[b];
    colorBank.appendChild(colorItem);
   }
  }
 }
 for(b=0;b<6;b++){
  for(a=3;a<6;a++){
   for(i=0;i<6;i++){
    colorItem = document.createElement("div");
    colorItem.style.backgroundColor=ColorHex[a]+ColorHex[i]+ColorHex[b];
    colorBank.appendChild(colorItem);
   }
  }
 }
 for(i=0;i<6;i++){
  colorItem = document.createElement("div");
  colorItem.style.backgroundColor=ColorHex[0]+ColorHex[0]+ColorHex[0];
  colorBank.appendChild(colorItem);
 }
 for(i=0;i<6;i++){
  colorItem = document.createElement("div");
  colorItem.style.backgroundColor=ColorHex[i]+ColorHex[i]+ColorHex[i];
  colorBank.appendChild(colorItem);
 }
 for(i=0;i<6;i++){
  colorItem = document.createElement("div");
  colorItem.style.backgroundColor=SpColorHex[i];
  colorBank.appendChild(colorItem);
 }
 var colorItems = colorBank.getElementsByTagName("div");
 for(i=0; i<colorItems.length;i++){
  colorItems[i].onmouseover = function(){
   a = this.style.backgroundColor;
   if(a.length>7){
    a = formatRgb(a);//
   }
   colorViews.style.background = a.toUpperCase();
   colorInput.value = a.toUpperCase();
  
  }
  colorItems[i].onclick = function(){
   a = this.style.backgroundColor;
   if(a.length>7){
    a = formatRgb(a);//
   }
   nowColor.value = a.toUpperCase();
   nowColor.value=nowColor.value.replace("#","")
   pageColorViews.style.background = a.toUpperCase();
   document.body.removeChild(colorBoard);
  }
 }
}
//格式化函数
function formatRgb(rgb){
 rgb = rgb.replace("rgb","");rgb = rgb.replace("(","");rgb = rgb.replace(")","");
 format = rgb.split(",");
 a = eval(format[0]).toString(16);
 b = eval(format[1]).toString(16);
 c = eval(format[2]).toString(16);
 rgb = checkFF(a)+checkFF(b)+checkFF(c);
 function checkFF(str){
  if(str.length == 1){
   str = str+""+str;
   return str;
  }else{
   return str;
  }
 }
 return rgb;
}
//getBody()
function getBody(){
    var Body;
    if (typeof document.compatMode != 'undefined' && document.compatMode != 'BackCompat') {
       Body = document.documentElement;
    }
    else if (typeof document.body != 'undefined') {
       Body = document.body;
    }
    return Body;
}
//scrollPos
function getScrollPos(){
  var t,l;
  if (typeof window.pageYOffset != 'undefined'){
    t = window.pageYOffset;
    l = window.pageXOffset;
  }
  else{
   t = getBody().scrollTop;
   l = getBody().scrollLeft;
  }
  return {t:t,l:l};
}
function aaa() 
{ 

var rowTest=document.getElementById("rowTest");

switch (document.form.checkbox.checked) 
{ 
case false: 
 rowTest.style.display="none";
break; 
case true: 
rowTest.style.display="block";
break; 
} 
} 
function show()
{
 var rowTest=document.getElementById("show");

switch (document.form.showt.checked) 
{ 
case false: 
 rowTest.style.display="none";
break; 
case true: 
rowTest.style.display="block";
break; 
} 
}


function admin_Size(num,objname)
{
	var obj=document.getElementById(objname)
	if (parseInt(obj.rows)+num>=3) {
		obj.rows = parseInt(obj.rows) + num;	
	}
	if (num>0)
	{
		obj.width="90%";
	}
}
//--> 
</SCRIPT>
</head>
<body onLoad="aaa();">

<%
If Request("action")="" Then
%>
<form action="admin_setting.asp?action=save" method="post" name="form">
<TABLE width="100%" border=0 align=center cellPadding=3 cellSpacing=1 bordercolor="#FFFFFF" bgcolor="#C4D8ED" >
  <TBODY>
	   <TR>      	 
      <td height=30 colspan="2"  align="center"  bgcolor="#FFFFFF" ><strong>网站系统基本设置</strong></td>
	  </tr>
	    <TR>
    <td width="32%" height=23 bgcolor="#FFFFFF"  class="forumRaw"><strong><U>网站当前状态</u></strong><br>
    请将标签 <font color=red>#HOPE_Announce#</font> 放到各模版页顶部</td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRaw"><input name="weboff_on" type="radio" value="0"  <%If weboff_on =0 Then Response.Write "checked"%>> 
		正常运行&nbsp;&nbsp;&nbsp;&nbsp;
	    <input type="radio" name="weboff_on" value="1" <%If weboff_on =1 Then Response.Write "checked"%>>
	    提示关闭&nbsp;&nbsp;
	    <input type="radio" name="weboff_on" value="2" <%If weboff_on =2 Then Response.Write "checked"%>>
	    网站关闭</td>
	</tr>
	
	<tr bgcolor="#F5F5F5" >
	<td  valign="middle" bgcolor="#FFFFFF" class="forumRow"><U><strong>维护说明</strong></U><BR>
	  在网站当前状态为<span class="STYLE4">网站关闭|提示关闭</span>的情况下显示使用，支持html语法</td>
    <td bgcolor="#FFFFFF"  class="forumRow"> 
<textarea name="StopReadme" cols="70" rows="7" ID="TDStopReadme"><%=Stopreadme%></textarea><br>	
<a href="javascript:admin_Size(-5,'TDStopReadme')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(5,'TDStopReadme')"><img src="images/plus.gif" unselectable="on" border='0'></a></td>
	</tr>
	<tr>
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRaw"><strong><U>网站名称</u></strong></td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRaw"><input name="WebName" type="text" id="WebName" value="<%=WebName%>" size="45" maxlength="45">
	    <br></td>
	</tr>
			 
	<tr bgcolor="#F5F5F5" >
		<td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>网站地址</u></strong><br>
	    网站的域名，需填写完整，如：<font color=red>http://www.websen.net/</font></td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><span >
	    <input name="WebUrl" type="text" value="<%=WebUrl%>" size="45" maxlength="45">
		<b><font color="red">*</font></b></span></td>
</tr>
<TR  >
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>网站所在文件夹</u></strong>(安装路径)<br>
		如：<font color=red>/b2b/ 请务必在文件夹两边加上&quot;/&quot; ,如果是根目录请用“/”即可，注意不能为空！后果自负<br>
		(本设置关系静态文件的生成路径问题) </font></td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><span ><span class="STYLE8">请注意：在你修改了本目录后，请注销后重新登陆，以防止站点目录更换造成相关已有数据的丢失！</span><br>
	    <input name="weburl2" type="text" value="<%=HOPE_InstallDir%>" size="45" maxlength="40">
		
		<b><font color="red">*</font></b></span></td>
	</tr>
<TR bgcolor="#F5F5F5" >
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>网站地址（简洁）</u></strong><br>
	    网站简洁地址，不需要&quot;<font color=red>http://</font>&quot; 及 &quot;<font color=red>/</font>&quot;<br><font color="red">为确保二级域名的应用正确等功能！</font></td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="WebUrl1" type="text" value="<%=WebUrl1%>" size="45" maxlength="40">
	    <strong><font color="red">*</font></strong> </td>
	</tr>
	<TR bgcolor="#F5F5F5" >
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>后台管理目录:</u></strong>如：<br>
      admin/	   </td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="lujing" type="text" value="<%=lujing%>" size="45" maxlength="40">
	    <strong><font color="red">*</font></strong> </td>
	</tr>
	
	<tr  >
	<td height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>是否整合网商博客<br>
	</u>
    </strong>本系统整合博客为：oblog4.0 </td>
  <td bgcolor="#FFFFFF" class="forumRow"><label>
    <input name="isblog" type="radio" value="0" checked>
    否
    <input type="radio" name="isblog" value="1" <% If isblog=1 Then Response.Write "checked" %>>
    是 </label></td>
</tr>
<TR  bgcolor="#F5F5F5">
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>是否开启用户二级域名</u></strong><br>
      <font color="red">如果服务器不支持泛域名,请将此项关闭！否则:会影响会员模版网站的连接地址！</font></td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><label>
		  <input name="is2weburl" type="radio" value="0" checked>
关闭
<input type="radio" name="is2weburl" value="1" <% If is2weburl=1 Then Response.Write "checked" %>>
开启 </label></td>
	</tr>
	<TR  bgcolor="#F5F5F5">
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>注册验证码显示形式</u></strong><br></td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><label>
		  <input name="Verification" type="radio" value="0" checked>
数字
<input type="radio" name="Verification" value="1" <% If Verification=1 Then Response.Write "checked" %>>
汉字(有组件<span class="STYLE6">AspJpeg 2.0</span>)<input type="radio" name="Verification" value="2" <% If Verification=2 Then Response.Write "checked" %>>汉字(无阻件) </label></td>
	</tr>
	<TR  >
    <td width="32%" height=23  valign="top" bgcolor="#FFFFFF" class="forumRow"><b> 建立文件操作对象的FSO文件组件设置</b>:<br>
      <font color="red">本项关系到站点文件的生成与操作等，请根据服务器的设置来定</font>！</td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"> <input name="filesys" type="text"  onblur="this.value=this.value.replace(/\s/g,'')" value="<%=filesys%>" size=50 maxlength="45"> 
		<strong><font color="red">*</font></strong><br><font color="#666666">提示：此操作供参考!根据所在服务器而定!<br>
		如果你的服务器是相对独立的，你可修改系统注册表中的有关文件组件的设置:<br>
		 运行：regedit命令后--→找到HKEY_CLASSES_ROOT--→ Scripting.FileSystemObject 将之改名(如 Scripting.FileSystemObjectWebsen)  然后在此修改值即可!(如：Scripting.FileSystemObject 改为如 Scripting.FileSystemObjectWebsen)<br>注意：如果有博客功能请登陆进入博客后台后修改栏目“服务器组建配置"项中修改有关文件组件的设置即可！
 默认为  Scripting.FileSystemObject	</font> </td>
	</tr>
	<tr bgcolor="#F5F5F5">
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>是否开通网站上传功能</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="citysql" type="radio" value=1 <%If Fy_In="1" Then%>checked<%End If%>> 开通　<input name="citysql" type="radio" value=0 <%If Fy_In="0" Then%>checked<%End If%>>关闭</td>
<tr bgcolor="#F5F5F5">
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>是否开通用户网站自动更新功能</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="autozz" type="radio" value=1 <%If autozz=1 Then%>checked<%End If%>> 开通　<input name="autozz" type="radio" value=0 <%If autozz=0 Then%>checked<%End If%>>关闭</td>
</tr>
<td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>网站各首页自动更新信息的时间间隔 </strong><br>
  <font color="#0099CC">(网站首页,我要采购,我要销售,产品库,公司库,行业资讯,展会)首页</font></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input type="text" name="indextime" value="<%=indextime%>" onBlur="if(/[^0-9]/g.test(this.value)){alert('请输入整型数字！');this.value=0}"  maxlength="5"   size="5"><font color="red" >分钟</font>更新一次！  <b>0</b></font>为不进行自动更新信息!)</td>
</tr> 
<tr bgcolor="#F5F5F5">
<td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>网站各分类级页面自动生成、更新信息的时间间隔 </strong> <font color="#0099CC">(我要采购[1,2,3],我要销售[1,2,3],产品库[1,2,3],公司库[1,2,3])分类级页面</font></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input type="text" name="kindtime" value="<%=kindtime%>" onBlur="if(/[^0-9]/g.test(this.value)){alert('请输入整型数字！');this.value=0}"  maxlength="5"   size="5"><font color="red" >分钟</font>更新一次！  <b>0</b></font>为不进行自动更新信息!)</td>
</tr>
   <TR >
    <td height=9 colspan="2" align="center">&nbsp;</td>
	  </tr>
   <TR >
     <td height=30 colspan="2" align="center" bgcolor="#FFFFFF"><strong>修改注册验证问题</strong></td>
   </tr>
     <td height=30 bgcolor="#FFFFFF" class="forumRow"><br>
       <font color="#0099CC">1.验证问题(Websen)&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>2.验证问题(1+1=?) /显示答案：2</font></td>
     <td height=30 align="left" bgcolor="#FFFFFF" class="forumRow">验证问题：<input type="text" name="wentiname" value="<%=RSS("wentiname")%>"/>
       显示答案
        <%if rss("shuxin")=1 then%> <input name="checkbox" type="checkbox" onClick="aaa()" value="1" checked >
        <%else%>
		<input name="checkbox" type="checkbox" onClick="aaa()" value="1" > <%end if%>
         <div  id="rowTest" style="display:none" >问题答案：<input type="text" name="wentidaan" value="<%=RSS("wentidaan")%>"/></div> <div>显示验证问题
		  <input name="cYanNum" type="radio"  value="0" checked <%If rss("cYanNum")="0" Then%>checked<%End If%>/>
		  隐藏验证问题
		  <input type="radio" name="cYanNum"  value="1" <%If rss("cYanNum")="1" Then%>checked<%End If%>/></div>		 </td>
   </tr>
   <TR >
     <td height=5 colspan="2" align="center">&nbsp;</td>
   </tr>
<tr>
<td  height=30 colspan="2" align="center" bgcolor="#FFFFFF"><strong>图片上传水印设置</strong>是否起用水印功能<input type="checkbox" value="1" name="showt" id="showt"  onClick="show()" <%if Watermark="1" then %>checked<%end if%>/></td>
</tr>

<!----------------------------------->

<tr>
<td>
<table width="400%"  id="show" <%if Watermark="1" then%>style="display:block"<%else%> style='display:none' <%end if%>>
<%
sql="select top 1 * from websen_Watermark"
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.Open sql,conn,1,3
%>
<tr>
<td width="13%" rowspan="4" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>图片水印<input type="radio" name="Choose" value="0" <%if rs("Choose")="0" then %> checked="checked"<%end if %>></strong><br>  
      <br>
      </strong></td>
	<td width="87%" height="21" bgcolor="#FFFFFF" class="forumRow">水印图片路径
<input name="UploadSetting" type="text" id="UploadSetting" value="<%=rs("UploadSetting")%>" size="12">(默认/images)
图片名称:<input name="Uploadjpg" type="text" id="Uploadjpg" value="<%=rs("Uploadjpg")%>" size="27">(格式为jpg格式)</td>
</tr>
<tr bgcolor="#F5F5F5">
    <td width="87%" height="21" bgcolor="#FFFFFF" class="forumRow">去掉水印图片的底色（按你的水印图片实际底色）&nbsp;
      <input name="Jstyle" type="text" id="Jstyle" value="<%=rs("Jstyle")%>" size="10" maxlength="8" onClick="colorSelect('Jstyle','pageColorViews',event)"> </td>
</tr>
<tr  >
    <td width="87%" height="23" bgcolor="#FFFFFF" class="forumRow">水印图片宽度：&nbsp;&nbsp;&nbsp;&nbsp;
      <input name="Jcolor_Width" type="text" id="Jcolor_Width" value="<%=rs("Jcolor_Width")%>" size="8" maxlength="4"><span class="STYLE6"><strong>pix&nbsp;&nbsp;</strong></span>&nbsp;&nbsp;&nbsp;水印图片高度：<input name="Jcolor_Height" type="text" id="Jcolor_Height" value="<%=rs("Jcolor_Height")%>" size="8"><span class="STYLE6"><strong>pix</strong></span></span></td>
</tr>
<tr bgcolor="#F5F5F5">
    <td width="87%" height="21" bgcolor="#FFFFFF" class="forumRow">水印图片坐标上下：
<input name="Jcolor_sx" type="text" id="Jcolor_sx" value="<%=rs("Jcolor_sx")%>" size="8"><span class="style1"></span><span class="STYLE6"><strong>pix</strong></span></span> 水印图片坐标左右：<input name="Jcolor_zy" type="text" id="Jcolor_zy" value="<%=rs("Jcolor_zy")%>" size="8" maxlength="4"><span class="STYLE6"><strong>pix</strong></span></span>&nbsp;系统自动调整<input type="checkbox" name="Automati" id="Automati" value="1" <%if rs("Automati")="1" then %> checked="checked"<%end if%>/><span class="STYLE6"><strong>(启动后其它参数不起作用)</strong></span></span></td>
</tr>
<tr  >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>文字水印</strong><input type="radio" name="Choose" value="1" <%if rs("Choose")="1" then %> checked="checked"<%end if %>></td>
	<td width="87%" bgcolor="#FFFFFF" class="forumRow"><label>字体:</label>
	    <select name="Jfamily" id="Jfamily">
	      <option value="宋体" <%if rs("Jfamily")="宋体" then %>selected="selected"<%end if%> >宋体</option>
		  <option value="楷体" <%if rs("Jfamily")="楷体" then %>selected="selected"<%end if%>>楷体</option>
		  <option value="新宋体" <%if rs("Jfamily")="新宋体" then %>selected="selected"<%end if%>>新宋体</option>
		  <option value="黑体"  <%if rs("Jfamily")="黑体" then %>selected="selected"<%end if%>>黑体</option>
		  <option value="隶书" <%if rs("Jfamily")="隶书" then %>selected="selected"<%end if%>>隶书</option>
		  <option value="Arial Black" <%if rs("Jfamily")="Arial Black" then %>selected="selected"<%end if%>>Arial Black</option>
		  <option value="Courier New" <%if rs("Jfamily")="Courier New" then %>selected="selected"<%end if%>>Courier New</option>
	    </select>&nbsp;
	文字颜色:<input type="text"  name="nowColor"  size="6"   readonly="false" maxlength="6" onClick="colorSelect('nowColor','pageColorViews',event)"  value="<%=rs("nowColor")%>"/>
	文字大小：<input type="text" name="Jsize" size="4" maxlength="2" value="<%=rs("Jsize")%>"/><span class="STYLE6"><strong>px</strong></span></span>  &nbsp;文字水印是否透明<input type="checkbox" name="Transparent" id="Transparent" value="1" <%if rs("Transparent")="1" then  %>  checked="checked" <%end if%>><br>系统自动调整<input type="checkbox" value="1" name="Custom" id="Custom" <%if rs("Custom")="1" then %> checked="checked" <%end if%>><span class="STYLE6"><strong>(启动后其它参数不起作用)</strong></span></span>
	</td>
</tr>
<!--<tr>
<td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>生成略图规格</strong></td>
<td bgcolor="#FFFFFF" class="forumRow">略图的宽度<input type="text" name="Jpic_Width" value="<%rs("Jpic_Width")%>" id="Jpic_Width" size="4" maxlength="4"><span class="STYLE6"><strong>pix</strong></span></span>略图高度&nbsp;<input type="text" name="Jpic_Heigh" id="Jpic_Heigh"  value="<%=rs("Jpic_Heigh")%>"><span class="STYLE6"><strong>pix</strong></span></span></td>
</tr>-->
</table>
</td>
</tr>
<%rs.close%>
<!---------------------------->
   <TR >
     <td height=30 colspan="2" align="center" bgcolor="#FFFFFF"><strong>用户选项</strong></td>
   </tr>
  	<tr  >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>禁止注册的用户名 <br>
      </strong>请用 "|" 隔开<strong><br>  
      <br>
      </strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow">
	  <input name="citypingname" type="text" value=<%=citypingname%> size=50 maxlength="500"></td>
</tr>
<tr bgcolor="#F5F5F5">
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>商贸机会</strong>(供求信息)<strong>是否需要审核</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="cityscakey" type="radio" value=1 <%If cityscakey="1" Then%>checked<%End If%>> 
	直接通过发布　
	  <input name="cityscakey" type="radio" value=0 <%If cityscakey="0" Then%>checked<%End If%>> 
	  需审核才公布</td>
</tr>
<tr  >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>展会信息是否需要审核</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="cityzhkey" type="radio" value=1 <%If cityzhkey="1" Then%>checked<%End If%>>
	   直接通过发布
	   　
      <input name="cityzhkey" type="radio" value=0 <%If cityzhkey="0" Then%>checked<%End If%>>	   需审核才公布</td>
</tr>
<tr bgcolor="#F5F5F5">
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>企业招聘是否需要审核</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="cityjobzpkey" type="radio" value=1 <%If cityjobzpkey=1 Then%>checked<%End If%>>
	   直接通过发布　
      <input name="cityjobzpkey" type="radio" value=0 <%If cityjobzpkey=0 Then%>checked<%End If%>>	   需审核才公布</td>
</tr>
<tr >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>产品是否需要审核</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="citycpkey" type="radio" value=1 <%If citycpkey="1" Then%>checked<%End If%>>
	   直接通过发布　
      <input name="citycpkey" type="radio" value=0 <%If citycpkey="0" Then%>checked<%End If%>>	   需审核才公布</td>
</tr>
 
 
 
 
 <tr >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>产品发布积分</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><label>
	  <input type="text" name="cpmark"  value="<%=cpmark%>">
	</label>
	  <span class="STYLE6">填写0为不进行分值计算</span></td>
</tr><tr >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>展会发布积分：</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><label>
	   <input type="text" name="zhmark"  value="<%=zhmark%>">
      <span class="STYLE6">填写0为不进行分值计算</span></label></td>
</tr><tr >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>商机发布积分：</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><label>
	  <input type="text" name="sjmark"  value="<%=sjmark%>">
	<span class="STYLE6">填写0为不进行分值计算</span></label></td>
</tr><tr >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>资讯发布积分</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><label>
	  <input type="text" name="zxmark"  value="<%=zxmark%>" >
	<span class="STYLE6">填写0为不进行分值计算</span></label></td>
</tr><tr >
    <td height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong>积分控制：</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><label>
	 
	  <input type="radio" name="markct" value="1" <%If markct="1" Then%>checked<%End If%>> 打开网站积分功能
	  <input type="radio" name="markct" value="0" <%If markct="0" Then%>checked<%End If%>>
	  关闭网站积分功能</label></td>
</tr>
 
 
 
 
 
 
 
	<TR >
	  <td height=23 colspan="2" bgcolor="#FFFFFF" class="forumRow"><!--<strong><U>供求信息图片上传目录</u></strong><br>
      如果改动了这里，请在网站目录建立相应目录！--> 
	   <input name="newspic" type="text" value="<%=newspic%>" size="45" style="display:none">      
	    <!--<strong><U>会员证书上传目录</u></strong><br>
      <span >如果改动了这里，请在网站目录建立相应目录！</span>--> 
	    <input name="bizrepic" type="text" value="<%=bizrepic%>" size="45" style="display:none">	    </tr>
   <TR>
    <td height=20 colspan="2" align="center">&nbsp;</td>
	  </tr>
   <TR>
     <td height=30 colspan="2" align="center" bgcolor="#FFFFFF"><strong>公司邮件信息选项</strong></td>
   </tr>
	  	<tr ><td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>发送邮件组件</u></strong><br>  
如果您的服务器不支持，将无法使用</td>
	  <td bgcolor="#FFFFFF" class="forumRow"><input name="forum_setting" type="text" id="forum_setting" value="Jmail组件" size="45" maxlength="40"  readonly>
	  &nbsp;  &nbsp;  &nbsp;  &nbsp;  &nbsp;  &nbsp;  &nbsp;<a href="vipgrade/Bs_Mail_Send.asp" target="_self">发送邮件</a>	  </td>
	</tr>
	<TR bgcolor="#F5F5F5">
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>系统邮箱SMTP Server地址</u></strong><br>
	  SMTP邮件地址</td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><span >
	    <input name="SMTPServer" type="text" value="<%=SMTPServer%>" size="45" maxlength="40">
      <span class="STYLE6">此信息不设置将不能发送邮件		</span></span></td>
	</tr>
<tr >
    <td width="32%" height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong><U>系统邮箱</u>登录用户名</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="HOPE_MailUser" type="text" id="HOPE_MailUser" value="<%=HOPE_MailUser%>" size=15 maxlength="40"> 
	<span class="STYLE6">此信息不设置将不能发送邮件</span></td>
</tr>
<tr  bgcolor="#F5F5F5">
    <td width="32%" height="30" align="left" bgcolor="#FFFFFF" class="forumRow"><strong><U>系统邮箱</u>登录密码</strong></td>
	<td width="68%" bgcolor="#FFFFFF" class="forumRow"><input name="HOPE_MailPwd" type="password" id="HOPE_MailPwd" value="<%=HOPE_MailPwd%>" size=15 maxlength="40"> 
	<span class="STYLE6">此信息不设置将不能发送邮件</span></td>
</tr><tr  >
    <td height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>系统邮箱技术支持邮箱地址</u></strong><br>
	    用于系统发送、会员回复邮件到的地址！</td>
	  <td bgcolor="#FFFFFF" class="forumRow"><input name="SystemEmail" type="text" value="<%=SystemEmail%>" size="45" maxlength="47">      </td>
    </tr>
	<TR bgcolor="#F5F5F5">
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>普通服务电话</u></strong><br>
	  可和热线电话相同！</span></td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow">
      <input name="Systemtel" type="text" value="<%=Systemtel%>" size="45" maxlength="40">		</td>
	</tr>
	<TR >
	  <td height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>热线电话</u></strong><br>
      网站热线电话，在网站的多处均出现！</td>
	  <td bgcolor="#FFFFFF" class="forumRow"><input name="hottel" type="text" value="<%=hottel%>" size="45" maxlength="40">      </td>
    </tr>
	<TR bgcolor="#F5F5F5">
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>传真</u></strong><br>
	  同热线电话！</td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><span >
	    <input name="hotfax" type="text" value="<%=hotfax%>" size="45" maxlength="40">
	  </span></td>
	</tr>
	<TR >
	  <td height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>公司名称</u></strong><br>
      会员申请&quot;&quot;服务后汇款到公司！</td>
	  <td bgcolor="#FFFFFF" class="forumRow"><input name="worldname" type="text" value="<%=worldname%>" size="45" maxlength="40">      </td>
    </tr>
	<TR bgcolor="#F5F5F5">
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>收信人</u></strong><br>
      来信的收件人，可以为财务部！</td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><span >
	    <input name="Company" type="text" value="<%=Company%>" size="45" maxlength="40">
      </span></td>
	</tr>
	<TR >
	  <td height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>公司地址</u></strong><br>
      公司地址！</td>
	  <td bgcolor="#FFFFFF" class="forumRow"><input name="add" type="text" value="<%=address%>" size="45" maxlength="42">      </td>
    </tr>
	<TR bgcolor="#F5F5F5">
    <td width="32%" height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>邮政编码</u></strong><br>
      邮政编码！</td>
		<td width="68%" bgcolor="#FFFFFF" class="forumRow"><span >
	    <input name="yb" type="text" value="<%=yb%>" size="45" maxlength="20">
      </span></td>
	</tr>
 	<TR >
	  <td height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>银行帐号</u></strong><br>
      公司的汇款的帐号！</td>
	  <td bgcolor="#FFFFFF" class="forumRow"><input name="yhzh" type="text" value="<%=yhzh%>" size="45" maxlength="45">      </td>
    </tr>
	<TR bgcolor="#F5F5F5">
	  <td height=23 bgcolor="#FFFFFF" class="forumRow"><strong><U>银行名称</u></strong><br>
      公司开户银行名称！</td>
	  <td bgcolor="#FFFFFF" class="forumRow"><input name="bank" type="text" value="<%=bank%>" size="45" maxlength="45">      </td>
    </tr><TR >
	  <td height=23 bgcolor="#FFFFFF" class="forumRow"><u><strong>关键字搜索保留记量最大条数</strong>
	    <br>
	  <span >用于各关键字的搜索率统计建议在5000-20000</span></u></td>
	  <td bgcolor="#FFFFFF" class="forumRow"><input name="search" type="text" id="search" value="<%=search%>" size="10" maxlength="8"  onKeyUp="value=value.replace(/[^\d]/g,'') "  tonbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" >      </td>
    </tr>
	<TR  >
	  <td height=30 colspan="2"  align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="保存设置">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <input type="reset" name="Submit2" value="重&nbsp;&nbsp;&nbsp;&nbsp;置"></td>
  </tr>
</TABLE>
</form>
<%
	End If
	If Request("action")="save" Then
	wentiname=Replace_Text(Request.Form("wentiname"))
	wentidaan=Replace_Text(Request.Form("wentidaan"))
	shuxin=Replace_Text(request.form("checkbox"))
	cYanNum=Replace_text(request.form("cYanNum"))
		weboff_on=Replace_Text(Request.Form("weboff_on"))
		forum_setting=Replace_Text(Request.Form("forum_setting"))
		Stopreadme=Request.Form("Stopreadme")
 		WebName=Replace_Text(Request.Form("Webname"))
		WebUrl=Replace_Text(Request.Form("WebUrl")) 
		WebUrl1=Replace_Text(Request.Form("WebUrl1"))
		lujing=Replace_Text(Request.Form("lujing"))
		weburl2=Replace_Text(Request.Form("weburl2"))
		userweb=Replace_Text(Request.Form("userweb")) 
		SMTPServer=Replace_Text(Request.Form("SMTPServer"))
		SystemEmail=Replace_Text(Request.Form("SystemEmail"))
		Systemtel=Replace_Text(Request.Form("Systemtel"))
		hottel=Replace_Text(Request.Form("hottel"))
		hotfax=Replace_Text(Request.Form("hotfax"))
		worldname=Replace_Text(Request.Form("worldname"))
		Company=Replace_Text(Request.Form("Company"))
		add=Replace_Text(Request.Form("add"))
		yb=Replace_Text(Request.Form("yb"))
		worldecfuwu=Replace_Text(Request.Form("worldecfuwu")) 
		yhzh=Replace_Text(Request.Form("yhzh"))
		bank=Replace_Text(Request.Form("bank"))
		PicUrl=Replace_Text(Request.Form("PicUrl"))
		LinkUrl=Replace_Text(Request.Form("LinkUrl"))
		newspic=Replace_Text(Request.Form("newspic"))
		bizrepic=Replace_Text(Request.Form("bizrepic"))
		search=Replace_Text(Request.Form("search"))
		citypingname=Replace_Text(Request.Form("citypingname"))
		citysql=Replace_Text(Request.Form("citysql"))
		citysql=Replace_Text(Request.Form("citysql"))
		cityzhkey=Replace_Text(Request.Form("cityzhkey"))
		cityjobzpkey=Replace_Text(Request.Form("cityjobzpkey"))
		citycpkey=Replace_Text(Request.Form("citycpkey"))
		vipbs=Replace_Text(Request.Form("vipbs"))
		rzjg=Replace_Text(Request.Form("rzjg"))
		weblogo=Replace_Text(Request.Form("weblogo"))
		shoplogo=Replace_Text(Request.Form("shoplogo"))
		cityscakey=Replace_Text(Request.Form("cityscakey"))
		filesys=Replace_Text(Request.Form("filesys"))
		HOPE_MailUser=Replace_Text(Request.Form("HOPE_MailUser"))
		HOPE_MailPwd=Replace_Text(Request.Form("HOPE_MailPwd"))
		indextime=Replace_Text(Request.Form("indextime"))
		kindtime=Replace_Text(Request.Form("kindtime"))
		 cpmark=Replace_Text(Request.Form("cpmark"))
		 zhmark=Replace_Text(Request.Form("zhmark"))
		 sjmark=Replace_Text(Request.Form("sjmark"))
		 ppmark=Replace_Text(Request.Form("ppmark"))
		 zxmark=Replace_Text(Request.Form("zxmark"))
		 markct=Replace_Text(Request.Form("markct"))
		 autozz=Replace_Text(Request.Form("autozz"))
		 EmailInfo=Replace_Text(Request.Form("EmailInfo"))
		 EmailTitle=Replace_Text(Request.Form("EmailTitle"))
		 showt=Replace_Text(Request.Form("showt"))
		'------------------------------
		UploadSetting=Replace_Text(Request.Form("UploadSetting"))
		Uploadjpg=Replace_Text(Request.Form("Uploadjpg"))
		Jstyle=Replace_Text(Request.Form("Jstyle"))
		Jcolor_Width=Replace_Text(Request.Form("Jcolor_Width"))
		Jcolor_Height=Replace_Text(Request.Form("Jcolor_Height"))
		Jcolor_sx=Replace_Text(Request.Form("Jcolor_sx"))
		Jcolor_zy=Replace_Text(Request.Form("Jcolor_zy"))
		Jfamily=Replace_Text(Request.Form("Jfamily"))
		nowColor=Replace_Text(Request.Form("nowColor"))
		Jsize=Replace_Text(Request.Form("Jsize"))
		Jpic_Width=Replace_Text(Request.Form("Jpic_Width"))
		Jpic_Heigh=Replace_Text(Request.Form("Jpic_Heigh"))
		Choose=Replace_Text(Request.Form("Choose"))
		Transparent=Replace_Text(Request.Form("Transparent"))
		Automati=Replace_Text(Request.Form("Automati"))
		Custom=Replace_Text(Request.Form("Custom"))
		'------------------------------
		 if shuxin =""  then
          shuxin=0
          else
          shuxin=1
          end if
		 if Transparent="" then 
		 Transparent=0
		 end if
		 if Automati="" then
		 Automati=0
		 end if
		 if Custom="" then 
		 Custom=0
		 end if
		  if showt="" then 
		  showt=0
		 end if
		  if cYanNum =""then
		  	cYanNum=0
			end if
 		If Not Isnumeric(indextime) Then
		 indextime=0
		End If
		If Not Isnumeric(kindtime) Then
		  kindtime=0
		End If
		If Not Isnumeric(foldersize) Then
		  foldersize=500
		End If
  		sql="select top 1 * from Websen_worldec_config"
		Set rs= Server.CreateObject("ADODB.Recordset") 
		rs.Open sql,conn,1,3
		If Not rs.Eof Then
		 rs("is2weburl")=Replace_Text(Request("is2weburl"))
		 rs("Verification")=request("Verification")
		 rs("isblog")=Replace_Text(Request("isblog"))
		 rs("weboff_on")=weboff_on
		 rs("forum_setting")=forum_setting
		rs("Stopreadme")=Stopreadme
 		rs("WebName")=WebName
		rs("WebUrl")=WebUrl 
		rs("WebUrl1")=WebUrl1 
		rs("lujing")=lujing
		rs("weburl2")=weburl2
		rs("userweb")=userweb 
		rs("SMTPServer")=SMTPServer
		rs("SystemEmail")=SystemEmail
		rs("Systemtel")=Systemtel
		rs("hottel")=hottel
		rs("hotfax")=hotfax
		rs("worldname")=worldname
		rs("Company")=Company
		rs("add")=add
		rs("yb")=yb
		rs("worldecfuwu")=worldecfuwu 
		rs("yhzh")=yhzh
		rs("bank")=bank
		rs("PicUrl")=PicUrl
		rs("LinkUrl")=LinkUrl
		rs("newspic")=newspic
		rs("bizrepic")=bizrepic
		rs("citypingname")=citypingname
		rs("citysql")=citysql
		rs("cityscakey")=cityscakey
		rs("cityzhkey")=cityzhkey
		rs("cityjobzpkey")=cityjobzpkey
		rs("citycpkey")=citycpkey
		rs("vipbs")=vipbs
		rs("rzjg")=rzjg
		rs("weblogo")=weblogo
		rs("shoplogo")=shoplogo
		rs("search")=search
		rs("filesys")=filesys
		rs("HOPE_Emailuser")=HOPE_MailUser
		rs("HOPE_EmailPwd")=HOPE_MailPwd
		rs("indextime")=indextime
		rs("kindtime")=kindtime
 	    rs("cpmark")=cpmark
		rs("zhmark")=zhmark
		rs("sjmark")=sjmark
		rs("ppmark")=ppmark
		rs("zxmark")=zxmark
		rs("markct")=markct
		rs("wentiname")=wentiname
		rs("wentidaan")=wentidaan
		rs("shuxin")=shuxin
		rs("cYanNum")=cYanNum
		rs("autozz")=autozz
		rs("EmailInfo")=EmailInfo
		rs("EmailTitle")=EmailTitle
		rs("Watermark")=showt
	rs.Update
	rs.Close
	set rs=Nothing
	Set rs= Server.CreateObject("ADODB.Recordset") 
	if Watermark="1" then 
	sqs="select top 1 * from websen_Watermark"
	rs.Open sqs,conn,1,3
	If Not rs.Eof Then
	rs("UploadSetting")=UploadSetting
	rs("Uploadjpg")=Uploadjpg
	rs("Jstyle")=Jstyle
	rs("Jcolor_Width")=Jcolor_Width
	rs("Jcolor_Height")=Jcolor_Height
	rs("Jcolor_sx")=Jcolor_sx
	rs("Jcolor_zy")=Jcolor_zy
	rs("Jfamily")=Jfamily
	rs("nowColor")=nowColor
	rs("Jsize")=Jsize
	rs("Jpic_Width")=Jpic_Width
	rs("Jpic_Heigh")=Jpic_Heigh
	rs("Transparent")=Transparent
	rs("Choose")=Choose
	rs("Automati")=Automati
	rs("Custom")=Custom
	rs.Update
	else
	rs.addnew
	rs("UploadSetting")=UploadSetting
	rs("Uploadjpg")=Uploadjpg
	rs("Jstyle")=Jstyle
	rs("Jcolor_Width")=Jcolor_Width
	rs("Jcolor_Height")=Jcolor_Height
	rs("Jcolor_sx")=Jcolor_sx
	rs("Jcolor_zy")=Jcolor_zy
	rs("Jfamily")=Jfamily
	rs("nowColor")=nowColor
	rs("Jsize")=Jsize
	rs("Jpic_Width")=Jpic_Width
	rs("Jpic_Heigh")=Jpic_Heigh
	rs("Transparent")=Transparent
	rs("Choose")=Choose
	rs("Automati")=Automati
	rs("Custom")=Custom
	rs.Update
	end if
	rs.close
	end if
	
	End If
	conn.Close
	Set conn=Nothing

   call EditorUpDir
    Response.Write"<form name=form><table cellpadding=2 cellspacing=1 border=0 width=400 class=tableBorder align=center>"
	Response.Write"<TR>"
	Response.Write"<TH class=tableHeaderText colSpan=2 height=25>保存网站信息</TH><input name='checkbox' type='checkbox' style='display:none'><div  id='rowTest' style='display:none' ></div>"
	Response.Write"<TR><tr><td height=85 valign=top ><div align=center><br><br>网站配置保存成功！</div></td></tr>"
	Response.Write"<tr align=center><td height=30 Highlight><a href='admin_setting.asp'>&lt;&lt; 返回上一页</a></td>"
	Response.Write"</tr>"
	Response.Write"</table></form>"
	Response.Write"<br><br>"
	End If
%>

<%
'本过程是对在线编辑器的上传图片的路径的设置
Sub EditorUpDir()
    Set oConn = Server.CreateObject("ADODB.Connection")
 	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("../editor/db/#Websenedit.mdb")
	  	If Err.Number > 0 Then
        On Error Resume Next
		Err.clear
	End If
    'urlup=weburl2&"UploadFile/editpic/"
	urlup=weburl2&"UploadFile/"
    oConn.Execute "update Websen_eWebEditor_Style set S_UploadDir='"&urlup&"'"
    oConn.Close
End Sub

%>
<%rss.close%>
</body>
</html>
<!--#include file="copy.asp"-->