代码收藏 » asp http://code.9enjoy.com 收集网站开发时常用到的代码(asp,php,js等)，以函数为主 Mon, 24 Jan 2011 14:23:49 +0000 http://wordpress.org/?v=2.9.1 en hourly 1 ASP来实现UTF8转换GB2312国标码http://code.9enjoy.com/asp/gb2utf8/ http://code.9enjoy.com/asp/gb2utf8/#comments Tue, 06 Apr 2010 14:12:33 +0000 enjoy http://code.9enjoy.com/?p=170 ASP来实现UTF8转换GB2312国标码-GB2312转UTF-8

‘个人代码风格注释（变量名中第一个小写字母表表示变量类型）
‘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 = ChrB(&HC0 + (iHexNum And &H1F)) & sResult
    ElseIf (iHexNum < 65536) Then
        sResult = ChrB(&H80 + (iHexNum And &H3F))
        iHexNum = iHexNum \ &H40
        sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult
        iHexNum = iHexNum \ &H40
        sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
    End If

    U2UTF8 = sResult
End Function

Function GB2UTF(Byval a_sStr)
    Dim sGB,sResult,sTemp
    Dim iLen,iUnicode,iTemp,i

    sGB = Trim(a_sStr)
    iLen = Len(sGB)
    For i = 1 To iLen
         sTemp = Mid(sGB,i,1)
         iTemp = Asc(sTemp)

         If (iTemp>127 OR iTemp<0) Then
             iUnicode = AscW(sTemp)
             If iUnicode<0 Then
                 iUnicode = iUnicode + 65536
             End If
        Else
            iUnicode = iTemp
        End If

        sResult = sResult & U2UTF8(iUnicode)
    Next

    GB2UTF = sResult
End Function

‘调用方法
Response.BinaryWrite(GB2UTF(“中国人”))
该文章出自《TOMMYHU’s blog》,原文链接：http://www.tommyhu.cn/asp-to-achieve-utf8-conversion-gb2312-gb-code/

转载时间是: 2010-04-06 07:09:31 请务必保留此链接，谢谢！

]]> http://code.9enjoy.com/asp/gb2utf8/feed/ 0 截取字符串-InterceptStringhttp://code.9enjoy.com/asp/interceptstring/ http://code.9enjoy.com/asp/interceptstring/#comments Wed, 05 Nov 2008 09:27:55 +0000 enjoy http://code.itlearner.com/?p=56
function InterceptString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字
y = y + 2
else
y = y + 1
end if
if y >= length then
... ]]> ‘************* 截取字符串 **************

function InterceptString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then ‘如果是汉字
y = y + 2
else
y = y + 1
end if
if y >= length then
txt = left(trim(txt),ii) ‘字符串限长
exit for
end if
next
InterceptString = txt
else
InterceptString = “”
end if

End Function

]]> http://code.9enjoy.com/asp/interceptstring/feed/ 0 测字符串长度-CheckStringLengthhttp://code.9enjoy.com/asp/check-string-length/ http://code.9enjoy.com/asp/check-string-length/#comments Wed, 05 Nov 2008 09:27:14 +0000 enjoy http://code.itlearner.com/?p=55
Function CheckStringLength(txt)
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y
... ]]> ‘*************测字符串长度**************

Function CheckStringLength(txt)
txt=trim(txt)
x = len(txt)
y = 0
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then ‘如果是汉字
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y

End Function

]]> http://code.9enjoy.com/asp/check-string-length/feed/ 0 asp读取QQwry.dathttp://code.9enjoy.com/asp/qqwry/ http://code.9enjoy.com/asp/qqwry/#comments Wed, 16 Jul 2008 15:49:28 +0000 enjoy http://code.itlearner.com/?p=47
'=========================================================

' QQWry.DAT 利用程序 修改自互联网流传代码

' 本类在ASP环境中使用纯真版QQWry.dat通过完美测试

' 如果您的服务器环境不支持ADodb.Stream，将无法使用此程序

' 推荐使用纯真数据库，更新也方便

' ========================================================
... ]]> <%

‘=========================================================

‘ QQWry.DAT 利用程序 修改自互联网流传代码

‘ 本类在ASP环境中使用纯真版QQWry.dat通过完美测试

