| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 370 人关注过本帖
标题:[求助]ASP程序有个问题
取消只看楼主 加入收藏
weishj
Rank: 1
等 级:新手上路
威 望:2
帖 子:141
专家分:0
注 册:2007-4-22
收藏
 问题点数:0 回复次数:1 
[求助]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
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.016176 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved