一个急需高手回答的问题,急!!!!!!!!!!!!!!!!!!!!!!!!!!!!!如果得不到正确答案便信心再学下去............

fyr000000 2004-10-01 08:54:31
<script language="VBScript" RunAt="Server">
Sub Write_Cookies()
'目的:将表单数据写入cookies
'---------- Write cookies ---------------
Response.Cookies("username")=Request.Form("text1")
'Cookies("username")的有效期限为一个月
Response.Cookies("username").Expires=DateAdd("m",1,Date)
'--------------------------------------
Response.Cookies("e_mail")=Request.Form("text2")
'Cookies("e_mail")的有效期限为一个月
Response.Cookies("e_mail").Expires=DateAdd("m",1,Date)
'--------------------------------------
Response.Cookies("uid")=Request.Form("text3")
'Cookies("uid")的有效期限为一个月
Response.Cookies("uid").Expires=DateAdd("m",1,Date)
'--------------------------------------
Response.Cookies("sex")=Request.Form("radio1")
End Sub
Sub Check_ID()
'目的:检查ID是否已存在
Dim SQLstr,rs1
Dim uid
uid=Request.Form("text3")
'----------- Create ADO Connection ----------
SQLstr="select * from password where userid=" '& uid &' " "
'建立ADO Connection,然后以DSN-Less方式打开数据来源
set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "Driver={Microsoft Access Driver(*.mdb)};"&_
"DBQ="& Server.MapPath("/web/aspadv.mdb")
'执行SQL指令,并将结果存储于Recordset中
set rs1=adocon.Execute(SQLstr)
If Not rs1.EOF Then 'ID 已存在
Response.Write"<br><center><h1>"
Response.Write"<hr>Sorry~~~<p>"
Response.Write"本 ID(<font color=red>" & Request.Form("text3")
Response.Write"</font>)已被另一人注册,请改用其他ID!"
Response.Write"</p></h1><hr>"
Response.Write"<a href='javascript:history.back()'>"
Response.Write"回前一画面</a>"
Response.Write"</center>"
rs1.Close:Set rs1=Nothing
Else
rs1.Close:Set rs1=Nothing
'导向到4-02.asp准备发送"确认"
Response.Redirect("4-02.asp")
End If
End Sub
</script>
<%
Write_cookies
Check_ID
%>








显示错误为


错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/web/Reg.asp, 第 28 行




希望能快点得到改正这个错误,一个菜鸟的心声!!!!!!!!!!!!!!!!

...全文
822 36 打赏 收藏 转发到动态 举报
写回复
用AI写文章
36 条回复
切换为时间正序
请发表友善的回复…
发表回复
yiyioo 2004-10-07
  • 打赏
  • 举报
 回复
<%
sentence="Here are the sentence!<br>"

response.write sentence
'输出Here are the sentence!
response.write server.htmlencode(sentence)
'输出Here are the sentence!<br>

%>
因为<br>是html的标记，直接输出会被浏览器执行，变成换行
用server.htmlencode（）就可以了
fyr000000 2004-10-06
  • 打赏
  • 举报
 回复
我知道问题所在了,或许是因为我的系统不稳定,
或许是ACCESS的问题.今天重试又没有问题了.......
fyr000000 2004-10-06
  • 打赏
  • 举报
 回复
楼上的谢谢,但是这个问题我已经解决了........................
但是我现在的问题是最后一个,请帮我看看!!!!!!!!!!!!!!!!!!!!!!
zhuifengxiaozi 2004-10-06
  • 打赏
  • 举报
 回复
Set adocon = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/web/aspadv.mdb")
adocon.Open Strconn



应该对的
fyr000000 2004-10-05
  • 打赏
  • 举报
 回复
显示查询结果

--------------------------------------------------------------------------------
学号 姓名 语文 数学 英语
2122898 范晏锐 60 80 70
2122903 冯骥骅 80 85 90
2122907 徐桢炜 70 75 80


以上这是出现的数据库的内容


我什么也没做,只是在URL拦里多按了几下"转到",有时点几下刷新,问题就一直出来，真是怪事!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
fyr000000 2004-10-05
  • 打赏
  • 举报
 回复
