很简单的问题，谢谢各位！
1. 在 html 中单击 submit 按钮后，该父 form 应该有 post 动作，但是我想在 submit
按钮的 onclick 事件中作检查，若检查不通过则不发出 提交 动作，现在无论检查通
不通过都提交，有够烦。
2.
<%
....
if rs.EOF then
varstr = "无此用户，请检查！"
else
if rs.Fields.item(2)<>Request.Form("psd") then
varstr = "用户密码错误，请检查密码大小写并与管理员联系！"
else
varstr = rs.Fields.item(1) & " 登录成功！ "
//？？？？？？？？？？？？？？
end if
end if
...
%>
我想在 asp 中实现登录成功后跳转到 aaa.htm 页面，
如何在 //？？？？？？？？？？？？？？
处添加代码？若想要做一个延时再跳转又该如何写？
问题点数：100、回复次数：19Top
1 楼dxef（丁学）回复于 2006-03-07 20:19:38 得分 15
1.正确做法应该在form里写onsubmit="return fun()"如果不想提交，可以在函数fun()里返回false值
2.response.redirect "aaa.htm"
如果想延时跳转，要多输出很多东西，原理就是输出ＨＴＭＬ或ＪＳ控制跳转Top
2 楼mydo（侯佩|hopy|ks）回复于 2006-03-07 20:26:44 得分 0
to dxef(丁丁)
请给我一段延时代码好么？即能够看清 <% = varstr %> 大约 3 秒钟，以便
向用户显示登录成功，然后再跳到 aaa.htm 中去。Top
3 楼xeonwell（XeonWell）回复于 2006-03-07 20:45:18 得分 10
response.write "<meta http-equiv='refresh' content=""3,url='aa.htm'"">"
希望没写错Top
4 楼mydo（侯佩|hopy|ks）回复于 2006-03-07 20:48:34 得分 0
语法是没错，但是打开的还是自己，并没有打开 aa.htmTop
5 楼mydo（侯佩|hopy|ks）回复于 2006-03-07 21:23:41 得分 0
另外我在一个 asp 中用 response.redirect "aaa.asp" 调用 aaa.asp
如何向他传递变量？Top
6 楼mydo（侯佩|hopy|ks）回复于 2006-03-07 23:00:44 得分 0
我是这样写数据库的:
<%
if Request.Form("txtname")="" then
else
Set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\") & "\" & "main.mdb;" & "Mode=ReadWrite;Persist Security Info=False"
conn.open strConn
rs.Open "select * from TheData", conn, 1,3
if rs.EOF and rs.BOF then
rs.AddNew
rs.Fields("LN").Value=99
rs.Fields("日期").Value=date
rs.Fields("姓名")=Request.Form("txtname")
rs.Update
else
rs.MoveLast
rs.AddNew
rs.Fields("LN").Value=99
rs.Fields("日期").Value=date
rs.Fields("姓名").Value=Request.Form("txtname")
rs.Update '????????????
end if
conn.Close
rs.Close
end if
%>
执行到 '???????????? 这句时出现以下错误:
Error Type:
Microsoft JET Database Engine (0x80040E21)
The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.
/input.asp, line 47
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
Page:
POST 97 bytes to /input.asp
请帮帮忙Top
7 楼tigerwen01（小虎）回复于 2006-03-07 23:11:29 得分 10
去掉rs.MoveLastTop
8 楼SuperBJack（我想飞翔）回复于 2006-03-07 23:14:14 得分 10
my top
Top
9 楼kaijier（<空杯子>）回复于 2006-03-07 23:28:28 得分 10
dingTop
10 楼boyd1985（波伊德乐园->http://www.boyd.cn）回复于 2006-03-08 07:57:32 得分 10
过来了，但迟了，接点分吧Top
11 楼mydo（侯佩|hopy|ks）回复于 2006-03-08 08:02:59 得分 0
to tigerwen01(小虎)(编程艺术化)
如果去掉 rs.movelast 那么在添加新记录时，是从最后一个记录后面开始
添加么？我按照你说的去掉了 rs.movelast ,但在写数据库仍然没有反应，
打开数据库文件一看完全没有添加，哪里还有问题？谢谢各位。Top
12 楼xiaogu1234（小古）回复于 2006-03-08 08:14:48 得分 10
rs.MoveLast这句没必要。添加时应该是从后面开始添加。添不上去记录和这个rs.movelast没什么关系。。。Top
13 楼KimSoft（革命的小酒天天醉-http://blog.csdn.net/kimsoft/）回复于 2006-03-08 08:17:21 得分 10
Error Type:
Microsoft JET Database Engine (0x80040E21)
The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.
索引重复了。字段"LN"，"日期"，"姓名"中肯定有一个是索引值且不允许重复，楼主检查一下吧。
Top
14 楼mydo（侯佩|hopy|ks）回复于 2006-03-08 08:37:49 得分 0
to KimSoft(革命的小酒天天醉)
现在没有 Microsoft JET Database Engine (0x80040E21) 这个提示了，但是
执行 asp 中的：
<%
Set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\") & "\" & "main.mdb;" & "Mode=ReadWrite;Persist Security Info=False"
conn.open strConn
rs.Open "select * from TheData", conn, 1,3
if rs.EOF and rs.BOF then
rs.AddNew
rs.Fields("LN").Value=99
rs.Fields("日期").Value=date
rs.Fields("姓名")="11111"
rs.Update
else
rs.AddNew
rs.Fields("LN").Value=99
rs.Fields("日期").Value=date
rs.Fields("姓名").Value="2222"
rs.Update
end if
conn.Close
rs.Close
%>
之后，数据库内容完全没有反应，请问是哪里有问题？或者哪位给我个
最简单的access数据库写入的代码片断看看，谢谢Top
15 楼mydo（侯佩|hopy|ks）回复于 2006-03-08 08:44:48 得分 0
到这种简单的程度了，数据库还是无反应:
<%
Set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\") & "\" & "main.mdb;" & "Mode=ReadWrite;Persist Security Info=False"
conn.open strConn
rs.Open "select * from TheData", conn, 1,3
if rs.EOF and rs.BOF then
rs.AddNew
rs.Fields("LN").Value=99
rs.Fields("日期").Value=date
rs.Fields("姓名")="11111"
rs.Update
end if
conn.Close
rs.Close
%>Top
16 楼zhanghongwen（流氓蚊子）回复于 2006-03-08 08:47:05 得分 15
<script>
function fncSelectAll(obj){
var objs=document.getElementsByName(obj.name+"Sub");
for(var i=0;i<objs.length;i++){
objs[i].checked=obj.checked;
}
}
function page1()
{
form1.action='lfgl.asp';
form1.submit();
}
function page2()
{
form1.action='clearglsql.asp';
form1.submit();
}
</script>
<input name="Submit" type="submit" class="Bbutton2" onClick="page1();" value="查询">
<input name="Submit2" type="submit" class="Bbutton2" onClick="page2();" value="全部显示">
Top
17 楼mydo（侯佩|hopy|ks）回复于 2006-03-08 08:55:44 得分 0
to zhanghongwen(流氓蚊子)
有写入数据库的代码么？是 access 么？Top
18 楼mydo（侯佩|hopy|ks）回复于 2006-03-08 09:42:45 得分 0
还没解决,哪位给我个最简单的access数据库写入的代码片断,谢谢Top
19 楼mydo（侯佩|hopy|ks）回复于 2006-03-08 11:04:45 得分 0
upTop
