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

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

2¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——Öùͼ
<%
dim total(12,2)
total(1,1)=56
total(2,1)=7
total(3,1)=-7
total(4,1)=0
total(5,1)=16
total(6,1)=10
total(7,1)=14
total(8,1)=7
total(9,1)=9
total(10,1)=7
total(11,1)=11
total(12,1)=14
total(1,2)="µØÀí"
total(2,2)="»¯Ñ§"
total(3,2)="ÀúÊ·"
total(4,2)="Âܲ·¿Î"
total(5,2)="ÃÀÊõ"
total(6,2)="ÌåÓý"
total(7,2)="ÌìÎÄ"
total(8,2)="ÎïÀí"
total(9,2)="ÒôÀÖ"
total(10,2)="Ó¢Óï"
total(11,2)="ÕþÖÎ"
total(12,2)="×ÔÈ»"
%>
<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 table1(total,200,20,10,20,400,200,"A")%>
<%call table1(total,200,320,10,15,400,250,"B")%>
</body>
</html>
<%
function table1(total,table_x,table_y,thickness,table_width,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½øÐн»Á÷ºÍ̽ÌÖ
'·Ç³£¸ÐлÄúʹÓÃÕâ¸öº¯Êý£¬ÇëÄúʹÓúÍ×ªÔØÊ±±£Áô°æÈ¨ÐÅÏ¢£¬ÕâÊǶÔ×÷Õß¹¤×÷µÄ×îºÃµÄ×ðÖØ¡£
dim tb_color(14,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(8,1)="#d1ffd1


Ïà¹ØÎĵµ£º

ASP FSOÎļþ´¦Àíº¯Êý´óÈ«

<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ­´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestF ......

asp replaceº¯ÊýµÄʹÓÃ

Èçid="a/b/c/asdf.html" ²ÎÊýΪ¶¯Ì¬
Ôõô°ÑºóÃæµÄasdf.html¹ýÂË?ʹid="a/b/c/"?
Èç¹ûidµÄ¸ñʽһ¶¨Îª "????/????/??????/xxxx.xxx"
¼´×îºóËùÒª¹ýÂ˵ôµÄÒ»¶¨ÊÇ×îºóÒ»¸ö"/"Ö®ºóµÄÄÚÈÝ
¿ÉÒÔÓÃÈçÏ·½·¨:
<%
URL="a/b/c/asdf.html"
PartOfURL=split(URL,"/")     '½«×Ö·û´®ÒÔ"/"·Ö¸î
UnNeed=spli ......

Ô¶³Ì»ñÈ¡Àà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("²»´æÔÚÊý¾Ý")
& ......

ASPÖÐÈÕÆÚÏà¼Ó¼°Ïà¼õ

ÔÚASPÖÐΪÎÒÃÇÌṩÁËרÃŵÄÈÕÆÚ¼Ó¼õº¯Êý¡£
¡¡¡¡1.ÈÕÆÚÏà¼Ó
¡¡¡¡DateAdd º¯Êý 
¡¡¡¡·µ»ØÒÑÌí¼ÓÖ¸¶¨Ê±¼ä¼ä¸ôµÄÈÕÆÚ¡£ 
¡¡¡¡DateAdd(interval, number, date) 
¡¡¡¡DateAdd º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý 
¡¡¡¡£¨1£©interval ±ØÑ¡Ïî¡£×Ö·û´®±í´ïʽ£¬±íʾҪÌí¼ÓµÄʱ¼ä¼ä¸ô¡£ÓйØÊýÖµ£¬Çë²ÎÔÄ“ÉèÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