sql_moban.asp

来自「后台地址：login.asp 管理员帐户：admin 密码：admi」· ASP 代码 · 共 425 行 · 第 1/2 页
ASP
425 行
        </tr>
        <tr align="center"> 
          <td width="5%" height="23" bgcolor="#FFFFFF" class="td">编号</td>
          <td width="20%" height="23" bgcolor="#FFFFFF" class="td">模板名称</td>
          <td width="5%" height="23" bgcolor="#FFFFFF" class="td">编辑</td>
          <td width="70%" height="23" align="left" bgcolor="#FFFFFF" class="td">&nbsp;删除</td>
        </tr >
        <%
Set rc=Server.CreateObject("ADODB.Recordset")
sql="Select * from Sql_MoBan order by ID desc"
rc.open sql,conn,1,1
rc.pagesize=20
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not rc.eof and not rc.bof then
rc.absolutepage=Page
end if
count=rc.pagesize
do while not rc.eof and count>0%>
        <TR align="center" bgcolor="#e4edf9" onmouseover="this.bgColor='#dedede'" onmouseout="this.bgColor='#e4edf9'" style="CURSOR:default"> 
          <td width="5%" height="23" class="font"><%=rc("ID")%></td>
          <td width="20%" height="23" align="left" class="font"><a href="Sql_MoBan.asp?Action=Index&ID=<%=rc("ID")%>" title="点此修改"><%=rc("Sql_Name")%></a></td>
          <td width="5%" height="23"><a href="Sql_Moban.asp?Action=Edit_MoBan&ID=<%=rc("ID")%>"><img src="Images/Sql_Edit.gif" width="12" height="12" border="0"></a></td>
          <td width="70%" height="23" align="left" class="font">&nbsp;<a href="Sql_MoBan.asp?Action=Delect&ID=<%=rc("ID")%>" onClick="return checkdel('删除该分类并清除所有属于该分类的数据！');"><img src="Images/Sql_Del.gif" width="13" height="13" border="0" align="absmiddle"  style="CURSOR: hand"></a> 
            （若删除<font color="#FF0000">[<%=rc("Sql_Name")%>]</font>分类，其所有信息将会全部更新为<font color="#FF0000">预处理</font>分类） 
          </td>
        </tr>
        <%     
    rc.movenext     
    count=count-1     
    loop     
  %>
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
        <tr > 
          <td width="100%"height="24" align="right" class="font">
              <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
              <form name="pa" method="Get" Action="">
           
			    <tr> 
                  <td height="20" align="right" valign="middle" class="font">共有<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息 
                    分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页 
                    当前第<font color="#FF2D00"><%=Page%></font>页 <img src="Images/Sql_Up.gif" width="11" height="11" align="absmiddle"> 
                    <a href="?Page=1&Action=Manage">分类</a> 
                    <%if Page>1 then%>
                    <a href="?Page=<%=Page-1%>&Action=Manage">上页</a> 
                    <%else%>
                    上页 
                    <%end if%>
                    <%if Page < rc.pagecount then %>
                    <a href="?Page=<%=Page+1%>&Action=Manage">下页</a> 
                    <%else%>
                    下页 
                    <%end if%>
                    <a href=?Page=<%=rc.pagecount%>&Action=Manage>尾页</a> <img src="Images/Sql_Next.gif" width="11" height="11" align="absmiddle"> 
                    <input name="Page" type="text" class="put" id="Page" value="<%=Page%>" size="3"> 
                    <input name="Submit3" type="submit" class="button" value="转到该页"> 
                  </td>
                </tr>
              </form>
            </table></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="10"></td>
        </tr>
      </table></td>
  </tr>
</table>

