📄 bsave.asp

📁 一个公司营销系统

💻 ASP

字号:


<!--#include file="connn.asp"-->
<%
user=request("user")
dim rs,sql
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where username ='"&user&"'"
rs.open sql,conn,3,2
if  rs.eof and rs.bof then
   response.write "<script language='javascript'>"
   response.write "alert('该用户不存在，请检查输入是否正确！');"
   response.write "</script>"
  response.redirect"index.asp?user="&webname&""  
   response.end
else if rs("key1")=0 or rs("key2")=0 or rs("key3")=0 or rs("key4")=0 or rs("key5")=0 then
  response.redirect"temporary.asp"
  response.end 
end if
end if
%>
<%user=request("user")%>

<%
   dim sql1
  sql1="insert into buy (jshname,bname,bemail,bqq,baddress,bly) values('"&user&"','"& request("bname") &"','"& request("bemail") &"','"& request("bqq") &"','"& request("baddress") &"','"& request("bly") &"')"
  conn.execute sql1,0
  conn.close
set conn=nothing
response.redirect"buyend.htm"
%>
<html>
<head>
<title>bsave</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -