📄 addyqlj.asp

📁 admin/admin.asp是WAP的后台管理登陆页面

💻 ASP

字号:

<%
  if session("admin")="" then
  response.redirect "admin.asp"
  end if

%>
<!-- #include file="conn.asp" -->

<html>
<head>
<title>友情链接</title>  
<link rel="stylesheet" type="text/css" href="style.css">
<script language=javascript>

function check()

{
  if(document.myform.name.value=="")
    {
      alert("名称为空");
      return false;
    }

  if(document.myform.link.value=="")
    {
      alert("地址为空");
      return false;
    }
    
  if(document.myform.link.value=="http://")
    {
      alert("地址为空");
      return false;
    }
    
}
</script>
</head>
<body>
 <table align="center" width="60%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
<form method=Post name="myform" action="yqljsave.asp" onsubmit="javascript:return check();">
<tr><td bgcolor=#999999 colspan="2"><strong>增加友链</strong></td></tr>
         <tr bgcolor=#FFFFFF><td align=right>网站分类：</td><td>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from linkclass"
rs.open sql,conn,1,1
if rs.bof and rs.eof then 
    	response.write "没有类别，请<a href='addlinkclass.asp'>添加类别</a>"
else
%>
<select name="classid">
<% 
        do while not rs.eof
%>
         <option selected value='<%=rs("id")%>'><%=rs("class")%></option>
       
<%
        rs.movenext
        loop
%></select>
</td></tr>
<tr bgcolor=#FFFFFF><td align=right>网站名称：</td>
<td><input type="text" size='30' name="name"></td>
<tr bgcolor=#FFFFFF><td align=right>网站地址：</td><td><input type="text" size='30' name="link" value="http://"></td></tr>
<tr bgcolor=#FFFFFF><td colspan='2' align='center'><input type="submit" value="增加" name="Submit"> <% end if %></td></tr>
</form>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -