现有一个简单的问题请问诸位大侠!!

Hugo119 2001-06-11 10:20:00
我是一个asp的初学者，现有一个简单的问题请问诸位大侠：
信息提交页面：
<html>
<body>
<table width=100%>
<tr>

<td width=70% valign=top>

<table border=0 cellspacing=0 cellpadding=0 width=96% align=center>

<form action="add1.asp" name="form2" method="post" ">

<tr>
<td>
<div align=center class="big">普通柜台</div>
<hr size="1" color=blue>
<table border=0 cellspacing=0 bgcolor="#ccccff" cellpadding=0 width=96% align=center>
<tr bgcolor=#ffffff>
<td align="right" height="30">** 姓名：</td>
<td> <input type=text size="25" name="name" class="inputbox"></td>
</tr>
<tr bgcolor=#ffffff>
<td align="right" height="30">** 地址：</td>
<td> <input type=text size="35" name="address" class="inputbox"></td>
</tr>
<tr bgcolor=#ffffff>
<td align="right" height=30>** 邮政编码：</td>
<td> <input type=text size="16" name="zipcode" class="inputbox"></td>
</tr>
<tr bgcolor=#ffffff>
<td align="right" height=30>** 电子邮件：</td>
<td> <input type=text size="25" name="email" class="inputbox"></td>
</tr>
<tr bgcolor=#ffffff>
<td align="right" height=30>联系电话：</td>
<td> <input type=text size="16" name="telnumber" class="inputbox"></td>
</tr>
<tr bgcolor=#ffffff>
<td align="right" height=30>Call机号码：</td>
<td> <input type=text size="16" name="BPnumber" class="inputbox"></td>
</tr>

性别：<select name="sex" class="inputbox">
<option value="0">男</option>
<option value="1">女</option>
</select>
年龄：<input type=text name="age" size="3" maxlength=3 class="inputbox">
</td>
</tr>

<tr bgcolor=#ffffff>
<td align=right>其余要求：</td>
<td align=center><textarea cols=40 rows=5 class="inputbox" name="needs" ></textarea></td>
</tr>
<tr bgcolor=#ffffff>
<td colspan=2 height="30" align=center>
<input type=submit value=" 提 交 " class="inputbox">  
<input type=reset value=" 重 填 " class="inputbox">
</td>
</tr>
</table>

</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</body>
</html>


数据库为bookshop.mdb、表为order1、其中字段为name(姓名),addr(地址),zip(邮政编码),email（电子邮件）,tel（联系电话）,sex（性别）,age（年龄）,memo（其余要求）


如何通过点击“提交”实现把用户填写的内容添加到数据库中?


我编写的下列代码为什么只把name和email字段的内容添加到数据库的order1表中，而其它字段都是空白的?
<%@ Language=VBScript %>
<%option explicit
dim name,tel,addr,email,zip,age,sex,memo
dim founderr,errmsg
founderr=false

name=Request.Form("name")
if name="" then
founderr=true
errmsg="姓名不能为空"
end if
tel=Request.Form("tel")
if tel="" then
founderr=true
errmsg=errmsg & "联系电话不能为空"
end if
addr=Request.Form("addr")
if addr="" then
founderr=true
errmsg=errmsg & "联系地址不能为空"
end if
email=Request.Form("email")
if email="" then
founderr=true
errmsg=errmsg & "e-mail不能为空!"
end if
zip=Request.Form("zip")
if zip="" then
founderr=true
errmsg=errmsg & "邮编不能为空!"
end if

if founderr then
Response.Write errmsg
%>

