📄 admin_list.asp
字号:
<HTML>
<HEAD>
<% dim bxg
bxg="不使用下拉菜单"
%>
<!--#include file="Admin_top.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width=210 bgColor=#f3f3f3>
<div align="center">
<!--#include file="Admin_left.asp"-->
</div>
</TD>
<TD width=1 bgColor=#0033CC></TD>
<TD valign="top">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE width="98%" height=30 border=0 cellPadding=0 cellSpacing=0 bgcolor="#0033CC">
<TBODY>
<TR>
<TD> <strong><font color="#FFFFFF">反馈表单设置</font></strong></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<div align="center">
<TABLE width=98% border=1 cellPadding=5 cellSpacing=0 bordercolor="#0033CC"
bgColor=#cdcdcd>
<TBODY>
<TR bgColor=#fafafa>
<TD height="144" valign="top">
<div align=center>
<table width="100%" align="center" >
<tr>
<td height="25" bgcolor="#f0f0f0"><p><font color="#FF0000">说明：1、每修改一组字段请及时保存！2、序号16-20为备注型字段，如果不启用相应字段的下拉菜单，即输入信息无最大字数限制。</font></p> </td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td width="5%" height="25" bgcolor="#CDCDCD"><div align="center"><strong>序号</strong></div></td>
<td width="30%" bgcolor="#CDCDCD"><div align="center"><strong>字段名称</strong></div></td>
<td width="10%" bgcolor="#CDCDCD"><div align="center"><strong>表单排序</strong></div></td>
<td width="10%" bgcolor="#CDCDCD"><div align="center"><strong>是否启用</strong></div></td>
<td width="10%" bgcolor="#CDCDCD"><div align="center"><strong>是否必填</strong></div></td>
<td width="12%" bgcolor="#CDCDCD"><div align="center"><strong>是否下拉菜单</strong></div></td>
<td width="13%" bgcolor="#CDCDCD"><div align="center"><strong>下拉菜单设置</strong></div></td>
<td width="10%" bgcolor="#CDCDCD"><div align="center"><strong>保存修改</strong></div></td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from list"
Rs.Open sql,conn,1,3
If not rs.eof then
Rs.pagesize=20
Rs.AbsolutePage=pagecount
do while not Rs.eof
j=j+1
%><form name="form" method="post" action="Admin_Action.asp?Action=16&id=<%=Rs("listid")%>">
<tr>
<td height="25" bgcolor="#F0F0F0"><div align="center"><%=Rs("listid")%></div></td>
<td bgcolor="#F0F0F0">
<div align="center">
<input name="listtitle" type="text" size="40" value="<%=Rs("listtitle")%>">
</div></td>
<td bgcolor="#F0F0F0"><div align="center">
<input name="listorder" type="text" size="4" value="<%=Rs("listorder")%>">
</div></td>
<td bgcolor="#F0F0F0"><div align="center">
<input name="listuse" type="checkbox" value="yes" <%if Rs("listuse")=True then Response.Write "checked" %> >
</div></td>
<td bgcolor="#F0F0F0"><div align="center"><input name="listmust" type="checkbox" value="yes" <%if Rs("listmust")=True then Response.Write "checked"%> ></div></td>
<td width="5%" align="center" bgcolor="#F0F0F0"><div align="center">
<input id="listtype<%=j%>" name="listtype" type="checkbox" value="yes" <%if Rs("listtype")=True then Response.Write "checked" %> onClick="changeList(<%=Rs("listid")%>,<%=j%>)" >
</div></td>
<td align="center" bgcolor="#F0F0F0" id="dorpSet"> <%if Rs("listtype")=True then%><a href="Admin_Menu.asp?Action=1&type=<%=Rs("listid")%>">设置下拉菜单</a><% else %><%=bxg%><%end if%></td>
<td bgcolor="#F0F0F0"><div align="center">
<input type="submit" name="Submit" value="保存" class="input">
</div></td>
</tr></form>
<%
If j>=Rs.pagesize Then exit do
Rs.movenext
loop
Else
%>
<tr>
<td bgcolor="#F0F0F0" align="center" colspan="5" height="23">暂无记录</td>
</tr>
<%
End If
%>
<script language="javascript">
function changeList(listid, values){
var showV = "listtype" + values ;
if(document.getElementById(showV).checked){
dorpSet[values-1].innerHTML = "<a href='Admin_Menu.asp?Action=1&type=" + listid + "&type=" + listid + "&type=" + listid + "'>设置下拉菜单</a>";
}else{
dorpSet[values-1].innerHTML = "<%=bxg%>";
}
}
</script>
</table>
</div> </TD>
</TR>
<TR bgColor=#fafafa>
<TD bgColor=#f0f0f0 height=24>
<DIV align=center>©2008-2009 CopyRight <strong>IssTech.Co., Ltd</strong> All Rights Reserved</DIV></TD></TR></TBODY></TABLE></div>
<BR></DIV></TD></TR></TBODY></TABLE>
</BODY></HTML>
<%
Rs.close
Set rs = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -