郁闷一晚上,代码实现不了,请各位帮我看看!!!!!!!!

shawshanke 2003-03-20 09:56:50
两个页面:login.asp logincheck.asp,前一个是用户登陆,后一个验证登陆!

login.asp:

<%@language="vbscript"%>
<html>
<body>
<form action="logincheck.asp" method="post" enctype="multipart/formdata">
username:<input type=text name=username >
password:<input type=password name=password >
<input type=submit>
<Input type=reset>
</form>
</body>
</html>

<%
dim rs,con,connectionstring,cmd
connectionstring="Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=shopcart;Data Source=shawshanke"
set con=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
con.open connectionstring
rs.activeconnection=con
rs.cursorlocation=aduseclient
set cmd=server.createobject("adodb.connection")

%>


logincheck.asp:

<%@language="vbscript"%>
<%
dim rs,con,connectionstring,cmd
connectionstring="Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=shopcart;Data Source=shawshanke;Persist Security Info=False"
set con=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
con.open connectionstring
rs.activeconnection=con
rs.cursorlocation=adUseClient
set cmd=server.createobject("adodb.command")
cmd.activeconnection=connectionstring

username=request.form("username")
password=request.form("password")


sql="select orders.order_id, product.product_name, orders.customer_id,customer.last_name,customer.first_name,customer.customer_id,product.product_id,order_item_detail.quantity,order_item_detail.order_item_status"&_
"from orders,product,customer,order_item_detail"&_
"where customer.customer_id=orders.customer_id and order_item_detail.product_id=product.product_id and orders.order_id=order_item_detail.order_id and"&_
"upper(ltrim(rtrim(customer.user_name)))=" & ucase(username) &_
"and upper(ltrim(rtrim(customer.password)))=" &_
"ucase(password)"
rs.open sql,con,1,1

if not (rs.bof or rs.eof) then
customerid=rs("customer_id")
response.cookies("cartid"=rs("order_id"))
response.cookies("customerid"=rs("customer_id"))
response.cookies("customerid".expires="december 31,2005")
response.write "<b>hello"&rs("first_name")&" "&rs("last_name")&_
"</b><br>"
response.write "here are some details about your previous order/s you"&_
"might be interested in <br><br>"

do while not rs.eof
response.write "product_name:"&" "&rs("product_name")&"<br>"
response.write "quantity:"&" "&rs("quantity")&"<br>"
response.write "status:"&" "&rs("order_item_status")&"<br>"
rs.movenext
loop
rs.close

else
sql="select customer_id from customer where"&_
"upper (ltrim(rtrim(customer.user_name)))="&"'"&ucase(username)&"'"&_
"and upper(ltrim(rtrim(customer.password)))="&"'"&ucase(password)&"'"

rs.open sql,con,adopendynamic

if not (rs.bof or rs.eof) then
customerid=rs("customer_id")
reponse.cookies("customerid")=customerid
reponse.cookies("customerid").expires="december 31,2005"

response.redirect"storefront.asp"

else
response.write"<h2>we could not find your records please"&_
"re-register or contact your sales represetative</h2><br>"
response.write"<h4>or go to the store front to continue shopping"&_
"</h4><br>"
end if
end if

response.write "<hr>"
response.write "<a href=products.asp>continue shopping</a>"
response.write "   "
response.write "<a href=storefront.asp>store front</a>"

%>

有错误:说logincheck.asp的rs.open sql,con,1,1的'.'附近有错误!
麻烦帮忙调试调试!
...全文
668 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
Andyken 2003-03-21
  • 打赏
  • 举报
 回复