<html>
<head>
<title>echo3</title>
</head>
<body bgcolor=#ffcccc>
<h2>显示查询结果</h2>
<hr>
<table border=1>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
Server.MapPath("marks.mdb")
Set rs=conn.Execute("SELECT * FROM 成绩单")
Response.Write "<TR>"
Response.Write "<TH>学号</TH>"
Response.Write "<TH>姓名</TH>"
Response.Write "<TH>语文</TH>"
Response.Write "<TH>数学</TH>"
Response.Write "<TH>英语</TH>"
Response.Write "</TR>"
While Not rs.EOF
Response.Write "<TR>"
Response.Write "<TD>" & rs("学号") & "</TD>"
Response.Write "<TD>" & rs("姓名") & "</TD>"
Response.Write "<TD>" & rs("语文") & "</TD>"
Response.Write "<TD>" & rs("数学") & "</TD>"
Response.Write "<TD>" & rs("英语") & "</TD>"
Response.Write "</TR>"
rs.MoveNext
Wend
conn.Close
%>
</table>
</body>
</html>


这里的一段代码是echo3.asp , 数据库也已经建好,但是不知为什么老是出现以下问题

无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Provider (0x80004005)
未指定的错误
/fyr/echo3.asp, 第 11 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

网页：
GET /fyr/echo3.asp

时间：
2004年10月5日, 23:20:21


详细信息：
Microsoft 支持







但是有事却能出现数据库的内容,不知道是为什么???????????????




这个应该没有接触问题吧:)
明珠佩佩 2004-10-05
  • 打赏
  • 举报
 回复
Set adocon = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/web/aspadv.mdb")
adocon.Open Strconn
fyr000000 2004-10-05
  • 打赏
  • 举报
 回复
为什么上面的那个L7-4.htm和L7-5.ASP的源代码放在CSDN的论坛贴里呈现的是代码.
而在某些其他论坛的帖子里L7-4.htm出来的却是表单(即IE里出现的效果),而那个L7-5.ASP却什么也没显示????????????????????????????????????????????????????????????????????????????????????



http://www.netlawcn.com/nlbbs/dispbbs.asp?boardID=3&RootID=2502&ID=2502
这个就是我说的楼上那个论坛里出现的问题,还请大虾们进去看看!!!!!!!!!!!!
fyr000000 2004-10-05
  • 打赏
  • 举报
 回复
谢谢大家,那个数据库的问题我已经知道了:)





为什么上面的那个L7-4.htm和L7-5.ASP的源代码放在CSDN的论坛贴里呈现的是代码.
而在某些其他论坛的帖子里L7-4.htm出来的却是表单(即IE里出现的效果),而那个L7-5.ASP却什么也没显示????????????????????????????????????????????????????????????????????????????????????



http://www.netlawcn.com/nlbbs/dispbbs.asp?boardID=3&RootID=2502&ID=2502
这个就是我说的楼上那个论坛里出现的问题,还请大虾们进去看看!!!!!!!!!!!!






xiaoyuehen 2004-10-05
  • 打赏
  • 举报
 回复
可能是你的贴子被强制结贴了吧???
stefli 2004-10-05
  • 打赏
  • 举报
 回复
Microsoft Access Driver(*.mdb)};"&_

-----------------------^

Microsoft Access Driver (*.mdb)};"&_
fyr000000 2004-10-04
  • 打赏
  • 举报
 回复
顺便问一下，我好象没做过什么坏事,为什么"信誉"老是在减???
fyr000000 2004-10-04
  • 打赏
  • 举报
 回复
http://www.netlawcn.com/nlbbs/dispbbs.asp?boardID=3&RootID=2502&ID=2502
这个就是我说的楼上那个论坛里出现的问题,还请大虾们进去看看!!!!!!!!!!!!
fyr000000 2004-10-04
  • 打赏
  • 举报
 回复
