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

ASPÁ¬½ÓÊý¾Ý¿âµÄÈ«ÄÜ´úÂë

'½â¾öÁËACCESSÊý¾Ý¿â·¾¶µÄÎÊÌ⣡
'²ÉÓÃDBType=0»òDBType=1À´Çø·ÖAC¿â»¹ÊÇMSSQL¿â
'¾ßÌå²ÉÓÃAC¿âʱӦעÒâµÄÊÂÏÇë¿´³ÌÐò˵Ã÷
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0        '0ΪAccessÊý¾Ý¿â£¬1ΪMSSQLÊý¾Ý¿â
If(DBType=0) Then
'****************ACCESSÊý¾Ý¿â******************
Dim DbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData"   'Êý¾Ý¿âËùÔÚÎļþ¼ÐÃû³Æ
DbFolder_Path = Server.MapPath(DbFolderName)   'Êý¾Ý¿âËùÔÚ·¾¶
SiteFolder="Article"                    'ϵͳËùÔÚ¸ùĿ¼Ãû³Æ
   If Session("RootDir") = "" Then
        Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
   End if
   Set Conn = Server.CreateObject("Adodb.Connection")
   StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & "\"& DbFolderName & "\Data.mdb"  'Á¬½Óµ½Êý¾Ý¿â
   Conn.Open StrConn
'**************************************************
ElseIf(DBType=1) Then
'*****************MSSQL SERVERÊý¾Ý¿â******
   Dim DBUserID,DBPassWord,DBName,DBIP
   'ÐÞ¸ÄÒÔÏÂÐÅÏ¢ÒÔÊʺÏÄãµÄÍøÕ¾
   DBUserID="sa"  'Êý¾Ý¿âµÇ½Ãû
   DBPassWord=""  'Êý¾Ý¿âÃÜÂë
   DBName="dbname" 'Êý¾Ý¿âÃû³Æ
   DBIP="local" 'Êý¾Ý¿âËùÔÚµØÖ·£¬Èç¹ûÊDZ¾µØÊý¾Ý¿âÔòΪ£º(local)
   Set Conn=Server.CreateObject("Adodb.Connection")
   StrConn = "PROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Initial Catalog="&DBName&";Persist Security Info=True;User ID="&DBUserID&";Password="&DBPassWord&";Connect Timeout=30"
   Conn.Open StrConn
'******************************************************
Else
'***********************Êý¾Ý¿âÉèÖôíÎó*******


Ïà¹ØÎĵµ£º

Perl¡¢PHP¡¢ASP¡¢JSP¼¼Êõ±È½Ï

Perl¡¢PHP¡¢ASP¡¢JSP¼¼Êõ±È½Ï
±¾ÎĽ«¶ÔĿǰ×î³£ÓõÄËÄÖÖ¶¯Ì¬ÍøÒ³ÓïÑÔPerl£¨Practical Extraction and Report Language£©¡¢PHP£¨Hypertext Preprocessor£©¡¢ASP£¨Active Server Pages£©¡¢JSP£¨JavaServer Pages£©½øÐÐһЩ¼¼ÊõÐԵıȽϡ£
¡¡¡¡Perl
¡¡¡¡Perl£¨Practical Extraction and Report Language£©ÊÇÒ»ÖֺܹÅÀϵĽű ......

ASPÁ¬½ÓSQLiteÊý¾Ý¿âÒ»Àý

ÒªÓÃASPÀ´²Ù×÷SQLiteÊý¾Ý¿â£¬Ç°ÌáÌõ¼þÊÇÔÚ·þÎñÆ÷Éϵð²×°SQLiteµÄODBCÇý¶¯³ÌÐò£¬¿Éµ½Õâ¸öÕ¾µãÉÏÏÂÔØ°²×°£ºhttp://www.ch-werner.de/sqliteodbc/£¬°²×°ºÃºó¾Í¿ÉÒÔÏñʹÓÃAccessÒ»ÑùÀ´Ê¹ÓÃSQLiteÁË£¡Ï±ßÊÇÒ»¸öSQLiteÊý¾Ý¿â½á¹¹£º
ÒýÓÃÄÚÈÝ
Create TABLE admin(username text,age integer);
ÎÒÃÇÔÙÀ´ÓÃASPÑÝʾÏÂÈçºÎ¶ÔSQLi ......

Asp´´½¨Êý¾Ý¿âÎļþ

Sub CreateAccessDB(DBToCreate)
    Dim catNewDB ' As ADOX.Catalog
    Set catNewDB = Server.CreateObject("ADOX.Catalog")
    catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & se ......

ASPÌõ¼þÓï¾äÖ®IFÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/827.html
Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä
ÓÃÀ´ÅжÏÌõ¼þÊÇ true »ò false £¬²¢¸ù¾ÝÅжϽá¹ûÀ´Ö´ÐÐÖ¸¶¨µÄÓï¾ä£¬Í¨³£Ìõ¼þÊÇÓñȽÏÔËËã·û¶ÔÖµ»ò±äÁ¿½øÐбȽÏÀ´±í´ï¡£
if ... then ... else ¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐǶÌ×ʹÓ㬿ÉÒÔд³É elseif ¡£
ʾÀý£º
ÒÔÏÂÎ ......

MVCÈý²ã¼Ü¹¹ÔÚASPÖеÄÓ¦ÓÃ


ǰ¶Îʱ¼ä¶ÁÁ˲»ÉÙ¹ØÓÚMVCµÄÎÄÕ£¬ÊÔ×ÅÔÚASPÖÐÓ¦ÓÃÁËһϣ¬·¢ÏÖ¶ÔÓÚС³ÌÐò£¬´úÂëÁ¿»á´ó·ù¶ÈÔö¼Ó£¬µ«ÊÇÂß¼­ÇåÎú£¬Êý¾Ý·â×°ºÜºÏÀí£¬ÒÔǰÐèÒª×Ðϸ¹æ»®µÄ´úÂ븴Óþ¹È»³ÉÁËÀíËùµ±È»µÄÊÂÇé¡£
ËùνMVC£¬¼´Model£¨Ä£ÐÍ£©£¬View£¨ÊÓͼ£©£¬Control£¨¿ØÖÆ£©Èý²ã¼Ü¹¹¡£¸÷²¿·Ö¸÷˾ÆäÖ°£¬Model¼´µ×²ã¹¹¼Ü£¬°üº¬ÓëÊý¾Ý¿âÁ¬½ÓµÄ²¿·Ö£¬View ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