Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASP ÀïÃæÓÐÄÚÖõÄ×Ö·û±àÂëת»»·½·¨Âð£¿

ÈçÌâ¡«ÏÖÔÚÓöµ½Ò»¸ö GB ת UTF-8 µÄÎÊÌâ¡­¡­
·ÇѧÊõÈËÔ±£¬ÄÜ´ÕºÏÓþͺá«¡«
Òä¾­×¢½âµÄºÜÏêϸµÄ£¡£¡£¡

VB code:
'GBתUTF8
Function toUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
'Èç¹ûÊäÈë²ÎÊýΪ¿Õ£¬ÔòÍ˳öº¯Êý
If szInput = "" Then
toUTF8 = szInput
Exit Function
End If
'¿ªÊ¼×ª»»
For x = 1 To Len(szInput)
'ÀûÓÃmidº¯Êý·Ö²ðGB±àÂëÎÄ×Ö
wch = Mid(szInput, x, 1)
'ÀûÓÃascWº¯Êý·µ»ØÃ¿Ò»¸öGB±àÂëÎÄ×ÖµÄUnicode×Ö·û´úÂë
'×¢£ºascº¯Êý·µ»ØµÄÊÇANSI ×Ö·û´úÂ룬עÒâÇø±ð
nAsc = AscW(wch)
If nAsc < 0 Then nAsc = nAsc + 65536

If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
Else
If (nAsc And &HF000) = 0 Then
uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
Else
'GB±àÂëÎÄ×ÖµÄUnicode×Ö·û´úÂëÔÚ0800 - FFFFÖ®¼ä²ÉÓÃÈý×Ö½ÚÄ£°æ
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
Hex(nAsc And &H3F Or &H80)


Ïà¹ØÎÊ´ð£º

ÎÒÏë×öÒ»¸öaspÍøÕ¾£¬µ«ÊDz»ÖªµÀ×öʲô£¡

×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......

ASP FCKÔÚÏ߱༭Æ÷

ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏ߱༭Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏ߱༭Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......

Ò»¸öASPÅжÏ×Ö·û´®µÄÎÊÌâ

×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ


VBScript code:

<%
set rs=server.Creat ......

¹ØÓÚASPµÄReplaceº¯Êý

Replaceº¯ÊýÈçºÎĬÈÏÊÇ´Ó×ó¶ËÌæ»»£¬ÈçºÎʹÆä´ÓÓұ߿ªÊ¼Ìæ»»£¬¼´Ìæ»»Ò»¸ö×Ö·û´®µÄ×îºóÒ»¸ö×Ö·û£¬Ìæ»»´ÎÊýΪ1´Î£¬Ð»Ð»

ÒýÓÃ
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