ASPÈçºÎÁ¬½ÓÊý¾ÝÔ´£¿(ϵͳDSN)Öн¨Á¢µÄÊý¾ÝÔ´£¿
ASPÈçºÎÁ¬½ÓÊý¾ÝÔ´£¿(ϵͳDSN)Öн¨Á¢µÄÊý¾ÝÔ´£¿
ASPÔõô½¨Á¢Á¬½Ó£¬²»ÊÇOLEDB·½Ê½£¬ÓÃODBCÖеēÓû§DSN”½¨Á¢µÄÊý¾ÝÔ´½øÐÐÁ¬½Ó£¿ÈçºÎ²Ù×÷£¿
ÎÊÌâ²¹³ä£ºÎÒµÄÊÇODBCÖеēÓû§DSN”²»ÊǓϵͳDSN”£¬“Óû§DSN”ÔõôÁ¬½Ó£¿¶øÇÒÎÒµÄÊý¾Ý¿âÓÐÃÜÂë¡£
ÌáÎÊÕߣºÄäÃû
×î¼Ñ´ð°¸
Set con=Server.CreateObject("ADODB.Connection")
con.Open "DSN=CommyDSN;UID=admin;Database=CommyManage"
'ÒÔÉÏÊÇDSN·ÃÎÊÊý¾Ýʱ,ʵÀý,DSN=CommyDSNÖеÄÖµ,±ØÐëÓëÈçϲ½ÖèÖеÄÉ趨Ãû³ÆÒ»ÖÂ
DSNÉ趨Êý¾ÝÔ´Ãû³Æ²½Öè
¿ØÖÆÌ¨-ϵͳ¹ÜÀí¹¤¾ß-×ÊÁÏÀ´Ô´(ODBC)-ϵͳ×ÊÁϼÐÀ´Ô´Ãû³Æ-
Microsof Access Driver(*.mdb)-Íê³É-
Õâʱ¿´µ½×ÊÁÏÀ´Ô´Ãû³Æ(×Ô¼ºÃüÃû,¼ÇµÃÔÚÊý¾Ý¿âÁ¬½Ó×ÊÁÏÖÐÒªÒ»ÖÂÓ´)²¢Ñ¡×ÊÁÏ¿âµÄλÖü´¿É
Ïà¹ØÎĵµ£º
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)="ÀúÊ· ......
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Ï ......
5¡¢´¿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, ......
<%'¿ªÊ¼·ÖÒ³
Const MaxPerPage=25
dim totalPut
dim CurrentPage
dim TotalPages
dim j
  ......
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "¸¸Îļþ¼ÐÃû×ÖÊÇ£º" & fldr & "<br>"
If fldr.IsRootFolder = True Then
Response.Write "¸ÃÎļþ¼ÐÊÇÒ»¸ùÎļþ¼Ð" & "<br>"
Else
Resp ......