ASPÖÐÊ®´ó³£ÓóÌÐò´úÂë.£ºµÚÊ®½Ú¡´ÎÒµÄÐĵáµ
ÓÃASP½¨Á¢Õ¾ÄÚÐÅÏ¢ËÑË÷ϵͳ
¡¡¡¡¼ÙÈçÄãÓµÓÐÒ»¸öÅÓ´óµÄÍøÕ¾£¬ÄÚÈÝÓֶ࣬ÄÇôÀ´·ÃÕßÍùÍùºÜÄÑÕÒµ½×Ô¼ºËùÐèÒªµÄ¶«¶«£¬ÕâʱºòÄã¾ÍÐèÒªÒ»¸öÕ¾ÄÚËÑË÷À´°ïÖúÀ´·ÃÕ߸ü¿ìµÄÕÒµ½Ë÷ÒªµÄ×ÊÁÏÁË£¡ÏÖÔÚÄã¾Í¿ÉÒÔÓÃaspÇáÒ×µÄʵÏÖÕâÖÖ¹¦ÄÜ£¬ºÎ¿öÏÖÔÚÖ§³ÖaspµÄÕ¾µãÕâô¶à£¬ÀûÓÃÕâ¸öËÑË÷ÒýÇæ¿ÉÒÔËÑË÷µ½ÄãµÄÖ÷Ò³ÀïÃæÈκÎÒ»¸öÎļþ»òÕßÈí¼þ×ÊÁÏ£¬Ëü¿ÉÒÔ¾«È·µ½Ã¿¸ö×Ö£¡ËµÁËÕâô¶àÄãÊDz»ÊÇâñÈ»Ð͝Á˰¡£¬ÄǾͰ´ÕÕÏÂÃæµÄ²½ÖèÀ´½¨Á¢×Ô¼ºµÄËÑË÷ÒýÇæ°É£º
¡¡¡¡£¨Ò»£©£¬Ê×ÏÈÀûÓÃaccess97½¨Á¢Ò»¸öÃûΪlist.mdbµÄÊý¾Ý¿â£¬ÔÚÀïÃæ½¨Á¢Ò»¸öÃûΪlistµÄ±í£¬È»ºóÔÚlist±íÀïÃæÊäÈëһЩÄãÏëÒª±»²éѯµÄÎļþÃû×Ö£¬¹Ø¼üµÄËÑË÷´Ê»¹ÓÐÏà¶ÔÓ¦µÄÁ´½Ó£¬ÏÂÃæ½¨Á¢ÁËËĸöÏîÄ¿ID£¨±àºÅ£©£¬title£¨Ö÷Ì⣩£¬word£¨¹Ø¼ü´Ê£©£¬url£¨Á´½ÓµØÖ·£©£¬ÈçϱíËùʾ£º
ID title word url
1 cgi½Ì³Ì ±¾µØµ÷ÊÔcgi cgi/testcgi.htm
2 ÏÂÔØÖÐÐÄ ÁÄÌìÊÒ£¬ÁôÑÔ±¾ download/index.htm
¡¡¡¡£¨¶þ£©£¬½¨Á¢ÁËÊý¾Ý¿âÒÔºó¾Í¿ÉÒÔ½¨Á¢ÄãµÄaspËÑË÷Ò³ÃæÁË£¬ÏÂÃæÊÇÒ»¸öÎļþÃûΪsearch.htmµÄaspËÑË÷Ò³ÃæµÄÔ´³ÌÐò£¬Õâ¸öËÑË÷ÒýÇæ¿ÉÒÔͬʱËÑË÷titleºÍwordÀïÃæµÄÄÚÈÝ£¬µ±È»Èç¹ûÄãÓÐÐèÒªµÄ»°¿ÉÒÔ½¨Á¢¸ü¶àµÄËÑË÷£º
£¼!--#INCLUDE file="ADOVBS.inc"--£¾
£¼% "½¨Á¢Êý¾Ý¿âµÄÁ¬½Ó
¡¡con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
¡¡"½¨Á¢CONNECTION¶ÔÏó²¢´ò¿ªÊý¾Ý¿â
¡¡set mycon=server.createobject("ADODB.CONNECTION")
¡¡mycon.open.con %£¾
¡¡"´´½¨Recordset¶ÔÏóµÄÀý³Ì£¬´ò¿ªRecordset¶ÔÏó´«µÝSQL´®ÒÔ¼°ËùÓеÄÁ¬½ÓÐÅÏ¢
¡¡£¼% set rs=server.createobject("ADODB.Recordset")
¡¡¡¡rs.open "SELECT*FORM list where title and word like ¡¡'%'&request.form("word")&"%'",MyCon,adOpenStatie
¡¡%£¾
¡¡"½¨Á¢²éѯºóµÄÏÔʾÐÅÏ¢ºÍ²éÑ¯Ò³Ãæ,ÄãÏëȡʲôÃû×Ö¶¼¿ÉÒÔ
¡¡£¼html£¾£¼head£¾£¼title£¾²éѯ½á¹û£¼/title£¾£¼/head£¾
¡¡£¼body bgcolor="#ffffff"£¾
¡¡£¼p align="center"£¾£¼br£¾
¡¡¡¡"ͳ¼Æ²éѯ¹²ÓУ¼% Response.Write(RS.RecordCount) %£¾Ìõ¼Í¼£¼/p£¾£¼br£¾
¡¡£¼div align="center"£¾£¼center£¾
¡¡£¼table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" ¡¡¡¡bordercolordark="#ffffff"£¾
¡¡£¼tr align="center"£¾
¡¡¡¡£¼td width="20%" align="center" bgcolor
Ïà¹ØÎĵµ£º
<%
If Not IsNull(Request("fileName")) Then r = DownLoadFile(Request("fileName"))
Function DownLoadFile(fileName)
Dim s,fso,f,fLen
fileName = Server.MapPath(fileName)
'create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open()
s.Type = 1
Set fso = Server.CreateObject ......
¡¡¡¡¡¡ÓãÁ£Ó£Ð±àÐ´ÍøÕ¾Ó¦ÓóÌÐòʱ¼ä³¤ÁË£¬ÄÑÃâ»áÓöµ½¸÷ʽ¸÷ÑùµÄÎÊÌ⣬ÆäÖйØÓÚÈçºÎÉÏ´«Îļþµ½·þÎñÆ÷¿ÖÅÂÊÇÓö¼û×î¶àµÄÎÊÌâÁË£¬ÓÈÆäÊÇÉÏ´«Í¼Æ¬£¬±ÈÈçÄãÏëÒªÔÚ×Ô¼ºµÄÉçÇøÀïÃæÊµÏÖÀàËÆÍøÒ×ÐéÄâÉçÇøÌṩµÄ“ÿÈÕÒ»ÐÇ”µÄ¹¦ÄÜ£¬¾ÍÒªÌṩ¸øÍøÓÑÉÏ´«ÕÕÆ¬µÄ¹¦ÄÜ¡£ÉÏ´«Í¼Æ¬Îļþµ½·þÎñÆ÷¿ÉÒÔʹÓø÷ÖÖÃâ·ÑµÄÎļþÉÏ´«×é¼þ£¬Ê¹ ......
µÚÒ»½Ú:×¢²áϵͳ
×¢²á¼¸ºõÊÇÿ¸öÍøÕ¾¶¼ÒªÊ¹Óõģ¬È¥ÂÛ̳Ҫע²á£¬ÁÄÌìҪע²á£¬¼¸ºõÎÞ´¦²»×¢²á£¬ËùÒÔ×¢²áÊÇËùÓÐASPÓ¦ÓóÌÐòÖÐ×î³£¼ûµÄ¡£
& ......
ÔÚInterDevÖÐʵÏÖÍøÉϹºÎïÍÆ³µ(1)
¡¡±¾ÎĽ«½éÉÜÔÚInterDevÖÐʵÏÖÍøÉÏÉ̵깺Îï³µ¹¦Äܵķ½·¨£¬¾ßÌå²½ÖèÈçÏ£º
¡¡¡¡Ò»¡¢ Êý¾Ý¿â½á¹¹£º
¡¡¡¡²úÆ·Êý¾Ý±í(Products): ´æ·Å²úÆ·ÐÅÏ¢
²úÆ·Ãû ProductName
²úÆ·±àºÅ ProductID
µ¥¼Û Price
·ÖÀà±àºÅ CategoryID
¡¡¡¡ Cart£º¹ºÎï³µÊý¾Ý±í£¬ÁÙʱ´æ·Å¿Í»§µÄ¶ ......
ÀûÓÃASP´òÔìÍøÕ¾ÂÛ̳DIY(3)
¡¡¡¡2¡¢¹¹½¨ÎÄÕÂÏÔʾģ¿é
¡¡¡¡Ç°ÃæËµ¹ý£¬Ò»Æ¬¾ßÌåµÄÎÄÕÂÊÇ·ÖÊôÔÚ¿´°åºÍÖ÷Ìå֮ϵġ£Òò´ËÏÔʾÎÄÕÂÒ²Òª¾¹ý¿´°åÁбíºÍÖ÷ÌåÁбíÕâÁ½Ò³Ãæºó£¬²ÅÄܵõ½Ìض¨Ö÷ÌâÏÂÎÄÕµÄÁÐ±í¡£
¡¡¡¡£¨1£©°åÁбíµÄÏÔÊ¾Ò³Ãæ£º
£¼ html£¾
£¼ head£¾
£¼ title£¾¿´°åÁÐ±í£¼ /title£¾
£¼ meta htt ......