ASP常用函数库

ASP常用函数库
1.函数array()
功能:创建一个数组变量
格式:array(list)
参数:list 为数组变量中的每个数值列,中间用逗号间隔
例子:
结果: i 被赋予为数组
2.函数Cint()
功能:将一表达式/其它类型的变量转换成整数类型(int)
格式:Cint(expression)
参数:expression 是任何有效的表达式/其它类型的变量
例子:
结果: 236
函数Cint()将字符"234"转换成整数234.如果表达式为空, 或者无效时,返回值为0;
3.函数: Creatobject()
功能:创建及返回一个ActiveX对象.
格式:Creatobject(obname)
参数:obname 是对象的名称
例子:
结果:
4.函数Cstr()
功能:将一表达式/其它类型的变量转换成字符类型(string) 格式:Cstr(expression)
参数:expression是任何有效的表达式/其它类型的变量
例子:
结果:函数Cstr()将整数5 转换成字符"5".
5.函数Date()
功能:返回当前系统(server端)的日期
格式:Date()
参数:无
例子:
结果:05/10/00
6.函数Dateadd()
功能:计算某个指定的时间和
格式:dateadd(timeinterval,number,date)
参数:timeinterval是时间单位(月,日..); number是时间间隔值,date是时间始点.
例子:
结果:
11/4/99
3:34:45 PM
其中
"m" = "month";
"d" = "day";
如果是currentDate 格式,则,
"h" = "hour";
"s" = "second";
7.函数Datediff()
功能:计算某量个指定的时间差
格式:datediff(timeinterval,date1,date2[,firstdayofweek[,firstdayofyear]]) 参数:timeinterval 是时间单位; date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear 是任意选项.
例子:
结果:There are 150 days to millenium from 8/4/99.
8.函数day()
功能:返回一个整数值,对应于某月的某日
格式:day(date)
参数:date是一个有效的日期表达式;
例子:
结果:4
9.函数formatcurrency()
功能:转换成货币格式
格式:formatcurrency(expression [,digit[,leadingdigit[,paren[,groupdigit]]]])
参数:expression 是有效的数字表达式;digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项.
例子:
结果:$34.35
10.函数Formatdatetime()
功能:格式化日期表达式/变量
格式:formatdatetime(date[,nameformat])
参数:date为有效的日期表达式/变量;nameformat是指定的日期格式常量名称.
例子:
结果:Wednesday,August 04,1999
11.函数formatnumber()
功能:格式化数字表达式/变量
格式:formatnumbe(expression [,digit[,leadingdigit[,paren[,groupdigit]]]]) 参数:express为有效的数字表达式, digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项
例子:
结果: 23.222
12.函数formatpercent()
功能:格式化百分数表达式/变量
格式:formatnumber(expression [,digit [,leading [,paren[,groupdigit]]]])
参数:expression 是有效的数字表达式,digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项
例子:
结果: 45.233
13.函数: hour()
功能:返回一个数值,对应于的指定时间.
格式:hour(time)
参数:time对应于的指定时间.
例子:
结果:16 (24 小时制)
14.函数instr()
功能:返回一个数值,对应于某字符(串)在另一字符串中的位置.
格式:instr([start,]strtobesearched,strsearchfor [,compare])
参数:start(任选)是从第start位寻找,strtobesearched 是被搜索的字符串,strsearchfor是被寻找的目标.compare是任意选项
例子:
结果:9,(字符"a"在strtext字符串的第九位)
15.函数instrrev()
功能:返回一个数值,对应于某字符(串)在另一字符串中的位置(从后面起开始寻找).
格式:instrrev([start,] strtobesearched,strsearchfor[,compare])
参数:参考instr(),
例子:
结果:13, 字串"s"是strtext的第13个字符(从后面起开始寻找)
16.函数int()
功能:数字取整
格式:int(number)
参数:number 是任何有效的数字表达式/其它类型的变量
例子:
结果:322 (如果用Cint()则结果是323)
17.函数isarray()
功能:返回一个布尔值,判断变量是否为数组.
格式: isarray(name)
参数:name是变量名称
例子:
结果:false
18.函数isdate()
功能:返回一个布尔值,判断变量是否为日期变量.
格式:isdate(expression)
参数:expression 是任意的变量.
例子:
结果:true
19.函数isempty()
功能:返回一个布尔值,判断变量是否为空.
格式:isempty(expression)
参数:expression 是任意的变量.
例子:
结果:true
20.函数isnull()
功能:返回一个布尔值,判断变量是否包含非法的数据. 格式:isnull(expression)
参数:expression 是任意的变量.
例子:
结果:false
21.函数Isnumeric()
功能:返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量.
格式:isnumeric(expression)
参数:expression 是任意的变量.
例子:
结果: true.
22.函数Isobject()
功能:返回一个布尔值,判断变量是否为对象的变量,
格式:isobject(expression)
参数:expression 是任意的变量.
例子:
结果: true
23.函数: Lbound()
功能:返回一个数组的下界.
格式:Lbound(arrayname[,dimension])
参数:arrayname 是数组变量,dimension 是任意项
例子:
结果:0
24.函数Lcase()
功能:将一字符类型变量的字符全部变换小写字符. 格式:Lcase(string)
参数:string是字串变量
例子:
结果:this is lcase!
25.函数left()
功能:截取一个字符串的前部分;
格式:left(string,length)
参数:string字符串,length截取的长度.
例子:
结果:this i
26.函数len()
功能:返回字符串长度或者变量的字节长度
格式:len(string |varname)
参数:string字符串;varname任意的变量名称
结果:15
27.函数ltrim()
功能:去掉字符串前的空格. 格式:ltrim(string)
参数:string 字串.
例子:
结果:Today
29.函数minute()
功能:返回一数值, 表示分钟格式:minute(time)
参数: time是时间变量
例子:
结果:23
30.函数month()
功能:返回一数值, 表示月份格式:month(time)
参数:time是日期变量
结果:9
31.函数monthname()
功能:返回月份的字符串(名称).
格式:Monthname(date [,abb])
参数:date是日期变量,abb=true时则月份的缩写,
例子:
结果:April
32.函数Now()
功能:返回系统的当前时间和日期.
格式:now()
参数:无
例子:
结果: 05/10/00 8:45:32 pm
33.函数: replace()
功能:在字串中查找,替代指定的字串.
格式:replace(strtobesearched,strsearchfor,strreplacewith
[,start[,count[,compare]]])
参数:strtobesearched是字串; strsearchfor是被查找的子字串;strreplacewith
是用来替代的子字串.start,count,compare 是任意选项.
例子:
结果:this is an orange.
34.函数right()
功能:截取一个字符串的后部分
格式:right(string,length)
参数:string字符串,length截取的长度.
例子:
结果:st!
35.函数rnd()
功能:返回一个随机数值
格式:rnd[(number)]
参数:number是任意数值.
例子:
结果:0/1数值之一,无randomize(), 则不能产生随机数.
36.函数round()
功能:完整数值
格式:round(expression[,numright])
参数:expression数字表达式;numright任意选项.
例子:
结果: 12
37.函数rtrim()
功能:去掉字符串后的空格.
格式:rtrim(string)
参数:string 是字串
例子:
结果:this is a test!
38.函数second()
功能:返回一个整数值.
格式:second(time)
参数:time是一个有效的时间表达式;
例子:
39.函数strReverse()
功能:返回与原字串排列逆向的字串. 格式:strreverse(string)
参数:string是字串
40.重新设定图片大小,返回百分比function resizeImg(ox,oy,nx,ny) resizeimg = 1
If ox<=nx And oy<=ny Then Exit function dim x,y
'先算x
x = ny * ox / oy
if x > nx then 'x不行
y = nx * oy / ox
resizeImg = y / oy
resizeImg = x / ox
end if
resizeImg = formatNumber(resizeImg,4)
end function
41.上传时生成自动目录(以2005_6 类似的名称)
Function makeMonthDir(vitualRoot,virtual)
Dim dirName,dirNameV,fso
dirNameV = vitualRoot & "/" & Year(Now()) & "_" & Month(Now()) dirName = server.MapPath(dirNameV)
'response.write DirName & "<br>"
Set fso = server.CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(dirName) then
fso.CreateFolder(dirName)
end if
set fso = Nothing
If virtual Then
makeMonthDir = dirNameV & "/"
Else
makeMonthDir = dirName & "\"
End if
End Function
42. 删除指定的文件,必须传入虚拟路径
Sub DoDelFile(sPathFile)
On Error Resume Next
Dim oFSO
Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 'response.write "<br>" & Server.MapPath(sPathFile) oFSO.DeleteFile(Server.MapPath(sPathFile))
Set oFSO = Nothing
End Sub
43. 格式化时间(显示)
' 参数：n_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
' 5:"yyyymmdd"
' 6:"MM/DD"
' ============================================ Function Format_Time(s_Time, n_Flag)
Dim y, m, d, h, mi, s
Format_Time = ""
If IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
If len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
If len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case 2
' yyyy-mm-dd
Format_Time = y & "-" & m & "-" & d
Case 3
' hh:mm:ss
Format_Time = h & ":" & mi & ":" & s
Case 4
' yyyy年mm月dd日
Format_Time = y & "年" & m & "月" & d & "日" Case 5
' yyyymmdd
Format_Time = y & m & d
Case 6
'mm/dd
Format_Time = m & "/" & d
case 7
Format_Time = m & "/" & d & "/" & right(y,2)
End Select
End Function
44.
' ============================================ ' 把字符串进行HTML解码,替换server.htmlencode ' 去除Html格式，用于显示输出
' ============================================ Function outHTML(str)
Dim sTemp
sTemp = str
outHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
sTemp = Replace(sTemp, Chr(10), "<br>")
outHTML = sTemp
End Function
45.
' ============================================
' 去除Html格式，用于从数据库中取出值填入输入框时' 注意：value="?"这边一定要用双引号
' ============================================ Function inHTML(str)
Dim sTemp
sTemp = str
inHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
inHTML = sTemp
End Function
46.
' ============================================ ' 检测上页是否从本站提交
' 返回:True,False
' ============================================
Function IsSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER")) sServer_Name = CStr(Request.ServerVariables("SERVER_NAME")) If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function
47
' ============================================
' 得到安全字符串,在查询中使用
' ============================================
Function Get_SafeStr(str)
Get_SafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")
End Function
48.
' ============================================
' 取实际字符长度
' ============================================
Function Get_TrueLen(str)
Dim l, t, c, i
l = Len(str)
t = l
For i = 1 To l
c = Asc(Mid(str, i, 1))
If c < 0 Then c = c + 65536
If c > 255 Then t = t + 1
Next
Get_TrueLen = t
End Function
49.
' ============================================
' 判断是否安全字符串,在注册登录等特殊字段中使用
' ============================================
Function IsSafeStr(str)
Dim s_BadStr, n, i
s_BadStr = "' &<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)
n = Len(s_BadStr)
IsSafeStr = True
For i = 1 To n
If Instr(str, Mid(s_BadStr, i, 1)) > 0 Then
IsSafeStr = False
Exit Function
End If
Next
End Function
50.
'================================================
' 显示解释函数，返回根据参数允许显示的格式字符串，具体调用方法可从后台管理获得
' 输入参数：
' s_Content : 要转换的数据字符串
' s_Filters : 要过滤掉的格式集，用逗号分隔多个
'================================================
Function jimmycode(s_Content, sFilters)
Dim a_Filter, i, s_Result, s_Filters
jimmycode = s_Content
If IsNull(s_Content) Then Exit Function
If s_Content = "" Then Exit Function
's_Content = Replace(s_Content, Chr(10), "<br>")
s_Result = s_Content
s_Filters = sFilters
' 设置默认过滤
If sFilters = "" Then s_Filters = "script,object"
a_Filter = Split(s_Filters, ",")
For i = 0 To UBound(a_Filter)
s_Result = jimmycodeFilter(s_Result, a_Filter(i))
Next
jimmycode = s_Result
End Function
51.
' =============================================== ' 初始化下拉框
' s_FieldName : 返回的下拉框名
' a_Name : 定值名数组
' a_Value : 定值值数组
' v_InitValue : 初始值
' s_Sql : 从数据库中取值时,select name,value from table
' s_AllName : 空值的名称,如:"全部","所有","默认"
' ===============================================
Function InitSelect(s_FieldName, a_Name, a_Value, v_InitValue, s_Sql, s_AllName,s_onchange)
Dim i
InitSelect = "<select name='" & s_FieldName & "' size=1 onChange='" & s_onchange & "'>"
If s_AllName <> "" Then
InitSelect = InitSelect & "<option value=''>" & s_AllName & "</option>" End If
If s_Sql <> "" Then
ors.Open s_Sql, oConn, 0, 1
Do While Not ors.Eof
InitSelect = InitSelect & "<option value=""" & inHTML(oRs(1)) & """"
If ors(1) = v_InitValue Then
InitSelect = InitSelect & " selected"
End If
InitSelect = InitSelect & ">" & outHTML(oRs(0)) & "</option>"
ors.MoveNext
Loop
ors.Close
Else
For i = 0 To UBound(a_Name)
InitSelect = InitSelect & "<option value=""" & inHTML(a_Value(i)) & """" If a_Value(i) = v_InitValue Then
InitSelect = InitSelect & " selected"
End If
InitSelect = InitSelect & ">" & outHTML(a_Name(i)) & "</option>" Next
End If
InitSelect = InitSelect & "</select>"
End Function
%>
<Script Language=JavaScript RunAt=Server>
52.
//===============================================
// 单个过滤
// 输入参数：
// s_Content : 要转换的数据字符串
// s_Filter : 要过滤掉的单个格式
//=============================================== function jimmycodeFilter(html, filter){
switch(filter.toUpperCase()){
case "SCRIPT": // 去除所有客户端脚本javascipt,vbscript,jscript,js,vbs,event,...
html = eWebEditor_execRE("</?script[^>]*>", "", html);
html = eWebEditor_execRE("(javascript|jscript|vbscript|vbs):", "$1：", html);
html = eWebEditor_execRE("on(mouse|exit|error|click|key)", "<I>on$1</I>", html);
html = eWebEditor_execRE("&#", "<I>&#</I>", html);
break;
case "TABLE": // 去除表格<table><tr><td><th>
html = eWebEditor_execRE("</?table[^>]*>", "", html);
html = eWebEditor_execRE("</?tr[^>]*>", "", html);
html = eWebEditor_execRE("</?th[^>]*>", "", html);
html = eWebEditor_execRE("</?td[^>]*>", "", html);
break;
case "CLASS": // 去除样式类class=""
html = eWebEditor_execRE("(<[^>]+) class=[^ |^>]*([^>]*>)", "$1 $2", html) ;
break;
case "STYLE": // 去除样式style=""
html = eWebEditor_execRE("(<[^>]+) style=\"[^\"]*\"([^>]*>)", "$1 $2", html);
break;
case "XML": // 去除XML<?xml>
html = eWebEditor_execRE("<\\?xml[^>]*>", "", html);
break;
case "NAMESPACE": // 去除命名空间<o:p></o:p>
html = eWebEditor_execRE("<\/?[a-z]+:[^>]*>", "", html);
break;
case "FONT": // 去除字体<font></font>
html = eWebEditor_execRE("</?font[^>]*>", "", html);
break;
case "P": // 去除字体<P></P>
html = eWebEditor_execRE("</?p[^>]*>", "", html);
break;
case "IMG": // 去除图片<IMG></IMG>
html = eWebEditor_execRE("</?img[^>]*>", "", html);
break;
case "MARQUEE": // 去除字幕<marquee></marquee> html = eWebEditor_execRE("</?marquee[^>]*>", "", html);
break;
case "OBJECT": // 去除对象<object><param><embed></object> html = eWebEditor_execRE("</?object[^>]*>", "", html);
html = eWebEditor_execRE("</?param[^>]*>", "", html);
html = eWebEditor_execRE("</?embed[^>]*>", "", html);
break;
case "HTML":
html = eWebEditor_execRE("</?[^>]*>", "", html);
break;
default:
}
return html;
}
53.
// ============================================ // 执行正则表达式替换
// ============================================ function eWebEditor_execRE(re, rp, content) {
oreg = new RegExp(re, "ig");
r = content.replace(oReg, rp);
return r;
}
54．
'用途:获取远程的网页内容
'示例:response.write getHTTPPage("") 'response.write getHTTPPage("") function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
.55
'用途:检查str是否为空
Function checkNull(str)
checkNull = False
if trim(str)="" or isnull(str) then
checkNull = True
end if
end Function
56************************************************** '函数名：strLength
'作用：求字符串长度。

汉字算两个字符，英文算一个字符。

'参数：str ----要求长度的字符串
'返回值：字符串长度
'************************************************** 'response.write strLength("中国")
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("中国")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
if err.number<>0 then err.clear
end function
57*************************************************** '函数名：isHTTP
'作用：检查字符串是否以HTTP开头或以"/"开头
'参数：str，注str不能为NULL值
'编写:杨俊明
'****************************************************
'response.write isHTTP("http://")
Function isHTTP(MyString)
if isnull(MyString) then isHTTP = false
if mid(lcase(trim(MyString)),1,7)="http://" or left(MyString,1)="/" then isHTTP = true
else
isHTTP = False
end if
end function
58
'作用：检查组件是否已经安装
'参数：strClassString ----组件名
'返回值：True ----已经安装
' False ----没有安装
'示例: response.write IsObjInstalled("Adodb.recordset")
'编写:网上搜索
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
59========网上搜集=====================================
'过程名：ShowArticleContent
'作用：显示文章具体的内容，可以分页显示
'参数：ShowContentByPage,s_content,MaxPerPage_Content
'调用示例:
'ShowContentByPage="yes" '是否使用文章分页(为No，则表示关闭) 's_content = "一1<font color=red>二2三3四</font>4五六七八九十" '要分页显示的字符串
'MaxPerPage_Content = 15 '每页显示的字数(注意，html源代码也计算在内)
'call
ShowArticleContent(ShowContentByPage,s_content,MaxPerPage_Conte nt)
'=================================================
'call ShowArticleContent("yes","123456789",4)有问题
sub
ShowArticleContent(ShowContentByPage,s_content,MaxPerPage_Conte nt)
on error resume next
dim ArticleID,strContent,CurrentPage,GoUrl,GoParm
dim ContentLen,MaxPerPage,pages,i,lngBound
dim BeginPoint,EndPoint
GoUrl = request.ServerVariables("url")
GoParm = trim(request.ServerVariables("query_string"))
if isNull(GoPram) then GoParm=""
if instr(GoParm,"ArticlePage")>0 then GoParm = left(GoParm,instr(GoParm,"ArticlePage")-1)
if right(GoParm,1)="&" then GoParm = left(GoParm,len(GoParm)-1)
if GoParm<>"" then
GoUrl = GoUrl & "?" & GoParm & "&"
else
GoUrl = GoUrl & "?"
end if
ShowContentByPage = ucase(ShowContentByPage)
ArticleID=cint(s_id)
strContent=s_content
ContentLen=len(strContent)
CurrentPage=trim(request("ArticlePage"))
if ShowContentByPage="NO" or ContentLen<=MaxPerPage_Content then
response.write strContent
if ShowContentByPage="YES" then
response.write "</p><p align='center'></p>"
end if
else
if CurrentPage="" then
CurrentPage=1
else
CurrentPage=Cint(CurrentPage)
end if
pages=ContentLen\MaxPerPage_Content
if MaxPerPage_Content*pages<ContentLen then
pages=pages+1
end if
lngBound=MaxPerPage_Content '最大误差范围
if CurrentPage<1 then CurrentPage=1
if CurrentPage>pages then CurrentPage=pages
dim lngTemp
dim
lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngT emp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
dim
lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngT emp2_2_1,lngTemp2_2_2
dim
lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngT emp3_2_1,lngTemp3_2_2
dim
lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngT emp4_2_1,lngTemp4_2_2
dim lngTemp5,lngTemp5_1,lngTemp5_2
dim lngTemp6,lngTemp6_1,lngTemp6_2
if CurrentPage=1 then
BeginPoint=1
else
BeginPoint=MaxPerPage_Content*(CurrentPage-1)+1
lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
if lngTemp1_1_1>0 then
lngTemp1_1=lngTemp1_1_1
elseif lngTemp1_1_2>0 then
lngTemp1_1=lngTemp1_1_2
elseif lngTemp1_1_3>0 then
lngTemp1_1=lngTemp1_1_3
else
lngTemp1_1=0
end if
lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1) lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1) lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1) if lngTemp1_2_1>0 then
lngTemp1_2=lngTemp1_2_1
elseif lngTemp1_2_2>0 then
lngTemp1_2=lngTemp1_2_2
elseif lngTemp1_2_3>0 then
lngTemp1_2=lngTemp1_2_3
else
lngTemp1_2=0
end if
if lngTemp1_1=0 and lngTemp1_2=0 then lngTemp1=BeginPoint
else
if lngTemp1_1>lngTemp1_2 then
lngtemp1=lngTemp1_2
else
lngTemp1=lngTemp1_1+8
end if
end if
lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1) lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1) if lngTemp2_1_1>0 then
lngTemp2_1=lngTemp2_1_1
elseif lngTemp2_1_2>0 then
lngTemp2_1=lngTemp2_1_2
else
lngTemp2_1=0
end if
lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1) lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1) if lngTemp2_2_1>0 then
lngTemp2_2=lngTemp2_2_1
elseif lngTemp2_2_2>0 then
lngTemp2_2=lngTemp2_2_2
else
lngTemp2_2=0
end if
if lngTemp2_1=0 and lngTemp2_2=0 then。