classedit.asp

asp源码 图片ASP整站

	  </td>
  </tr>
</table>
    <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#E3E3E3">
      <tr bgcolor="#FFFFFF"> 
        <td width="100" height="26"> 
          <div align="center">中文名称</div></td>
        <td> 
          <div align="center"> 
            <input value="<% = ClassCName %>" name="ClassCName" type="text" id="ClassCName2" style="width:100%;">
          </div></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">英文名称</div></td>
        <td> 
          <div align="center"> 
            <input value="<% = ClassEName %>" readonly name="ClassEName" type="text" id="ClassEName" style="width:100%;">
          </div></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">父栏目</div></td>
        <td> 
          <div align="center"> 
            <input readonly value="<% = ParentIDStr %>" style="width:100%;" type="text" name="textfield3">
          </div></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">捆绑域名</div></td>
        <td nowrap> 
          <input <% = DoMainDisabledStr %> type="text" name="DoMain" style="width:100%;" value="<% = DoMain %>"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">浏览权限</div></td>
        <td nowrap> 
          <select name="BrowPop" id="select3" style="width:100%" onChange="CheckFileExtName(this);">
            <option value="" <%if BrowPop = 0 then Response.Write("selected")%>> 
            </option>
            <%
			Dim BrowPopObj
			Set BrowPopObj= New Cls_User
			Response.Write BrowPopObj.UserGroups("PopLevel",BrowPop)
			Set BrowPopObj = Nothing		
			%>
          </select></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">扩展名</div></td>
        <td nowrap> 
          <select name="FileExtName" style="width:100%;">
            <option value="htm" <%if FileExtName = "htm" then Response.Write("selected")%>>htm</option>
            <option value="html" <%if FileExtName = "html" then Response.Write("selected")%>>html</option>
            <option value="shtml" <%if FileExtName = "shtml" then Response.Write("selected")%>>shtml</option>
            <option value="asp" <%if FileExtName = "asp" then Response.Write("selected")%>>asp</option>
          </select></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">栏目模板</div></td>
        <td nowrap> 
          <div align="left"> 
            <input readonly value="<% = ClassTemp %>" type="text" style="width:78%;" name="ClassTemp">
            <input type="button" name="Submit" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.ClassForm.ClassTemp);document.ClassForm.ClassTemp.focus();">
          </div></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">捆绑新闻模板</div></td>
        <td nowrap> 
          <input readonly value="<% = NewsTemp %>" type="text" style="width:78%;" name="NewsTemp"> 
          <input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.ClassForm.NewsTemp);document.ClassForm.NewsTemp.focus();"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">捆绑下载模板</div></td>
        <td nowrap> 
          <input type="text" style="width:78%;" name="DownLoadTemp" value="<% = DownLoadTemp %>" readonly> 
          <input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.ClassForm.DownLoadTemp);document.ClassForm.DownLoadTemp.focus();"></td>
      </tr>
      <tr bgcolor="#FFFFFF" <%if HaveValueTF = False then response.Write("style=""display:none""")%>> 
        <td height="26"> 
          <div align="center">捆绑商品模板</div></td>
        <td nowrap> 
          <input type="text" style="width:78%;" name="ProductTemp" value="<% = ProductTemp %>" readonly> 
          <input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.ClassForm.ProductTemp);document.ClassForm.ProductTemp.focus();"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">保存路径</div></td>
        <td nowrap> 
          <input readonly type="text" style="width:78%;" value="<% = RsClassEditObj("SaveFilePath") %>" name="SaveFilePath"> 
          <input type="button" name="Submit4" value="选择路径" onClick="OpenWindowAndSetValue('../../FunPages/SelectPathFrame.asp?CurrPath=<%=sRootDir %>/<% = ClassDir %>',400,300,window,document.ClassForm.SaveFilePath);document.ClassForm.SaveFilePath.focus();"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">添加日期</div></td>
        <td nowrap> 
          <input readonly value="<% = AddTime %>" type="text" style="width:78%;" name="AddTime"> 
          <input type="button" name="Submit3" value="选择日期" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.ClassForm.AddTime);document.ClassForm.AddTime.focus();"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">附加参数</div></td>
        <td nowrap> 
          <input onClick="CheckHaveContTF(this);" name="Contribution" haveconttf="<% = HaveContTF %>" type="checkbox" id="Contribution2" value="1" <% if Contribution = 1 then Response.Write("checked") %>>
          允许投稿 &nbsp;&nbsp;&nbsp;&nbsp; <input name="ShowTF" type="checkbox" id="ShowTF2" value="1" <% if ShowTF = 1 then Response.Write("checked") %>>
          前台显示&nbsp;&nbsp;&nbsp;&nbsp; 栏目排序 
          <input name="Orders" type="text" size="5" maxlength="4" value="<% = Orders %>">
          新闻归档时间（数字） 
          <input name="FileTime" type="text" value="<% if FileTime = "" then Response.Write("100") else Response.Write(FileTime)%>" size="5" maxlength="3">
          天 　
