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

4¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——±ýͼ

4¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——±ýͼ
<%dim total(7,1)
total(1,0)="Öйú¾­Óª±¨"
total(2,0)="ÕÐÆ¸Íø"
total(3,0)="51Job"
total(4,0)="ÐÂÃñÍí±¨"
total(5,0)="ÐÂÎÅÍí±¨"
total(6,0)="ÄÏ·½ÖÜÄ©"
total(7,0)="Ñò³ÇÍí±¨"
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
%><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 table3(total,100,40,250,250,"A")%>
<Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br><Br>·¶Àý¶þ
<%call table3(total,300,450,250,250,"B")%>
</body>
</html>
<%
function table3(total,table_x,table_y,all_width,all_height,table_type)
'²ÎÊýº¬Òå(´«µÝµÄÊý×飬ºá×ø±ê£¬×Ý×ø±ê£¬Í¼±íµÄ¿í¶È£¬Í¼±íµÄ¸ß¶È,ͼ±íµÄÀàÐÍ)
'´¿ASP´úÂëÉú³Éͼ±íº¯Êý——±ýͼ
'×÷Õߣº¹¨Ãù(Passwordgm) QQ:25968152 MSN:passwordgm@sina.com Email:passwordgm@sina.com
'±¾È˷dz£Ô¸ÒâºÍASP,VML,FLASHµÄ°®ºÃÕßÔÚHTTP://www.ilisten.cn½øÐн»Á÷ºÍ̽ÌÖ
'·Ç³£¸ÐлÄúʹÓÃÕâ¸öº¯Êý£¬ÇëÄúʹÓúÍ×ªÔØÊ±±£Áô°æÈ¨ÐÅÏ¢£¬ÕâÊǶÔ×÷Õß¹¤×÷µÄ×îºÃµÄ×ðÖØ¡£
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


Ïà¹ØÎĵµ£º

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+AccessÊý¾Ý¿âµÄ18Ìõ°²È«·¨Ôò

ASP+AccessÊý¾Ý¿âµÄ18Ìõ°²È«·¨Ôò£º
1.Ê×ÏÈ£¬ÎÒÃÇÐèÒª¹ýÂËËùÓпͻ§¶ËÌá½»µÄÄÚÈÝ,ÆäÖаüÀ¨?id=NÒ»Àà,ÁíÍ⻹ÓÐÌá½»µÄhtml´úÂëÖеIJÙ×÷Êý¾Ý¿âµÄselect¼°aspÎļþ²Ù×÷Óï·¨,´ó¼Ò¿ÉÒÔ°ÑÌá½»µÄ×Ö·ûתÒå,È»ºóÔÙ´æÈëÊý¾Ý¿â¡£
2.È»ºóÐèÒª¶Ô·ÃÎÊAccessÊý¾Ý¿âµÄÒ³Ãæ½øÐÐÊÚȨ,Õë¶ÔÏÔʾÊý¾ÝÒ³ÃæÖ»ÄÜʹÓÃselectÓï¾ä,¹ýÂËÆäËûµÄupdate,asp ......

Ô¶³Ì»ñÈ¡ÀàAsp xmlHttp

±àÕß×¢£ºÕâ¸öclassÖ÷ÒªÓÃÓÚ²Ù×÷aspÖеÄxmlhttp¡£
¡¡¡¡
Ê×ÏÈÊÇÀඨÒå Cls_AspHttp.asp£º
<%
''=================================================================
''·ÉÑïÔ¶³Ì»ñÈ¡Àà(AspHttp) 1.0.1 Bate1
''¡¡¡¡ By ±¼ÌÚµÄÐÄ
''¡¡¡¡ 2006-04-19
''=========================================================== ......

asp²Ù×÷XML

Dim xmlDoc
NewsConfigFile=server.MapPath("/test.xml")
Set xmlDoc=Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0")
If Not xmlDoc.load(NewsConfigFile) Then
 'XmlDoc.loadxml "<?xml version=""1.0"" encoding=""gb2312""?><NewscodeInfo/>"
 response.Write("²»´æÔÚÊý¾Ý")
& ......

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Ï ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