源代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="conn.asp" -->
<% dim id ,sq1, rs,tw ,hd %>
<%id=request.Form("usrnid")%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<% hd=request.Form("usrnhd")
tw=request.Form("usrnwt")
%>
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from users where UserID='"&Trim("id")&"'"
rs.Open sql,conn,1,1
%>
<% if tw<>rs.fields("tw1") then
response.write"<script>"
response.write"alert(""提问不存在"");"
response.write"history.back()"
response.write"</script>"
response.end
%>
<% if hd <>rs.fields("hd") then
response.write"<script>"
response.write"alert(""回答不存在"");"
response.write"history.back()"
response.write"</script>"
response.end
else
session("zhen")=1
%>
<%
end if
end if %>
<%
Response.Redirect("8,asp")
%>
</body>
</html>
错误类型：
(0x80020009)
发生意外。
/9.asp, 第 23 行