‘ 如果您的服务器环境不支持ADodb.Stream，将无法使用此程序

‘ 推荐使用纯真数据库，更新也方便

‘ ========================================================

‘ ============================================

‘ 返回IP信息

‘ ============================================

Function Look_Ip(IP)

Dim Wry, IPType, QQWryVersion, IpCounter

‘ 设置类对象

Set Wry = New TQQWry

‘ 开始搜索，并返回搜索结果

‘ 您可以根据 QQWry(IP) 返回值来判断该IP地址在数据库中是否存在，如果不存在可以执行其他的一些操作

‘ 比如您自建一个数据库作为追捕等，这里我就不详细说明了

IPType = Wry.QQWry(IP)

‘Tibet代码

if IPType = 0 then

if instr(Wry.localStr,”网通”)<>0 then

Look_Ip = “document.write(“”网通”");”

else

Look_Ip = “document.write(“”电信”");”

end if

else

Look_Ip = “document.write(“”电信”");”

end if

Exit Function

‘Tibet代码

‘ Country：国家地区字段

‘ LocalStr：省市及其他信息字段

Look_Ip = Wry.Country & ” ” & Wry.LocalStr

End Function

‘ ============================================

‘ 返回IP信息 JS调用

‘ ============================================

Function GetIpInfoAv(IP, sType)

Dim Wry, IPType

Set Wry = New TQQWry

IPType = Wry.QQWry(IP)

Select Case sType

Case 1 GetIpInfoAv = “document.write(“”" & IP & “”");”

Case 2 GetIpInfoAv = “document.write(“”" & Wry.Country & “”");”

Case 3 GetIpInfoAv = “document.write(“”" & Wry.LocalStr & “”");”

Case Else GetIpInfoAv = “document.write(“”您来自：” & IP & ” 所在区域：” & Wry.Country & ” ” & Wry.LocalStr & “”");”

End Select

End Function

‘ ============================================

‘ 返回QQWry信息(QQWry.Dat版本以及记录条数)

‘ ============================================

Function WryInfo()

Dim Wry, IPType, QQWry(1)

‘ 设置类对象

Set Wry = New TQQWry

IPType = Wry.QQWry(“255.255.255.255″)

‘ 读取数据库版本信息

QQWry(0) = Wry.Country & ” ” & Wry.LocalStr

‘ 读取数据库IP地址数目

QQWry(1) = Wry.RecordCount + 1

WryInfo = QQWry

End Function

‘ ============================================

‘ IP物理定位搜索类

‘ ============================================

Class TQQWry

‘ ============================================

‘ 变量声名

‘ ============================================

Dim Country, LocalStr, Buf, OffSet

Private StartIP, EndIP, CountryFlag

Public QQWryFile

Public FirstStartIP, LastStartIP, RecordCount

Private Stream, EndIPOff

‘ ============================================

‘ 类模块初始化

‘ ============================================

Private Sub Class_Initialize

Country = “”

LocalStr = “”

StartIP = 0

EndIP = 0

CountryFlag = 0

FirstStartIP = 0

LastStartIP = 0

EndIPOff = 0

QQWryFile = Server.MapPath(“QQWry.dat”) ‘QQ IP库路径，要转换成物理路径

End Sub

‘ ============================================

‘ IP地址转换成整数

‘ ============================================

Function IPToInt(IP)

Dim IPArray, i

IPArray = Split(IP, “.”, -1)

FOr i = 0 to 3

If Not IsNumeric(IPArray(i)) Then IPArray(i) = 0

If CInt(IPArray(i)) < 0 Then IPArray(i) = Abs(CInt(IPArray(i)))

If CInt(IPArray(i)) > 255 Then IPArray(i) = 255

Next

IPToInt = (CInt(IPArray(0))*256*256*256) + (CInt(IPArray(1))*256*256) + (CInt(IPArray(2))*256) + CInt(IPArray(3))

End Function

‘ ============================================

‘ 整数逆转IP地址

‘ ============================================

Function IntToIP(IntValue)

p4 = IntValue – Fix(IntValue/256)*256

IntValue = (IntValue-p4)/256

p3 = IntValue – Fix(IntValue/256)*256

IntValue = (IntValue-p3)/256

p2 = IntValue – Fix(IntValue/256)*256

IntValue = (IntValue – p2)/256

p1 = IntValue

IntToIP = Cstr(p1) & “.” & Cstr(p2) & “.” & Cstr(p3) & “.” & Cstr(p4)

End Function

‘ ============================================

‘ 获取开始IP位置

‘ ============================================

Private Function GetStartIP(RecNo)

OffSet = FirstStartIP + RecNo * 7

Stream.Position = OffSet

Buf = Stream.Read(7)

EndIPOff = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256)

StartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)

GetStartIP = StartIP

End Function

‘ ============================================

‘ 获取结束IP位置

‘ ============================================

Private Function GetEndIP()

Stream.Position = EndIPOff

Buf = Stream.Read(5)

EndIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)

CountryFlag = AscB(MidB(Buf, 5, 1))

GetEndIP = EndIP

End Function

‘ ============================================

‘ 获取地域信息，包含国家和和省市

‘ ============================================

Private Sub GetCountry(IP)

If (CountryFlag = 1 or CountryFlag = 2) Then

Country = GetFlagStr(EndIPOff + 4)

If CountryFlag = 1 Then

LocalStr = GetFlagStr(Stream.Position)

‘ 以下用来获取数据库版本信息

If IP >= IPToInt(“255.255.255.0″) And IP <= IPToInt(“255.255.255.255″) Then

LocalStr = GetFlagStr(EndIPOff + 21)

Country = GetFlagStr(EndIPOff + 12)

End If

Else

LocalStr = GetFlagStr(EndIPOff + 8)

End If

Else

Country = GetFlagStr(EndIPOff + 4)

LocalStr = GetFlagStr(Stream.Position)

End If

‘ 过滤数据库中的无用信息

Country = Trim(Country)

LocalStr = Trim(LocalStr)

If InStr(Country, “CZ88.NET”) Then Country = “114XP.CN”

If InStr(LocalStr, “CZ88.NET”) Then LocalStr = “114XP.CN”

End Sub

‘ ============================================

‘ 获取IP地址标识符

‘ ============================================

Private Function GetFlagStr(OffSet)

Dim Flag

Flag = 0

Do While (True)

Stream.Position = OffSet

Flag = AscB(Stream.Read(1))

If(Flag = 1 or Flag = 2 ) Then

Buf = Stream.Read(3)

If (Flag = 2 ) Then

CountryFlag = 2

EndIPOff = OffSet – 4

End If

OffSet = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256)

