友情链接申请

<% If Request.QueryString("action")="add" then note=Trim(request.form("note")) link=Trim(request.form("link")) name=Trim(request.form("name")) If name="" or note="http://" Then Response.Write("
") response.end end if If note="" or note="http://" Then Response.Write("
") response.end end if If link="" or link="http://" Then Response.Write("
") response.end end if Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from Link " rs.open sql,conn,1,3 rs.addnew rs("Name")=name rs("Note")=note rs("Link")=link rs("Show")=0 rs.update rs.Close Set rs=Nothing Response.write "
" & Chr(13) Response.End End if %>

友情链接申请
网站名称 |
网站说明 |
连接地址 |