lxfs.asp

来自「十分好的音乐网站源码 十分好的音乐网站源码十分好的音乐网站源码十分好的音乐网站」· ASP 代码 · 共 29 行

<%
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
%>