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

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

aspÁ¬½ÓaccessºÍmssqlµÄÍòÄÜ´úÂ룺
'½â¾öÁË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
'***********************Êý¾Ý¿âÉèÖôíÎó*****************
Response.Write"Êý¾Ý¿âÉèÖôíÎó£¬ÇëÁªÏµ¹ÜÀíÔ±£¡"
Response.End
End If
'Response.Write StrConn


Ïà¹ØÎĵµ£º

ASPµÄÄÇЩ¶«Î÷£¨Ò»£©

¿Í»§¶Ë½Å±¾£º<script language="scriptlanguage"></script>
·þÎñÆ÷¶Ë½Å±¾£º<% ......%>
VbscriptÊÇvisual basicµÄÒ»¸ö×Ó¼¯£¬ËäÈ»ÏÞÖÆÁË¿ÉÒÔʹÓõÄÄÚÖú¯ÊýµÄÊýÁ¿£¬µ«ÊÇҲʹµÃËû·Ç³£Ð¡ÇÉ£¬´Ó¶øÌá¸ßÁË¿ÉÒÆÖ²ÐÔ
VariantÊÇvbscriptµÄΨһÊý¾ÝÀàÐÍ£¬ÓÐ13ÖÖ×ÓÀàÐÍ£º
Empty,Null,Boolean,Byte,Integer,Curre ......

ASPÖÐSplitº¯ÊýµÄʵÀý

´ó¼ÒÓÐÅöµ½¹ýÒªÏëȡһ×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵϰ£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
ÎÒÏȽéÉÜÒ»ÏÂSplitº¯ÊýµÄÓ÷¨:
·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¼ÙÉè±äÁ¿strURL±£´æ×ÅURLÖµ£¬ÈçstrURL = "ftp://username ......

ASPÀàµÄ±àд

ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØÖ¸Ê¹ÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......

ASPÈçºÎÁ¬½ÓÊý¾ÝÔ´£¿(ϵͳDSN)Öн¨Á¢µÄÊý¾ÝÔ´£¿

ASPÈçºÎÁ¬½ÓÊý¾ÝÔ´£¿(ϵͳDSN)Öн¨Á¢µÄÊý¾ÝÔ´£¿
ASPÔõô½¨Á¢Á¬½Ó£¬²»ÊÇOLEDB·½Ê½£¬ÓÃODBCÖеēÓû§DSN”½¨Á¢µÄÊý¾ÝÔ´½øÐÐÁ¬½Ó£¿ÈçºÎ²Ù×÷£¿
ÎÊÌâ²¹³ä£ºÎÒµÄÊÇODBCÖеēÓû§DSN”²»ÊǓϵͳDSN”£¬“Óû§DSN”ÔõôÁ¬½Ó£¿¶øÇÒÎÒµÄÊý¾Ý¿âÓÐÃÜÂë¡£
ÌáÎÊÕߣºÄäÃû
×î¼Ñ´ð°¸
Set co ......

ASP.Net ºÍ ASPÓÐÊ²Ã´Çø±ð£¿

Ê×ÏÈ£¬ËûÃǵÄÔËÐлúÖÆ²»Í¬¡£aspÊÇÊôÓÚÒ»ÖÖ½âÊÍÐ͵Ŀò¼Ü£¡ÊǽâÊÍÖ´Ðеģ¬Êǽű¾¡£asp.netÊDZàÒëÐ͵ģ¡×îÖÕ»á±à³Ì¶þ½øÖƵĻúÆ÷´úÂë¡£´ÓÕâÒ»µãÀ´Ëµ£¬asp.netÖ´ÐÐЧÂÊÉÏÒª±Èasp¸ß£¡
Æä´Î£¬aspÖ»ÔÊÐíʹÓÃjs»òÕßvbs¡£¶øasp.netÔò²»Ò»Ñù£¬Ö»Òª·ûºÏ¹«¹²ÓïÑÔÔËÐÐ¿â¹æ·¶µÄÓïÑÔ£¬¶¼¿ÉÒÔʹÓã¡´ÓÕâÒ»µãÉÏÀ´Ëµ£¬aspÔڵײã²Ù×÷ÉϽÏasp.ne ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