新手第一次作业,提示错误。请高手帮看看。
错误提示:错误类型:Active Server Pages, ASP 0140 (0x80004005)
@ 命令必须是 Active Server Page 中的第一个命令。
/dollar/oiltank/tank2.asp, 第 4 行
代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<%
sub submit_click()
dim rs
dim sql
dim zl
dim h
dim v
dim midu
h=Request.Form("h")
sql="select v from s1 where h="&h
set rs=conn.execute(sql)
if not rs.eof then
v=rs("v")
midu=Request.Form("midu")
h=Request.Form("h")
zl=v*midu
%>
油高:<% response.Write(h)%>
容积:<% response.Write(v)%>
密度:<% response.Write(midu)%>
质量:<% response.Write(zl)%>
<%
else
response.Write("容积表没有这个油高")
end if
end sub
%>
<body>
<form id="form1" name="form1" method="post" action="tank2.asp">
<label>油高
<input name="h" type="text" id="h" tabindex="0" size="10" />
</label>
<label>密度
<input name="midu" type="text" id="midu" tabindex="1" size="10" />
</label>
<label>
<input type="submit" name="submit" id="submit" value="测算" tabindex="2" onClick="submit_click()" class="button"/>
</label>
</form>
<p> </p>
<p> </p>
</body>
</html>