最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
也各简单的bbs(二)
时间：2022-07-02 23:29:30 编辑：袖梨 来源：一聚教程网
注册的服务器处理页面reg.asp:
<%
response.buffer=true
dim name
name="'"&REQUEST.FORM("name")&"'"
code="'"&rEQUEST.FORM("password")&"'"
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("author.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="SELECT * FROM author "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
if rs("authorname")=name then %>
该用户名已被注册，请您重新注册新用户名!
<% response.end
exit do
Else
rs.movenext
end if
loop
Conn.Execute "INSERT INTO author(authorname,password) Values("&name&","&code&")"
RS.Close
Conn.Close %>
<% =name %> 您已注册成功!
<%
response.buffer=true
dim name
name="'"&REQUEST.FORM("name")&"'"
code="'"&rEQUEST.FORM("password")&"'"
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("author.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="SELECT * FROM author "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
if rs("authorname")=name then %>
该用户名已被注册，请您重新注册新用户名!
<% response.end
exit do
Else
rs.movenext
end if
loop
Conn.Execute "INSERT INTO author(authorname,password) Values("&name&","&code&")"
RS.Close
Conn.Close %>
<% =name %> 您已注册成功!
相关文章
- 密室逃脱模拟器2如何获得奖杯成就 04-17
- 歧路旅人0海德内如何加入 04-17
- 风启之旅前期火药获取位置介绍说明 04-17
- 一耽漫画下载官方正版安装包-一耽漫画app免费下载最新版本在线观看 04-17
- 《Garden in》白金撒花成就解锁指南 04-17
- 前往中世纪房间是什么 04-17