<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'** 版权所有：烈火工作室 演示网站http://www.strongfire.cn **
'** QQ:839225572 邮箱：strongfire2008@163.com **
'** 非正版用户不得擅自非法修改用于商业用途！查出必究。 **
'****************************************************************
%>
添加友情网站
<%
dim Action,Name,rs
Action=trim(Request("Action"))
Name=trim(request("Name"))
url=trim(request("url"))
if Action="Add" then
if Name="" or url="" then
response.Write ""
response.End
response.End
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open "Select * From youqing Where Name='" & Name & "'",conn,1,3
if not (rs.bof and rs.EOF) then
response.Write ""
response.End
else
rs.addnew
rs("Name")=Name
rs("url")=url
rs.update
rs.Close
set rs=Nothing
conn.close
set conn=nothing
Response.Redirect "youqing.asp"
end if
else
%>