asp¸úAccessÊý¾ÝÁ¬½ÓÎÊÌâ¡£
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
SqlUsername = "sa" 'Ö÷Êý¾Ý¿âµÇ¼Óû§
SqlPassword = "" 'Ö÷Êý¾Ý¿âµÇ¼ÃÜÂë
SqlLocalName = "(local)" 'Êý¾Ý¿â·þÎñÆ÷£¬±¾»úÓá°(local)¡±
DbPath = "/wrunion/data/union.asp"
if IsSqlDataBase=1 then
TrueType = "1"
FalseType = "0"
SqlNowString = "GetDate()"
else
TrueType = "True"
FalseType = "False"
SqlNowString = "Now()"
end if
'Ö÷Õ¾Êý¾Ý¿âÁ´½Ó¹ý³Ì
Sub OpenConn()
if IsObject(Conn) then Exit Sub
if IsSqlDataBase=1 then
Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
else
Db.ConnValue="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
end if
Set Conn=Db.OpenConnection("Ö÷Êý¾Ý¿â")
End Sub
³öÏÖÖ÷Êý¾Ý¿âÁ´½Ó³ö´í£¬Çë¼ì²éÊý¾Ý¿âÁ´½Ó×Ö·û´®£¡
ÎÒ²»ÊÇÓÃÁËÁ½¸öÁ¬½ÓĪ¡£¡£ÓÐsql µÄÒ²ÓÐaccess µÄ°¡¡£¡
Ïà¹ØÎÊ´ð£º
ÎÒÃÇÓÐÒ»¸öÍøÕ¾Ä£°å£¬www.c111.com.cn,Ï£ÍûÐÞ¸ÄһЩµØ·½£º
1£©µã»÷×ó²à¡°·þÎñÆ·ÅÆ¡±µÄÆäÖÐÒ»¸öС·ÖÀ࣬Èç¡°×ãÇò¡±£¬½çÃæµÄÓÒ²à¾Í³öÏÖÈçwww.c111.com.cn/1.jpg£¬µã»÷1.jpgÉÏ·½µÄÆäÖÐÒ»¸öÆ·ÅÆlogo£¬ÏÂÃæ¾Í³öÏÖÏà¹ØµÄÍ ......
½¨ÁËÒ»¸öÕ¾µã£¬ÀïÃæÓÐ login.aspx. events.aspx µÈµÈ ÆäËûµÄÒ³Ãæ¡£
µ«ÊÇÎÒµ÷ÊÔ ÆäËûÒ³ÃæµÄʱºò£¬±Ä³öÀ´µÄ×ÜÊÇ login.aspx Ò³Ãæ¡£
¸Õѧasp ÇëÖ¸½Ì
ÄãÉèÖÃÆðʼҳÁ˰ɡ£¡£
¶÷ÔõôȡÏûÄØ£¿
Òªµ ......
ÎÒ°ïѧУ×öÁËÒ»¸öÕ¾£®
ÔÚÐ£Ô°ÍøµÄÇé¿öÏ£¬Äܹ»µÇ½³É¹¦£¬ºǫ́ÕʺŶ¼ÄÜͨ¹ý£¬½øÈëºǫ́
µ«ÊÇÔÚÍâÍø£Á£ÄµÄÇé¿öÏ£¬Äܹ»µÇ½ºǫ́µÄÒ³Ãæ£¬Ò³ÃæÊÇ£Á£Ó£ÐÎļþ£®
µ«ÊÇÊäÈëÕʺźÍÃÜÂëµÄʱºò£¬ÍøÒ³ÔËÐкܾö¼ ......
ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏß±à¼Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏß±à¼Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......