学习三部曲之一：学生为什么学习不好？

作者:随然日期:2009-01-15

　 学生学习不好的根本原因是浮躁。

　　浮躁有五种表现：

（1）上课一听就懂，其实没有真懂；
（2）看书一看就会，其实没有真会；
（3）题目拿来就做，没看清条件就做；
（4）做完题就上交，没检查好就上交；
（5）发现题目错了，以为粗心不改正。

　　有上面五种浮躁习惯，学习成绩一定不会理想。因为有上面的浮躁习惯，就会导致三种危害：学的时候学不会；考的时候考不出；错的时候改不了。

Tags: 教育学习

分类:教育教学 | 固定链接 | 评论: 2 | 引用: 0 | 查看次数: 10112

ASP给成绩排名(排序)的方法，要求分数相同的成绩名次相同

作者:随然日期:2009-01-15

在用ASP制作成绩分析系统的时候，用到了很多的ASP函数，但就是没有成绩排名的函数，所以自己写了一个能排名的程序，供大家参考。我也想了几个能分析出一个分数在所有分数中占的位置或名次，想了半天还是觉得下面的办法来得简单一些，运算要快一些。

使用ASP给数据库中的成绩进行排名，要求分数相同的成绩名次相同。
实现思路：将成绩按从大到小排列，第一个数的名次写入1，然后循环，判断第二个数与第一个数是否相等，相等则写入相同的名次，不相等则名次加1，再循环……

复制内容到剪贴板

程序代码

<%
'为班级排名
j=0
i=0
thesame=0
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select stu_no,cj_all from student where class_no="&banji&" order by cj_all desc"
rs.open sql,conn,1,1

do while not rs.eof
'如果分数相同，则名次相同。如：两个并列第一名，则没有第二名，下一个为第三名
             if rs("cj_all")=thesame then
                 i=i
                   j=j+1
             else
                 i=i+j+1
                   j=0
             end if
             thesame=rs("cj_all")
sql="update student set cj_banxu="&i&" where stu_no='"&rs("stu_no")&"'"
conn.execute(sql)
rs.movenext
loop

rs.close
%>

Tags: ASP 网页

分类:程序代码 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 18012

教师给学生的毕业赠言100句

作者:随然日期:2009-01-15

收集整理,以供教师同行们参考:

1、假如生活是一条河流，愿你是一叶执著向前的小舟；假如生活是一叶小舟，愿你是个风雨无阻的水手。

   2、希望是坚韧的拐杖，忍耐是旅行袋，带上他们，你可以登上永恒之旅，走遍全世界。

   3、不要学花儿只把春天等待，要学燕子把春天衔来。

   4、废铁之所以能成为有用的钢材，是因为它经得起痛苦的磨练。

   5、愿你是永远奔腾的千里马。

Tags: 教师评语赠言

分类:教育教学 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 10260

ACCESS+ASP中文乱码问题的解决方法

作者:随然日期:2009-01-14

以前好好执行的ASP教本，居然会乱码，直接写HTML格式的中文不乱码，使用response.write就是乱码，这在以前都是好好的，不知道怎么就突然就变了，改成UTF-8编码显示，则使用response.write输出的显示正常，其他则乱码，看来是编码方式不协调。

方法一：
在每一页的开头加上
<%@ CODEPAGE = "936" %>
或
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

@CODEPAGE
可以使用 @CODEPAGE 指令为 .asp文件设置代码页。代码页是一个字符集，包括数字、标点符号及其他字符。不同的语言和现场
用不同的代码页。例如，ANSI 代码页 1252 为美国英语和大多欧洲语言所使用，而 OEM 代码页 932 为日本汉字所使用。

Tags: ASP 网页乱码

分类:技术资料 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 14275

ASP从字符串中提取数字或者字符串转数字型的方法

作者:随然日期:2009-01-14

Cint函数是返回一个数字类型但是参数需要是有效的表达式，也就是说转换的的确是数字，比如字符串“123”，就可以用Cint("123") 转换成数字型。类似“6879汉字汉字”这样的字符串Cint函数是没法转换的，这是指定内容的提取。用下面的函数可以达到把字符串中的数字提取出来。

<%
Function getNum(str)
Dim length,num
length=Len(str)
num=0
For i=1 To length
char=Mid(str,i,1)
If isNumeric(char) Then num=num*10+Int(char)
Next

Tags: ASP 网页

分类:程序代码 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 18936

常用的几种asp排序方法介绍

作者:随然日期:2009-01-13

以下代码为常用的几种asp排序方法

<%
Dim aData
aData = Array(3,2,4,1,6,0)

Call ResponseArray(aData, "原来顺序")
Call ResponseArray(SelectSort(aData), "选择排序")
Call ResponseArray(QuickSort(aData), "快速排序")
Call ResponseArray(InsertSort(aData), "插入排序")
Call ResponseArray(BubbleSort(aData), "冒泡排序")

Tags: ASP 网页

分类:程序代码 | 固定链接 | 评论: 3781 | 引用: 0 | 查看次数: 59941

ASP读取记录总数的方法

作者:随然日期:2009-01-12

方法一：

复制内容到剪贴板

程序代码

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from student where class_no='7' order by stu_no asc"
rs.open sql,conn,1,1
zongshu=rs.recordcount
rs.close

Tags: ASP 网页

分类:程序代码 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 15567