regsave.asp

十分好的音乐网站源码 十分好的音乐网站源码十分好的音乐网站源码十分好的音乐网站源码十分好的音乐网站源码

<%
if session("cjuser")="" and session("pwdd")="" then
response.write"<SCRIPT language=JavaScript>alert('你没有登录，无权进入！');"
response.write"this.location.href='error.htm';</SCRIPT>" 
response.end 
end if
%>
<!--#include file=../conn/adodb1.asp -->
<%
dim sitename1,siteurl1,logourl1,siteadmin1,siteintro1,dd

SiteName1=request("SiteName")
SiteUrl1=request("SiteUrl")
LogoUrl1=Request("LogoUrl")
SiteAdmin1=Request("SiteAdmin")
SiteIntro1=Request("SiteIntro")
dd=now()
dim sql,rs

set rs=db.execute("select * from link where sitename='"&sitename1&"' or siteurl='"&siteurl1&"'")
if rs.eof then
sql="insert into link(sitename,siteurl,logourl,siteadmin,siteintro,rdate)values ('"&sitename1&"','"&siteurl1&"','" &logourl1 &"','"&siteadmin1&"','"&siteintro1&"','"&dd&"')"
 db.execute(sql)
 response.write "<script language='javascript'>" & chr(13)
		response.write "alert('成功加入链接!');" & Chr(13)
		response.write "window.document.location.href='admin_linklogo.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
		Response.End
 else
 response.write"<SCRIPT language=JavaScript>alert('对不起此网站已经存在！,请返回！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end 
end if
%>