class_add.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

</table>
  <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table"  id="InUrl" style="<%if int_IsURL = 1 then%>display:none<%else%>display:<%end if%>">
    <tr id="InUrl1" style="dispay:"> 
      <td width="23%" class="hback"><div align="right">栏目英文名称：</div></td>
      <td width="77%" class="hback"><input name="ClassEName" type="text" id="ClassEName" size="40" maxlength="50" value="<% =str_ClassEName_add%>" <%if Request.QueryString("Action")="edit" then response.Write("Readonly")%>> 
        <span class="tx"> *<br>
        3-50个字符,必须是字母，数字，中划线，下划线,@,.，一旦确认,将不能修改</span></td>
    </tr>
    <tr id="InUrl2" style="dispay:"> 
      <td class="hback"><div align="right">栏目模板地址：</div></td>
      <td class="hback"><input name="Templet" type="text" id="Templet" value="<% = str_Templet %>" size="50" maxlength="250" readonly> 
        <input type="button" name="Submit" value="选择模板" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.ClassForm.Templet);document.ClassForm.Templet.focus();"> 
        <span class="tx"> *250个字符</span></td>
    </tr>
    <tr id="InUrl3" style="dispay:"> 
      <td class="hback"><div align="right">下载模板地址：</div></td>
      <td class="hback"><input name="NewsTemplet" type="text" id="NewsTemplet" value="<% = str_NewsTemplet %>" size="50" maxlength="250" readonly> 
        <input type="button" name="Submit2"  value="选择模板" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.ClassForm.NewsTemplet);document.ClassForm.NewsTemplet.focus();"> 
        <span class="tx"> *250个字符</span></td>
    </tr>
    <tr id="InUrl4" style="dispay:"> 
      <td class="hback"><div align="right">捆绑域名：</div></td>
      <td class="hback"><input name="Domain" type="text" id="Domain" size="40" maxlength="150" value="<% = str_Domain %>"  <%if len(Trim(str_Domain))>=6 then Response.Write("readonly")%>>
        <span class="tx">150个字符,请填写正确的域名</span></td>
    </tr>
    <tr id="InUrl5" style="dispay:"> 
      <td class="hback"><div align="right">管理员：</div></td>
      <td class="hback"> <SELECT name="ClassAdmin" id="ClassAdmin">
          <%
			Dim obj_AdminList_Rs
			set obj_AdminList_Rs = Conn.Execute("Select Admin_Name,Admin_Real_Name from FS_MF_Admin Where Admin_Parent_Admin='"&Session("Admin_Name")&"' or Admin_Name='"&Session("Admin_Name")&"' order by ID asc")
			If not obj_AdminList_Rs.eof Then
				if lng_AdminID = obj_AdminList_Rs("Admin_Name") then
					Response.Write "<OPTION value=""" & obj_AdminList_Rs("Admin_Name") & """ selected>管理员帐号：" & obj_AdminList_Rs("Admin_Name") & "　管理员姓名：" & obj_AdminList_Rs("Admin_Real_Name") & "</OPTION>"
				Else
					Response.Write "<OPTION value=""" & obj_AdminList_Rs("Admin_Name") & """>管理员帐号：" & obj_AdminList_Rs("Admin_Name") & "　管理员姓名：" & obj_AdminList_Rs("Admin_Real_Name") & "</OPTION>"
				End if
				obj_AdminList_Rs.MoveNext
			End If
			Do while not obj_AdminList_Rs.eof
				if lng_AdminID = obj_AdminList_Rs("Admin_Name") then
					Response.Write "<OPTION value=""" & obj_AdminList_Rs("Admin_Name") & """ selected>管理员帐号：" & obj_AdminList_Rs("Admin_Name") & "　管理员姓名：" & obj_AdminList_Rs("Admin_Real_Name") & "</OPTION>"
				Else
					Response.Write "<OPTION value=""" & obj_AdminList_Rs("Admin_Name") & """>管理员帐号：" & obj_AdminList_Rs("Admin_Name") & "　管理员姓名：" & obj_AdminList_Rs("Admin_Real_Name") & "</OPTION>"
				End if
				obj_AdminList_Rs.Movenext
			Loop
			obj_AdminList_Rs.Close
			Set obj_AdminList_Rs = Nothing
			%>
        </SELECT> <span class="tx">管理员必须选择<a href="../../help?Lable=NS_Class_Admin" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></span>　 
      </td>
    </tr>
    <tr id="InUrl6" style="dispay:"> 
      <td class="hback"><div align="right">浏览会员组：</div></td>
      <td class="hback"> <input name="BrowPop"  id="BrowPop" type="text" value="<% = lng_GroupID %>" onMouseOver="this.title=this.value;" readonly> 
        <select name="selectPop" id="selectPop" style="overflow:hidden;" onChange="ChooseExeName();">
          <option value="" selected>选择会员组</option>
          <option value="del" style="color:red;">清空</option>
          <% = MF_GetUserGroupID %>
        </select>
        需要点数 
        <input name="PointNumber" type="text" id="PointNumber" size="8" maxlength="5" value="<% = lng_PointNumber %>"  onChange="ChooseExeName();">
        需要金币 
        <input name="Money" type="text" id="Money" size="8" maxlength="5" value="<% = flt_Money %>"  onChange="ChooseExeName();"></td>
    </tr>
    <tr id="InUrl7" style="dispay:"> 
      <td class="hback"><div align="right">静态文件扩展名：</div></td>
      <td class="hback"><select name="FileExtName" id="FileExtName">
          <option value="html" <% if  Trim(str_FileExtName) = "html"  then response.Write("selected")%>>.html</option>
          <option value="htm" <% if  Trim(str_FileExtName) = "htm"  then response.Write("selected")%>>.htm</option>
          <option value="shtml" <% if  Trim(str_FileExtName) = "shtml"  then response.Write("selected")%>>.shtml</option>
          <option value="shtm" <% if  Trim(str_FileExtName)= "shtm"  then response.Write("selected")%>>.shtm</option>
          <option value="asp" <% if  Trim(str_FileExtName) = "asp"  then response.Write("selected")%>>.asp</option>
        </select> <span class="tx"> *如果需要阅读权限，必须设置为.asp</span></td>
    </tr>
    <tr id="InUrl8" style="dispay:"> 
      <td class="hback"><div align="right">是否允许投稿：</div></td>
      <td class="hback"><input name="isConstr" type="checkbox" id="isConstr" value="1" <%if int_isConstr = 1 Then response.Write("checked")%>>
        　　　会员投稿是否允许删除 
        <input name="isConstrDel" type="checkbox" id="isConstrDel" value="1"  <%if int_isConstrDel = 1 Then response.Write("checked")%>>
        是</td>
    </tr>
    <tr id="InUrl10" style="dispay:"> 
      <td class="hback"><div align="right">栏目首页保存模式：</div></td>
      <td class="hback"><select name="FileSaveType" id="FileSaveType">
          <option value="0" <%if str_FileSaveType = 0 Then response.Write("selected")%>>栏目英文/index.html</option>
          <option value="1" <%if str_FileSaveType = 1 Then response.Write("selected")%>>栏目英文/栏目英文.html</option>
          <option value="2" <%if str_FileSaveType = 2 Then response.Write("selected")%>>栏目英文.html</option>
        </select> <span class="tx"> *</span></td>
    </tr>
    <tr id="InUrl11" style="dispay:"> 
      <td class="hback"><div align="right">栏目保存路径：</div></td>
      <td class="hback"><input name="SavePath" type="text" id="SavePath" value="<%=str_SavePath%>" size="40" maxlength="255" readonly> 
        <%if Request.QueryString("Action")="add" then%> <INPUT type="button"  name="Submit4" value="选择路径" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPathFrame.asp?CurrPath=<%=sRootDir & str_DownDir%>',320,280,window,document.ClassForm.SavePath);document.ClassForm.SavePath.focus();"> 
        <%End if%>
        <span class="tx"> *<br>
        一旦填写将不能修改;如果选择了二级域名，请存放在下载目录的根目录</span></td>
    </tr>
    <tr id="InUrl11" style="dispay:"> 
      <td class="hback"><div align="right">自定义选择：</div></td>
      <td class="hback"> <select name="DefineID" id="DefineID">
          <option value="0" selected>选择自定义分类</option>
          <% = Fs_Down.GetDefineClassId%>
        </select> </td>
    </tr>
    <tr id="InUrl11" style="dispay:"> 
      <td class="hback"><div align="right">下载需要审核：</div></td>
      <td class="hback"><input name="NewsCheck" type="checkbox" id="NewsCheck" value="1" <%if int_NewsCheck = 1 then response.Write("checked")%>>
        需要审核</td>
    </tr>
    <tr id="InUrl11" style="dispay:"> 
      <td class="hback"><div align="right">栏目META关键字：</div></td>
      <td class="hback"><textarea name="ClassKeywords" style="width:80%" rows="5" id="ClassKeywords"><% = str_ClassKeywords %></textarea> 
        <span class="tx"><br>
        最多200个字符,用户搜索引擎搜索，可以提高栏目被搜索引擎搜索收录的机会</span></td>
    </tr>
    <tr id="InUrl11" style="dispay:"> 
      <td class="hback"><div align="right">栏目META描述：</div></td>
      <td class="hback"><textarea name="Classdescription"  style="width:80%" rows="5" id="Classdescription"><% = str_Classdescription %></textarea> 
        <span class="tx"><br>
        最多200个字符,用户搜索引擎搜索，可以提高栏目被搜索引擎搜索收录的机会</span></td>
    </tr>
    <tr id="InUrl11" style="dispay:"> 
      <td class="hback"><div align="right"> 多少天后归档：</div></td>
      <td class="hback"><input  name="Oldtime" type="text" id="Oldtime" value="<% = lng_Oldtime %>" size="40"></td>
    </tr>
    <tr id="InUrl11" style="dispay:">
      <td class="hback"><div align="right">发布最新多少条信息</div></td>
      <td class="hback"><input  name="RefreshNumber" type="text" id="RefreshNumber" value="<% = int_RefreshNumber %>" size="40">
        <span class="tx">如果为0则不限制</span></td>
    </tr>
  </table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
    <tr> 
      <td width="23%" height="21" class="hback"><div align="right">添加日期：</div></td>
      <td width="78%" height="21" class="hback"><input  name="Addtime" type="text" id="Addtime" value="<% = dtm_Addtime %>" size="40"></td>
    </tr>
    <tr> 
      <td height="22" class="hback"><div align="right">是否在导航中显示：</div></td>
      <td height="22" class="hback"><input name="isShow" type="checkbox" id="isShow" value="1" <% if int_isShow = 1 then response.Write("checked") %>></td>
    </tr>
    <tr> 
      <td height="21" class="hback"><div align="right">栏目导航说明：</div></td>
      <td height="21" class="hback"><textarea name="ClassNaviContent"  style="width:80%" rows="6" id="ClassNaviContent"><% = str_ClassNaviContent%></textarea></td>
    </tr>
    <tr> 
      <td height="21" class="hback"><div align="right">栏目导航图片：</div></td>
      <td height="21" class="hback"><input name="ClassNaviPic" type="text" id="ClassNaviPic" value="<% = str_ClassNaviPic%>" size="40">
        <input type="button" name="PPPChoose"  value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath%>',500,300,window,document.ClassForm.ClassNaviPic);"></td>
    </tr>
    <tr> 
      <td height="21" class="hback"><div align="right">排列权重：</div></td>
      <td height="21" class="hback"><input name="OrderID" type="text" id="OrderID" value="<% = lng_OrderID%>" size="40"></td>
    </tr>
    <tr> 
      <td height="21" class="hback"><div align="right"></div></td>
      <td height="21" class="hback"><input type="button" name="Submit4222" value="保存栏目" onClick="{if(confirm('确认保存您的栏目信息吗?')){this.document.ClassForm.submit();return true;}return false;}"> 
        <input type="reset" name="Submit5222" value="重置">
        <input name="str_add" type="hidden" id="str_add" value="<% = Request.QueryString("Action")%>"></td>
    </tr>
</table>
</form>
</body>
</html>
<%
set Fs_Down = nothing
%>
<SCRIPT language="JavaScript">
var DocumentReadyTF=false;
function document.onreadystatechange()
{
	ChooseExeName();
}
function ChooseExeName()
{
  var ObjValue = document.ClassForm.selectPop.options[document.ClassForm.selectPop.selectedIndex].value;
  if (ObjValue!='')
  {
	if (document.ClassForm.BrowPop.value=='')
		document.ClassForm.BrowPop.value = ObjValue;
	else if(document.ClassForm.BrowPop.value.indexOf(ObjValue)==-1)
		document.ClassForm.BrowPop.value = document.ClassForm.BrowPop.value+","+ObjValue;
	if (ObjValue=='del')
  		document.ClassForm.BrowPop.value ='';
  }
   CheckNumber(document.ClassForm.PointNumber,"浏览扣点值");
  if (document.ClassForm.PointNumber.value>32767||document.ClassForm.PointNumber.value<-32768||document.ClassForm.PointNumber.value=='0')
	{
		alert('浏览扣点值超过允许范围！\n最大32767，且不能为0');
		document.ClassForm.PointNumber.value='';
		document.ClassForm.PointNumber.focus();
	}
   CheckNumber(document.ClassForm.Money,"浏览金币值");
  if (document.ClassForm.Money.value>32767||document.ClassForm.Money.value<-32768||document.ClassForm.Money.value=='0')
	{
		alert('浏览金币值超过允许范围！\n最大32767，且不能为0');
		document.ClassForm.Money.value='';
		document.ClassForm.Money.focus();
	}
  if (document.ClassForm.BrowPop.value!=''||document.ClassForm.PointNumber.value!=''||document.ClassForm.Money.value!=''){document.ClassForm.FileExtName.options[4].selected=true;document.ClassForm.FileExtName.readonly=true;}
  else {document.ClassForm.FileExtName.readonly=false;}
}

function CheckFileExtName(Obj)
{
	if (Obj.value!='')
	{
		for (var i=0;i<document.all.FileExtName.length;i++)
		{
			if (document.all.FileExtName.options(i).value=='asp') document.all.FileExtName.options(i).selected=true;
		}
		document.all.FileExtName.readonly=true;
	}
	else
	{
		document.all.FileExtName.readonly=false;
	}
}
</SCRIPT>