Else

Exit Do

End If

Loop

If (OffSet < 12 ) Then

GetFlagStr = “”

Else

Stream.Position = OffSet

GetFlagStr = GetStr()

End If

End Function

‘ ============================================

‘ 获取字串信息

‘ ============================================

Private Function GetStr()

Dim c

GetStr = “”

Do While (True)

c = AscB(Stream.Read(1))

If (c = 0) Then Exit Do

‘如果是双字节，就进行高字节在结合低字节合成一个字符

If c > 127 Then

If Stream.EOS Then Exit Do

GetStrGetStr = GetStr & Chr(AscW(ChrB(AscB(Stream.Read(1))) & ChrB(C)))

Else

GetStrGetStr = GetStr & Chr(c)

End If

Loop

End Function

‘ ============================================

‘ 核心函数，执行IP搜索

‘ ============================================

Public Function QQWry(DotIP)

Dim IP, nRet

Dim RangB, RangE, RecNo

IP = IPToInt (DotIP)

Set Stream = CreateObject(“ADodb.Stream”)

Stream.Mode = 3

Stream.Type = 1

Stream.Open

Stream.LoadFromFile QQWryFile

Stream.Position = 0

Buf = Stream.Read(8)

FirstStartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)

LastStartIP = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256) + (AscB(MidB(Buf, 8, 1))*256*256*256)

RecordCount = Int((LastStartIP – FirstStartIP)/7)

‘ 在数据库中找不到任何IP地址

If (RecordCount <= 1) Then

Country = “未知”

QQWry = 2

Exit Function

End If

RangB = 0

RangE = RecordCount

Do While (RangB < (RangE – 1))

RecNo = Int((RangB + RangE)/2)

Call GetStartIP (RecNo)

If (IP = StartIP) Then

