HTML转换成UBB代码的JAVASCRIPT和ASP函数程序

作者:随然日期:2009-04-05

在做网站的过程中，经常会遇到把UBB代码的文字内容转换成HTML代码显示出来，有的时候也会把HTML代码转换成UBB代码。比如在使用ASP+WML制作WAP网站的过程中，就遇到了这个问题。
文字内容包含有<table><tr><td>等HTML的代码，手机浏览时无法正常在WML页面中显示出来，所以就可以把这些HTML代码标签转换成UBB代码，然后再转换成简单的WML支持的HTML代码显示出来。
下面提供两种代码供大家选择：
第一种：JAVASCRIPT代码

HTML代码

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

Tags: ASP 代码 javascript

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

ASP 中如何判断用户名是否为字母和数字的组合

作者:随然日期:2009-02-25

最近常有朋友问我如何在ASP中象在JavaScrip里一样控制输入的值只能是英文或数字，现在我整理如下，下面我以接收变量string的值讲解如下：
方法一：
str=Request("string")
temp=Server.URLEncode(str)
if str=temp then
response.write "你输入的不是英文或数字"
end if
文法二：
str=Request("string")
for i=1 to len(str)
a=mid(string,i,1)

Tags: ASP 代码

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

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

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

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

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

asp导出excel用到的类

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

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

使用方法：

复制内容到剪贴板

程序代码

<%On Error Resume Next%>






<%

Tags: ASP Excel 网页

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

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