代码如下:<% Load XML set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = false xml.load(Server.MapPath("cdcatalog.xml")) Load XSL set xsl = Server.CreateObject("Microsoft.XMLDOM") xsl.async = false xsl.load(Server.MapPath("cdcatalog.xsl")) Transform file Response.Write(xml.transformNode(xsl)) %>
CDbl 函数 返回表达式，此表达式已被转换为 Double 子类型的 Variant。 CDbl(expression) expression 参数是任意有效的表达式。 说明 通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如在出现货币或整数运算的情况下，使用 CDbl 或 CSng 函数强制进行双精度或单精度算术运算。 CDbl 函数用于进行从其他数据类型到 Double 子类型的国际公认的格式转换。例如，...
代码如下:'================================================ ' 函数名：ChkMapPath ' 作 用：相对路径转换为绝对路径 ' 参 数：strPath ----原路径 ' 返回值：绝对路径 '================================================ Function ChkMapPath(ByVal strPath) Dim fullPath strPath = Replace(Replace(Trim(strPath), "/", "\"), "\\", "\") If strPath = "" Then strPath = "." If InStr(strPath,":\") = 0 Then fullPath = Se...
代码如下:个人代码风格注释（变量名中第一个小写字母表表示变量类型） i:为Integer型; s:为String; Function U2UTF8(Byval a_iNum) Dim sResult,sUTF8 Dim iTemp,iHexNum,i iHexNum = Trim(a_iNum) If iHexNum = “” Then Exit Function End If sResult = “” If (iHexNum < 128) Then sResult = sResult & iHexNum ElseIf (iHexNum < 2048) Then sResult = ChrB(&H80 + (iHexNum And &H3F)) iHexNum = iHexNum \ &H40 sResult =...
代码如下:function astro(birth) astro="" if birth="" or not isdate(birth) Then exit function birthmonth=month(birth) : if birthmonth<10 then birthmonth="0" & birthmonth birthday=day(birth) : if birthday<10 then birthday="0" & birthday birth=trim(birthmonth & birthday) 重整月日,0903型 rAstro=split("水瓶座*0120*0219#双鱼座*0220*0320#白羊座*0321*0420#金牛座*0421*0521#双子座*0522*0621#巨蟹座*0622*0722#...
完整的示例代码如下： 代码如下:<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>JavaScript自动判断网页编码并转换</title> </head> <%Server.ScriptTimeout=9999999; function send_request(url){ var codedtext; http_request = Server.CreateObject("Microsoft.XMLHTTP"); http_request.Open("GET",url,false); http_request.Send(n...
具体特征如下： 1、通过模板实现俄文正常。 2、通过后台数据库生成的静态俄文信息，后台显示正常， 前台乱码。 3、英文正常。 和该主题相关的类似或不同表达 FSO写UTF-8编码文件 FSO怎么才能生成utf-8编码的文件 FSO生成的文件默认是什么编码格式 如何转换成UTF-8编码 FSO生成静态网页的问题 ASP中用FSO生成文件代码如下 代码如下:function createfile(sfilename,scontent) set fso=server.CreateObject("scripting.filesystemobj...
LCase：转成小写 UCase：转成大写 下面是ASP中的代码，可以直接演示效果的。 代码如下:<% dim str,str1,str2 str="AbCdEf" str1=LCase(str) str2=UCase(str) Response.write("LCase转换小写"&str1 & ",UCase转换大写" & str2) %> 而.NET中将字符串转换为大写ToUpper()，将字符串转换为小写ToLower()。
abs(number) 返回绝对值。 array(arglist) 创建一个数组。 asc(string) 返回字符串第一个字符的ansi码。 atn(number) 返回反正弦值。 cbool (expression) 转换成boolean数据类型变量。 cbyte (expression) 转换成byte数据类型变量。 ccur (expression) 转换成currency数据类型变量。 cdate (expression) 转换成date数据类型变量。 cdbl (expression) 转换成double数据类型变量。 chr(charcode) 把ansi 码转换成相应的键盘字符。 ci...
Rem 将字符串转换为整形数据 function toInteger(str,num) str=trim(str) if str="" or not isnumeric(str) then toInteger=num else toInteger=clng(str) end if end function Rem 将字符串转换为双精度型数据 function toDouble(str) str=trim(str) if str="" or not isnumeric(str) then toDouble=0.0 else toDo...
主要是给用户的友好性，原来用户是依靠搜索引擎进入我每篇文章的，怎么能让用户让一个旧的页面跳转到新的页面，且文章不变，如： 程序代码 //www.gxlsystem.com/blog/article.asp?id=381 //旧网址 进入之后自动跳转到 //www.gxlsystem.com/article.asp?id=381 这就需要new321服务器的404页来处理了，代码如下： 程序代码 <% url=Request.ServerVariables("QUERY_STRING") arr=Split(url,"/blog") '用/分割 ...
网址和邮件地址的转换函数<% function URLconvert(str) convertstr=str urlLocation=instr(convertstr,"http://") if (urlLocation=0) and (mailLocation=0) then URLconvert=convertstr exit function end if if urlLocation<>0 then rightstr=str Do while urlLocation<>urlLocationend urlLocation=instr(rightstr,"http://") urlLocationend=InStrRev(rightstr,"http://") finalstr=finalstr&left(rightstr,urlLocation-1) m...
'================================================== '函数名：DefiniteUrl '作 用：将相对地址转换为绝对地址 '参 数：PrimitiveUrl ------要转换的相对地址 '参 数：ConsultUrl ------当前网页地址 '================================================== Function DefiniteUrl(Byval PrimitiveUrl,Byval ConsultUrl) Dim ConTemp,PriTemp,Pi,Ci,PriArray,ConArray If PrimitiveUrl="" or ConsultUrl="" or PrimitiveU...
'================================================ '函数名：FormatRemoteUrl '作 用：格式化成当前网站完整的URL-将相对地址转换为绝对地址 '参 数： url ----Url字符串 '参 数： CurrentUrl ----当然网站URL '返回值：格式化取后的Url '================================================ Public Function FormatRemoteUrl(ByVal URL,ByVal CurrentUrl) Dim strUrl If Len(URL) < 2 Or Len(URL) > 255 ...
'================================================== '函数名：BytesToBstr '作 用：将获取的源码转换为中文 '参 数：Body ------要转换的变量 '参 数：Cset ------要转换的类型 '================================================== Function BytesToBstr(Body,Cset) Dim Objstream Set Objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream...