asp提交跳转及重复记录提醒及几秒后跳转

aaa117659928

于 2020-08-15 10:10:29 发布

阅读量448

点赞数

分类专栏： asp

本文链接：https://blog.csdn.net/aaa117659928/article/details/108018677

版权

asp 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">


<head>
<meta charset="utf-8">
   <title>88888</title>
   <meta name="Keywords" content="999">
   <meta name="Description" content="6666">
   <meta content="width=device-width,initial-scale=1.0,maximum-scale=1.0,user-scalable=no" name="viewport">
   <meta content="yes" name="apple-mobile-web-app-capable">
   <meta content="black" name="apple-mobile-web-app-status-bar-style">
   <link rel="stylesheet" type="text/css" href="../css/style.css" media="all">
   <link rel="dns-prefetch" href="https://api.mch.weixin.qq.com/pay/unifiedorder">
   <meta http-equiv="refresh" content="3; url=add.asp">
</head>

<body>
<div class="wxs">
   <div class="title">添加客户号码</div>
   <%

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [ad] where [shouji]='"&trim(request.form("shouji"))&"'" ,conn,1,1
if rs.recordcount>0 then
response.write "<script language=javascript>"
response.write "alert('对不起，此号码重复!');"
response.write "this.location.href='add.asp';</script>"
Response.end

else

pihao = trim(request("pihao"))
shouji = trim(request("shouji"))
weixin = trim(request("weixin"))
sql="select pihao,shijian,shouji,weixin from ad where id = null"
set Rs = server.createobject("adodb.recordset")
Rs.Open sql,conn,1,3
Rs.addnew
Rs("pihao") = pihao
Rs("shouji") = shouji
Rs("weixin") = weixin
Rs.update
Rs.close
set Rs = nothing
end if

%>
<div class="footer">添加成功！3秒后返回</div>

</div>
</body>
</html>