📄 adduser.asp
字号:
<!--#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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -