📄 admin_link.asp

📁 个人网站系统毕业论文大家可以借鉴下
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<body oncontextmenu="return false" onselectstart="return false"  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script laguage="javascript">
<!--
function form1_onsubmit()
{
if (document.form1.l_name.value=="")
    {
      alert("请输入站点名称！")
      document.form1.l_name.focus()
      return false
     }
else if(document.form1.l_place.value=="")
    { 
      alert("请输入站点地址！")
      document.form1.l_place.focus()
      return false
     }
	else if(document.form1.l_author.value=="")
    { 
      alert("请输入站该站站长！")
      document.form1.l_author.focus()
      return false
     }
	 else if(document.form1.l_logo.value=="")
    { 
      alert("请输入logo地址！")
      document.form1.l_logo.focus()
      return false
     }
	 else if(document.form1.l_jshao.value=="")
    { 
      alert("请简单描述！")
      document.form1.l_jshao.focus()
      return false
     }
}
-->
</script>
<form name="form1" method="post" action="admin_link.asp" onsubmit="return form1_onsubmit()">
  <table width="400" height="238" border="0" cellpadding="0" cellspacing="1" bgcolor="#009900">
    <tr align="center"> 
      <td colspan="2"><font color="#FFFFFF">链接添加</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="115" align="right">站点名称：</td>
      <td width="282"><input name="l_name" type="text" id="l_name" size="20">
        <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right">站点地址：</td>
      <td><input name="l_place" type="text" id="l_place" size="20">
        <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right">该站站长：</td>
      <td><input name="l_author" type="text" id="l_author" size="20">
        <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right">LOGO地址：</td>
      <td><input name="l_logo" type="text" id="l_logo" size="20">
        <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right">描述：</td>
      <td><textarea name="l_jshao" cols="30" rows="5" id="l_jshao"></textarea> 
        <font color="#FF0000">*</font></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td colspan="2"><input type="submit" name="submit" value="提交">
        　　　 <input type="hidden" name="sub" value="submit">
        <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </table>  
</form>
<%if request.Form("sub")="submit" then
  dy_name=request.Form("l_name")
  dy_place=request.Form("l_place")
  dy_author=request.Form("l_author")
  dy_logo=request.Form("l_logo")
  dy_jshao=request.Form("l_jshao")
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from dy_link"
  rs.open sql,conn,3,3
  rs.addnew
  rs("dy_name")=dy_name
  rs("dy_place")=dy_place
  rs("dy_author")=dy_author
  rs("dy_logo")=dy_logo
  rs("dy_jshao")=dy_jshao
  rs.update
  %>
  <script language="JavaScript">
 alert("连接成功，谢谢！！")
 window.location.href("link.asp")
 </script>
 <%
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 end if
 %>
⌨️ 快捷键说明

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