📄 classadd.asp
字号:
<td> <div align="center">
<input value="<% = Request("ClassEName") %>" name="ClassEName" type="text" id="ClassEName" style="width:100%;">
</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align="center"> 父 栏 目</td>
<td> <input readonly value="<% = ParentCName %>" style="width:100%;" type="text" name="textfield3">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align="center"> 捆绑域名</td>
<td nowrap> <input <% = DoMainDisabledStr %> type="text" name="DoMain" style="width:100%;" value="<% = DoMain %>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align="center"> 浏览权限</td>
<td nowrap> <select name="BrowPop" id="BrowPop" style="width:100%" onChange="CheckFileExtName(this);">
<option value="" <%if Request("BrowPop")="" then Response.Write("selected")%>>
</option>
<%
Dim BrowPopObj
Set BrowPopObj= New Cls_User
Response.Write BrowPopObj.UserGroups("PopLevel","")
Set BrowPopObj = Nothing
%>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align="center">扩 展 名</td>
<td align="left" nowrap> <select name="FileExtName" style="width:100%;">
<option value="htm">htm</option>
<option value="html" selected>html</option>
<option value="shtml">shtml</option>
<option value="asp">asp</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align="center">栏目模板</td>
<td align="left" nowrap> <input name="ClassTemp" type="text" style="width:78%;" value="/<% = TempletDir %>/NewsClass/class.htm" readonly>
<input type="button" name="Submit" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.InClassForm.ClassTemp);document.InClassForm.ClassTemp.focus();">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align="center">捆绑新闻模板</td>
<td align="left" nowrap> <input type="text" style="width:78%;" name="NewsTemp" value="/<% = TempletDir %>/NewsClass/news.htm" readonly>
<input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.InClassForm.NewsTemp);document.InClassForm.NewsTemp.focus();"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align="center"> 捆绑下载模板</td>
<td align="left" nowrap> <input type="text" style="width:78%;" name="DownLoadTemp" value="/<% = TempletDir %>/Down/DownShow.htm" readonly>
<input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.InClassForm.DownLoadTemp);document.InClassForm.DownLoadTemp.focus();"></td>
</tr>
<tr bgcolor="#FFFFFF" <%if HaveValueTF = False then response.Write("style=""display:none""")%>>
<td height="26" align="center"> 捆绑商品模板</td>
<td align="left" nowrap> <input type="text" style="width:78%;" name="ProductTemp" value="/<% = TempletDir %>/Mall/Product.htm" readonly>
<input type="button" name="Submit2" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=sRootDir %>/<% = TempletDir %>',400,300,window,document.InClassForm.ProductTemp);document.InClassForm.ProductTemp.focus();"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" align="center"> 保存路径</td>
<td align="left" nowrap> <input readonly value="/<% = ClassDir %>" type="text" style="width:78%;" name="SaveFilePath">
<input type="button" <% =SelectPathBtnDisabledStr %> name="Submit" value="选择路径" onClick="OpenWindowAndSetValue('../../FunPages/SelectPathFrame.asp?CurrPath=<%=sRootDir %>/<% = ClassDir %>',400,300,window,document.InClassForm.SaveFilePath);document.InClassForm.SaveFilePath.focus();">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26"> <div align="center">添加日期</div></td>
<td> <div align="left">
<input readonly value="<%If Request("AddTime")="" then Response.Write(Now()) else Response.Write(Request("AddTime")) %>" type="text" style="width:78%;" name="AddTime">
<input name="sdaf" type="button" id="sdaf" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,120,window,document.InClassForm.AddTime);document.InClassForm.AddTime.focus();" value="选择日期">
</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26"> <div align="center">附加参数</div></td>
<td> <input name="Contribution" type="checkbox" id="Contribution2" value="1" <% if Request("Contribution") = 1 then Response.Write("checked") %>>
允许投稿 <input name="ShowTF" type="checkbox" id="ShowTF2" value="1" checked <% if Request("ShowTF") = 1 then Response.Write("checked") %>>
前台显示 栏目排序
<input name="Orders" type="text" size="5" maxlength="4">
新闻归档时间（数字）
<input name="FileTime" type="text" value="<% if Request("FileTime") = "" then Response.Write("100") else Response.Write(Request("FileTime"))%>" size="5" maxlength="3">
天
</td>
<tr bgcolor="#FFFFFF">
<td height="26"><div align="center">默认转向到</div></td>
<td><select name="RedirectList" id="RedirectList" style="width:100%;">
<option value="1" selected>新闻列表</option>
<option value="2">下载列表</option>
<%if HaveValueTF = True then%>
<option value="3">商品列表</option>
<%End if%>
</select></td>
</table>
</form>
</div>
<div dwcopytype="CopyTableRow" id="OutClass" style="display:none;">
<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> <input name="Result" type="hidden" id="Result" value="OutClass">
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#E3E3E3">
<tr bgcolor="#FFFFFF">
<td width="110" height="26">
<div align="center">栏目名称</div></td>
<td>
<input name="ClassName" type="text" id="Name" style="width:100%" value=""></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=""></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26">
<div align="center">附加参数</div></td>
<td>
<input name="ShowTF" type="checkbox" id="ShowTF2" value="1" checked <% if Request("ShowTF") = 1 then Response.Write("checked") %>>
前台显示 栏目排序
<input name="Orders" type="text" size="5" maxlength="4">
</td>
</tr>
</table>
</form>
</div>
<table width="100%" height="26" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="5" height="2"></td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="26"> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#999999">
<tr>
<td bgcolor="#EFEFEF">
<table width="100%" height="24" border="0" cellpadding="5" cellspacing="1">
<tr>
<td width="14%" align="left" alt="添加普通栏目" onClick="InClass.style.display='';OutClass.style.display='none';TempShowMenu.style.display='none';IsOutImg.src='../images/r.gif';IsInImg.src='../images/u.gif';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut"><div align="center">添加普通栏目</div></td>
<td width="86%"><div align="right"><img id="IsInImg" src="../images/r.gif" width="20" height="20"></div></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table>
<table width="100%" height="26" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="5" height="2"></td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="26"> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#999999">
<tr>
<td bgcolor="#EFEFEF">
<table width="100%" height="24" border="0" cellpadding="5" cellspacing="1">
<tr>
<td width="14%" align="left" alt="添加外部栏目" onClick="InClass.style.display='none';OutClass.style.display='';TempShowMenu.style.display='none';IsOutImg.src='../images/u.gif';IsInImg.src='../images/r.gif';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut"><div align="center">添加外部栏目</div></td>
<td width="86%"><div align="right"><img id="IsOutImg" src="../images/r.gif" width="20" height="20"></div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
Set Conn = Nothing
Sub Alert(InfoStr)
%>
<script language="JavaScript">
alert('<% = InfoStr %>');
history.back();
window.close();
</script>
<%
End Sub
%>
<script language="JavaScript">
function InOK()
{//2006-4-27
if (document.InClassForm.ClassCName.value==''||document.InClassForm.ClassCName.value.length>49) {alert('填写符合要求的中文名称\n（长度大于0小于50）');document.InClassForm.ClassCName.focus();return;}
if (document.InClassForm.ClassEName.value==''||document.InClassForm.ClassEName.value.length>49) {alert('填写符合要求的英文名称\n（长度大于0小于50）');document.InClassForm.ClassEName.focus();return;}
//=============
if (CheckEnglishStr(document.InClassForm.ClassEName,'英文名称')==true)
{
document.InClassForm.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 OK()
{
alert('请先选择你要添加的栏目的类型');
return;
}
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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -