帮忙看一下这个ADDNEW怎么了？

mikespook 2002-01-01 01:26:32
<%@ LANGUAGE="VBSCRIPT" %>
<%Set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../data/data.mdb")
Conn.Open StrCnn
%>
<%dim errorString
dim pName
dim pNickname
dim pSex
dim pBirthday
dim pQQ
dim pIcq
dim pEmail
dim pTel
dim pHomepage
dim pText
dim pAddress
dim pPostNO
dim pPassword
dim pRepassword
dim pDate%>
<%sub getform()
pNickname=trim(Request.Form("txtnickname"))
pSex=trim(Request.Form("txtsex"))
pName=trim(Request.Form("txtname"))
pBirthday=trim(Request.Form("txtbirthday"))
pQQ=trim(Request.Form("txtQQ"))
pIcq=trim(Request.Form("txticq"))
pEmail=trim(Request.Form("txtemail"))
pTel=trim(Request.Form("txttel"))
pHomepage=trim(Request.Form("txthomepage"))
pText=trim(Request.Form("txttext"))
pPostNO=trim(Request.Form("txtpostNO"))
pPassword=trim(Request.Form("txtPassword"))
pRepassword=trim(Request.Form("txtRepassword"))
pAddress=trim(Request.Form("txtAddress"))
pDate=date
errorString=""
end sub%>
<html>
<head>
<title>Lucky7同学录</title>
<link rel="stylesheet" type="text/css" href="../include/white.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body><%
getform()
if pName="" then
errorString="姓名不能为空|"
end if

if pSex="" then
errorString=errorString+"性别不能为空|"
end if

if pBirthday="" then
errorString=errorString+"生日不能为空|"
end if

if pAddress="" then
errorString=errorString+"通信地址不能为空|"
end if

if pPostNO="" then
errorString=errorString+"邮政编码不能为空|"
end if

if pPassword="" then
errorString=errorString+"密码不能为空|"
end if

if not (pPassword=pRepassword) then
errorString=errorString+"“密码”与“重复密码”不同|"
end if

if not isdate(pBirthday) then
errorString=errorString+"你输入的生日不是日期,请按"&date&"的格式输入|"
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="275"><img src="../images/top.gif" width="280" height="60"></td>
<td><A HREF=http://asiafriendfinder.com/go/p103828 target=_top>
<img src=http://banners.asiafriendfinder.com/banners/ffz/gb05.gif
width=468 height=60 border=0></A></td>
</tr>
</table>
<div align="center"><p>
<%if not errorString="" then%>
<table width="50%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td>你填写的资料有如下错误：<b><%=errorString%></b>请重新填写。</td>
</tr>
<tr>
<td>
<div align="right"><img src="../images/link.gif" width="18" height="18" align="absmiddle"><a href="javascript:history.back();">确定>></a><img src="../images/link.gif" width="18" height="18" align="absmiddle"><a href="../default.htm">返回首页>></a></div>
</td>
</tr>
</table>
<%end if%>
<%if errorString="" then%>
<%
rs.open "select * from members",conn,1,3
rs.addnew
rs("姓名")=pName
rs("昵称")=pNickname
rs("性别")=pSex
rs("生日")=pBirthday
rs("QQ号码")=pQQ
rs("ICQ号码")=pIcq
rs("电子邮件地址")=pEmail
rs("电话")=pTel
rs("个人主页")=pHomepage
rs("通信地址")=pAddress
rs("邮政编码")=pPostNO
rs("备注")=pText
rs("密码")=pPassword
rs("登陆日期")=pDate
rs.update
rs.close
conn.Close
%>
<table width="50%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td>你填写的资料已经注册，请返回首页进行登陆。</td>
</tr>
<tr>
<td>
<div align="right"><img src="../images/link.gif" width="18" height="18" align="absmiddle"><a href="../default.htm">返回首页>></a></div>
</td>
</tr>
</table>
<%end if%></p>
</div>
<div align="center">
<p><IMG height=1 src="../images/compart.gif" width=600></p>
<p><b>版权所有</b>©1997-2002 大懒猫工作室</p>
<p><a href="http://lucky7.yeah.net">http://lucky7.yeah.net</a></p>
</div>
</body>
</html>
...全文
161 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
mikespook 2002-01-01
  • 打赏
  • 举报
 回复