我知道问题所在了,其实很简单.代码根本没问题,是因为我以前打开ASP都是在虚拟目录下打开的,因为我用的是XP SP1,装了IIS.(也只能在虚拟目录下看*.ASP),但是我忘了一点，那就是*.HTML虽然能直接用IE打开，但是却不能显示出应有的效果,变成了下载的界面,所以那个L7-4同样应该虚拟目录的那种方式打开,而不是直接用IE去浏览.看来我自己才是真正的高手!!!!!!!!!!!!!!!
开个玩笑:)


qq群:4679938
asp经验交流
希望有兴趣的人加入,便于讨论!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!




但是我还有一个问题!!!!!!!!!!!!
那就是为什么上面的那个L7-4.htm和L7-5.ASP的源代码放在CSDN的论坛贴里呈现的是代码.
而在某些其他论坛的帖子里L7-4.htm出来的却是表单(即IE里出现的效果),而那个L7-5.ASP却什么也没显示????????????????????????????????????????????????????????????????????????????????????
wen8u8 2004-10-04
  • 打赏
  • 举报
 回复
慢慢的来，错误就在其中，当自己真的自己解决了，感觉一种超快感......滋滋滋......的在心
头蔓延.....好舒服哦。。


你真的好伟大，哈哈。。
yb2008 2004-10-04
  • 打赏
  • 举报
 回复
你用response.write输入看看值都传过来没有呀!
fanxiaoqiang 2004-10-04
  • 打赏
  • 举报
 回复
xiao d小第道行还不够
guoweidong 2004-10-04
  • 打赏
  • 举报
 回复
发现你真的好菜~!
L7-4.htm
页面的值提交到
L7-5.asp


但不知道你说的是什么错误.
fyr000000 2004-10-04
  • 打赏
  • 举报
 回复
楼上的问题没有人回答出吗?????????????????????????????????????????????????????????????????????????????????????????????????????????????
真的很急!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
fyr000000 2004-10-03
  • 打赏
  • 举报
 回复
下面是L7-4.htm
<html>
<head><title>提交表单数据</title></head>
<body>
<form action="L7-5.asp" method="post">
<input type="hidden" Name="userid" value="wsp">
<table width="100%">
<tr>
<td align="right" width="30%"><b>请输入您的姓名:</b></td>
<td width="70%"><input name="yourname" maxlength=30></td>
<tr>
<td align="right"><b>密码:</b></td>
<td><input type="password" name="password"></td></tr>
<tr>
<td align="right"><b>地址:</b></td>
<td><input name="addr" maxlength="60"></td></tr>
<tr>
<td align="right"><b>性别:</b></td>
<td><input type=radio name="ysex" value=女>女
<input type=radio name="ysex" value=男 checked>男
</td></tr>
<tr>
<td align="right"><b>年龄:</b></td>
<td><select name="age">
<option value=-99>
<option value=0>不满18岁
<option value=1>18-25岁
<option value=2>26-35岁
<option value=3>36-45
<option value=4>46-55
<option value=5>56-65
<option value=6>大于65岁
</select>
</td></tr>
<tr>
<td align="right"><b>您想去游览:</b></td>
<td><input type=checkbox name="city" value="北京">北京
<input type=checkbox name="city value="长沙">长沙
<input type=checkbox name="city value="深圳">深圳
</td></tr>
<tr>
<td align="right" valign=top><b>您的留言:</b></td>
<td><textarea cols=20 rows=4 name="messg"></textarea>
</td></tr>
<tr>
<td colspan=1 align=right>
<input type=submit name=submit value=提交>
</td>
<td colspan=2 align=left>
<input type=reset name=reset value=重输>
</td></tr>
</table>
</form>
<hr>
</body>
</html>



