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

[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 1.ǰÑÔ

    Ö±±¼Ö÷Ìâ.
    ĿǰÔÚά»¤Ò»Ì×´óÐ͵ÄASPÊÛºóϵͳ(2000¶à¸öasp page),´úÂëÊÇ2001Äê³öÀ´µÄ,ÆÚ¼ä¶àÄêδ×ö¸üÐÂ,´úÂëÖвÎÔÓ¶à¸ö³ÌÐòÔ±µÄ·ç¸ñ,½á¹¹ÉÏÖ»ÊǼòµ¥µÄ½«main function ¼¯ÖÐÆðÀ´,½«¸´ÔÓµÄsql¼¯ÖÐÆðÀ´. Ò³ÃæÉÏÏ൱»ìÂÒ.
    ûÓмòµ¥µØÈ¥×ªÏò.net»·¾³,ÒòΪÕâ¸öϵͳʹÓÃµÃ±È½ÏÆµ·±,¼ÓÉÏһЩÈËÊÂÉϵÄÒòËØ.
    ËùÒÔÎÒÊÔͼÓÃasp½¨Á¢Ò»¸öÈý²ã¼Ü¹¹µÄ¿ª·¢Ä£Ê½À´Í³ÓùÕû¸öϵͳ,ǰºó¼¸¸öÔ¼ä,¸Ä½øÁ˺ܶ෽°¸ºÍ¹æÔò,Èç½ñÐγÉÁËÒ»¸öÉÔÏÔ³ÉÊìµÄÈý²ã¼Ü¹¹µÄ»ù´¡¿ò¼Ü. ¿´µ½»¹ÓкܶàͬÈÊÔÚʹÓÃASP×ö¿ª·¢,ËùÒÔÄóöÀ´Óë´ó¼Ò¹²Ïí.
    ×îÏȳ¢ÊÔÈý²ã¼Ü¹¹µÄϵͳ,ÊÇÎÒÁíÍâ˽ÈË¿ª·¢µÄÒ»¸öСÏîÄ¿,Ãû½ÐAppdb,ÓÃÓÚ¹ÜÀí³ÌÐò¹¦ÄܺÍÊý¾Ý¿â±íµÄÎĵµÐÅÏ¢,¼°ÆäÖ®¼äµÄ¹ØÁªÐÅÏ¢,±¾ÏµÁн«Ê¹ÓÃÕâ¸öÏîÄ¿×÷ΪÀýÂëչʾ,Ï£ÍûÕâ¸öϵÁÐ×öÍêÒÔºó,´ó¼ÒÒ²¿ÉÒÔ½¨Æð×Ô¼ºµÄappdbϵͳ.
    ƽʱ¹¤×÷±È½Ïæ,ÔÚ½²ÍêÈý²ã¼Ü¹¹µÄ»ù±¾¹æÔòºó,ʵÏÖ´úÂëµÄ²¿·Ö»á¸üÐÂÂýһЩ.
    ÔĶÁ±¾ÏµÁÐ,ÐèÒªasp±È½Ï´¿Êì,²¢ÇÒÊìÏ¤Ò»Ð©ÃæÏò¶ÔÏóµÄ»ù±¾¸ÅÄî,Á˽âÒ»µãÈý²ã¼Ü¹¹µÄ³£Ê¶¾Í¿ÉÒÔÁË.


Ïà¹ØÎĵµ£º

ASPÒþ²ØÏÂÔØµØÖ·

<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","")  '´«²Î
strFileName="/files/"&strFileName    ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......

asp ´æ´¢¹ý³Ì£¨·ÖÒ³£©

CREATE PROCEDURE sp_newpage
@tb varchar(50), --±íÃû
@col varchar(50), --°´¸ÃÁÐÀ´½øÐзÖÒ³
@coltype int, --@colÁеÄÀàÐÍ,0-Êý×ÖÀàÐÍ,1-×Ö·ûÀàÐÍ,2-ÈÕÆÚʱ¼äÀàÐÍ
@orderby bit, --ÅÅÐò,0-˳Ðò,1-µ¹Ðò
@collist varchar(800),--Òª²éѯ³öµÄ×Ö¶ÎÁбí,*±íʾȫ²¿×Ö ......

ASP±à³Ì¼¼Êõ

ActiveConnection ÉèÖûò·µ»ØCommand¶ÔÏóµÄÁ¬½ÓÐÅÏ¢£¬¸ÃÊôÐÔ¿ÉÒÔÊÇÒ»¸öConnection¶ÔÏó»òÁ¬½Ó×Ö·û´®¡£
CommandText ÉèÖûò·µ»Ø¶ÔÊý¾ÝÔ´µÄÃüÁî´®£¬Õâ¸ö´®¿ÉÒÔÊÇSQLÓï¾ä¡¢±í¡¢´¢´æ¹ý³Ì»òÊý¾ÝÌṩÕßÖ§³ÖµÄÈÎ ºÎÌØÊâÓÐЧµÄÃüÁîÎı¾¡£
Prepared Ìá³öÔÚµ÷ÓÃCommand¶ÔÏóµÄExecute·½·¨Ê±£¬ÊÇ·ñ½«²éѯµÄ±àÒë½á¹û´¢´æÏÂÀ´¡£Èç¹û½«¸ ......

¹ØÓÚASPÑ­»·±í¸ñµÄÎÊÌâÖ®½â´ð


ºÜ¶àʱºò,ÎÒÃDzÉÓÃԭʼµÄ·½·¨À´½â¾öÒ»ÐÐÄÚÑ­»·3ÕÅͼƬ,Èç¹ûÉÏ´«ÕßÖ»ÉÏ´«ÁË2ÕÅͼƬ,ÄÇô2ÕÅͼƬ¼äµÄ¾àÀë»áºÜ´ó,ÒòΪȱÉÙÁËÒ»¸ö<td>&nbsp;</td>.
<table border="0" cellpadding="0" cellspacing="0">
<%
dim rs,sqltext
set rs = Server.CreateObject("adodb.recordset")
sqltext="sel ......

asp²Ù×÷Êý¾Ý¿â´úÂë

 set conn=server.createobject("adodb.connection")
 conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
 
 Dim StrSQL,RS
 StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
 StrSQL=StrSQL&"AND Pin='"&passwor ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