lxfs.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
%>
<%response.buffer=true%>
<!--#include file=../conn/adodb1.asp -->
<%
dim lxr,lxdh,email,dd
lxr=trim(request.form("lxr"))
lxdh=trim(request.form("lxdh"))
email=trim(request.form("email"))
dd=now()

dim sql,sq,rs
set rs=server.createobject("adodb.recordset")
sql="select * from lxfs where lxr='"& lxr &"' and lxdh='"& lxdh &"' order by id desc"
rs.open sql,db,1
if rs.recordcount>0 then
response.write"<SCRIPT language=JavaScript>alert('联系人和联系电话已存在！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
sq="insert into lxfs(lxr,lxdh,email,rdate) values ('"&lxr&"','"&lxdh&"','"&email&"','"&dd&"')"
db.execute(sq)
response.redirect "lxfs_form.asp"
end if
%>