📄 sys_link.asp

📁 html生成静态页的小程序
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%dbdns="../"%>
<!--#include file="chk.asp"-->
<%
Set Link = New clsSys_Link
Select Case Trim(Request.Form("action"))
	Case "add"
		Call Link.Add()
		Call SaveAdminLog("添加友情连接：" & Link.Lname)
		Call CloseConn()
		Call ActionOk("Sys_link.asp")
	Case "edit"
		Call Link.Edit()
		Call SaveAdminLog("修改友情连接(ID=" & Link.Lid & ")为：" & Link.Lname)
		Call CloseConn()
		Call ActionOk("Sys_link.asp")
	Case "del"
		Call Link.Del()
		Call SaveAdminLog("删除友情连接(ID=" & Link.Lid & ")")
		Call CloseConn()
		Call ActionOk("Sys_link.asp")
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理系统</title>
<link rel="stylesheet" type="text/css" href="images/Style.css">
<style type="text/css">
.noB{
	border:0px;
	background-color:#FFFFFF;
	cursor:pointer;
}
.STYLE1 {color: #0000FF}
</style>
</head>

<body>
<!--#include file="top.asp"-->
<br />
<table cellspacing="0" cellpadding="0" width="98%" align="center" border="0">
  <tbody>
    <tr>
      <td style="PADDING-LEFT: 2px; HEIGHT: 22px" 
    background="images/tab_top_bg.gif"><table cellspacing="0" cellpadding="0" width="477" border="0">
        <tbody>
          <tr>
            <td width="147"><table height="22" cellspacing="0" cellpadding="0" border="0">
              <tbody>
                <tr>
                  <td width="3"><img id="tabImgLeft__0" height="22" 
                  src="images/tab_active_left.gif" width="3" /></td>
                  <td class="mtitle" 
                background="images/tab_active_bg.gif">友情连接管理</td>
                  <td width="3"><img id="tabImgRight__0" height="22" 
                  src="images/tab_active_right.gif" 
            width="3" /></td>
                </tr>
              </tbody>
            </table></td>
          </tr>
        </tbody>
      </table></td>
    </tr>
    <tr>
      <td bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td width="1" background="images/tab_bg.gif"><img height="1" 
            src="images/tab_bg.gif" width="1" /></td>
            <td 
          style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px" 
          valign="top"><div id="tabContent__0" style="DISPLAY: block; VISIBILITY: visible">
              <table cellspacing="1" cellpadding="1" width="100%" align="center" 
            bgcolor="#8ccebd" border="0">
                <tbody>
                  <tr>
                    <td 
                style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px" 
                valign="top" bgcolor="#fffcf7">
<table border="0" cellspacing="0" cellpadding="0">
      <%
	  disAddForm = False
	  iCount = 0
Sql = "select * from Ok3w_Link order by Lorder"
Rs.Open Sql,Conn,1,1
Do While Not Rs.Eof
%>
  <tr>
<%
For i=1 To 3
iCount = iCount + 1
%>
    <td><%If Not Rs.Eof Then%><%Call Link.GetRs(Rs)%><table border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
      <form id="form1" name="form1" method="post" action="">
        
        <tr>
          <td width="30" rowspan="6" align="center" bgcolor="#EBEBEB">友<br />
            情<br />
            连<br />
            接<br />
            <%=iCount%></td>
        <td align="right" bgcolor="#FFFFFF">网站名称</td>
        <td bgcolor="#FFFFFF"><input name="Lname" type="text" id="Lname" value="<%=Link.Lname%>" size="30" /></td>
      </tr>

      
        <tr>
          <td align="right" bgcolor="#FFFFFF">Logo地址</td>
          <td bgcolor="#FFFFFF"><input name="Lpic" type="text" id="Lpic" value="<%=Link.Lpic%>" size="30" /></td>
        </tr>
        <tr>
          <td align="right" bgcolor="#FFFFFF">网址</td>
          <td bgcolor="#FFFFFF"><input name="Lurl" type="text" id="Lurl" value="<%=Link.Lurl%>" size="30" /></td>
        </tr>
        <tr>
          <td align="right" bgcolor="#FFFFFF">备注</td>
          <td bgcolor="#FFFFFF"><input name="Lnote" type="text" id="Lnote" value="<%=Link.Lnote%>" size="30" /></td>
        </tr>
        <tr>
          <td align="right" bgcolor="#FFFFFF">排序</td>
          <td bgcolor="#FFFFFF"><input name="Lorder" type="text" id="Lorder" value="<%=Link.Lorder%>" size="30" /></td>
        </tr>
        <tr>
          <td align="right" bgcolor="#FFFFFF">操作</td>
          <td bgcolor="#FFFFFF"><input name="Lid" type="hidden" id="Lid" value="<%=Link.Lid%>" />
              <input name="action" type="hidden" id="action" />
              <input name="Submit2" type="button" onclick="javascript:formsubmit(this.form,'edit');" value="修 改" />
              <input name="Submit22" type="button" onclick="javascript:if(!confirm('真的要删除吗？')) return false;formsubmit(this.form,'del');" value="删 除" /></td>
        </tr>
      </form>
    </table>
    <%Else%><%If Not disAddForm Then%><%disAddForm=True%><%Call DisAdd()%><%End If%><%End If%>
      <br />
      </td>
	  <td>&nbsp;&nbsp;</td>
	  <%If Not Rs.Eof Then Rs.MoveNext
	 Next
	 %>
  </tr>
<%
Loop
Rs.Close()
%>
</table>
<!--Begin function-->
<script language="JavaScript" type="text/javascript">
function formsubmit(frm,action)
{
	if(frm.Lname.value.trim()=="")
	{
		ShowErrMsg("名称不能为空，请输入");
		frm.Lname.focus();
		return false;
	}
	 
	if(isNaN(parseInt(frm.Lorder.value.trim())))
	{
		ShowErrMsg("排序只能是数字，请输入");
		frm.Lorder.focus();
		return false;
	}
	
	frm.action.value = action;
	frm.submit();
}
</script>

<%If Not disAddForm Then%><%disAddForm=True%><%Call DisAdd()%><%End If%>
<%Private Sub DisAdd()%>
<table border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <form id="form1" name="form1" method="post" action="">
    
    <tr>
      <td width="30" rowspan="6" align="center" bgcolor="#EBEBEB">新<br />
        增<br />
        友<br />
        情<br />
        连<br />
        接</td>
      <td align="right" bgcolor="#FFFFFF">网站名称</td>
      <td bgcolor="#FFFFFF"><input name="Lname" type="text" id="Lname" size="30" /></td>
      </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">Logo地址</td>
      <td bgcolor="#FFFFFF"><input name="Lpic" type="text" id="Lpic" size="30" /></td>
      </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">网址</td>
      <td bgcolor="#FFFFFF"><input name="Lurl" type="text" id="Lurl" size="30" /></td>
      </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">备注</td>
      <td bgcolor="#FFFFFF"><input name="Lnote" type="text" id="Lnote" size="30" /></td>
      </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">排序</td>
      <td bgcolor="#FFFFFF"><input name="Lorder" type="text" id="Lorder" value="<%=Link.GetMaxOrder()+1%>" size="30" /></td>
      </tr>
    <tr>
      <td align="right" bgcolor="#FFFFFF">操作</td>
      <td bgcolor="#FFFFFF"><input name="Lid" type="hidden" id="Lid" value="<%=Link.GetMaxId()+1%>" />
        <input name="action" type="hidden" id="action" />
        <input name="Submit" type="button" onclick="javascript:formsubmit(this.form,'add');" value="添 加" /></td>
      </tr>
  </form>
</table>
<%End Sub%>
</td>
                  </tr>
                </tbody>
              </table>
            </div></td>
            <td width="1" background="images/tab_bg.gif"><img height="1" 
            src="images/tab_bg.gif" width="1" /></td>
          </tr>
        </tbody>
      </table></td>
    </tr>
    <tr>
      <td background="images/tab_bg.gif" bgcolor="#ffffff"><img height="1" 
      src="images/tab_bg.gif" width="1" /></td>
    </tr>
  </tbody>
</table>
</body>
</html>
<%
Call CloseConn()
Set Rs = Nothing
Set Admin = Nothing
%>

<%
Class clsSys_Link
	Public Lid
	Public Lname
	Public Lpic
	Public Lurl
	Public Lnote
	Public Lorder
	
	Public Sub Add()
		Call GetFormData()
		Sql = "select count(*) from Ok3w_Link where Lname='" & Lname & "'"
		If Conn.Execute(Sql)(0)<>0 Then
			Call CloseConn()
			Session("ErrMsg") = "相同的分类已经存在，请不要重复添加。"
			Call ActionOk("Sys_link.asp")
		End If
		Set clsRs = Server.CreateObject("Adodb.RecordSet")
		Sql = "select * from Ok3w_Link where 1=2"
		clsRs.Open Sql,Conn,1,3
		clsRs.AddNew()
		Call UpdateRs(clsRs)
		clsRs.Update()
		clsRs.Close()
		Set clsRs = Nothing
	End Sub

	Public Sub Edit()
		Call GetFormData()
		Sql = "select count(*) from Ok3w_Link where Lname='" & Lname & "' and Lid<>" & Lid
		If Conn.Execute(Sql)(0)<>0 Then
			Call CloseConn()
			Session("ErrMsg") = "相同的分类已经存在，请不要重复添加。"
			Call ActionOk("Sys_link.asp")
		End If
		Set clsRs = Server.CreateObject("Adodb.RecordSet")
		Sql = "select * from Ok3w_Link where Lid=" & Lid
		clsRs.Open Sql,Conn,1,3
		Call UpdateRs(clsRs)
		clsRs.Update
		clsRs.Close
		Set clsRs = Nothing
	End Sub
	
	Public Sub Del()
		Call GetFormData()
		sql = "delete from Ok3w_Link where Lid=" & Lid
		Conn.Execute sql
	End Sub
	
	Public Function GetMaxId()
		Set clsRs = Server.CreateObject("Adodb.RecordSet")
		Sql = "select max(Lid) from Ok3w_Link"
		clsRs.Open Sql,Conn,0,1
		If IsNull(clsRs(0)) Then
			GetMaxId = 0
			Else
				GetMaxId = clsRs(0)
		End If
		clsRs.Close
		Set clsRs = Nothing
	End Function
	
	Private Sub GetFormData()
		Lid = Trim(Request.Form("Lid"))
		Lname = Trim(Request.Form("Lname"))
		Lpic = Trim(Request.Form("Lpic"))
		Lurl = Trim(Request.Form("Lurl"))
		Lnote = Trim(Request.Form("Lnote"))
		Lorder = Trim(Request.Form("Lorder"))
	End Sub
	
	Private Sub UpdateRs(ByRef clsRs)
		clsRs("Lid") = Lid
		clsRs("Lname") = Lname
		clsRs("Lpic") = Lpic
		clsRs("Lurl") = Lurl
		clsRs("Lnote") = Lnote
		clsRs("Lorder") = Lorder
	End Sub
	
	Public Sub GetRs(ByRef clsRs)
		Lid = clsRs("Lid")
		Lname = clsRs("Lname")
		Lpic = clsRs("Lpic")
		Lurl = clsRs("Lurl")
		Lnote = clsRs("Lnote")
		Lorder = clsRs("Lorder")
	End Sub
	
	'取最大统号
    Public Function GetMaxOrder()
        Set clsRs = Server.CreateObject("Adodb.RecordSet")
        Sql = "select max(Lorder) from Ok3w_Link"
        clsRs.Open Sql,Conn,0,1
        If IsNull(clsRs(0)) Then
        GetMaxOrder = 0
            Else
                GetMaxOrder = clsRs(0)
        End If
        clsRs.Close
        Set clsRs = Nothing
    End Function
End Class
%>
⌨️ 快捷键说明

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