post.asp

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

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
dim name,link,classid,rs,sql
        name=LCase(Request("name"))
        link=LCase(Request("link"))
        classid=safeRequest("classid",1)
	if name="" or link="" then response.redirect "err.asp?id=1"

        Set rs=Server.CreateObject("Adodb.RecordSet")
        rs.Open "Select id from link where name='"&name&"'",conn
   if not rs.EOF then
   Response.redirect "err.asp?id=12"
   Response.End   
   end if
   rs.close
        
        set rs=server.createobject("adodb.recordset")
	sql="select * from link"
	rs.open sql,conn,1,3
        rs.addnew
        rs("name")=name
        rs("link")=link
        rs("classid")=classid
        rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
        response.redirect "cg.asp?classid="&classid
%>