RangB = RecNo

Exit Do

End If

If (IP > StartIP) Then

RangB = RecNo

Else

RangE = RecNo

End If

Loop

Call GetStartIP(RangB)

Call GetEndIP()

If (StartIP <= IP) And ( EndIP >= IP) Then

‘ 没有找到

nRet = 0

Else

‘ 正常

nRet = 3

End If

Call GetCountry(IP)

QQWry = nRet

End Function

‘ ============================================

‘ 类终结

‘ ============================================

Private Sub Class_Terminate

On ErrOr Resume Next

Stream.Close

If Err Then Err.Clear

Set Stream = Nothing

End Sub

End Class

%>

<% ‘——————调用方法 ——————%>

<% ‘——————0是显示样式类型——————%>

<%

set ip = request.ServerVariables(“REMOTE_ADDR”)

‘ip = “…ip…”

response.Write Look_Ip(ip)

%>

]]> http://code.9enjoy.com/asp/qqwry/feed/ 0 纯ASP代码生成图表函数1——柱状图http://code.9enjoy.com/asp/%e7%ba%afasp%e4%bb%a3%e7%a0%81%e7%94%9f%e6%88%90%e5%9b%be%e8%a1%a8%e5%87%bd%e6%95%b01%e2%80%94%e2%80%94%e6%9f%b1%e7%8a%b6%e5%9b%be/ http://code.9enjoy.com/asp/%e7%ba%afasp%e4%bb%a3%e7%a0%81%e7%94%9f%e6%88%90%e5%9b%be%e8%a1%a8%e5%87%bd%e6%95%b01%e2%80%94%e2%80%94%e6%9f%b1%e7%8a%b6%e5%9b%be/#comments Fri, 06 Jun 2008 17:48:11 +0000 enjoy http://code.itlearner.com/?p=41 function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)
'参数含义(传递的数组，横坐标，纵坐标，柱子的厚度，柱子的宽度，图表的宽度，图表的高度,图表的类型)
'纯ASP代码生成图表函数1——柱状图
'作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
'本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
... ]]> <%
function table1(total,table_x,table_y,thickness,table_width,all_width,all_height,table_type)
‘参数含义(传递的数组，横坐标，纵坐标，柱子的厚度，柱子的宽度，图表的宽度，图表的高度,图表的类型)
‘纯ASP代码生成图表函数1——柱状图
‘作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
‘本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
‘版本2.0 最后修改日期 2003-7-22
‘非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。
dim tb_color(7,2)
tb_color(1,1)=”#d1ffd1″
tb_color(2,1)=”#ffbbbb”
tb_color(3,1)=”#ffe3bb”
tb_color(4,1)=”#cff4f3″
tb_color(5,1)=”#d9d9e5″
tb_color(6,1)=”#ffc7ab”
tb_color(7,1)=”#ecffb7″

tb_color(1,2)=”#00ff00″
tb_color(2,2)=”#ff0000″
tb_color(3,2)=”#ff9900″
tb_color(4,2)=”#33cccc”
tb_color(5,2)=”#666699″
tb_color(6,2)=”#993300″
tb_color(7,2)=”#99cc00″

line_color=”#69f”
left_width=70
length=thickness/2
total_no=ubound(total,1)

temp1=0
for i=1 to total_no
if temp1next
temp1=int(temp1)
if temp1>9 then
temp2=mid(cstr(temp1),2,1)
if temp2>4 then
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1)
else
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
end if
else
if temp1>4 then temp3=10 else temp3=5
end if
temp4=temp3
response.write ““
response.write ““
response.write ““

select case table_type
case “A”
table_space=(all_width-table_width*total_no)/total_no
response.write ““
for i=0 to all_height-1 step all_height/5
response.write ““
response.write ““
response.write ““
response.write ““
temp4=temp4-temp3/5
next
for i=1 to total_no
temp_space=table_x+left_width+table_space/2+table_space*(i-1)+table_width*(i-1)
response.write ““
response.write ““
response.write ““
response.write ““
response.write “
“&total(i,1)&”

“

response.write ““
response.write “
“&total(i,2)&”

