ASP Framework¡¡£¨¶þ£© Êý¾Ý¿â²Ù×÷DBÀà
ÍøÕ¾¿ª·¢×î³£ÓÃ×îÖØÒªµÄÒ²ÊÇÊý¾Ý¿â²Ù×÷£¬¸Ã¿ò¼ÜµÄDBÀà·â×°Á˼¸ºõËùÓйØÓÚÊý¾Ý²Ù×÷²¿·Ö£¬²¢ÌṩÁËһЩ¸ß¼¶¹¦ÄÜÒÔ±ãÁé»îʹÓá£
ÊʺϲÙ×÷µÄÊý¾Ý¿âÀàÐÍ£ºACCESS£¬MSSQL
ËäÈ»ASPÒ²¿ÉÒÔ²Ù×÷ÆäËüÀàÐÍÊý¾Ý¿â£¬µ«ÄÇÖÖÇé¿ö·Ç³£ÉÙ£¬¶øÇÒ¼æÈÝÐÔÒ²²»Ì«ºÃ£¬ËùÒÔ±¾ÀàÖ»Ö§³ÖÕâÁ½ÖÖÊý¾Ý¿âÀàÐÍ¡£
ÊôÐÔ˵Ã÷£º
[setshowerr]
¿Éѡֵ£º0£¬1£¬2£¬Ä¬ÈÏΪ1
ÉèÖÃÊý¾Ý¿â²Ù×÷ÖеĴíÎóÏÔʾÀàÐÍ
0Ϊ²»ÏÔʾ£¨ÊÊÓÃÓÚÍøÕ¾Õýʽ·¢²¼ºó£©
1ÏÔʾ¸ÃÀඨÒåµÄ´íÎóÌáʾ£¨Ìáʾ³ö´í·½·¨Ãû¼°³£¼ûÔÒò£©
2 ÏÔʾIIS´íÎóÌáʾ£¨ÊÊÓÃÓڸ߼¶¿ª·¢ÈËÔ±£©
[setdb_type]£¨Êý¾Ý¿âÀàÐÍ£¬0-ACCESS£¬1-MSSQL£¬Ä¬ÈÏΪ0£©
[setdb_host]
[setdb_user]
[setdb_password]
[setdb_name]
[setdb_path]£¨ÒÔÉϲ»ÔÙ½âÊÍÁË£¬Êý¾Ý¿â¸÷ÏîÅäÖÃÐÅÏ¢£©
[setpagesize]£¨·Ò³£Ã¿Ò³ÏÔʾ¼Ç¼Êý£¬Ä¬ÈÏΪ10£©
[setpageshownum]£¨·Ò³£ÏÔʾ·Ò³Á´½ÓµÄ¸öÊý£¬Ä¬ÈÏΪ10£©
[setsql]£¨ÉèÖÃÍêÕûµÄSQLÓï¾ä£©
[settpl]£¨ÉèÖÃÑ»·¶ÎHTMLÄ£°å£©
[setmsg]£¨ÉèÖõ±Ò»¸ö²éѯûÓмǼµÄʱºòÌáʾµÄÐÅÏ¢£©
·½·¨£º
[return]£¨1»òÕß0£©
·µ»Ø¼Ç¼ÊÇ·ñΪ¿Õ£¬Ï൱ÓÚrs.eof
[query]
·µ»Ø²éѯ½á¹û
Á½ÖÖÐÎʽ£º
Ìæ»»Ä£°åºóµÄHTML´úÂ룬ǰÌáÊÇÄãÉèÖÃÁËsettpl
µÚ¶þÖÖÐÎʽ¶þάÊý¾Ý£¬Ï൱ÓÚGetRows
[all]
·µ»Ø²éѯ½á¹û£¬ÓëRSÀàËÆ£¬Çø±ðÊÇallÊÇÕë¶ÔÓÚ·Ò³
[page]
·µ»Ø·Ò³string£¬ÓëALLÅäºÏʹÓÃ
[TRY(sql)]
·µ»ØSQLÓï¾ä²Ù×÷״̬
Èç¹ûÊÇselectÓï¾ä£¬½«¿ÉÒÔÖ±½ÓʹÓÃquery·µ»Ø½á¹û
Èç¹ûÊÇɾ³ý¡¢Ð޸쬳ɹ¦Ôò·µ»Øtrue£¬·ñÔòfalse
[field(sql)]
Ö´ÐÐSQLÓï¾ä£¬·µ»ØµÚÒ»Ìõ¼Ç¼µÚÒ»¸ö×Ö¶ÎÖµ£¬Ï൱ÓÚrs(0)
[add(f_name,arr)]
Ìí¼ÓÒ»ÌõмǼ£¬ÓÃÓÚ±íµ¥Ìá½»£¬arrΪÐÎÈça(0) = "title|ÏÞÖÆÌõ¼þ»òÖµ"£¬a(1) = "adddate|notnull"£¬a(2) = "newsid|ID18"
½«·½·¨½«±íµ¥ÃûºÍ×Ö¶ÎÃû°ó¶¨£¬²¢¸ù¾Ý|ºóÃæµÄÄÚÈݽøÐÐÅжϻò¸³Öµ£¬Èçnotnull»á¼ì²éÊÇ·ñΪ¿Õ£¬ID18½«newsid×Ö¶ÎÌí¼ÓÎªËæ»ú18λÊý×Ö£¬IPΪÓû§IP£¬µÈµÈ£¬¿ÉÒÔ¸ù¾Ý×Ô¼ºÐèÒªÉèÖøü¶àµÄ¹Ì¶¨ÖµºÍÅжϷ½·¨¡£
[update(f_name,id,arr)]
Ð޸ļǼ£¬ÓëADD·½·¨ÀàËÆ£¬¶àÁËÒ»¸öID£¬¼´ÏëÒªÐ޸ĵļǼµÄIDÖµ¡£
ʾÀý£º
Ê×Ïȸù¾Ý×Ô¼ºÐèÒª¸ü¸ÄÒ»ÏÂÊý¾Ý¿âÅäÖÃÐÅÏ¢£¬ÒòΪÊÇ¿ò¼Ü£¬ËùÒÔÕâЩ³£ÓõÄÉèÖÃÒѼ¯Öе½configÎļþ£¬·½±ãͳһ¹ÜÀí¡£
ÏȽéÉÜÒ»ÏÂsettpl£¬¹¦Äܷdz£Ç¿´ó¡£
±ÈÈçÎÒÃÇÏÖÔÚÒª×öÒ»¸öÏÔʾÐÂÎÅÁбíµÄÒ³Ãæ£¬Ê¹ÓÃsettpl½«»áʹ²Ù×÷±äµÃÒì³£¼òµ¥£¡
<%option explicit%>
'ÆäÖÐinclude.asp°üº
Ïà¹ØÎĵµ£º
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_News where BigClassName='¼Ò×°¿ÎÌÃ' order by ID desc"
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
response.Write("ÔÝʱûÓмǼ")
else
%>
......
1.Èç¹ûÄúµÄ²Ù×÷ϵͳΪWindows 98£¬ÇëÔËÐÐ Windows98µÄ°²×°¹âÅÌ¡£ÔÚÆäAdd-ons\pwsĿ¼ÏÂÕÒµ½pwsµÄ°²×°³ÌÐò£¬ÔËÐа²×°¼´¿É
2.Èç¹û²Ù×÷ϵͳΪ Windows 2000 ÒÔÉÏ£¬¿ÉÒÔ°´Í¼4.1.1µÄ·½·¨°²×° IIS£º
´ò¿ª¡¾¿ØÖÆÃæ°å¡¿£¬ÕÒµ½ ¡¾Ìí¼Ó/ɾ³ý³ÌÐò¡¿→¡¾Ìí¼Ó/ɾ³ýWINDOWS×é¼þ¡¿£¬
µ¯³ö ¡¾Windows ×é¼þÏòµ¼¡¿ £¬Ñ¡Ôñ ¡¾Internet ......
×î½üдվÄÚËÑË÷£¬ËùÒÔÑо¿ÁËÒ»ÏÂËã·¨£¬¸ÃËã·¨µÄÔÀíÈçͼÏÔʾ¡£
ÒÔÏÂÊÇÒ»¸öÓÃaspдµÄ¼òµ¥µÄ·Ö´Ê³ÌÐòÖ÷ÒªµÄ´úÂ룬´Ê¿âÎÒÒѾÓÃaccess½¨Á¢ºÃÁË¡£
Èç¹ûÒª×¢ÖØÐ§ÂÊ£¬MarLenµÄѡȡºÜÊÇÖØÒª£¬·ñÔòЧÂÊ»áÊ®·ÖµÍÏ£¬ÕâÀïMarLenÎÒѡȡµÄÊÇ5¡£
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......
ʹÓÃDreamweaver²âÊÔÁ¬½Ó³É¹¦£¬µ«ÊÇIISÀïÃæÔËÐÐÈ´×ÜÊÇ´íÎó°Ù³ö£¬¿´ÁËÏÂÃæÕâÆª²©ÎÄÎÊÌâ²ÅµÃÒÔ½â¾ö¡¢¡¢¡¢
Ò»°ãÇé¿öÏÂasp¿ÉÒÔÕý³£ÔËÐÐ,µ«Ö»ÒªÁ¬½ÓÊý¾Ý¿â¾ÍÌáʾ,Microsoft JET Database Engine ´íÎó
'80004005',ÎҵĵçÄÔÒòΪÓÃÅú´¦ÀíÇåÀíÎļþ,ËùÒÔ²»ÄÜÔËÐÐÁË£¬ Ö»
1.²é¿´Êý¾Ý¿âÁ¬½ÓÓï¾äûÓз¢ÏÖ´íÎó£»
2.²é¿´Îļþ¼ÐµÄȨÏÞÒÑ ......