<%else
dim connstr,conn,rs,sql
connstr="dbq="+server.MapPath("mdb/bookshop.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr

set rs=server.CreateObject("adodb.recordset")
sql="select * from order1 "
rs.open sql,conn,3,3
if rs.EOF=true then
rs.MoveLast
end if

rs.AddNew
rs("name")=name
rs("addr")=addr
rs("zip")=zip
rs("email")=email
rs("tel")=tel
rs("sex")=sex
rs("age")=age
rs("memo")=memo
rs.Update
rs.Close
conn.Close
set conn=nothing
set rs=nothing

%>
<script language="javascript">
alert("已经成功添加了一条记录!谢谢!")
document.location="index.asp"
</script>


...全文
56 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
tonnycncn 2001-06-12
  • 打赏
  • 举报
 回复
这些判断最好在信息提交页面用javaScript.减轻服务器负担嘛！
if name="" then
founderr=true
errmsg="姓名不能为空"
end if
tel=Request.Form("tel")
if tel="" then
founderr=true
errmsg=errmsg & "联系电话不能为空"
end if
addr=Request.Form("addr")
if addr="" then
founderr=true
errmsg=errmsg & "联系地址不能为空"
end if
email=Request.Form("email")
if email="" then
founderr=true
errmsg=errmsg & "e-mail不能为空!"
end if
zip=Request.Form("zip")
if zip="" then
founderr=true
errmsg=errmsg & "邮编不能为空!"
end if

添加到数据库的操作你可以对着我的代码改改！
<%@ Language=VBScript %>
<%
'从表格中获取变量值
Title=Replace(Request.Form("Title"),"'","''")
'Type=Request.Form ("Type")
Area=Replace(Request.Form("Area"),"'","''")
Contents=Replace(Request.Form("Contents"),"'","''")
'Date=Now()
'对空项进行检查
IF Area="" THEN Area="Unknown"
IF Contents="" THEN Contents="None"
'获取用户的IP地址
UserIP=Request.ServerVariables("REMOTE_ADDR")
'创建SQL命令字符串
Dim MySQL
MySQL="INSERT into Feedback (Feed_Title,Feed_IP,Feed_Date,Feed_Type,Feed_Area,Feed_Contents) VALUES ('"&Title&"','"&UserIP&"','"&Now&"','"&Request.Form ("Type")&"','"&Area&"','"&Contents&"')"
'把数据加入Feedback表中
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=ccisn"
Conn.Execute MySQL
%>
<HTML>
<HEAD>
<TITLE>商贸信息发布成功</TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="ccisn.css">
<meta http-equiv="refresh" content="5;URL=../index.htm">
</HEAD>
<BODY>
<p>
<center>
<H2>发布成功</H2>

<p>
<font color="#FF0000">恭喜你！
<%=Session("UserName")%>，
<font color="red"><b>您的商贸信息发布成功,5秒后自动转入首页 !!</b></font>
</center>
</BODY>
</HTML>
teva 2001-06-12
  • 打赏
  • 举报
 回复
不要一下子就照着源程序抄啦！

同意给 梦之旅大侠 分数啦！
tripofdream 2001-06-12
  • 打赏
  • 举报
 回复
<%option explicit
dim name,tel,addr,email,zip,age,sex,memo
dim founderr,errmsg
founderr=false

name=Request.Form("name")
if name="" then
founderr=true
errmsg="姓名不能为空"
end if
tel=Request.Form("telnumber")
if tel="" then
founderr=true
errmsg=errmsg & "联系电话不能为空"
end if
addr=Request.Form("address")
if addr="" then
founderr=true
errmsg=errmsg & "联系地址不能为空"
end if
email=Request.Form("email")
if email="" then
founderr=true
errmsg=errmsg & "e-mail不能为空!"
end if
zip=Request.Form("zipcode")
if zip="" then
founderr=true
errmsg=errmsg & "邮编不能为空!"
end if

if founderr then
Response.Write errmsg
%>
引用的form中的对象不对，当然没有值。
单片机的延时与中断问题及解决方法
延时与中断出错，是单片机新手在单片机开发应用过程中，经常会遇到的问题，本文汇总整理了包含了MCS－51系列单片机、MSP430单片机、C51单片机、8051F的单片机、avr单片机、STC89C52、PIC单片机…..在内的各种单片机常见的延时与中断问题及解决方法，希望对单片机新手们，有所帮助！ 一、单片机延时问题20问 1、单片机延时程序的延时时间怎么算的？ 答:如果用循环语句实现
第一次投TR-C退稿意见分析
写在前面 本文无任何含金量，纯属自嗨 哈哈哈，大家过年好啊，首先祝各位集美们，兄弟们在新的一年 有人爱，有事做，有钱花！ 给大家描述一个这样的场景，那些自己学了点三脚猫功夫的小学徒，天天在自己的地盘舞刀弄枪呜呜渣渣的感觉还挺厉害，完了以后就带着自己的看家本领决定出去闯荡江湖，惩恶扬善，实现自己一统江湖的梦想。结果还没走多远，就遇见一个默默无闻的大侠，就开始在他面前比划起来了，什么左勾拳，右踢腿，嘿嘿哈哈的开始找他比武。这大侠不堪其扰，嗖嗖嗖，随便出了几下，只见那小学徒 啊的一声，直接被撂翻在地，先撒.
单片机中断问题30例及解决办法
1、单片机外中断INT0为下降沿触发，当中断被触发后cpu执行中断程序，若本次中断的程序还未执行完INT0又来了一个相同的下降沿中断信号怎么办？cpu会怎么处理？若是定时器中断呢？串口中断呢？
鼠眼再看Linux调度器 续1
四、CFS。 CFS现在还是非常新的调度实现，并且本人水平也十分有限，有鉴于此，这里很可能存在不当的地方甚至错误，权当抛砖引玉，不妥之处还请诸位有识之士不吝指正。 在讨论CFS之前，我们先回顾一下现有的调度器实现：这是一个巧妙的双优先级数组方案。为了尽量避免出现“过期数组”中的任务出现饥饿现象，内核使用了一些启发式的方法判断是否出现了饥饿。在绝大多数情况下，这个...
鼠眼再看Linux调度器［2］【装】
四、CFS。 CFS现在还是非常新的调度实现，并且本人水平也十分有限，有鉴于此，这里很可能存在不当的地方甚至错误，权当抛砖引玉，不妥之处还请诸位有识之士不吝指正。 在讨论CFS之前，我们先回顾一下现有的调度器实现：这是一个巧妙的双优先级数组方案。为了尽量避免出现“过期数组”中的任务出现饥饿现象，内核使用了一些启发式的方法判断是否出现了饥饿。在绝大多数情况下，这个实现给了我们非常好...
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章