Ò»¡¢Ç°ÑÔ ASP (Active Server Pages) ÊÇ·þÎñÆ÷¶ËµÄ½Å±¾±àд»·¾³£¬ËüÓÉ΢Èí¹«Ë¾µÄIIS3.0ÒÔÉϰ汾֧³Ö¡£Ëü¿ÉÓÃÀ´´´½¨¶¯Ì¬ Web Ò³»òÉú³É¹¦ÄÜÇ¿´óµÄ WebÓ¦ÓóÌÐò¡£ASPÒ³ÊǰüÀ¨ HTML ±ê¼Ç¡¢Îı¾ºÍ½Å±¾ÃüÁîµÄÎļþ¡£ASPÒ³¿Éµ÷ÓÃActiveX×é¼þÀ´Ö´ÐÐÈÎÎñ£¬ÀýÈçÁ¬½Óµ½Êý¾Ý¿â»ò½øÐÐÉÌÎñ¼ÆË㡣ͨ¹ýASP£¬¿ÉΪÄúµÄWebÒ³Ìí¼Ó½»»¥ÄÚÈÝ»òÓÃHTMLÒ³¹¹³ÉÕû¸öWebÓ¦ÓóÌÐò£¬ÕâЩӦÓóÌÐòʹÓÃHTMLÒ³×÷ΪÄúµÄ¿Í»§µÄ½çÃæ¡£ ¶þ¡¢ASPÄ£ÐÍ ä¯ÀÀÆ÷´ÓWeb·þÎñÆ÷ÉÏÇëÇó .aspÎļþʱ£¬ASP ½Å±¾¿ªÊ¼ÔËÐС£È»ºóWeb·þÎñÆ÷µ÷ÓÃASP£¬ASPÈ«Ãæ¶ÁÈ¡ÇëÇóµÄÎļþ£¬Ö´ÐÐËùÓнű¾ÃüÁ²¢½«WebÒ³´«Ë͸øä¯ÀÀÆ÷¡£ ASPÌṩÁËÒ»¸öÔÚHTMLÒ³ÖÐʹÓÃÏÖÓнű¾ÓïÑÔÈç Microsoft VBScript ºÍ Microsoft JScript µÄ¿ò¼Ü¡£ ASPÌṩÄÚ½¨¶ÔÏó£¬ÕâЩ¶ÔÏóʹÓû§¸üÈÝÒ×ÊÕ¼¯Í¨¹ýä¯ÀÀÆ÷ÇëÇó·¢Ë͵ÄÐÅÏ¢¡¢ÏìÓ¦ä¯ÀÀÆ÷ÒÔ¼°´æ´¢Óû§ÐÅÏ¢¡£°üÀ¨Application¡¢Request¡¢Response¡¢Server¡¢Session ºÍObjectContext ¶ÔÏ󡣯äÖÐ×îΪ³£ÓõÄΪRequest¡¢Response ºÍServerÈý¸ö¶ÔÏó£¬ËüÃÇ·Ö±ðÓÃÓÚ´Óä¯ÀÀÆ÷ÇëÇóÐÅÏ¢¡¢Ïòä¯ÀÀÆ÷·¢ËÍÐÅÏ¢ºÍ·ÃÎÊ·þÎñÆ÷É϶ÔÏóµÄÊôÐԺͷ½·¨¡£ Èý¡¢ADO ASPºÍºǫ́Êý¾Ý¿âÁ¬½ÓʹÓÃ΢ÈíµÄADO(ActiveX Data Objects)£¬ADOÊÇÒ»ÏîÈÝÒ×ʹÓò¢ÇÒ¿ÉÀ©Õ¹µÄ½«Êý¾Ý¿â·ÃÎÊÌí¼Óµ½WebÒ³µÄ¼¼Êõ¡£¿ÉÒÔʹÓÃADOÈ¥±àд½ô´Õ¼òÃ÷µÄ½Å±¾ÒÔ±ãÁ¬½Óµ½Open Database Connectivity(ODBC)¼æÈݵÄÊý¾Ý¿âºÍ OLE DB¼æÈݵÄÊý¾ÝÔ´¡£ ADO°üº¬7¸öÄÚÖöÔÏó£¬ËüÃÇ·Ö±ðΪConnection¡¢Command¡¢RecordSet¡¢Fields¡¢Error¡¢ParametersºÍProperties¡£Í¨¹ýÕâЩ¶ÔÏó£¬ASP¿ÉÒÔÍê³É¶Ôºǫ́Êý¾Ý¿âµÄËùÓвÙ×÷¡£ ËÄ¡¢ASPµ÷ÓÃÊÓͼºÍ´æ´¢¹ý³Ì ÔÚÒ»°ãµÄMISÓ¦ÓÃÖУ¬»áÓдóÁ¿µÄ±¨±í£¬´ËʱÎÒÃÇ¿ÉÒÔÔÚºǫ́Êý¾Ý¿â±àдÏàÓ¦µÄÊÓͼ»ò´æ´¢¹ý³Ì£¬ÓÃASPͨ¹ýADOµ÷ÓÃÒÔÍê³É±¨±í¹¤×÷¡£ÏÂÃæÓÃÒ»¸öÀý×Ó˵Ã÷ÏàÓ¦µÄ²Ù×÷¹ý³Ì¡£ 1.´´½¨ ODBC DSN Îļþ ÔÚ´´½¨Êý¾Ý¿â½Å±¾Ö®Ç°£¬±ØÐëÌṩһÌõʹADO¶¨Î»¡¢±êʶºÍÓëÊý¾Ý¿âͨѶµÄ;¾¶¡£Êý¾Ý¿âÇý¶¯³ÌÐòʹÓÃData Source Name (DSN) ¶¨Î»ºÍ±êÊ¶ÌØ¶¨µÄODBC¼æÈÝÊý¾Ý¿â£¬½«ÐÅÏ¢´Ó Web Ó¦ÓóÌÐò´«µÝ¸øÊý¾Ý¿â¡£ 2. µ÷ÓÃÊý¾Ý¿âÊÓͼ ·ÃÎÊÊý¾Ý¿âÐÅÏ¢µÄµÚÒ»²½ÊǺÍÊý¾Ý¿âÔ´½¨Á¢Á¬½Ó¡£ADOÌṩConnection¶ÔÏ󣬿ÉÒÔʹÓøöÔÏó½¨Á¢ºÍ¹ÜÀíÓ¦ÓóÌÐòºÍ ODBCÊý¾Ý¿âÖ®¼äµÄÁ¬½Ó¡£ <%Set Dataconn = Server.CreateObject("ADODB.Connection") '½¨Á¢Á¬½Ó¶ÔÏó Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft (R) Developer Studio;WSID=APP_SERVER;Regional=Yes" Set cmdTemp = Server.CreateObject("ADODB.Command") '½¨Á¢ÃüÁî¶ÔÏó Set rst= Server.CreateObject("ADODB.Recordset") '½¨Á¢¼Ç¼¼¯¶ÔÏó cmdTemp.CommandText = "Customers " cmdTemp.CommandType = 2 Set cmdTemp.ActiveConnection = DataConn rst.Open cmdTemp, , 1, 3 'Éú³É²éѯ½á¹û%> |
´Ëʱ£¬CustomersΪÊÓͼ£¬´ÓÊÓͼÖвéѯÊý¾ÝÓë´Ó»ù±íÖвéѯÊý¾ÝµÄ·½·¨ÊÇÏàͬµÄ¡£ 3.µ÷ÓÃÊý¾Ý¿â´æ´¢¹ý³Ì <%Set Dataconn = Server.CreateObject("ADODB.Connection") '½¨Á¢Á¬½Ó¶ÔÏóDataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft (R) Developer Studio;WSID=APP_SERVER;Regional=Yes"Set cmdTemp = Server.CreateObject("ADODB.Command") '½¨Á¢ÃüÁî¶ÔÏóSet rst = Server.CreateObject("ADODB.Recordset") '½¨Á¢¼Ç¼¼¯¶ÔÏócmdTemp.CommandText = "dbo.pd_test" '´æ´¢¹ý³ÌÃû³ÆcmdTemp.CommandType = 4 'ÃüÁîÀà±ðΪ4,±íʾΪ´æ´¢¹ý³ÌSet cmdTemp.ActiveConnection = DataconnSet tmpParam = cmdTemp.CreateParameter("Return Value", 3, 4, 4)cmdTemp.Parameters.Append tmpParamSet tmpParam = cmdTemp.CreateParameter("@BeginDate", 135, 1, 16, riqi) '´´½¨ÊäÈë²ÎÊý¶ÔÏócmdTemp.Parameters.Append tmpParamrst.Open cmdTemp, , 1, 3 'Éú³É²éѯ½á¹û%> |
ÕâÀïµ÷ÓõĴ洢¹ý³ÌΪpd_test£¬ÕâÖÖÊÇADOÖÐÌṩµÄ±ê×¼·½·¨£¬µ«´æÔÚÒ»¸öÎÊÌ⣬¾ÍÊǵ±ÔÚ´æ´¢¹ý³ÌÖÐÓÐÁ½¸öÒÔÉϵÄSELECTÓï¾ä£¬µ«´ÓÂß¼ÉÏÓÖ²»¿ÉÄÜͬʱִÐеÄʱºò£¬ADO»áÌáʾÄã´æ´¢¹ý³ÌÖÐSELECTÓï¾äÌ«¶à£¬½â¾ö·½·¨ÊÇÖ±½ÓÓÃADOµÄCONNECTION¶ÔÏóµÄEXECUTE·½·¨Ö±½ÓÖ´Ðд洢¹ý³Ì£¬ÈçÏ£º <%Set Dataconn = Server.CreateObject("ADODB.Connection") '½¨Á¢Á¬½Ó¶ÔÏóDataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft (R) Developer Studio;WSID=APP_SERVER;Regional=Yes"ss = "EXECUTE dbo.pd_test " & "'" & riqi1 & "'" Set rs = dataconn.Execute(ss)%> |
ÓйØASPºÍADOʹÓõÄÏêϸÐÅÏ¢£¬Çë²ÎÔÄ Microsoft ActiveX Data Objects (ADO) ºÍActive Server Pages£¨ASP£©µÄÏêϸ²Î¿¼¡£ Îå¡¢½áÊøÓï ÔÚB/S½á¹¹µÄ¿ª·¢ÖУ¬ÎÒÃÇ¿ÉÒÔ°ÑһЩÉÌÒµ¹æÔò»ò¸´ÔÓ²éѯÓô洢¹ý³ÌÔÚDBMSÖбàд£¬È»ºóÓÃASPÖеÄADO¶ÔÏóµ÷Óã¬Íê³ÉÔÀ´C/S½á¹¹ÖеĴ«Í³¹¦ÄÜ¡£
|