[讨论]高手来！！！有关asp的几个作业问题

主题：[讨论]高手来！！！有关asp的几个作业问题

ccc_2007 [专家分：0] 发布于 2007-05-07 02:30:00

有谁能完成如下作业，写下程序代码::::::
问题（一）：
在网页中添加鼠标事件和子程序代码，完成下列功能：
1.当光标在标题上方时，能改变字体颜色为绿色。
2.当光标离开标题时，能改变字体大小为45磅。

提示：激发事件的标题行可使用 window.event.srcElement

问题（二）
．编写ASP程序，第一页界面如下图，使用Post方式传送数据，当单击第一页“提交”按钮后，在下一页显示出表单提交的所有信息。
[img]http://images17.51.com/m/200705/69/ea/loveccc1/349_237_b10a13aa2b999639.jpg[/img]

问题（3）
．请参照提示代码完成asp程序，程序能读取test数据库的“成绩表”的表头和所有记录，并通过表格显示所有数据表内容。显示界面请如下图所示。


[img]http://images17.51.com/m/200705/69/ea/loveccc1/315_281_634f05e85c570b4a.jpg[/img]
连接数据库驱动程序：
Driver={Microsoft Access Driver (*.mdb)}
表格显示代码提示：
<%
  rs.MoveFirst
  Do While Not rs.EOF
    Response.Write "<tr>"
    For I=0 To rs.Fields.Count-1
      Response.Write "<td>" & rs(I) & "</td>"
    Next
    Response.Write"</tr>"
    rs.MoveNext
  Loop
  %>

二．在test2.html网页中请添加鼠标事件和子程序代码，完成下列功能：
1．   当光标在标题上方时，使用innerText改变标题行“被转换的文本段落”为“使用innerText转换后的文本段落”。
2．   当光标离开标题时，使用outerText改变标题行为“使用outerText转换后的文本段落”。
提示：指定的标题行为thisHead

三．编写ASP程序，第一页界面如下图，使用get方式传送数据，当单击第一页“提交”按钮后，在下一页显示出表单提交的所有信息。

[img]http://images17.51.com/m/200705/69/ea/loveccc1/341_203_ddf62492fa36e329.jpg[/img]


四．请参照提示代码完成asp程序，程序能读取test数据库的“水果商品表”的表头和所有记录，并通过表格显示所有数据表内容。显示界面如下图所示。
   [img]http://images17.51.com/m/200705/69/ea/loveccc1/274_235_8f4a6cddc0b91d43.jpg[/img]

连接数据库驱动程序：
Driver={Microsoft Access Driver (*.mdb)}
表格显示代码提示：
<%
  rs.MoveFirst
  Do While Not rs.EOF
    Response.Write "<tr>"
    For I=0 To rs.Fields.Count-1
      Response.Write "<td>" & rs(I) & "</td>"
    Next
    Response.Write"</tr>"
    rs.MoveNext
  Loop
  %>

本帖地址： http://bbs.pfan.cn/post/230701.html

回复列表（共6个回复）

沙发

oyh484203 [专家分：5890] 发布于 2007-05-07 09:39:00

难道你一道题都不会吗？你上学学什么东西去了，即使我会我都不会告诉你的！

板凳

ccc_2007 [专家分：0] 发布于 2007-05-07 16:22:00

[quote]难道你一道题都不会吗？你上学学什么东西去了，即使我会我都不会告诉你的！[/quote]
我刚接触ASP，大概的知道，很想有谁能指点指点
有时间吗？能否教教我？万分感激！！

3 楼

ccc_2007 [专家分：0] 发布于 2007-05-07 16:27:00

第一个这样实现对吗？

<html>
<head>
<title>Make me red</title>
<script language="Javascript">
function colorit (colr)
window.event.srcElement.style.color=colr
window.event.srcelement.style.fontsize="40"
end function

</script>

</head>

<body>
<h3 id="This One " onmouseover="colorit('red')"
style="color:black;font-size:18">Make me red</h3>
<h2 ID="That one " onmouseover="colorit"('green')"
STYLE="color:black;font-size:10">make me green!</h2>

</body>
</html>

4 楼

oyh484203 [专家分：5890] 发布于 2007-05-07 17:50:00

你用的是一种方法；可以另一种方法更简单；
（一）
<style type="text/css">
.css1{
color:green;
}
.css2{
color:black;
font-size:45pt;
}
.css3{
color:red;
font-size:12px;
}
</style>
</HEAD>

<BODY>
<div class="css3" onMouseOver="this.className='css1'" onMouseOut="this.className='css2'">make me green!</div>
</BODY>
-------------------------------------------------------
（二）
if request.form("submit")="添加" then
for i=1 to request.form.count
response.Write(request.form(i)&"<br>")
next
end if
或
if request.form("submit")="添加" then
for each ff in request.form
response.Write(request.form(ff)&"<br>")
next
end if
----------------------------------------------------
(3)
<%
set rs=server.CreateObject("ADODB.recordset")
rs.open "select * from userqxz",conn,1,1
%>
<table border="1" cellpadding="1" cellspacing="0">
<tr>
<%for i=0 to rs.fields.count-1
response.Write("<td height=25>"&rs.fields(i).name&"</td>")
next
%>
</tr>
<%do while not rs.eof%>
<tr>
<% For I=0 To rs.Fields.Count-1
Response.Write "<td height=20>" & rs.fields(I).value & "</td>"
Next
%>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
---------------------------------------------------------
二、
<script language="javascript">
function over1(){
document.getElementById("text2").innerText="使用innerText转换后的文本段落";

}
function out1(){
document.getElementById("text1").outerText="使用outerText转换后的文本段落";

}
</script>
</head>
<body>
<div id="text1" onMouseOver="over1()" onMouseOut="out1()">thisHead</div>
<div id="text2">被转换的文本段落</div>
</body>
---------------------------------------------------------------------
三、
if request.QueryString("submit")="添加" then
for i=1 to request.QueryString.count
response.Write(request.QueryString(i)&"<br>")
next
end if
----------------------------------------------
四和第一题（3）一样。

5 楼

ccc_2007 [专家分：0] 发布于 2007-05-07 20:08:00

[quote]第一个这样实现对吗？

<html>
<head>
<title>Make me red</title>
<script language="Javascript">
function colorit (colr)
window.event.srcElement.style.color=colr
window.event.srcelement.style.fontsize="40"
end function

</script>

</head>

<body>
<h3 id="This One " onmouseover="colorit('red')"
style="color:black;font-size:18">Make me red</h3>
<h2 ID="That one " onmouseover="colorit"('green')"
STYLE="color:black;font-size:10">make me green!</h2>

</body>
</html>[/quote]

引用错了

6 楼

ccc_2007 [专家分：0] 发布于 2007-05-10 19:41:00

[quote]你用的是一种方法；可以另一种方法更简单；
（一）
<style type="text/css">
.css1{
color:green;
}
.css2{
color:black;
font-size:45pt;
}
.css3{
color:red;
font-size:12px;
}
</style>
</HEAD>

<BODY>
<div class="css3" onMouseOver="this.className='css1'" onMouseOut="this.className='css2'">make me green!</div>
</BODY>
-------------------------------------------------------
（二）
if request.form("submit")="添加" then
for i=1 to request.form.count
response.Write(request.form(i)&"
")
next
end if
或
if request.form("submit")="添加" then
for each ff in request.form
response.Write(request.form(ff)&"
")
next
end if
----------------------------------------------------
(3)
<%
set rs=server.CreateObject("ADODB.recordset")
rs.open "select * from userqxz",conn,1,1
%>
<table border="1" cellpadding="1" cellspacing="0">
<tr>
<%for i=0 to rs.fields.count-1
response.Write("<td height=25>"&rs.fields(i).name&"</td>")
next
%>
</tr>
<%do while not rs.eof%>
<tr>
<% For I=0 To rs.Fields.Count-1
Response.Write "<td height=20>" & rs.fields(I).value & "</td>"
Next
%>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
---------------------------------------------------------
二、
<script language="javascript">
function over1(){
document.getElementById("text2").innerText="使用innerText转换后的文本段落";

}
function out1(){
document.getElementById("text1").outerText="使用outerText转换后的文本段落";

}
</script>
</head>
<body>
<div id="text1" onMouseOver="over1()" onMouseOut="out1()">thisHead</div>
<div id="text2">被转换的文本段落</div>
</body>
---------------------------------------------------------------------
三、
if request.QueryString("submit")="添加" then
for i=1 to request.QueryString.count
response.Write(request.QueryString(i)&"
")
next
end if
----------------------------------------------
四和第一题（3）一样。
[/quote]

很感激！辛苦了。。

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：[讨论]高手来！！！有关asp的几个作业问题

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：[讨论]高手来！！！有关asp的几个作业问题

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）