| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1214 人关注过本帖
标题:[求助]大哥们帮帮忙吧
取消只看楼主 加入收藏
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
 问题点数:0 回复次数:14 
[求助]大哥们帮帮忙吧
小弟想写个验证的页面,当检测到用户名不叫张三也不叫李四时就跳转到x.asp上如果是其中一个就条到m.asp上,用户名在我这个网站上是"%=Session("RJ_TName")%"
--------------------------------------------------------------------------------------------------------------------
小弟很菜,但很想学习
搜索更多相关主题的帖子: 大哥 检测 用户名 
2005-09-07 09:14
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 
呵呵,有个问题我要重定向的网页名为"delete.asp?key=<%=RS("编号")%>"请问该怎么写,谢谢

2005-09-07 09:56
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 
谢谢islet

2005-09-07 09:58
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 
不行啊,

2005-09-07 10:13
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 
islet,你可真伟大啊

2005-09-07 10:35
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 
现在就是在验证用户问题上有麻烦,不关他是不是张三,它都跳到m.asp

2005-09-07 11:00
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 
还有就是response.Redirect("delete.asp?key="&RS("编号"))这句提交时出现的是HTTP 500 - 内部服务器错误

2005-09-07 11:13
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 

delete.asp代码: <% dim key key=Request.QueryString("key")

Set Conn=Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("装备分布.mdb") CommandText="select * from 装备分布 where [编号]=" &key Set RS=Conn.Execute(CommandText) %>

<p align="center"><b><font size="4">装备分布</font></b></p>

<table border=0 cellspacing="1" bgcolor="#808080" width="99%" style="font-size: 9pt; font-family: 宋体"> <% Response.write "<tr>" For I=0 To RS.Fields.Count-1 Response.write "<td bgcolor=#f5f5f5>"& RS(I).Name & "</td>" Next Response.write "</tr>"

While Not RS.EOF Response.write "<tr>" For I=0 To RS.Fields.Count-1 Response.Write "<td bgcolor=#ffffff>" & RS(I).Value & "</td>" Next Response.write "</tr>" RS.MoveNext Wend RS.MoveFirst

%> </table>

<html>

<head> <span style="font-size: 9pt"> <meta http-equiv="Content-Language" content="zh-cn"> <meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>记录删除</title> </head>

</span>

<body style="text-align: center"> <p align="center"><font color="#FF0000" style="font-size: 9pt">你确定删除此条记录吗?</font></p>

<p align="center"><a href="secdelete.asp?number=<%=RS("装备编号")%>"><span style="font-size: 9pt">确定</span></a><span style="font-size: 9pt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><a href="index2.htm"><span style="font-size: 9pt">取消</span></a></p>

<% RS.close conn.close %>

</body>

</html>


2005-09-07 11:26
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'RS'

/rj/test/zbfb/check.asp,行4




check.asp内容是:
<%
RJ_TName=Session("RJ_TName")
if RJ_TName<>"" or RJ_TName<>"李四" then
response.Redirect("delete.asp?key="&RS("编号"))
else
response.Redirect("error.asp")
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>

<body>

</body>

</html>

</html>

[此贴子已经被作者于2006-4-10 16:21:16编辑过]


2005-09-07 11:40
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 
网站登陆的人为,
如果把跳转的语句颠倒一下,就算是登陆也跳到error.asp上

[此贴子已经被作者于2006-4-10 16:22:18编辑过]


2005-09-07 11:44
快速回复:[求助]大哥们帮帮忙吧
数据加载中...
 
   



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

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