下面是L7-5.asp
<%@ language=vbscript%>
<html>
<head><title>返回客户信息</title></head>
<body>
<% '显示并验证用户帐号
If Request.Form("userid") = "wsp" Then
Response.Write"<BR>您的帐号是:" & Request.Form("userid")
Else
Response.Write"<BR><B>您未申请帐号!</b>"
End If
'显示并验证拥护名
If Request.Form("yourname")<>"" Then
Response.Write"<BR>您的姓名是:"& Request.Form("yourname")
Else
Response.Write"<BR><B>您未输入姓名!</b>"
End If
'显示并验证拥护密码
If Request.Form("passwd")="123456" Then
Response.Write"<BR>您的密码是:"&Request.Form("passwd")
Else
Response.Write"<BR><B>您的密码不正确!</b>"
End If
'显示并查验地址
If Request.Form("addr")<>""Then
Response.Write"<BR>您的地址是:" &Request.Form("addr")
Else
Response.Write"<BR><B>您未输入地址!</b>"
End If
'显示性别
Response.Write"<BR>您的性别是:" &Request.Form("ysex")
'显示年龄
age=""
Select Case Request.Form("age")
Case 0:age="不满18岁"
Case 1:age="18-25岁"
Case 2:age="26-35岁"
Case 3:age="36-45岁"
Case 4:age="46-55岁"
Case 5:age="56-65岁"
Case 6:age="超过65岁"
Case Else:age="未选择!"
End Select
Response.Write"<BR>您的年龄是:"& age
'选择去游览的城市
For i=1 to Request.Form("city").count
If Request.Form("city")(i)<>"" Then
Response.Write"<BR>您想去游览:" &_
Request.Form("city")(i)
End If
Next
'显示并查验留言
If Request.Form("messg")<>"" Then
Response.Write"<BR>您的留言是:" & Request.Form("messg")
Else
Response.Write"<BR><B>您没有留言!</b>"
End If
%>
</body>
</html>



本来应该产生交互的，现在怎么变成两个没有关系的页面，错在哪里啊？？？？
是不是也有什么没设置啊????





加载更多回复（16）
来自 http://www.seeitco.com/ 的各大IT公司薪资和待遇内幕（不断更新）[找工作的朋友必读！]
 按：本文所有内容整理自   IT公司速查手册网站（http://www.seeitco.com/） 中网友的留言 当然笔者会在其中过滤去一些无用的信息，挑选出可信度比较高的内容 目的在于为找工作的朋友提供一些参考，希望大家多多支持 也希望各位朋友把自己的经历和见解留下来 本贴不断更新 目标是：成为博客园内找工作最权威的第一贴！！！！！！！！！！！！！！！！ (如有朋友对其他公司感兴趣，请在下面跟
日记侠：如何在微信赚钱？你要学会细分思维！
你好，我是王刚，行走于网络江湖的“日记侠”。每天分享我的思考和经验，希望身边的人可以和我一样天天写日记，今天是王刚日记第572天。昨天，微信里一个微友加我后直接就问：“怎么赚钱”，然后又改成“微信怎么赚钱”？说自己现在急需一笔钱，急用...... 我心里就呵呵了...... 不知道你对这个问题怎么看待？会如何回答？ 我没办法给他答案，因为他还有没一个基本的思维。 一、没有细分思维的痛苦 1、找不准...
生意精：说说如何开好一家小超市！
 本人今年42岁，开店已经有20年，虽然文化不高，但是开店（超市)的水平相当的牛逼！我觉得我自己就是一个科学家（超市科学家），我想我这样的水平，如果不带几个徒弟出来，就好比古代华佗没有留下医术一样遗憾 华夏 千古！" J9 n) M$ a3 r1 z6 X * z/ ]# h  E8 K! _6 @  j/ z 　　要是开好一家小超市，收入绝对不低
我在CSDN参与的3000个帖子
 今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎
被骗到香港做传销！（当事人详细回忆）
一、陷阱铺设 01.抛出诱饵 小贾是一名普通的打工仔，刚来工作那会儿，认识了一个女孩，暂且称为小李。 大概一年多吧，小李从原公司（空乘）辞职，说是不想干了，做生意去了，在原来的公司太辛苦，还挣不到钱。 小贾也不知道小李具体做的是什么生意，直到几个月后的一天，小贾和小李在微信上聊起来了。 小李态度非常热情，对小贾说： ＂你现在工作还可以吗？想做生意吗？我们这边也有男孩子从事你现在的行业，是我们的...
ASP

28,404

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章