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

asp´úÂë·­Òë³Éasp.net - .NET¼¼Êõ / C#

Public Function WordPercent(ss)
On Error resume next
'ºº×ÖÕ¼ÓÃHex = 4¸ö×Ö³¤,Ó¢ÎÄÕ¼ÓÃ2¸ö×Ö³¤,ÈÃÒ»¸öºº×ÖËãΪ2¸öÓ¢ÎÄ×Ö·û,¼ÆËãÓÐЧ×Ö·û±ÈÀý
Dim i, x
Dim Word
Dim ch1,ch2
 
Dim OriLength
Dim RealLen
OriLength = Len(ss)
 
If OriLength=0 then
WordPercent = 0
Exit Function
End if
 
i = 0
If ss <> "" Then
For x = 1 To Len(ss)
 
'Response.Write Asc(Mid(ss, x, 1)) & "==" & Hex(Asc(Mid(ss, x, 1))) & chr(Asc(Mid(ss, x, 1)))

Word = Hex(Asc(Mid(ss, x, 1)))
If Len(Word) > 2 Then
ch1 = HextoOct(left(Word,2))
ch2 = HextoOct(right(Word,2))
'GB2312×Ö·û¼¯·¶Î§
If ch1>=176 and ch1<=247 and ch2>=160 and ch2<=254 then
i = i + Len(Word) / 2 'ÊÇÖÐÎľͳ¤¶È¼Ó1
'Response.Write "ÊÇGB2312ºº×Ö<br>"
'else
'Response.Write "<font color=red>NotGB2312ºº×Ö</font><br>"
End if
End If
Next
End If
RealLen = i
'Response.Write (OriLength + RealLen) & "<font color=red>NotGB2312ºº×Ö</font><br>"
WordPercent = Clng(RealLen / (OriLength + RealLen/2) * 100)
 
En


Ïà¹ØÎÊ´ð£º

ÇóÒ»¸öÔÚÏß²âÊÔϵͳ aspµÄ - Web ¿ª·¢ / ASP

http://www.zgjhjy.com/Test/PrimaryTest/Index.aspx
¾ÍÊÇÀàËÆÒÔÉϵÄÔÚÏß²âÊÔϵͳ£¬ÐèÒªÓÐÒ»¸öºǫ́µÄ£¬ÓïÑÔÊÇaspµÄ£¬Êý¾Ý¿âÊÇaccessµÄ£¬»¹ÐèÒªÄÜÔÚºǫ́¶ÔÐÅÏ¢½øÐÐÌíɾ¸Ä²éµÄ¡£Ð»Ð»¸÷λÁË¡£¡£¡£
³ÌÐòÕæµÄºÜ¶à£¬²»Öª ......

ÀûÓÃC#±àдtxtת»¯µ½xmlµÄ³ÌÐò

txt ºÍXML ¸ñʽÏàÓ¦
²»½èÖúDataSet
µ¼Èë¶ÁÈ¡TXTÎļþ
È»ºóÖ±½ÓдÈëXML(ͬһÎļþ,²»Í¬Êý¾Ý,µÝÔöÔ­Êý¾ÝûÓб»¸²¸ÇÇé¿öÏÂÔö¼ÓÊý¾Ý.)
½Ì¸öÒªµã»ò×îºÃÊÇÓиö´úÂëÌáʾµÄ
¹ý·ºÃºº °ï¸öæÈö^^
²»»á£¬°ïÂ¥Ö÷ ......

ÔÚasp.netÀïÃæ½Å±¾³ö´í - .NET¼¼Êõ / ASP.NET

function CheckOpwd(){//ÑéÖ¤Óû§Ãû
var pwd=document.all.txtOpwd;

var div1=document.getElementById("divPwd");

if (pwd.value=="")
{
......

ÇóÖú£ºÕÒASP.NETÍøÒ³ÖÆ×÷¸ßÊÖ£¬Óб¨³ê¡£

±¾ÈËÊDzËÄñÒ»¸ö£¬Æ½Ê±Òª×öÉúÒ⣬µ«ÊÇÕÒÁ˺ܶàÈË×öÍøÕ¾£¬¾ù±»Æ­ÁË¡£×öµÃ²»Èý²»ËÄ£¬ÏÖÔÚ¾öÐÄ×Ô¼ºÀ´×öÒ»¸ö£¬ÒÑѧϰASP.NETÏà¹ØµÄÍøÒ³ÖÆ×÷֪ʶ£¬ÓÐDW»ù´¡£¬¿ÉÒÔ˵ÊÇĿǰֻÓÐÀíÂÛ֪ʶ£¬µ«ÊÇÔÚʵ¼Ê¾ßÌå²Ù×÷µÄʱºò£¬×ÜÊÇÓöµ ......

ÇóÖúasp.netͼƬÉÏ´« - .NET¼¼Êõ / ASP.NET

¾ÍÊÇÒ»¸ö°´Å¥£¬µã»÷Ö®ºó´ò¿ª¶Ô»°¿ò£¬È»ºóѡȡͼƬ¡£¾ÍÕâÑùÉÏ´«¡£¡£
ÔõôʵÏÖ¡£ÔÚÍøÉÏËѵ½ÄÇô¶àµÄ´úÂ룬ȫÊǺܶàµÄÄÇÖÖ£¬²»ÖªµÀ£¬¿´²»ÏÂÈ¥¡£
ËùÒÔÔÚÕâÀïÏëÇë´ó¸ç´ó½ã°ï°ïæ¡£

ʹÓÃ×Ô´øµÄfileupload¿Ø¼þ¿ÉÒÔʵÏÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