“
next
Case “B”
table_space=(all_height-table_width*total_no)/total_no
response.write ““
for i=0 to all_width-1 step all_width/5
response.write ““
response.write ““
response.write ““
response.write ““
temp4=temp4-temp3/5
next

for i=1 to total_no
temp_space=table_space/2+table_space*(i-1)+table_width*(i-1)
response.write ““
response.write ““
response.write ““
response.write ““
response.write “
“&total(i,1)&”

“

response.write ““
response.write “
“&total(i,2)&”

“
next
case else
end select

end function
%>



<%
function table2(total,table_x,table_y,all_width,all_height,line_no)
‘参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,折线条数)
‘纯ASP代码生成图表函数2——折线图
‘作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
‘本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
‘版本1.0 最后修改日期 2003-8-11
‘非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。

line_color=”#69f”
left_width=70
total_no=ubound(total,1)

temp1=0
for i=1 to total_no
for j=1 to line_no
if temp1next
next
temp1=int(temp1)
if temp1>9 then
temp2=mid(cstr(temp1),2,1)
if temp2>4 then
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+1)*10^(len(cstr(temp1))-1)
else
temp3=(int(temp1/(10^(len(cstr(temp1))-1)))+0.5)*10^(len(cstr(temp1))-1)
end if
else
if temp1>4 then temp3=10 else temp3=5
end if
temp4=temp3
response.write ““
for i=0 to all_height-1 step all_height/5
response.write ““
response.write ““
response.write “”
response.write ““
response.write “
“&temp4&”

“
temp4=temp4-temp3/5
next
response.write ““
response.write ““

dim line_code
redim line_code(line_no,5)
for i=1 to line_no
line_temp=split(total(0,i),”,”)
line_code(i,1)=line_temp(0)
line_code(i,2)=line_temp(1)
line_code(i,3)=line_temp(2)
line_code(i,4)=line_temp(3)
line_code(i,5)=line_temp(4)
next
for j=1 to line_no
for i=1 to total_no-1
x1=table_x+left_width+all_width*(i-1)/total_no
y1=table_y+(temp3-total(i,j))*(all_height/temp3)
x2=table_x+left_width+all_width*i/total_no
y2=table_y+(temp3-total(i+1,j))*(all_height/temp3)
response.write ““
select case line_code(j,3)
case 1
case 2
response.write ““
case 3
response.write ““
case 4
response.write ““
case 5
response.write ““
case 6
response.write ““
case 7
response.write ““
case else
end select
response.write ““&CHR(13)
select case line_code(j,4)
case 1
case 2
response.write ““&CHR(13)
case 3
response.write ““&CHR(13)
end select
next
select case line_code(j,4)
case 1
case 2
response.write ““&CHR(13)
case 3
response.write ““&CHR(13)
end select
next

for i=1 to total_no
response.write ““
response.write “”
response.write ““
response.write “
“&total(i,0)&”

“
next

tb_height=30
response.write ““
for i=1 to line_no
response.write ““
response.write “
“&line_code(i,5)&”

“
response.write ““
next

end function
%>




