gusucode.com > 味多美网址导航源码程序 V20100902 > 味多美网址导航源码程序 V20100902\code\admin\top_add.asp
<!--#include file="mdb.asp"--> <!--#include file="aq.asp"--> <% if session("adminlogin")<>sessionvar then Response.Write("<script language=javascript>alert('你尚未登录,或者超时了!请重新登录');this.location.href='index.asp';</script>") Response.End End if dim action,title,url,leibie,memo,topid,links title=request("title") url=request("url") leibie=request("leibie") topid=request("topid") links=request("links") memo=request("memo") yl_time=now() action=request("action") if action="add" then if title="" or url="" or leibie="" then Response.Write ("<script language=javascript>alert('表单不完整!');this.location.href='admin_detail_add.asp';</script>") else set r=server.createobject("adodb.recordset") r.open "select * from detail where title='"&title&"'",conn,1,3 r.addnew r("title")=title r("url")=url r("topid")=topid r("links")=links r("yl_time")=now() if memo="" then r("memo")=" "&memo else r("memo")=memo end if r("classid")=leibie r("verity")=1 r.update r.close set r=nothing Response.Write ("<script language=javascript>alert('新网站添加成功!');this.location.href='admin_detail_add.asp';</script>") Response.End end if end if %> <HTML> <HEAD> <TITLE>网站添加管理</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <LINK REL="stylesheet" HREF="css.css" TYPE="text/css"> </HEAD> <BODY> <table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999"> <tr> <td bgcolor="#cccccc" align="center">添加名站导航</td></tr> <tr> <td bgcolor="#eeeeee"> <br> <form action="top_add.asp" method="post" name="form1"> 网站标题:<input name="title" size="12" maxlength='4'> 最多4个数字,防主页不变形。<br> 网站地址:<input name="url" size="35"><br> 类别名称:<select name="leibie"> <option value="68">名站导航</option> </select><br> 推荐级别:<input name="topid" size="10"> 0-100,数字越大,排名越靠前<br> 其他信息:<input name="memo" size="50"><br> <input type="hidden" name="action" value="add"> <input type="submit" value="添加名站导航"> </form> </td></tr> </table> </BODY> </HTML>