asp如何做一个看他爱不爱你的小测验?
发布时间:2010-07-11 21:16:00
如何做一个看他爱不爱你的小测验?
<%
CurQ = Request.Form("CurQ")
Answ = Request.Form("Answ")
correct=Request.Form("Correct")
wrong=Request.Form("Wrong")
If PoorMansIsNull(CurQ) Then
CurQ = 1
correct = 0
wrong = 0
End If
If PoorMansIsNUll(Answ) Then
CurQ = CurQ + 1
If CurQ > ' (最大的题目数) Then
%>
<p>恭喜,您完成了这次测试. 共答对了<%=correct%> 道题,答错了<%=wrong%>道题. 您的情商是<%=(correct/(max#ofQs)%>%.
要走桃花运哦.
<% End If %>
<% set conntemp = server.createobject("adoDB.Connection")
set myDSN = ' (DSN信息)
conntemp.Open myDSN
set mySQL = "SELECT * FROM QUESTIONS WHERE QuestionID=" & CurQ
set rsTemp= conntemp.Execute(mySQL)
%>
<h2>Question Number <%=rsTemp("QuestionID")%> </h2>
<form method=POST action="myASP.ASP">
<input type=hidden name=CurQ value=<%=CurQ%>>
现在的问题是:<%=rsTemp("Question")%><br>
答案:<select name="AnsW">
<option value=1><%=rsTemp("AnswerA")</option>
<option value=2><%=rsTemp("AnswerB")</option>
<option value=3><%=rsTemp("AnswerC")</option>
<option value=4><%=rsTemp("AnswerD")</option>
</select>
<input type=hidden value="<%=correct%>"><input type=hidden value="<%=wrong%>">
<input type=reset value="清空"><input type=submit value="正确!">
</form>
<% Else %>
<% set conntemp = server.createobject("adoDB.Connection")
set myDSN = '(your DSN info goes here)
conntemp.Open myDSN
set mySQL = "SELECT * FROM QUESTIONS WHERE QuestionID=" & CurQ
set rsTemp= conntemp.Execute(mySQL)
If AnsW = rsTemp("CorrectAns") Then
%>
<p>恭喜,您答对了! Whee</p>
<% correct = correct + 1 %>
<% Else %>
<p>天啊,您又答错了!小心挨皮锤哦... </p>
<p><%=rsTemp("reference")</p>
<% wrong = wrong + 1 %>
<% End If %>
<form method=POST action="myASP.ASP">
<input type="hidden" name=curQ value="<%=curQ%>">
<input type="hidden" name=correct value="<%=correct%>">
<input type="hidden" name=wrong value="<%=wrong%>">
<input type="submit" value="下一题,看招!"%>
</form>
<% End If %>


猜你喜欢
- 首先,node.js作为javascript运行平台,它采用了事件驱动和异步编程的方式,通过事件注册和异步函数,开发人员可以提高资源利用率,
- Python是一种计算机程序设计语言。是一种面向对象的动态类型语言,最初被设计用于编写自动化脚本(shell),随着版本的不断更新和语言新功
- 什么是deferdefer用来声明一个延迟函数,把这个函数放入到一个栈上, 当外部的包含方法return之前,返回参数到调用方法之前调用,也
- 1.进入Mysqld如果已经设置Mysql/Bin环境变量,直接在CMD里输入命令,如果没有设置Mysql环境变量,去Mysql安装目录的B
- 在一个页面制作过程,突然被设计稿上的一个问题难住了,思路一时没打开,后来在费人的提醒下,用定位控制,顺利完成。这个是我做的大概的
- 今天小编就为大家分享一篇使用pandas把某一列的字符值转换为数字的实例,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧使用
- 前言记得开始使用 OpenCV 的时候是在大学时期,当时用的是 C 语言,OpenCV 版本好像是1.1,随着时间的推移,后面 C++逐渐代
- 概述在实践中,我们发现上述的代码重复率非常高,新增和修改都费力,并且是没技术含量的体力活。 但又必须要这样做,不适合以公共函数的形式重用,为
- 视频本教程的视频选择图形我们谈到了 Opengameart.org,这是免费游戏艺术的重要来源,也是我们最喜欢的艺术家之一&ldqu
- 最长公共子序列python实现,最长公共子序列是动态规划基本题目,下面按照动态规划基本步骤解出来。1.找出最优解的性质,并刻划其结构特征序列
- 本文实例为大家分享了Python3实现飞机大战游戏的具体代码,供大家参考,具体内容如下1、主程序:plane_main.pyimport p
- 百度贴吧的爬虫制作和糗百的爬虫制作原理基本相同,都是通过查看源码扣出关键数据,然后将其存储到本地txt文件。项目内容:用Python写的百度
- 如何利用微信JSSDK调用微信扫一扫功能?具体内容如下1. 确保有 调起微信扫一扫接口 权限,测试号可能不行;2. 导入相关JS<sc
- 本文实例讲述了python基于右递归解决八皇后问题的方法。分享给大家供大家参考。具体分析如下:凡是线性回溯都可以归结为右递归的形式,也即是二
- 我就废话不多说了,大家还是直接看代码吧~-- 查看获取表内字段注释:show full columns from tablename;--
- 农业银行总行1998年以来正式推广了新版网络版综合业务统计信息系统,该系统是基于WindowsNT4.0平台,采用客户/服务器模式,以Mic
- 注意:我用的python2.7,大家如果用Python3.0以上的版本,请记得在print()函数哦!如果因为版本问题评论的,不做回复哦!!
- 今天我发现这个结论是错误的。但是为了方便理解,我仍然不建议大家在不熟悉sql语句时,把里面的约束跟外面的约束混为一谈。从可读性方面来说,可以
- 想学习Python3,但是暂时又离不开Python2。在Windows上如何让它们共存呢?目前国内网站经常会让大家把其中一个python.e
- 简单的学习下利用socket来建立客户端和服务端之间的连接并且发送数据1. 客户端socketClient.py代码import socke