<%
function table3(total,table_x,table_y,all_width,all_height,table_type)
‘参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,图表的类型)
‘纯ASP代码生成图表函数3——饼图
‘作者：龚鸣(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
‘本人非常愿意和ASP,VML,FLASH的爱好者在HTTP://topclouds.126.com进行交流和探讨
‘版本1.0 最后修改日期 2003-8-11
‘非常感谢您使用这个函数，请您使用和转载时保留版权信息，这是对作者工作的最好的尊重。
tb_height=30

dim tb_color(7,2)
tb_color(1,1)=”#d1ffd1″
tb_color(2,1)=”#ffbbbb”
tb_color(3,1)=”#ffe3bb”
tb_color(4,1)=”#cff4f3″
tb_color(5,1)=”#d9d9e5″
tb_color(6,1)=”#ffc7ab”
tb_color(7,1)=”#ecffb7″

tb_color(1,2)=”#00ff00″
tb_color(2,2)=”#ff0000″
tb_color(3,2)=”#ff9900″
tb_color(4,2)=”#33cccc”
tb_color(5,2)=”#666699″
tb_color(6,2)=”#993300″
tb_color(7,2)=”#99cc00″

total_no=ubound(total,1)
totalpie=0
for i=1 to total_no
totalpie=totalpie+total(i,1)
next

PreAngle=0
for i=1 to total_no
response.write ““&CHr(13)
PreAngle=PreAngle+total(i,1)/totalpie
next

if table_type=”A” then
response.write ““
for i=1 to total_no
response.write ““
response.write “
“&total(i,0)&”

“
response.write ““
‘显示比例数
‘ response.write ““
‘ response.write “
“&formatnumber(total(i,1)*100/totalpie,2,-1)&”%

“
next
end if

if table_type=”B” then
pie=3.14159265358979
TempPie=0
for i=1 to total_no
TempAngle=pie*2*(total(i,1)/(TotalPie*2)+TempPie)
x1=table_x+all_width/2+cos(TempAngle)*all_width*3/8
y1=table_y+all_height/2-sin(TempAngle)*all_height*3/8
x2=table_x+all_width/2+cos(TempAngle)*all_width*3/4
y2=table_y+all_height/2-sin(TempAngle)*all_height*3/4
if x2>table_x+all_width/2 then
x3=x2+20
x4=x3
else
x3=x2-20
x4=x3-100
end if
response.write ““&CHR(13)
response.write ““
response.write ““
response.write ““
response.write “
“&total(i,0)&” “&formatnumber(total(i,1)*100/totalpie,2,-1)&”%

“
TempPie=TempPie+total(i,1)/TotalPie
next
end if

end function
%>



纯ASP代码生成图表函数1——柱状图调用示例
<%
dim total(7,2)
total(1,1)=200
total(2,1)=800
total(3,1)=1000
total(4,1)=600
total(5,1)=1222
total(6,1)=3213
total(7,1)=8

total(1,2)=”中国经营报”
total(2,2)=”招聘网”
total(3,2)=”51Job”
total(4,2)=”新民晚报”
total(5,2)=”新闻晚报”
total(6,2)=”南方周末”
total(7,2)=”羊城晚报”

total_no=7
%>








<%'call table1(total,200,20,20,30,400,200,"A")%>
<%'call table1(total,200,320,20,20,400,250,"B")%>
<%call table2(total,200,200,100,100,0)%>

<%'call table3(total,200,200,200,200,"A")%>

]]> http://code.9enjoy.com/asp/%e7%ba%afasp%e4%bb%a3%e7%a0%81%e7%94%9f%e6%88%90%e5%9b%be%e8%a1%a8%e5%87%bd%e6%95%b01%e2%80%94%e2%80%94%e6%9f%b1%e7%8a%b6%e5%9b%be/feed/ 0 asp设置文件下载http://code.9enjoy.com/asp/hide-down-url/ http://code.9enjoy.com/asp/hide-down-url/#comments Fri, 06 Jun 2008 17:43:15 +0000 enjoy http://code.itlearner.com/?p=40 <%
‘asp读取1.swf这个文件，并提供下载，可以让用户无法获知下载文件的实际地址。
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject(“Microsoft.XMLHTTP”) ‘创建对象

xml.Open “GET”,”http://www.itlearner.com/1.swf”,False ‘
‘设置对象,具体xmlhttp详细使用方法请见:《XMLHTTP 对象及其方法》一文

xml.Send ‘发送请求

Response.AddHeader “Content-Disposition”, “attachment;filename=banner_k_050202.swf” ‘添加头给这个文件

Response.ContentType = “application/zip” ‘设置输出类型

Response.BinaryWrite xml.responseBody ‘输出二进制到浏览器

Set xml = Nothing
%>

]]> http://code.9enjoy.com/asp/hide-down-url/feed/ 0 asp下的proxy.asphttp://code.9enjoy.com/asp/asp%e4%b8%8b%e7%9a%84proxy-asp/ http://code.9enjoy.com/asp/asp%e4%b8%8b%e7%9a%84proxy-asp/#comments Mon, 26 May 2008 14:07:48 +0000 enjoy http://code.itlearner.com/?p=36
<%

//we are using MSXML3.0 to travel via HTTP

var httpReq;
if(Request.QueryString.Count)
{
httpReq=Server.CreateObject("Msxml2.ServerXMLHTTP");
httpReq.setTimeouts(5000,5000,15000,15000);
httpReq.open("GET",""+Request.QueryString, false);
... ]]> <%@ Language=JScript EnableSessionState=False%>
<%

