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

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 µÄ°¡¡£¡


Ïà¹ØÎÊ´ð£º

asp³õѧÎÊÌâ¡£responseÕÒ²»µ½

<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......

ÎÒÊÇÒ»ÃûASP´¦Ñ§Õߣ¡ÏëÇë°ïÃ¦ÍÆ¼öÒ»±¾ASPºÃµÄÊé¼®

ÎÒÔ­±¾ÊÇѧjspµÄ¿ÉÕÒÁËÒ»¸öASPµÄ¹«Ë¾£¡ÎÒÒªÖØÐÂѧϰ£¡ ѧϰASP£¡ Ï£Íû´ó¼ÒÍÆ¼öÒ»±¾ºÃÊ鏸ÎÒлл
<ASP3.0¸ß¼¶±à³Ì> ÍøÉÏÓеç×Ó°æµÄ

·¢ÏÖÍøÉÏaspÐÅϢʱ×î¶àµÄ ±ÈÆäËûµÄ¶¼¶àºÃ¶à

yun

ÕÒ±¾ÓÐÓ¦ÓÃÊÂÀýµÄA ......

ASP網頁ÖÐÈ¡µÃµÇ陸µÄÓÃ戶Ãû

ÎÒµÄ網頁´ú碼為ASP語ÑÔ,驗證·½Ê½為ϵ統×Ô帶µÄWINDOW驗證ģʽ.

現ÔÚÎÒÈç¹ûÒªÔÚASP´ú碼ÖÐ獲È¡當ǰµÄµÇÈëÈË ......

ÈýÄêASP¿ª·¢¿ª·¢¾­Ñé,ÏÖÔÚÕÒ¹¤×÷,,,

±¾ÈËÓÐÈýÄ꿪·¢¾­Ñé,ÏÖÔÚÕÒ¹¤×÷(ÏÃÃÅ),,,ÓÐÒâÕßÇëÁªÏµQQ:523054271
1.5Ä깤×÷¾­ÑéÕÒ¹¤×÷ ËûÒª¶àÉÙ  ÎÒÒªÒ»°ë~~

±ð˵ÈýÄêµÄÁË...¾ÍÊÇ5ÄêµÄÒ²Ò»×¥Ò»´ó°Ñ.....

°³ÐèÒªÓÃasp+access×öÒ»¸ö½øÏú´æÈí¼þ£¬ÄúÄÜ×ö ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