<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
        
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
        <tr > 
          <td height="26" colspan="2" align="center"  bgcolor="799AE1" class="font"> 
            <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
              <tr> 
                <td class="font"><b><font color="#FFFFFF">添加模板分类</font></b></td>
              </tr>
            </table></td>
        </tr>
        <form name="Add_MoBan" method="Get" Action="Sql_MoBan.asp" onSubmit="return Check()">
		<script language=javascript>
		function Check()
		{if (window.document.Add_MoBan.Add_MoBan.value == "")
		return false;
		}
		</script>
          <tr> 
            <td width="10%"height="25" align="center" bgcolor="#FFFFFF" class="td"> 
              分类名称 </td>
            <td align="left" bgcolor="#FFFFFF" class="td">
            <input name="Add_MoBan" type="text" class="input" size="20"></td>
          </tr>
          <tr> 
            <td height="25" align="center" bgcolor="#FFFFFF" class="td">　</td>
            <td align="left" bgcolor="#FFFFFF" class="td">
              <input type="submit" name="Submit" value="确定添加"> 
              <input type="hidden" name="Action" value="Add_MoBan"> 
              <input type="button" name="Submit" value="返回上页" onClick="history.go(-1)"></td>
          </tr>
        </form>
      </table>
      
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="10"></td>
        </tr>
      </table></td>
  </tr>
</table>

<%elseif request("Action") = "Edit_MoBan" then%>

<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<%
sql="Select * from Sql_MoBan where ID="&request("ID")&""
set rc1=conn.execute(sql)
%>
  <tr> 
    <td valign="top">
       <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
        <tr > 
          <td height="26" colspan="2" align="center"  bgcolor="799AE1" class="font"> 
            <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
              <tr> 
                <td class="font"><b><font color="#FFFFFF">编辑模板分类</font></b></td>
              </tr>
            </table></td>
        </tr>
        <form name="Edit_MoBan" method="Get" Action="" onSubmit="return checkdel('修改该分类并同步更新属于该分类的数据')">
               <tr> 
            <td width="10%"height="25" align="center" bgcolor="#FFFFFF" class="td"> 
              模板名称 </td>
            <td align="left" bgcolor="#FFFFFF" class="td">
              <input name="Sql_Name" type="text" class="input" value="<%=rc1("Sql_Name")%>" size="30"> 
              <input name="Old_Sql_Name" type="hidden" value="<%=rc1("Sql_Name")%>"> 
              <input name="ID" type="hidden" value="<%=rc1("ID")%>"> 
            </td>
          </tr>
          <tr>
            <td height="25" align="center" bgcolor="#FFFFFF" class="td">注　　意</td>
            <td align="left" bgcolor="#FFFFFF" class="td">若修改该分类，所有属于该分类的信息将会同步更新为修改后的分类</td>
          </tr>
          <tr> 
            <td height="25" align="center" bgcolor="#FFFFFF" class="td">　</td>
            <td align="left" bgcolor="#FFFFFF" class="td">
              <input type="submit" name="Submit1" value="确定修改"> 
              <input type="Hidden" name="Action" value="Edit_MoBan"> 
              <input type="button" name="Submit1" value="返回上页" onClick="history.go(-1)"></td>
          </tr>
        </form>
      </table>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr height="10"> 
          <td height="10"></td>
        </tr>
      </table></td>
  </tr>
</table>
<% If request("submit1") <> "" Then
sql="update Sql_MoBan set Sql_Name = '"&server.HTMLEncode(request("Sql_Name"))&"' where Sql_Name = '"&request("Old_Sql_Name")&"'"
conn.execute(sql)
%>
<script language="JavaScript">

parent.navigate("Sql_Index.asp")

</script>

<%end if%>

<%elseif request("Action") = "Delect" then%>

<%
sql="Delete From Sql_MoBan where ID="&Request("ID")
conn.Execute(sql)
%>

<script language="JavaScript">

parent.navigate("Sql_Class.asp")

</script>

<%end if%>

<!--#include file="Sql_Conn_Close.asp"-->

</body>
</html>
sql_moban.asp - 源码说明

本页面展示了「后台地址：login.asp 管理员帐户：admin 密码：admin 数据库 Data/#23mn.cn.asp (电视电台数据) Data/Data_Admin.asp (管理信」中的 sql_moban.asp 源码文件，采用 ASP 编程语言编写，共 425 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?