网页制作学习园地论坛网站建设交流 → [原创]vbasp用户注册页


  共有5724人关注过本帖树形打印

主题:[原创]vbasp用户注册页

帅哥哟,离线,有人找我吗?
黑房子
  1楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:注册用户 帖子:3 积分:58 威望:0 精华:0 注册:2010-5-19 14:08:35
[原创]vbasp用户注册页  发帖心情 Post By:2010-5-19 14:29:35

下面是用户注册页的内容:

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<!--前台用户注册-->
<!--#include file="config/data.asp"-->
<!--#include file="config/function.inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" c />
<title>无标题文档</title>
</head>

<body>
<%
on error resume next
dim sql,rst
if request.QueryString("act")="reg" then
   if request.Form("f_user")="" or request.Form("f_code")="" then
      msgboxU "用户名和密码不能为空,请输入用户名和密码!"
   else
     set rst=server.CreateObject("adodb.recordset")
  sql="select count(*) as recnum from 08G47_user where u_user='"&request.Form("f_user")&"'"
  rst.open sql,conn,1,1
  if rst("recnum")>0 then
    msgboxU "此用户已存在,请重新输入!"
   else
     sql="insert into 08G47_user (u_user,u_code,u_name,u_***,u_qq) values('"&request.Form("f_user") & "','" &request.Form("f_code") &"','" & request.Form("f_name") & "','" & request.Form("f_***") & "','" &request.Form("f_qq") & "')"
     conn.execute sql
     set myErrors=conn.errors
     if myErrors.count=0 then
        msgboxU "恭喜您,注册成功!"
   else
     msgboxU "对不起,注册失败!原因:"&myErrors.item(0).description
   end if
  end if
  rst.close
    set rst=nothing
 end if
end if
%>
  <table width="600" border="0" align="center">
    <tr>
      <td width="100px" bgcolor="#CCCCCC">&nbsp;</td>
      <td width="400px" bgcolor="#CCCCCC">&nbsp;</td>
      <td width="100px" bgcolor="#CCCCCC">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">&nbsp;</td>
      <td width="400px"><form id="form1" name="form1" method="post" action="reguser.asp?act=reg">
      <table width="100%" border="0">
        <tr>
          <td width="100%" colspan="2" bgcolor="#CCFFCC">08G47班级网    用户注册页</td>
        </tr>
        <tr>
          <td width="80px" align="center" valign="middle" bgcolor="#CCFFCC">用户名:</td>
          <td width="320px" bgcolor="#CCFFCC">
            <input type="text" name="f_user" id="f_user" />
          *</td>
        </tr>
        <tr>
          <td align="center" valign="middle" bgcolor="#CCFFCC">密码:</td>
          <td bgcolor="#CCFFCC">
            <input type="password" name="f_code" id="f_code" />
          *</td>
        </tr>
        <tr>
          <td align="center" valign="middle" bgcolor="#CCFFCC">姓名:</td>
          <td bgcolor="#CCFFCC">
            <input type="text" name="f_name" id="f_name" />
          *</td>
        </tr>
        <tr>
          <td align="center" valign="middle" bgcolor="#CCFFCC">性别:</td>
          <td bgcolor="#CCFFCC">
            <input type="radio" name="f_***" id="u_***" value="男"  checked="checked"/>
            男
            <input type="radio" name="f_***" id="u_***" value="女" />
            女</td>
        </tr>
        <tr>
          <td align="center" valign="middle" bgcolor="#CCFFCC">QQ:</td>
          <td bgcolor="#CCFFCC">
            <input type="text" name="f_qq" id="f_qq" />
         </td>
        </tr>
        <tr>
          <td bgcolor="#CCFFCC">&nbsp;</td>
          <td bgcolor="#CCFFCC">&nbsp;</td>
        </tr>
        <tr>
          <td bgcolor="#CCFFCC">&nbsp;</td>
          <td bgcolor="#CCFFCC">
            <input type="submit" name="button" id="button" value="提交" />
         
              <input type="reset" name="button2" id="button2" value="重置" />
          </td>
        </tr>
        <tr>
          <td bgcolor="#CCFFCC">&nbsp;</td>
          <td bgcolor="#CCFFCC">&nbsp;</td>
        </tr>
      </table>
       
      </form></td>
      <td bgcolor="#FFFFCC">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CCCCCC">&nbsp;</td>
      <td align="center" bgcolor="#CCCCCC">版权所有:08G47 黑房子</td>
      <td bgcolor="#CCCCCC">&nbsp;</td>
    </tr>
  </table>
<!-- End ImageReady Slices -->
<%
conn.close
set conn=nothing
%>
</body>
</html>

 

 

下面是data.asp中的内容:

<%
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbp=E:\网页作品\data\08G47.mdb;Driver={Microsoft Access Driver (*.mdb)}"
%>

 

 

下面是function.inc.asp的内容:

<%
'在客户端弹出提示消息
sub msgboxU(str)
  response.Write("<script language=vbscript>msgbox "&chr(34)&str&chr(34)&"</script>")
  end sub
%>


但是当我在IIS中浏览reguser.asp时出现网站无法显示该页。

 

 我那里弄错了啊,谁能帮帮我啊 。不胜感谢啊 。


支持(1中立(0反对(0回到顶部
美女呀,离线,留言给我吧!
hayi
  2楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:82 积分:302 威望:0 精华:0 注册:2009-9-21 12:00:23
  发帖心情 Post By:2010-5-20 9:03:10

下面是data.asp中的内容:

<%
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbp=E:\网页作品\data\08G47.mdb;Driver={Microsoft Access Driver (*.mdb)}"
%>

 

这个文件路径不应该是这样的,你可以在DW新建好站点,然后你的文件夹名称最好是不要以中文命名,这个很容易出错的..


支持(0中立(0反对(0回到顶部
帅哥哟,离线,有人找我吗?
黑房子
  3楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:注册用户 帖子:3 积分:58 威望:0 精华:0 注册:2010-5-19 14:08:35
  发帖心情 Post By:2010-5-20 19:37:07

  我把data.asp改成如下:

<%
dim conn,dbpath
set conn=Server.CreateObject("adodb.connection")
dbpath="/data/"
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(dbpath & "08G47.mdb") & "
%>

但还是不行啊 ?


支持(0中立(0反对(0回到顶部
美女呀,离线,留言给我吧!
hayi
  4楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:82 积分:302 威望:0 精华:0 注册:2009-9-21 12:00:23
  发帖心情 Post By:2010-5-21 9:21:38

我的qq493297719,有什么问题加我qq说吧,请注明下..

支持(0中立(0反对(0回到顶部
帅哥哟,离线,有人找我吗?
黑房子
  5楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:注册用户 帖子:3 积分:58 威望:0 精华:0 注册:2010-5-19 14:08:35
  发帖心情 Post By:2010-5-22 14:19:49

我加你了 我的号是543424967

支持(0中立(0反对(0回到顶部