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

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

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

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

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

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

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

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

Tags: 教师评语赠言

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

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 | 查看次数: 15261

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 | 查看次数: 20262

常用的几种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 | 查看次数: 61143

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 | 查看次数: 16633

建立一个边框有颜色的表格

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

建立一个边框为黑色的表格

复制内容到剪贴板

程序代码

Tags: HTML 表格

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

asp导出excel用到的类

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

因为项目需要，所以从网上找了一个类，但是那个类问题比较多，所以自己修改了一下，增加容错程度，提升一些性能，里面有部分代码是根据我的项目修改的，所以大家在使用的时候自己改一下就可以了。

使用方法：

复制内容到剪贴板

程序代码

<%On Error Resume Next%>






<%

Tags: ASP Excel 网页

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

ASP导出EXCEL代码

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

XSL.ASP

复制内容到剪贴板

程序代码

<%
Set xlApplication = Server.CreateObject("Excel.Application") '调用excel对象
xlApplication.Visible = False '无需打开excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象

Tags: ASP Excel 网页

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