aspÁ¬½ÓSQL2005 ³öÏÖ ÎÞЧµÄÁ¬½Ó(0x80004005) ´íÎó£¡
´íÎóÐÅÏ¢£º
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][Shared Memory]ÎÞЧµÄÁ¬½Ó¡£
/bbsxp/test.asp, µÚ 24 ÐÐ
»úÆ÷ÅäÖÃ:xp sp3 ,SQL 2005(vs2008 ×Ô´ø)¡£
²âÊÔ´úÂ룺
<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "(local)" 'SQLÊý¾Ý¿â·þÎñÆ÷µØÖ·
strUid = "sa" 'Êý¾Ý¿âÓû§Ãû
strPwd = "123456" 'Êý¾Ý¿âÃÜÂë
strDB = "bbsxp" 'Êý¾Ý¿âÃû
'On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "driver={sql server};server="&strServer&";uid="&strUid&";pwd="&strPwd&";database="&strDB
Conn.Open Connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write " <div id=""DBError"">Êý¾Ý¿â·þÎñÆ÷¶ËÁ¬½Ó´íÎó£¬ÇëÓëÍøÕ¾¹ÜÀíÔ±ÁªÏµ¡£ </div>"
Response.End
End If
%>
<
Ïà¹ØÎÊ´ð£º
×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ
VBScript code:
<%
set rs=server.Creat ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØͼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆλÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐÇ°20¸ö·Ö¸øµ ......
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
owc11Âú×ã²»ÁËÒªÇó£¬ÓÐûÓиüºÃµãµÄ£¬aspÄܵ÷ÓõÄ
Ŀǰû·¢ÏÖ£¬°ïÄ㶥£¡
Ó¦¸ÃûÓÐÁË°É
×ÔÒÑд¡£¶¥
°ï¶¥£¬¹Ø×¢£¡
ºÃÏñ¾ÍÕâ¸öÁË£¬Ä¿Ç°»¹Ã»¿´µ½ÆäËûµÃÉÏÊÐʹÓᣡ£¡£°ï¶¥£¡
×Ô¼ºÔÙ¶¥Ò»ÏÂ
ºÃÏñÊÇûÓÐ ......
http://www.zgjhjy.com/Test/PrimaryTest/Index.aspx
¾ÍÊÇÀàËÆÒÔÉϵÄÔÚÏß²âÊÔϵͳ£¬ÐèÒªÓÐÒ»¸öºǫ́µÄ£¬ÓïÑÔÊÇaspµÄ£¬Êý¾Ý¿âÊÇaccessµÄ£¬»¹ÐèÒªÄÜÔÚºǫ́¶ÔÐÅÏ¢½øÐÐÌíɾ¸Ä²éµÄ¡£Ð»Ð»¸÷λÁË¡£¡£¡£
³ÌÐòÕæµÄºÜ¶à£¬²»Öª ......