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

3¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——ÕÛÏßͼ

3¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——ÕÛÏßͼ
<%dim total(7,3)
total(1,0)="Öйú¾­Óª±¨"
total(2,0)="ÕÐÆ¸Íø"
total(3,0)="51Job"
total(4,0)="ÐÂÃñÍí±¨"
total(5,0)="ÐÂÎÅÍí±¨"
total(6,0)="ÄÏ·½ÖÜÄ©"
total(7,0)="Ñò³ÇÍí±¨"
total(0,1)="#FF0000,1.5,1,2,¹«Ë¾1"'²ÎÊý1ÏßÌõµÄÑÕÉ«£¬²ÎÊý2ÏßÌõµÄ¿í¶È£¬²ÎÊý3ÏßÌõµÄÀàÐÍ£¬²ÎÊý4תÕÛµãµÄÀàÐÍ,²ÎÊý5ÏßÌõÃû³Æ
total(1,1)=200
total(2,1)=1200
total(3,1)=900
total(4,1)=600
total(5,1)=1222
total(6,1)=413
total(7,1)=800
total(0,2)="#0000FF,1,2,3,¹«Ë¾2"
total(1,2)=400
total(2,2)=500
total(3,2)=1040
total(4,2)=1600
total(5,2)=1
total(6,2)=813
total(7,2)=980
total(0,3)="#004D00,1,1,3,¹«Ë¾3"
total(1,3)=900
total(2,3)=890
total(3,3)=1240
total(4,3)=1300
total(5,3)=722
total(6,3)=833
total(7,3)=1280
%><html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]>
<style>
v\:*         { behavior: url(#default#VML) }
o\:*         { behavior: url(#default#VML) }
.shape       { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
TD { FONT-SIZE: 9pt}
</style></head>
<body topmargin=5 leftmargin=0 scroll=AUTO>
<%call table2(total,100,90,600,250,3)%>
</body>
</html>
<%
function table2(total,table_x,table_y,all_width,all_height,line_no)
'²ÎÊýº¬Òå(´«µÝµÄÊý×飬ºá×ø±ê£¬×Ý×ø±ê£¬Í¼±íµÄ¿í¶È£¬Í¼±íµÄ¸ß¶È,ÕÛÏßÌõÊý)
'´¿ASP´úÂëÉú³Éͼ±íº¯Êý——ÕÛÏßͼ
'×÷Õߣº¹¨Ãù(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
'±¾È˷dz£Ô¸ÒâºÍASP,VML,FLASHµÄ°®ºÃÕßÔÚHTTP://www.ilisten.cn½øÐн»Á÷ºÍ̽ÌÖ
'·Ç³£¸ÐлÄúʹÓÃÕâ¸öº¯Êý£¬ÇëÄúʹÓúÍ×ªÔØÊ±±£Áô°æÈ¨ÐÅÏ¢£¬ÕâÊǶÔ×÷Õß¹¤×÷µÄ×îºÃµÄ×ðÖØ¡£
line_color="#69f"
left_width=70
total_no=ubound(total,1)


Ïà¹ØÎĵµ£º

asp MD5¼ÓÃܺ¯Êý

<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And ......

Asp Split(Ò»¸ö¹ØÓÚSplitº¯ÊýÔÚASPÖÐʹÓ÷½·¨µÄ°¸Àý)

Asp Split
ÃèÊö£º
·µ»Ø»ùÓÚ 0 µÄһάÊý×飬ÆäÖаüº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Óï·¨£º
Split(expression[, delimiter[, count[, start]]])
Split º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·û¡£Èç¹û expression ΪÁ㳤¶È×Ö·û´®£¬Split ·µ»Ø¿ÕÊý×飬¼´²»°üº¬ÔªËغÍÊý¾ÝµÄÊý×é¡ ......

ASPʵÀý:»ÃµÆÆ¬ÐÂÎÅ´úÂë

ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
<!--ÕâÊÇÒ»¸öÖ÷Ò³Îļþ-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>»ÃµÆÆ¬ÐÂÎÅ</title>
</head>
<body>
<!--#Include file="diaoyong.asp"-->
</body>
</html>
& ......

aspÁ¬sqlserver²âÊÔ´úÂë

<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF"        'SQLÊý¾Ý¿â·þÎñÆ÷µØÖ·
strUid = "sa"                'Êý¾Ý¿âÓû§Ãû
strPwd = "123456"  ......

aspÎļþËÑË÷

aspÎļþËÑË÷
 
 
 
<%
'*************Set newsearch=new SearchFile 'ÉùÃ÷ *************
'*************newsearch.Folder="F:+E:"'´«ÈëËÑË÷Ô´*************
'*************newsearch.keyword="»ã±à"     '¹Ø¼ü´Ê*************
'*************newsearch.Search &nbs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