</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">默认转向到</div></td>
        <td nowrap> 
          <select name="RedirectList" id="RedirectList" style="width:100%;">
            <option value="1" <% if RedirectList = 1 then  Response.Write("Selected")%>>新闻列表</option>
            <option value="2" <% if RedirectList = 2 then  Response.Write("Selected")%>>下载列表</option>
            <%if HaveValueTF = True then%>
            <option value="3" <% if RedirectList = 3 then  Response.Write("Selected")%>>商品列表</option>
            <%End if%>
          </select></td>
      </tr>
    </table>
</form>
</div>
<div dwcopytype="CopyTableRow" id="OutClass" <%=StrOutClass%>>
<form action="" method="post" name="OutClassForm">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
  <tr bgcolor="#EEEEEE"> 
    <td height="26" colspan="5" valign="middle">
      <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
        <tr>
		      <td width=35 align="center" alt="保存" onClick="OutOK();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
		  <td width=2 class="Gray">|</td>
		  <td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
		  <td>&nbsp; </td>
        </tr>
      </table>
	  </td>
  </tr>
</table>
    <table width="100%"  border="0" cellpadding="3" cellspacing="1" bgcolor="#E3E3E3">
      <tr bgcolor="#FFFFFF"> 
        <td width="100" height="26"> 
          <div align="center">栏目名称</div></td>
        <td> 
          <input name="ClassName" type="text" id="Name" style="width:100%" value="<% = ClassCName %>"></td>
    </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">链接地址</div></td>
        <td> 
          <input name="ClassLink" type="text" id="Link" style="width:100%" value="<%=StrClassLink%>"></td>
    </tr>
      <tr bgcolor="#FFFFFF"> 
        <td height="26"> 
          <div align="center">附加参数</div></td>
        <td> 
          <input name="ClassID" value="<% = ClassID %>" type="hidden" id="ClassID2"> 
        <input name="ShowTF" type="checkbox" id="ShowTF2" value="1" <% if ShowTF = 1 then Response.Write("checked") %>>
        前台显示 &nbsp;&nbsp;&nbsp;&nbsp;栏目排序 <input name="Result" type="hidden" id="Result" value="OutClass"> 
        <input name="OutOrders" type="text" size="5" maxlength="4" value="<%=Orders%>">
      </td>
    </tr>
</table>
</form>
</div>
</body>
</html>
<%
Set Conn = Nothing
Set RsClassEditObj = Nothing
Set UserConn = Nothing
Set Conn = Nothing
Function Alert(InfoStr)
%>
<script language="JavaScript">
alert('<% = InfoStr %>');
history.back();
window.close();
</script>
<%
End Function
%>
<script language="JavaScript">
function CheckHaveContTF(Obj)
{
	if (Obj.HaveContTF=='True')
	{
		alert('此栏目中有投稿，不能修改此属性');
		Obj.checked=true;
	}
}
</script>
<script language="JavaScript">
CheckFileExtName(document.all.BrowPop);
function InOK()
{
	if (CheckEnglishStr(document.ClassForm.ClassEName,'英文名称')==true)
	{//2006-4-27
		if (document.ClassForm.ClassCName.value.length>49)
		{
			alert('栏目中文名称长度应大于0小于50');
			document.ClassForm.ClassCName.focus();
		}
		else
			document.ClassForm.submit();//====================
	}
}
function OutOK()
{
	if (document.OutClassForm.ClassName.value=='') {alert('填写栏目中文名称');document.OutClassForm.ClassName.focus();return;}
	if (document.OutClassForm.ClassLink.value=='') {alert('填写栏目连接地址');document.OutClassForm.ClassLink.focus();return;}
	document.OutClassForm.submit();
}
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.disabled=true;
	}
	else
	{
		document.all.FileExtName.disabled=false;
	}
}
</script>