这段代码有什么问题啊？
< % @LANGUAGE="VBSCRIPT" CODEPAGE="936" % ><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<!--# include file=conn.asp-->
< %
if request("delete")="ok" then
id=request ("id")
sql="delete from student where id in("&id&")"
conn.execute(sql)
conn.close: set conn =nothing
response.Redirect "list.asp"
end if
% >
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>数据库操作学生信息管理系统</title>
<style body,td{font-size:10pt;}
</style>
<script language="vbscript">
function check()
dim c
c=0
for i=0 to form1.id.iength-1
if form1.id(i).checked=ture then
c=c+1
next
if c=0
alert("必须删除一个选项")
check=false
exit function
end if
if confirm("希望删去所有记录吗")
check=true
else
check=false
end if
end function
sub selectall()
for i=0 to form.id.length-1
form.id(1).checked=form1.choice.checked
next
end sub
</script>
</head>
<body>
<h3 align="center">一个学生管路系统</h3>
< %
fname=request.querystring("fname")
if fname="" then fname="id"
sql="selsct * from student order by "&fname&" asc"
set rs=conn.execute(sql)
set rs=conn.createobject("adodb.recordset")
re.open sql,conn,1,3
status=request.QueryString("status")
if status="all" then rs.pagesize=rs.recordcount else re.pagesize=10
page=request.querysting("page")
if not isnumberic(page) then page=1
if page="" then page=1
page=clng(page)
if page>rs.pagecount then page=rs.pagecount
if page<1 then page=1
rs.absolutepage=page
% >
<form name="form1" action="" method="post" onsubmit="javascript:return checked()">
<table width="650" align="center" border="1" bgcolor="#00CCCC" bordercolor="FF0033" cellpadding="0" cellspacing="0">
<tr height="30" >
<td> </td>
<td><a href="list.asp?fname=id">编号：</a></td>
<td><a href="list.asp?fname=name">姓名：</a></td>
<td><a href="list.asp?fname=sex">性别：</a></td>
<td><a href="list.asp?fname=city">城市：</a></td>
<td><a href="list.asp?fname=class type">班级类别：</a></td>
<td><a href="list.asp?fname=fee">报名费用：</a></td>
<td>修改</td>
<td>删去</td>
</tr>
< %
dim total,c
c=1
do while not rs.eof and c<=rs.pagesize
% >
<tr onmouseover="javascript: this.style.backgound='#FFFF99'" onmouseout="javascript:this.style.backgound="">
<td><input type="checkbox" name="id" value="< %=rs("id") % >"></td>
<td>< %=rs("id") % ></td>
<td><a title="生日:< %=rs("birthday")%> 邮箱:< %=rs("email") % > 电话：< % =rs("telephone") % >" href="detail.asp?id=< % =rs("id") % >"> < %=rs("name") % ></a></td>
<td>< %=rs("sex") % ></td>
<td>< %=rs("city") % ></td>
<td>< %=rs("class type") % ></td>
<td>< %=formatnumber(rs("fee"),-1,-1) % ></td>
<td><a href="update.asp?id=< %=rs%>">修改</a></td>
<td><a onclick="javascript: return confirm('希望删去所有的记录吗')" href="list.asp?id=< %=rs("id") % >">删除</a></td>
</tr>
< %
c=c+1
total=total+rs("fee")
rs.movenext
loop
% >
<tr>
<td colspan="3">费用合计：< %=formathnumber(total,-1,-1) % > 元 </td>
<td colspan="3">
<input type="checkbox" name="choice" onclick="selectall()">全选/取消
[<a href="list.asp?status=all">全部显示</a>]
[<a href="list.asp">分页显示</a>]
</td>
</tr>
<tr>
<td colspan="9" height="35">
< % if page=1 then % >
【首页】
【上页】
< % else % >
【<a href="list.asp?page="1"">首页</a>】
【<a href="list.asp?page=< %=page-1 % >">上页</a>】
< % end if % >
< % if page=rs.pagecount then % >
【下页】
【尾页】
< % else % >
【<a href="list.asp?page=< % =page+1 %>">下页</a>】
【<a href="list.asp?page=< % =rs.pagecount % >">尾页</a>】
< % end if % >
<select name="url" onchangge="vbscript:location.href=url.value">
< % for i=1 to rs.pagecount % >
<option value="list.asp?page=< %=i%>" < % if i=page then response.write "selected" % >>第< %=i % >页</option>
< % nex t% >
</select>
共有< % =rs.pagecount %>条记录，< %=rs.pagesize % >条/页,
第< %=page %>页/供< %=rs.pagecount %>页！！
【<a href="insrt.asp">添加信息</a>】
</td>
</tr>
</table>
<input type="hidden" name="delete" value="ok">
</form>
< %
rs.close: set rs=nothing
conn.close: set conn=nothing
%>
</body>中<
</html>
这段代码<% %> 是否有问题啊？显示不了啊？有什么问题啊，开始时候在设计可看到，我带了间隔出现全是代码？？？？？？？？？
[ 本帖最后由 话真尘 于 2010-6-9 22:12 编辑 ]
