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°üº
Ïà¹ØÎĵµ£º
Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite  ......
×î½üдվÄÚËÑË÷£¬ËùÒÔÑо¿ÁËÒ»ÏÂËã·¨£¬¸ÃËã·¨µÄÔÀíÈçͼÏÔʾ¡£
ÒÔÏÂÊÇÒ»¸öÓÃaspдµÄ¼òµ¥µÄ·Ö´Ê³ÌÐòÖ÷ÒªµÄ´úÂ룬´Ê¿âÎÒÒѾÓÃaccess½¨Á¢ºÃÁË¡£
Èç¹ûÒª×¢ÖØÐ§ÂÊ£¬MarLenµÄѡȡºÜÊÇÖØÒª£¬·ñÔòЧÂÊ»áÊ®·ÖµÍÏ£¬ÕâÀïMarLenÎÒѡȡµÄÊÇ5¡£
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......
´úÂ룺
<%@ LANGUAGE=VBScript CodePage=65001%>
<%
private function decodeBase64(base64)
dim DM, EL
Set DM = CreateObject("Microsoft.XMLDOM")
Set EL = DM.createElement("tmp")
EL.DataType = "bin.base64"
& ......
Õ⼸Ììѧϰ¶¯Ì¬ÍøÕ¾µÄÖÆ×÷£ºASP¡£ÓÉÓÚÀÏʦ½²µÄºÜÈÏÕæ£¬ºÜÏêϸ£¬¿Î³ÌÄÜÌý¶®£¬×Ô¼ºÒ²ÂòÁËÒ»±¾¹ØÓÚASPµÄÊé¼®£¬ASPµÄһЩ¹¦ÄܵÄʵÏÖ£¬Ôõô×ö³öÀ´ÄÜ¿´µÄ²î²»¶à£¬¿É¾ÍÊÇ×öµÄʱºòºÃ²î¾¢£¬²»ÊÇij¸öÓ¢Óïµ¥´Ê²»»áд£¬¾ÍÊÇÖØ¸´´íÎó³öÏÖ£¬Éî¿ÌµÄÃ÷°×£¬×öÍøÕ¾ÔÀ´ÕâôÄÑ£¬²»½öÐèÒªÑϽ÷µÄÂ߼˼άÄÜÁ¦£¬¶ø ......
±¾ÌùÀ´×ÔZDNetChinaÖÐÎÄÉçÇø http://bbs.zdnet.com.cn/
±¾ÌùµØÖ·£ºhttp://bbs.zdnet.com.cn/viewthread.php?tid=108315
Èç¹ûÄãÒѾÓн϶àµÄÃæÏò¶ÔÏ󿪷¢¾Ñé£¬Ìø¹ýÒÔÏÂÕâÁ½²½£º
¡¡¡¡µÚÒ»²½¡¡ÕÆÎÕÒ»ÃÅ.NETÃæÏò¶ÔÏóÓïÑÔ£¬C#»òVB.NET ÎÒÇ¿ÁÒ·´¶ÔÔÚûϵͳѧ¹ýÒ»ÃÅÃæÏò¶ÔÏó(OO)ÓïÑÔµÄǰÌáÏÂȥѧASP.NET¡£ ASP.NETÊÇ ......