<% classid=Request.Form("classid") NAME=Request.Form("NAME") NAMT=Request.Form("NAMT") URL=LCase(Request.Form("URL")) JIAN=Request.Form("JIAN") if Session("NAME")=1 then nolink else if NAME="" OR NAMT="" OR URL="" OR JIAN="" then noname else dim Rs,Sql,Rss,Sqll Set RSS=server.createobject("adodb.recordset") Sqll="select * from [admin]" RSS.open sqll,conn,1,1 active=rss("active") call RssClose() Set RS=server.createobject("adodb.recordset") Sql="select * from [Link]" RS.open sql,conn,1,3 RS.addnew RS("NAME")=NAME RS("NAMT")=NAMT RS("URL")=URL RS("classid")=classid RS("JIAN")=JIAN RS("active")=active RS.update session.timeout=1 session("NAME")=1 end if end if response.write "

"%> 申请友链成功
<%call lasts()%> <%sub nolink()%>

你刚才已申请过了！请不要重复申请！
<%call lasts()%> <%Response.End%><%End Sub%> <%sub noname()%>

各项都要填写,不能为空！
<%call lasts()%> <%Response.End%><%End Sub%> <%call ALLClose()%>