新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > Web开发 > Asp教程 > 正文:也各简单的bbs(二)

也各简单的bbs(二)

新客网 XKER.COM 2003-07-11 来源: 收藏本文
注册的服务器处理页面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 %>
该用户名已被注册,请您重新<a href="login.asp">注册</a>新用户名!
<% response.end
exit do
Else
rs.movenext
end if
loop
Conn.Execute "INSERT INTO author(authorname,password) Values("&name&","&code&")"
RS.Close
Conn.Close %>
<B><% =name %></B> 您已注册成功!<P>
<a href="dispbbs.asp">返回论坛</a>
<a href="bbs_add.asp">我要发言</a>
收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