Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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°üº


Ïà¹ØÎĵµ£º

aspͼƬ¹ö¶¯

<%
Const New_img=10     
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='o ......

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
%>
         ......

aspÌí¼ÓÊý¾Ý¼Ç¼дÈë,ɾ³ý,²é¿´ÊµÁÐ

<!--#include file="conn.asp"-->
<%
if request.Form("username")="" or request.form("password")="" then
response.Write("<script>alert('ÄúºÃ£¬²»ÄÜΪ¿Õ
');location.href='index.html';</script>")
end if
%>
<%
di ......

ASPÉú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨



 
ASPÉú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨
ÊÕ²Ø



ʹÓÃFSOÉú³É
<%
'ʹÓÃFSOÉú³É
Set fs = CreateObject("Scripting.FileSystemObject")
NewFile=Server.MapPath("ud03/fso.htm")
'н¨ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