| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 370 人关注过本帖
标题:[求助]ASP程序有个问题
只看楼主 加入收藏
weishj
Rank: 1
等 级:新手上路
威 望:2
帖 子:141
专家分:0
注 册:2007-4-22
收藏
 问题点数:0 回复次数:4 
[求助]ASP程序有个问题
大家好,我刚刚学ASP,今天编了个留言本,但有时可以执行,有时却不行,真是怪事,请高手们帮下忙,谢谢。
显示留言那部分代码没有问题,估计是添加记录时出了什么问题。
数据库各字段如下:
ID time ip message title email name qq homepage
自动编号 日期 文本 文本 文本 文本 文本 数字 文本
数据库名:post.mdb
<%
'-------------------------------------------------下面代码用于处理新留言----------------------
if request.Form("name")<>"" then
if request.Form("title")<>"" then
if request.Form("msg")<>"" then
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("post.mdb")
set rs1=server.CreateObject("adodb.recordset")
sqlstr1="select * from msg"
rs1.open sqlstr1,conn1,3,3
rs1.movelast
rs1.addnew
'------------------------------------------------向数据库中写入数据-----------------------------
rs1("qq")=request.Form("QQ")
rs1("email")=request.Form("email")
rs1("name")=request.Form("name")
rs1("homepage")=request.Form("homepage")
rs1("title")=request.Form("title")
rs1("message")=request.Form("msg")
rs1("time")=now()
dim userip
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
end if
rs1("ip")=userip
rs1.update
rs1.close
conn1.close
set rs1=nothing
set conn1=nothing
response.redirect("index.asp")
end if
end if
end if
'-------------------------------------------------处理留言部分结束----------------------------
%>

[此贴子已经被作者于2007-10-7 21:05:58编辑过]

搜索更多相关主题的帖子: ASP 
2007-10-07 20:55
shaoli4261
Rank: 3Rank: 3
来 自:安徽.巢湖
等 级:新手上路
威 望:6
帖 子:212
专家分:0
注 册:2007-9-11
收藏
得分:0 
<%
'-------------------------------------------------下面代码用于处理新留言----------------------
if request.Form("name")<>"" then
if request.Form("title")<>"" then
if request.Form("msg")<>"" then
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("post.mdb")
set rs1=server.CreateObject("adodb.recordset")
sqlstr1="select * from msg"
rs1.open sqlstr1,conn1,3,3
rs1.addnew
'------------------------------------------------向数据库中写入数据-----------------------------
rs1("qq")=request.Form("QQ")
rs1("email")=request.Form("email")
rs1("name")=request.Form("name")
rs1("homepage")=request.Form("homepage")
rs1("title")=request.Form("title")
rs1("message")=request.Form("msg")
rs1("time")=now()
dim userip
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
end if
rs1("ip")=userip
rs1.update
rs1.close
conn1.close
set rs1=nothing
set conn1=nothing
response.redirect("index.asp")
end if
end if
end if
'-------------------------------------------------处理留言部分结束----------------------------

既然是增加一条信息,为什么好要用rs1.movelast啊?我不知道~~~

[此贴子已经被作者于2007-10-7 22:17:40编辑过]


爱一个人,不一定拥有她,但拥有一个人,就要爱她。也许她不是最好的,但她可能是你最值得的珍惜的人。
2007-10-07 22:16
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 

不行的时候报什么错?

2007-10-07 22:18
天涯听雨
Rank: 2
来 自:东莞
等 级:论坛游民
威 望:4
帖 子:497
专家分:64
注 册:2007-8-25
收藏
得分:0 
你的QQ字段用的是数字数据类型,在入库前请一定保证是数字类型。。而且必须是半角态下

If not isNumeric(trim(request.Form("QQ"))) then
response.write "<script LANGUAGE='javascript'>alert('请正确输入QQ号,只能为数字类型!');history.go(-1);</script>"
response.end
end if

你在建立记录集打开数据库时用如下会快

set rs1=server.CreateObject("adodb.recordset")
sqlstr1="select top 1 * from msg" '不要全部打开,全部打开是需要时间的
rs1.open sqlstr1,conn1,1,3


从明天起做幸福的人,喂马劈柴周游世界!
2007-10-07 22:25
weishj
Rank: 1
等 级:新手上路
威 望:2
帖 子:141
专家分:0
注 册:2007-4-22
收藏
得分:0 

非常感谢楼上几位,我刚刚接触ASP,还是一个人在黑夜中摸索.幸亏有论坛的各位兄弟的帮助.
去掉了那个movelast,检验一下输入合法性问题解决了

[CODE]你在建立记录集打开数据库时用如下会快

set rs1=server.CreateObject("adodb.recordset")
sqlstr1="select top 1 * from msg" '不要全部打开,全部打开是需要时间的
rs1.open sqlstr1,conn1,1,3

[/CODE]
非常感谢

[此贴子已经被作者于2007-10-8 10:50:03编辑过]


If you shed tears when you miss the sun, you also miss the stars.
2007-10-08 10:49
快速回复:[求助]ASP程序有个问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047936 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved