杭州交通信息网英国卡迪夫大学世界排名:谁能帮我做一下下面几道编程题.谢谢
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 19:50:16
2.有静态页面，包含表单，使用post方式，用于向服务器提交个人爱好(三个复选框，名称都为chkfond)和email地址(文本框,名称为txtmail)，试着编写ASP页面中检索并显示提交的数据出来。
3.在pubs数据库中存在表extable，包含user_id、user_name、password三列，user_id为表的标识列。现对于user_name为admin的用户进行修改，要使其密码变为admin888，最后以表格形式显示extable表中的所有记录。
<注：假定连接对象con已经建立并打开>
??本来不想写代码的，但是一看就知道，很明显，你不是想学东西，应付一下而已，而且这也没有什么实现原理的。无聊帮帮你吧。这样不行啊。兄弟！！希望你看过后能知道一点点写法。哎。。。伤心中
1.效率不高，人懒了，用着吧。
<%
dim exarray(500)
dim i
dim j
j=0
for i=2 to 1000
if i mod 2 =0 then
exarray(j)=i
j=j+1
end if
next
j=0
for each i in exarray
j=j+i
next
response.write("<script language=javascript>alert('The sum is :" & j & "');</script>")
%>
2.这个程序里没有对request.form对象处理，你在做别的的时候注意一下。要先处理一下（连表单中的单选框都要验证），安全上的事情，如果真想学以后会懂的。
<form name="form1" method="post">
<p>FAV:
<input name="chkfond" type="checkbox" id="chkfond" value="love">
love
<input name="chkfond" type="checkbox" id="chkfond" value="make love">
make love
<input name="chkfond" type="checkbox" id="chkfond" value="make love with your lover">
make love with your lover<br>
EMAIL:
<input name="txtmail" type="text" id="txtmail">
<br>
<input type="submit" name="Submit" value="提交">
</p>
</form>
<%
if request.form("chkfond")<>"" then response.write(request.form("chkfond") & "<br>") end if
if request.form("txtmail")<>"" then response.write(request.form("txtmail")) end if
%>
3.本来无需这么麻烦，但是我觉得我的写法你比较容易接受，而且用得比较广泛，你还是照我的用吧。
<%
set rs=server.createobject("adodb.recordset")
sql="select * from extable where user_name='admin'"
rs.open sql,conn,1,3
if rs.recordcount<>1 then
response.write("error")
else
rs("password")="admin888"
rs.update
end if
rs.close
sql="select * from extable"
rs.open sql,conn,1,1
response.write("<table>")
do while not rs.eof
response.write("<tr><td>" & rs("user_id") & "</td><td>" & rs("user_name") & "</td><td>" & rs("password") & "</td></tr>" )
loop
response.write("</table>")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
1\
<%
dim exarray(500)
dim i as integer
dim j as integer
j=0
for i=2 to 1000 step 2
exarray(j)=i
j=j+1
next
j=0
for each i in exarray
j=j+i
next
print j
%>
2\
<form name="form1" method="post">
<p>FAV:
<input name="chkfond" type="checkbox" id="chkfond" value="love">
love
<input name="chkfond" type="checkbox" id="chkfond" value="make love">
make love
<input name="chkfond" type="checkbox" id="chkfond" value="make love with your lover">
make love with your lover<br>
EMAIL:
<input name="txtmail" type="text" id="txtmail">
<br>
<input type="submit" name="Submit" value="提交">
</p>
</form>
<%
if request.form("chkfond")<>"" then response.write(request.form("chkfond") & "<br>") end if
if request.form("txtmail")<>"" then response.write(request.form("txtmail")) end if
%>
3\
<%
set rs=server.createobject("adodb.recordset")
sql="select * from extable where user_name='admin'"
rs.open sql,conn,1,3
if rs.recordcount<>1 then
response.write("error")
else
rs("password")="admin888"
rs.update
end if
rs.close
sql="select * from extable"
rs.open sql,conn,1,1
response.write("<table>")
do while not rs.eof
response.write("<tr><td>" & rs("user_id") & "</td><td>" & rs("user_name") & "</td><td>" & rs("password") & "</td></tr>" )
loop
response.write("</table>")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
不会...
不过第二题是sql的吧,ok
update password = 'admin888' from extable where user_name = 'admin'