给分！
mikespook 2002-01-01
  • 打赏
  • 举报
 回复
呵呵，分照给但是我已经知道哪里出错，DATE，STRING，LONG，给你们点提示。我的数据结构……
lea1981 2002-01-01
  • 打赏
  • 举报
 回复
是不是 Server.MapPath("../data/data.mdb")的问题?
我以前遇到过,在本地机调试的时候能够通过,但是传到服务器上不行之后改了这条语句就行了.
julyclyde 2002-01-01
  • 打赏
  • 举报
 回复
Access不支持batch更新的，所以open时参数要选对
jsidiot 2002-01-01
  • 打赏
  • 举报
 回复
就是数据打开类型不对
楼上说的对
只要后面是3就可以了
mikespook 2002-01-01
  • 打赏
  • 举报
 回复
没人回答么？我知道在rs.addnew出的错，但错在哪里我不知道。帮帮忙！
希偌 2002-01-01
  • 打赏
  • 举报
 回复
对了，你给分吗？呵呵
希偌 2002-01-01
  • 打赏
  • 举报
 回复
呵呵
当然了，你用的打开参数是批量参数
rs.open "select * from members",conn,1,3
里面的三表示批量，更新时应该用
rs.updatebatch
批更新
如果你要用rs.update的话，应该这样打开
rs.open "select * from members",conn,1,1
mikespook 2002-01-01
  • 打赏
  • 举报
 回复
不是，可能是rs.addnew需要参数。如果把
rs.addnew
rs("姓名")=pName
rs("昵称")=pNickname
rs("性别")=pSex
rs("生日")=pBirthday
rs("QQ号码")=pQQ
rs("ICQ号码")=pIcq
rs("电子邮件地址")=pEmail
rs("电话")=pTel
rs("个人主页")=pHomepage
rs("通信地址")=pAddress
rs("邮政编码")=pPostNO
rs("备注")=pText
rs("密码")=pPassword
rs("登陆日期")=pDate
rs.update
这几行去掉一切正常。但是一加上就无法运行了。
帮忙看看这是什么问题
我有套（老飞飞游戏）的源码，有人帮忙编译下不，或者教教也行，2084185277
Git配置SSH及通过IDEA连接GitLab方法总结
转载 https://blog.csdn.net/qq_37606901/article/details/103324509 写在前面： 还记得大学毕业来到公司那一阵子，老大叫我配置Git环境，并且通过SSH连接GitLab来上传和拉取代码。当时我整了一个下午还是没能配置好。一个方面是自己能力实在是太差了，另一个方面是网上有些方法都比较乱、不够详细。前几天我的Git工具出现了莫名其妙的错误（能够拉取新代码、当时上传代码却失败了），于是我重新配置了SSH。后面决定写一篇博客来记录一下。 开始配置 1、下载并且
”记录集为只读“怎么解决？请高手帮忙看看。感激不尽……
以下是我像数据库中添加书籍信息的一个函数，我是用MFC的。m_pSet是CRcourdSet类型 的指针，指向CRcordSet派生类型对象的指针。 void CMy2View::OnAddBook()  { // TODO: Add your command handler code here CAddBook AddbookDlg;//定义对话框对象 if(AddbookDl
给你一个整数数组 arr，请你帮忙统计数组中每个数的出现次数。 如果每个数的出现次数都是独一无二的，就返回 true；否则返回 false。
package com.pshdhx.easy; import java.util.ArrayList; import java.util.HashMap; import java.util.HashSet; import java.util.Iterator; import java.util.List; import java.util.Map; import java.util.Set; /** * 给你一个整数数组 arr，请你帮忙统计数组中每个数的出现次数。 * 如果每个数的出现次数都是.
zTree框架添加节点示例
今天写web的代码卡在这里一个多小时，总结一下。     zTree的addNodes(parentNode, newNodes, isSilent)方法的参数说明太具迷惑性了。如图：     于是我认为这个地方用的是json串，可能是后台代码写太多了，思维定势吧。用JSON.stringify()方法把父节点对象和子节点对象序列化之后，再传入addNodes()方法，提示表达式格式有
ASP

28,406

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章