adduser.asp

来自「一套简单的投票系统」· ASP 代码 · 共 57 行

ASP

57 行

<!--#include file="config.asp" -->
<%
website=request.form("website")
username=request.form("username")
code=request.form("code")
pwd=request.form("password")
counts=request.form("count")
URL=request.form("URL")

msg=""
if website="" then msg=msg+"网站名称不能为空<br>"
if URL="" then msg=msg+"网站地址不能为空<br>"
if username="" then msg=msg+"制作者姓名不能为空<br>"
if code="" then msg=msg+"参赛代码不能为空<br>"
if pwd<>"lou" then msg = msg + "密码不正确<br>"
if msg<>"" then
  response.redirect "request.asp?msg="+msg
  response.end
end if
if counts="" then counts="0"
count =cint(counts)
SET conn=Server.Createobject("ADODB.CONNECTION")
DSN="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN=DSN & "DBQ=" & server.mappath(DBPath) 
conn.Open DSN
 sql = "select * from info where code="+Cstr(code)
 set rs = conn.execute(sql)
 if rs.bof or rs.eof then
      sz = "'" & website &_
         "', '"& URL &_
         "', '"& username &_
         "', '"& code &_
         "', '"& count & "'"
      into_db = "INSERT INTO info ( website,URL ,username , code ,count ) VALUES(" &_
         sz & ")"
      conn.Execute(into_db)
  else
    msg = msg + "您填写的参赛代码 "+username+" 已经存在。"
    response.redirect "request.asp?msg="+msg
    response.end
  end if
%>

<%
 rs.close
 conn.close
%>
<html>
<head><title>添加成功 </title></head>
<body>
<center>
<h1>
添加成功！
</h1>
</center>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

adduser.asp

adduser.asp - 源码说明

⌨️ 快捷键说明