编程论坛's Archiver

kindman4 发表于 2008-5-12 10:54

怎么传递 id 问题 没学过asp....

[size=5][color=Red]我只是想 一个会员登陆后 连接 到 index.asp 后面加id 号那种  但这样运行老说密码错误
就是这段程序 我没学过asp 最好能帮忙改一下[/color][/size]Set rs1=Server.CreateObject("Adodb.RecordSet")
conn = "DBQ=" + server.mappath("database/text.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="Select * From 教师姓名密码 Where id="&clng(Request.QueryString("id"))
rs1.Open sql,conn,3,3        

id = rs1("id")
response.Redirect("index.asp?id="&id&"")

[color=Red][size=5]在 checklogin.asp 里 我是这样写的  不知道哪里错了[/size][/color]

<%@ Language=VBScript %>
<%
Set rs1=Server.CreateObject("Adodb.RecordSet")
conn = "DBQ=" + server.mappath("database/text.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="Select * From 教师姓名密码 Where id="&clng(Request.QueryString("id"))
rs1.Open sql,conn,3,3

dim name,password
dim sql
dim rs
name=request("txt1")
password=request("txt2")
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("database/text.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from 教师姓名密码 where 教师姓名='"&name&"'and 教师密码='"&password&"'"
rs.Open sql,conn,1,1

if not rs.EOF then
        session("name")=name
       
        id1 = rs1("id")
        response.Redirect("index.asp?id1="&id&"")
       
else
        response.write "<script language=JavaScript>" & chr(13) & "alert('用户或密码不正确!用户登录失败!');" & "history.back()" & "</script>"
end if

%>

[[it] 本帖最后由 kindman4 于 2008-5-12 10:56 编辑 [/it]]

kindman4 发表于 2008-5-12 12:44

.........

kindman4 发表于 2008-5-12 15:27

[tk05] [tk05] [tk05]

yms123 发表于 2008-5-12 15:35

id是中文?

kindman4 发表于 2008-5-12 15:59

id 是  用户名密码 里的  每个用户 对应的 一个字段 数字型的

yms123 发表于 2008-5-12 16:11

登陆页面是怎么写的?

极地狐1201 发表于 2008-5-13 16:43

关注一下

heyufu 发表于 2008-5-13 16:58

网上有好多会员登录系统。找下来用咯~~

kindman4 发表于 2008-5-13 20:06

最后 我是用  <%=session("name")%>

记录 登陆id 来显示不同用户 自己的记录 用 <%=session("name")%> 来查询表里的记录  

这样能看到 自己的记录了  不用的话 每个用户都能看到记录....

xxzdm 发表于 2008-5-14 11:25

不知所云..代码乱七八糟....

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.