LeadBBS.COM 极速ASP论坛 >> LeadBBS官方论坛 >> 技术与交流 >> ASP讨论区 >> VBScript函数整理
VBScript函数整理
Xinsoft,2003-11-02 23:34:43
[COLOR=blue]变量和转换函数[/COLOR]
直接处理变量类型并提供变量类型之间相关转换的方法。
CBool CBool函数根据参数值返回Boolean值。用法为： result = CBool(expr)
其中result是属于Boolean子类Variant的表达式，expr是可计算出数值的有效表达式。如果expr为0，则返回False；否则，返回True。如果expr无法计算，将产生一个实时错误。
CByte CByte函数把表达是转换成字节值。用法为： result = CByte(expr)
其中result是Byte子类的Variant，expr是值在字节范围内的有效表达式。如果expr不在字节范围内，就发生一个错误。
CDbl CDbl函数返回已被转换成Double子类的Variant的表达式。用法为： result = CDbl(expr)
其中result是Double子类的Variant，expr是值再双精度范围年诶的有效表达式。
Chr Chr函数把ANSI字符码转换成字符。用法为： result = Chr(charcode)
其中result是字符，charcode是识别ANSI字符的数字。
ChrB ChrB函数把ANSI字符转换成单个字节。用法为： result = ChrB(charcode)
其中result是byte子类，charcode是识别ANSI字符的数字。
ChrW ChrW函数把ANSI字符转换成Unicode字节。用法为： result = ChrW(charcode)
其中result是Unicode字符（2字节），charcode是识别ANSI字符的数字。
CInt CInt函数把表达式转换成Integer子类的Variant。用法为： result = CInt(expr)
其中result是Integer子类，expr是有效的表达式。如果expr的值不在整数范围内，则产生实时错误。在运算期间，把expr四舍五入成整数。
CLng CLng函数把表达式转换成Long子类的Variant。用法为： result = CLng(expr)
其中result是Long子类，expr是有效的表达式。如果expr的值不在Long范围内，则产生实时错误。在运算期间，把expr四舍五入成整数。
CSng CSng函数把表达式Single子类的Variant。用法为： result = CSnng(expr)
其中result是Single子类，expr是有效的表达式。如果expr的值不在Single范围内，则产生实时错误。
CStr CStr函数把表达式转换成字符串。用法为： result = CStr(expr)
其中result是String子类，expr是有效的表达式。result的值将根据expr的子类而改变。
expr子类 结果
Boolean True或False
Date 短日期格式
Error 单词Error及错误号
任意数值 字符串格式的数
如果expr是Null，就会产生一个实时错误；如果expr是Empty，则result为零长度的字符串（""）。
Hex Hex函数把数转换成代表这个数16进制的字符串。用法为： str = Hex(number)
其中，str是包含16进制表示的字符串，number是任意有效的数值型表达式。这个数限制为8个16进制字符（4个字节）。
LBound LBound函数识别数组特定维的最小下标。用法为： result = LBound(arrayname[, dimension])
其中，result是最小下标，arrayname是数组名，dimension表明想要的维。
Oct Oct函数把数转换成代表这个数的八进制值的字符串。用法为： str = Oct(number)
其中，str是包含八进制得字符串变量，number是任意有效的数值型表达式。这个数限制为11个八进制字符（4个字节）。
UBound UBound函数识别数组特定维的最大下标。用法为： result = UBound(arrayname[, dimension]
其中，result是最大下标，arrayname是数组名，dimension表明想要的维。
VarType VarType函数返回表明变量子类的整数。用法为： result = VarType(varname)
其中，result是整数，varname是变量名。result的可能值如下：
结果 varname类型
0 Empty（未初始化）
1 Null（无效数据）
2 Integer
3 Long integer
4 单精度浮点数
5 双精度浮点数
6 currency
7 Date
8 String
9 自动对象
10 Error
11 Boolean
12 Variant（只在Variant数组中使用）
13 非自动对象
17 Byte
8192 Array（与上面的值相加）
函数整理（条件函数）
Xinsoft,2003-11-02 23:35:32
条件函数帮助测试某些变量条件，每个条件函数都根据执行的固有测试返回Boolean值（True或False）。
IsArray IsArray函数确定特定的变量是否为数组子类。
用法为：bool = IsArray(varname)
如果指定的varname是数组，则bool为True；否则函数返回False。
IsDate IsDate函数确定表达式是否能转换成日期。
用法为：bool = IsDate(expr)
如果指定的expr可以识别为日期或时间，则bool为True。
IsEmpty IsEmpty函数确定变量是否初始化过。
用法为：bool = IsEmpty(varname)
其中result是Date子类的Variant，year是介于100和9999之间的数，month是1和12之间的数，day是1和31之间的数。在正确范围内的数值表达式可用作参数。如果表达式无效，就把它增加为下一个更大的数。
IsNull IsNull函数确定变量是否包含有效数据（非Null）。
用法为：bool = IsNull(varname)
如果指定的varname是Null（即包含无效数据）则bool为True。因为当在条件表达式中使用包含Null的变量会产生Null，所以当存在变量为Null的可能性时提倡用IsNull函数。
IsNumeric IsNumeric函数确定变量是否具有数值子类或表达式是否能赋成数值。
用法为：bool = IsNumeric(expr)
当expr能赋成数时bool为True。
IsObject IsObject函数确定变量是否为对象子类。
用法为：bool = IsObject(varname)
当指定的varname是有效的OLE自动对象时bool为True。
StrComp 与其他比较运算符不同，StrComp函数比较两个字符串是否相等或字母次序是否相同。
用法为：result = StrComp(str1,str2[,bin])
其中，result是带符号的数值型变量，str1和str2是字符串表达式。可选的bin参数指定是否执行二进制（用True值指示）而不是字母比较。如果str1和str2都为Null，则result为Null。否则根据下面的清单设置result的值：
条件 result值
str1 < str2 -1
str1 = str2 0
str1 > str2 +1
函数整理（输入函数）
Xinsoft,2003-11-02 23:37:10
输入函数是使脚本输入的显示和准备工作自动化、简单化的过程，它们使提供对话框和其他Windows控件变得容易。
InputBox InputBox函数提示用户输入。它显示含有提示符或其他控件的对话框并等待用户回答。
用法为：result = InputBox(prompt[, title][, default][, x][, y][, help, context])
其中result是用户输入的字符串，prompt是要显示的信息，title是显示在标题栏的字符串，default是为用户预载的响应，x和y是放置对话框的坐标（以1/20点计），help识别提供给对话框的上下文帮助文件，context是响应帮助主题的帮助上下文号。当指定了帮助文件后，就在对话框上自动增加帮助按钮。
一旦从过程返回，result将包含文本框内容（若选择OK）或零长度的字符串（若选择Cancel）。
MsgBox MsgBox函数在有按钮的对话框里显示消息并返回一个值用来识别用户选择的按钮。
用法为：result = MsgBox(prompt[, buttons][, title][, help, context])
其中result是用户所选按钮的值，prompt是显示在对话框里的字符串，buttons表示按钮和类型的数，title是显示在对话框标题栏的字符串，help识别为对话框提供上下文帮助的帮助文件，context是响应帮助主题的帮助上下文号。
设置 说明
按钮设置
0 只对OK按钮
1 OK和Cancel按钮
2 Abort、Retry和Ignore按钮
3 Yes、No和Cancel按钮
4 Yes和No按钮
5 Retry和Cancel按钮
图标设置
16 Critical Message(紧急消息)图标
32 Warning Query(警告查询)图标
48 Warning Message(警告消息)图标
64 Information Message(信息消息)图标
默认设置
0 默认为第一个按钮
256 默认为第二个按钮
512 默认为第三个按钮
768 默认为第四个按钮
对话类型
0 应用模式
4096系统模式
函数整理（数学函数）
Xinsoft,2003-11-02 23:38:12
数学函数简化了有关数学和几何过程的编程。使用这些函数时，记住有些函数可以从其他函数得到。
radians = degrees * PI/180
degrees = radians * 180/PI
PI = 3.1415926535897932
自然对数：e = 2.718322
Sin(a) = a/c
Cos(a) = b/c
Tan(a) = a/b
Sec(a) = 1/Cos(a)
Cosec(a) = 1/Sin(a)
Cotan(a) = 1/Tan(a)
Arcsin(x) = Atn(x/Sqr(-x*x+1))
Arccos(x) = Atn(-x/Sqr(-x*x+1)) + 2*Atn(1)
Arcsec(x) = Atn(x/Sqr(x*x-1)) + Sgn((x)-1)*(2*Atn(1))
Arccosec(x) = Atn(x/Sqr(x*x-1)) + (Sgn(x)-1)*(2*Atn(1))
Arccotan(x) = Atn(x) + 2*Atn(1)
HSin(x) = (Exp(x) - Exp(-x))/2
HCos(x) = (Exp(x) + Exp(-x))/2
HTan(x) = (Exp(x) - Exp(-x))/(Exp(x) + Exp(-x))
HSex(x) = 2/(Exp(x) + Exp(-x))
HCosec(x) = 2/(Exp(x) - Exp(-x))
HCotan(x) = (Exp(x) + Exp(-x))/(Exp(x) - Exp(-x))
HArcsin(x) = Log(x+Sqr(x*x+1))
HArccos(x) = Log(x+Sqr(x*x-1))
HArctan(x) = Log((1+x)/(1-x))/2
HArcsec(x) = Log((Sqr(-x*x+1)+1)/x)
HArccosec(x) = Log((Sgn(x)*Sqr(x*x+1)+1)/x)
HArccotan(x) = Log((x+1)/(x-1))/2
LogN(x) = Log(x)/Log(n)
Abs Abs函数返回一个数的绝对值。
用法为：result = Abs(number)
其中result是number参数的绝对值。
Atn Atn函数返回一个数的反正切值。
用法为：result = Atn(number)
其中result是正切值为number的弧度。
Cos Cos函数返回一个角的余弦值。
用法为：result = Cos(number)
其中result是邻边与斜边之比，number是角的弧度值。
Exp Exp函数返回以自然对数为底的幂。
用法为：result = Exp(number)
其中result是参数number的反对数。
Fix Fix函数返回一个数的整数部分。
用法为：result = Fix(number)
其中result是参数number的整数部分。
Int Int函数返回一个数的整数部分。
用法为：result = Int(number)
其中result是参数number的整数部分。
Log Log函数返回一个数的自然对数。
用法为：result = Log(number)
其中result是number的对数值。
Rnd Rnd函数返回一个随机数。
用法为：result = Rnd[(switch)]
其中result是一个随机数，switch说明如何确定这个随机数。switch是正数说明应返回序列中的下一个随机数。在调用这个函数前，应用Randomize语句初始化随机数发生器。
Log Log函数返回一个数的自然对数。
用法为：result = Log(number)
其中result是number的对数值。
Sgn Sgn函数返回一个数的符号。
用法为：result = Sgn(number)
如果number为正则result为1，如果number为0则result为0，如果number为负则result为-1。
Sin Sin函数返回一个角的正弦值。
用法为：result = Sin(number)
其中result是对边与斜边之比，number是角的弧度数。
Sqr Sqr函数返回一个数的平方根。
用法为：result = Sqr(number)
其中result是参数number的平方根。
Tan Tan函数返回一个角的正切值。
用法为：result = Tan(number)
其中result是对边与邻边之比，number是角的弧度值。
函数整理（字符串函数）
Xinsoft,2003-11-02 23:38:45
字符串函数提供处理字符串变量的功能。
Asc Asc函数提取字符串第一个字母的ANSI字符码。
用法为：result = Asc(string)
其中result是字符码，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。
AscB AscB函数提取字符串的第一个字节。
用法为：result = AscB(string)
其中result是Byte字类，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。
AscW AscW函数提取字符串第一个字母的Unicode字符码。
用法为：result = AscW(string)
其中result是Unicode，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。
InStr InStr函数识别某个记号在字符串中的首字母位置。
用法为：newstart = InStr([start, ]source, token[, compare])
其中newstart时记号在字符串中的位置（如果没有的话则为0），start是查找的起始位置，source是要查找的字符串，token是要定位的字符串，compare是比较类型（0表示二进制比较，1表示忽略大小写的文本比较）。
InStrB InStrB函数是InStr的字节版，识别某个记号在字符串中的首字节位置。
用法为：newstart = InStrB([start, ]source, token[, compare])
其中newstart时记号在字符串中的首字节位置（如果没有的话则为0），start是查找的起始位置，source是要查找的字符串，token是要定位的字符串，compare是比较类型（0表示二进制比较，1表示忽略大小写的文本比较）。
LCase LCase函数把字符串变为小写形式。
用法为：result = LCase(string)
其中result是小写字符串，string是任意有效的字符串表达式。
Left Left函数从字符串的起始处提取指定数目的字符。
用法为：result = Left(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示返回多少字符的数值型表达式。
LeftB LeftB函数从字符串的起始处提取指定数目的字节。
用法为：result = LeftB(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示提取的字节数的数值型表达式。
Len Len函数确定字符串的大小或存储这个变量需要多少字符。
用法为：result = Len(string | varname)
其中，result是字符串中的字符数或存储这个变量所需的字节数，string是任意有效的字符串表达式，varname是变量名。
LenB Len函数确定字符串的大小或存储这个变量需要多少字节。
用法为：result = LenB(string | varname)
其中，result是字符串中的字节数或存储这个变量所需的字节数，string是任意有效的字符串表达式，varname是变量名。
LTrim LTrim函数复制字符串并去掉前面的空格。
用法为：result = LTrim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。
Mid Mid函数从字符串的某个位置复制指定数目的字符。
用法为：result = Mid(string,start[,length])
其中，result是结果字符串，string是要从中复制字符的表达式，start是string中复制的起始位置，length是要复制的字符数。
MidB Mid函数从字符串的某个位置复制指定数目的字节。
用法为：result = Mid(string,start[,length])
其中，result是结果字符串，string是要从中复制字节的表达式，start是string中复制的起始位置，length是要复制的字节数。
Right Right函数从字符串的尾部提取指定数目的字符。
用法为：result = Right(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示返回多少字符的数值型表达式。
RightB RightB函数从字符串的起始处提取指定数目的字节。
用法为：result = RightB(string,length)
其中result是字符串变量，string是有效的字符串表达式，length是表示提取的字节数的数值型表达式。
RTrim RTrim函数复制字符串并去掉尾部的空格。
用法为：result = RTrim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。
String String函数构造含有多个相同字符的字符串。
用法为：result = String(number, character)
其中，result是字符串变量，number是返回字符串的长度，character是用来构造返回字符串的字符码。
Trim Trim函数复制字符串并去掉首尾的空格。
用法为：result = Trim(string)
其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。
UCase UCase函数把字符串变为大写形式。
用法为：result = UCase(string)
其中result是大写字符串，string是任意有效的字符串表达式。
函数整理（日期和时间函数）
Xinsoft,2003-11-02 23:39:14
日期和时间函数处理支持日期、时间值转换的各种过程。一星期七天用下面的代码值表示。
值 一星期七天
1 星期日
2 星期一
3 星期二
4 星期三
5 星期四
6 星期五
7 星期六
CDate CDate函数转换成Date子类的表达式。用法为： result = CDate(expr)
其中，result是Date子类的Variant，expr是有效的数据表达式（可以用IsDate函数确定表达式是否有效）。
Date Date函数提取当前的系统日期。用法为： result = Date
其中result是Date子类的Variant。
DateSerial DateSerial函数设置Date变量的日期值。用法为： result = DateSerial(year,mongth,day)
其中result是Date子类的Variant，year是介于100和9999之间的数，month是1和12之间的数，day是1和31之间的数。在正确范围内的数值表达式可用作参数。如果表达式无效，就把它增加为下一个更大的数。
DateValue DateValue函数把表达式转换成Date子类。用法为： result = DateValue(expr)
其中result是Date子类的Variant，expr是代表日期的字符串表达式，例如November 30, 1997或11/30/1997。
Day Day函数从日期表达式中提取日期。用法为： result = Day(expr)
其中，result是1和31之间的整数，expr是任意日期表达式。如果expr为Null，则返回Null。
Hour Hour函数从事件表达式中提取小时值。用法为： result = Hour(expr)
其中，result是0和23之间的整数，expr是任意时间表达式。如果expr为Null，则返回Null。
Minute Minute函数从事件表达式提取分钟值。用法为： result = Minute(expr)
其中，result是0和59之间的整数，expr是任意时间表达式。如果expr为Null，则返回Null。
Month Month函数从事件表达式提取月份值。用法为： result = Month(expr)
其中，result是1和12之间的整数，分别代表一年的12个月，expr是任意日期表达式。如果expr为Null，则返回Null。
Now Now函数根据计算机当前设定的日期和时间提取当前的日期和时间。用法为： result = Now
其中，result是含有日期和时间的表达式。
Second Second函数从表达式中提取秒值。用法为： result = Second(expr)
其中，result是0和59之间的整数，expr是任意时间表达式。如果expr为Null，则返回Null。
Time Time函数提取系统的当前时间。用法为： result = Time
其中，result是Date子类的Variant。
TimeSerial TimeSerial函数在Date变量里设置时间值。TimeSerial返回含有指定的小时、分钟和秒的Date子类的Variant。用法为： result = TimeSerial(hour,minute,second)
其中，result是Date子类的Variant，hour是0是23之间的数，minute是0和59之间的数，second是0和59之间的数。在正确范围内的数值型表达式可用作参数。如果表达式无效，就把它变为下一个更大的数。
Weekday Weekday函数确定特定日期的星期数。用法为： result = Weekday(expr,[firstdayofweek])
其中，result是表示星期数的整数，expr是日期表达式。如果expr含有Null，则返回Null。可选的firstdayofweek参数识别假定为第一天的值。
Year Year函数从表达式中提取年份值。用法为： result = Year(expr)
其中，result是表示年的整数值，expr是任意的日期表达式。如果expr为Null，则返回Null。
控制输出字符串的长度，可以区别中英文
Xinsoft,2003-11-03 00:01:25
研究了2小时怎么控制输出文章标题中的中英文，给大家铁出来
函数在下面，是方法是：
strvalue("复请Email通知如果不填写则取注册Email",26)
这里26是指26个英文字母，也就是13个汉字
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
function strvalue(str,lennum)
dim p_num
dim i
if strlen(str)<=lennum then
strvalue=str
else
p_num=0
x=0
do while not p_num > lennum-2
x=x+1
if asc(mid(str,x,1))<0 then
p_num=int(p_num) + 2
else
p_num=int(p_num) + 1
end if
strvalue=left(trim(str),x)&"…"
loop
end if
end function
介绍一个判断plug-ins/ActiveX 是否存在的例子
Xinsoft,2003-11-03 00:20:09
这里就以在IE3.02和Netscape3+的浏览器为例，介绍关于Flash(以Flash2为例)插件是否安装.
<%
a = lcase(request.servervariables("http_user_agent"))
if instr(a,"msie")>0 then
if instr(a,"98")>0 or instr(a,"95")>0 or instr(a,"nt")>0 then
ie32="true"
' IE 3 or greater on 32-bit
end if
elseif instr(a,"mozilla/3")>0 or instr(a,"mozilla/4")>0 then
if instr(a,"opera")<=0 then
nn="true"
' Netscape 3 or greater
end if
end if
if ie32 then
%>
<script language="vbscript">
if scriptEngineMajorVersion > 1 then
on error resume next
FIn=(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")))
if FIn then
msgbox "Flash插件已安装!"
else
msgbox "Flash插件没安装."
end if
end if
</script>
<%
elseif nn then
%>
<script language="JavaScript">
FIn = navigator.plugins["Shockwave Flash 2.0"];
if (FIn)
{
alert("Flash插件已安装!");
}
else
{
alert("Flash插件没安装.");
}
</script>
<%
end if
%>
如何使用MsgBox
Xinsoft,2003-11-03 00:36:34
MsgBox 函数 语言参考
起始页 | 版本 1
请参阅
--------------------------------------------------------------------------------
描述
在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。
语法
MsgBox(prompt[, buttons][, title][, helpfile, context])
MsgBox 函数的语法有以下参数：
参数 描述
prompt 作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
buttons 数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则 buttons 的默认值为 0。
title 显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。
helpfile 字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。
context 数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。
设置
buttons 参数可以有以下值：
常数 值 描述
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。
第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。
返回值
MsgBox 函数有以下返回值：
常数 值 按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 放弃
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6 是
vbNo 7 否
说明
如果同时提供了 helpfile 和 context，则用户可以按 F1 键以查看与上下文相对应的帮助主题。
如果对话框显示取消按钮，则按 ESC 键与单击取消的效果相同。如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前，不会返回任何值。
下面的示例利用MsgBox 函数显示一信息框并且返回值说明了按下的是那一个按钮:
Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox 例子") ' MyVar 包含 either 1 or 2，
'依赖于被按下的按钮。
慕迟,2003-11-03 14:19:40
留下了
HTML转JS
Xinsoft,2004-03-17 07:02:28
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>html转js</title>
<style type="text/css">
<!--
body {
font-size: 12px;
text-align: center;
margin: 0px;
border: none;
background-color: #CCCCCC;
}
-->
</style>
</head>
<body scroll=no>
<script>
function html2js(codestr){
var codes=codestr.split("\n");
var jscode="";
var tcode="";
for(var a=0;a<codes.length;a++){
if(codes[a].replace(/\s+/,"")!=""){
tcode="";
tcode+=codes[a].replace(/\"/ig,"\\\"").replace(/(\s+)</ig,"<").replace(/\//ig,"\\\/");
tcode="document.write(\""+tcode+"\");\n";
jscode+=tcode.replace(/\r/ig,"");
//alert(jscode);
}
}
jscode="<script language=\"javascript\">\n"+jscode+"<\/script>";
return jscode;
}
function runcode(){
var mywin=window.open("","测试窗口","")
mywin.document.open();
mywin.document.write(jscode.value);
mywin.document.close();
}
</script>
<textarea name="htmlcode" style="width:100%" rows="15" id="htmlcode"></textarea>
<input type="button" name="Submit" value="转换" onClick="jscode.value=html2js(htmlcode.value)">
<input type="button" name="Submit2" value="测试" onClick="runcode()">
<textarea name="jscode" style="width:100%" rows="15" id="jscode"></textarea>
<font color="#999999">版权：野小子 </font>
</body>
</html>
chpch,2004-03-17 08:06:13
顶
97 1 2 8: 此主题共有17帖 此页12帖 每页12帖
[查看完整模式]
Page created in 4.3438 seconds width 2 queries.
|