在logincheck.asp文件开头
<%@language="vbscript"%>
<%
if isObject(rs)=true then
set rs=nothing
end if
if isObject(con)=true then
set con=nothing
end if
''''''''''your other code

%>
然后rs.open sql,con,1,3--------->试试看
要是还有问题就是你的sql语句写错了
要不你把sql语句response.write 出来
copy到到数据库的查询分析器里运行。看看结果。
funboy88 2003-03-21
  • 打赏
  • 举报
 回复
连接的地方帐号密码都没有，你怎么能连上数据库的呀
cryingboy 2003-03-21
  • 打赏
  • 举报
 回复
楼上可能说对了，在数据库连接之后，做个简单的查询看一下，能成功不！
daanhan 2003-03-21
  • 打赏
  • 举报
 回复
少了空格吧，比如下面的样子

……order_item_detail"&_
"where cust……

应该改成

……order_item_detail "&_
"where cust……
ChaoHan 2003-03-21
  • 打赏
  • 举报
 回复
rs.open sql,con,1,1出问题时，请检查数据库连接和SQL语句是否都正确，逐一的排除问题。同时将打开的表关掉。
tenflee 2003-03-21
  • 打赏
  • 举报
 回复
<form action="logincheck.asp" method="post" enctype="multipart/formdata">

这一行有错了，enctype="multipart/formdata"一般是用来传输二进制数据的，用户登录不需要这些，把它去掉

其它地方我没有发现有错 :)
coffee_black 2003-03-21
  • 打赏
  • 举报
 回复
呵呵
dh20156 2003-03-21
  • 打赏
  • 举报
 回复
UP ^_^
eafin 2003-03-21
  • 打赏
  • 举报
 回复
<form action="logincheck.asp" method="post" enctype="multipart/formdata">
你的传输形式是使用二进制？？
<form action="logincheck.asp" method="post">
zhongallen 2003-03-20
  • 打赏
  • 举报
 回复
你的连接字符串中似乎缺少了User ID=?;Password=?这个吧，否则如何成功连接数据库啊？
shawshanke 2003-03-20
  • 打赏
  • 举报
 回复
试了,还是一样的错误!
jiangjian0427 2003-03-20
  • 打赏
  • 举报
 回复
if not (rs.bof or rs.eof) then 改为：
if not rs.eof or rs.bof then
Gerrit代码Review入门实战
Gerrit是Google为Android系统研发量身定制的一套免费开源的代码审核系统，它在传统的源码管理协作流程中强制性引入代码审核机制，通过人工代码审核和自动化代码验证过程，将不符合要求的代码屏蔽在代码库之外，确保...
月薪1800，我不干！请看一位同济女生
我是2005年毕业的,偶尔来这里看看，不常灌水。今天来随意写下一些，如果对各位有任何的帮助，是我衷心所愿。1.考研与就业： 2004年的暑假，我和大多数人一样，艰难的抉择，究竟是考研还是找工作。 凭良心说，如果我选择考研并不是因为我真得很想读书很想深造，而是我害怕接触社会， 想再窝在学校几年。 所以，虽然我非常不喜欢我这个专业，我还是决定做个鸵鸟，情愿去干我唯一...
小公司的一年，一起看看小公司的前端可以怎么做
前言 昨日，我请了一天假去考科目三，结果第一把挂在了没完全关闭灯光上，第二把挂在转弯时没有观察后方车辆，当听到师傅一句“下去”的时候，我那是悲痛的面红耳赤，这让我很郁闷，晚上也就不想回去上班了，回家后仍然有点低沉，在这种情况下，不写点毒鸡汤，好像已经不能好好的调节心情了，看看时间年底了，便写写今年的总结吧。 回想自己学车的点点滴滴，其实是很认真的，一旦有时间就去学习，练习时候也表现比较正常，晚...
最近网友QQ联系我解决问题的郁闷
请稳步我的博客查阅并下载所有资源以及源代码 http://www.cckan.net   一直有人在QQ问我一些关于技术方面的问题？但是最近我总是碰上一些让自己很郁闷的事情。 所以写出来让大家讨论下，一是看看大家的建议，再就是告诉那些需要帮助的朋友们应该怎么样正确的提问题。 应该怎么样的有效沟通 我先说说我自己很生气的一些提问 1.打死就是不说问题。     网友：你好     本
【转】中专生的C++之路!
我的文化水平不高，只是一个普通的中专生，但我热爱编程！！！！我的英文数学水平也就初中的水平！学C++一年了，走了不少弯路，主要是因为买错书，希望我的读书指南可以帮帮那些跟我一样的人。 [ 查看本指南所提及的书籍 ]      初学嘛，最好先看看一本符合中国学生思考方式的书，这里我推荐谭浩强的 C程序设计（第二版） ，这本书据说是中国人刚开始接触编程时候的书，算是非常适合入门的一本书。记得以前在程序...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章