//we are using MSXML3.0 to travel via HTTP

var httpReq;
if(Request.QueryString.Count)
{
httpReq=Server.CreateObject(“Msxml2.ServerXMLHTTP”);
httpReq.setTimeouts(5000,5000,15000,15000);
httpReq.open(“GET”,”"+Request.QueryString, false);
httpReq.send();
Response.Status=httpReq.status;
Response.ContentType=httpReq.getResponseHeader(“Content-Type”);
Response.BinaryWrite(httpReq.responseBody);
}
%>

]]> http://code.9enjoy.com/asp/asp%e4%b8%8b%e7%9a%84proxy-asp/feed/ 0 dvHTMLEncode-文本字段存入、显示用代码http://code.9enjoy.com/asp/dvhtmlencode/ http://code.9enjoy.com/asp/dvhtmlencode/#comments Thu, 20 Mar 2008 21:25:37 +0000 enjoy http://code.itlearner.com/?p=14 if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
... ]]> function dvHTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")

dvHTMLEncode = fString
end if
end function

function dvHTMLCode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString,  " "," ")
fString = Replace(fString, """, CHR(34))
fString = Replace(fString, "'", CHR(39))
fString = Replace(fString, "</P><P> ",CHR(10) & CHR(10))
fString = Replace(fString, "<BR> ", CHR(10))

dvHTMLCode = fString
end if
end function

以下为itlearner注解，本函数的使用方法为：

如获取表单值时，使用

<%
Title = Request.Form("Title")
Title = dvhtmlencode(Title)
%>

在修改内容时，使用

<input type="text" name="Title" size="66" id="Title" value="<%=dvHTMLCode(rs("Title"))%>">

这样，如果Title这个字段中存在双引号，单引号，尖括号之类的代码时，可以正常存储和显示。

]]> http://code.9enjoy.com/asp/dvhtmlencode/feed/ 0 FilterJS-过滤JS代码http://code.9enjoy.com/asp/filter-js/ http://code.9enjoy.com/asp/filter-js/#comments Thu, 20 Mar 2008 21:15:22 +0000 enjoy http://code.itlearner.com/?p=13 if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(javascript)"
t=re.Replace(v,"javascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"jscript:")
re.Pattern="(js:)"
... ]]> Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern=”(javascript)”
t=re.Replace(v,”javascript”)
re.Pattern=”(jscript:)”
t=re.Replace(t,”jscript:”)
re.Pattern=”(js:)”
t=re.Replace(t,”js:”)
‘re.Pattern=”(value)”
‘t=re.Replace(t,”value”)
re.Pattern=”(about:)”
t=re.Replace(t,”about:”)
re.Pattern=”(file:)”
t=re.Replace(t,”file:”)
re.Pattern=”(document.cookie)”
t=re.Replace(t,”documents.cookie”)
re.Pattern=”(vbscript:)”
t=re.Replace(t,”vbscript:”)
re.Pattern=”(vbs:)”
t=re.Replace(t,”vbs:”)
re.Pattern=”(on(mouse|exit|error|click|key))”
t=re.Replace(t,”on$2″)
‘re.Pattern=”(&#)”
‘t=re.Replace(t,”＆#”)
FilterJS=t
set re=nothing
end if
End Function

]]> http://code.9enjoy.com/asp/filter-js/feed/ 0 nohtml-去掉html代码http://code.9enjoy.com/asp/nohtml-%e5%8e%bb%e6%8e%89html%e4%bb%a3%e7%a0%81/ http://code.9enjoy.com/asp/nohtml-%e5%8e%bb%e6%8e%89html%e4%bb%a3%e7%a0%81/#comments Thu, 20 Mar 2008 21:14:37 +0000 enjoy http://code.itlearner.com/?p=12 dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function... ]]> function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern=”(\<.[^\<]*\>)”
str=re.replace(str,” “)
re.Pattern=”(\<\/[^\<]*\>)”
str=re.replace(str,” “)
nohtml=str
set re=nothing
end function

]]> http://code.9enjoy.com/asp/nohtml-%e5%8e%bb%e6%8e%89html%e4%bb%a3%e7%a0%81/feed/ 1