aspÍøÕ¾´ÓACCESSתSQLSERVER
Ç°¼¸ÌìΪÖÆ×÷Ò»¸öÍøÕ¾£¬ÐèÒª´ÓACCESSתÖÁSQLSERVER£¬´ÓÍøÕ¾Éϲ鿴Á˺ܶàµÄ×ÊÁÏ£¬µ«¾õµÃûÓÐÒ»¸öÄܹ»È«Ã渲¸ÇÒªµãµÄ£¬ËùÒÔÎÒ×ܽáһϣ¬Ë³±ã
¸ø³öһЩ¾Ñé¡£
Ê×ÏÈÈç¹ûÒ»¿ªÊ¼¾ÍÐèÒªÖÆ×÷SQLSERVERµÄÍøÕ¾£¬ÄÇô×îºÃ½«ÄãµÄ°®»ú×°ÉÏWINDOWS2000»òÕß2003ÕâÑùµÄSERVER°æ£¬ÕâÑùµÄ°æ±¾ÊÇÖ§³Ö
SQLSERVERÕýʽ°æµÄ°²×°µÄ£¬¶øXPÖ»ÄÜÖ§³Ö¸öÈË°æ»òÕß¿ª·¢°æ£¬ÎÒûÓÐ×°¹ý£¬µ«¶ÔÓÚµ÷ÊÔÍøÕ¾¶øÑÔ×îºÃ»¹ÊÇÔÚÕýʽ°æϹ¤×÷£¬×ª»¯µÄÕû¸ö¹ý³Ì²»ËãÌ«¸´
ÔÓ£¬µ«ÖÁÉÙ¿ÉÒÔÊ¡ÏÂһЩ¾«Á¦¡£Îҵİ®»úÊÇXP£¬ËùÒÔÖ»ºÃÏÈÓÃACCESSµ÷ÊÔ¡£
ºÃÁË£¬µ±ÄãÕÒµ½Ò»Ì¨×°ÓÐSQLSERVERµÄ»úÆ÷ʱ£¬Äã±ã¿ÉÒÔ¿ªÊ¼×ª»»²¢µ÷ÊÔÁË¡£
1¡£ÏÈÀûÓÃת»¯Èí¼þ£ºCooSel2.0 CreateSQL
V1.05£¬ÎÒÓõÄÕâ¸ö£¬·Ç³£ºÃÓ᣾ßÌå²Ù×÷µÄ»°£¬ÎÒÓõÄÊÇÉú³ÉÉýǨSQL½Å±¾£¬±£´æΪ
*.sqlÎļþºó£¬ÔÚSQL2000µÄ²éѯ·ÖÎöÆ÷Àïµ÷ÈëÖ´ÐС£¶øSQLSERVERµÄ¾ßÌå²Ù×÷Ôڴ˲»±ã׸Êö¡£ÕâÑù£¬ÄãµÄÊý¾Ý¿â¾Íת»¯³ÉÁËMSSQLÊý¾Ý¿â
2¡£¶Ôasp¶øÑÔ£¬Ê×ÏÈÊÇÊý¾Ý¿âÁ¬½ÓÎļþµÄÐ޸ģºÕâµã¿ÉÒԲο¼¶¯ÍøÂÛ̳µÄconn.asp
Dim ConnStr
'sqlÊý¾Ý¿âÁ¬½Ó²ÎÊý£ºÊý¾Ý¿âÃû¡¢Óû§ÃÜÂë¡¢Óû§Ãû¡¢Á¬½ÓÃû£¨±¾µØÓÃlocal£¬ÍâµØÓÃIP£©
Dim
SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName =
"dvbbs7" 'Êý¾Ý¿âÃû³Æ
SqlPassword = "" 'Êý¾Ý¿âÃÜÂë
SqlUsername =
"dvbbs" 'Êý¾Ý¿âÓû§Ãû
SqlLocalName = "(local)"
ConnStr =
"Provider = Sqloledb; User ID = " & SqlUsername & "; Password = "
& SqlPassword & "; Initial Catalog = " & SqlDatabaseName
& "; Data Source = " & SqlLocalName & ";"
On Error Resume
Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open
ConnStr
¼´Ö»ÐèÒªÐÞ¸ÄÊý¾Ý¿âÃû³Æ¡¢Óû§ÃûºÍÃÜÂë¼´¿É¸²¸ÇÔÀ´µÄACCESSÁ¬½Ó·½·¨²¢Ê¹Óá£Èç¹ûÄãµÄÍøվͬʱ°üº¬Á˶¯ÍøÂÛ̳£¬Ôò¿É¸ù¾Ý1¡£µÄ²Ù×÷½«¶¯ÍøµÄÊý
¾Ý¿âҲת»»³ÉSQLSERVER£¬ÖµµÃ³ÆµÀµÄÊÇ£º¶¯Íø¿¼ÂÇÁËACCESSºÍSQLSERVERÁ½ÖÖÊý¾Ý¿âµÄʹÓã¬Òò´ËÔÚÐÞ¸ÄASPÔ´´úÂëµÄʱºò²»ÐèÒª¶Ô¶¯
ÍøµÄÔ´´
Ïà¹ØÎĵµ£º
<%
for i=1 to rs.recordCount '±äÁ¿i´Ó1Ñ»·µ½Êý¾Ý¿âÖеÄÈ«²¿¼Ç¼Êý
if (i mod 1 =1) then 'ÿ¸ötr¼´Ã¿ÐÐÏÔʾ1¸ö¼Ç¼,¿É¸ù¾ÝÐèÒª×ÔÐÐÐÞ¸Ä, ½«×ó±ßµÄ1ÐÞ¸ÄΪ2¼´ÏÔʾÁ½ÐС£
response.write "<tr align='center'>"
end if
%>
´Ë´¦ÎªÒªÑ»·µÄÄÚÈÝ
<%if (i mod 1 = 0) then ......
Ìí¼Ó¡¢É¾³ý¡¢ÐÞ¸ÄʹÓÃ
db.Execute(Sql)ÃüÁîÖ´ÐвÙ×÷
╔----------------╗
¡î Êý¾Ý¼Ç¼ɸѡ ¡î
╚----------------╝
×¢Ò⣺µ¥Ë«ÒýºÅµÄÓ÷¨¿ÉÄÜÓÐÎó(ûÓвâʽ)
Sql = "Select
Distinct
×Ö¶ÎÃû from Êý¾Ý±í"
Distinctº¯Êý£¬²éѯÊý¾Ý¿â´æ±íÄÚ²»Öظ´µÄ¼Ç¼
......
<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
1¡£Éî²ã´ÎÀ´ËµÕâ²»ÊÇasp.net µÄÎÊÌ⣬¶øÊÇhtml form µÄsubmit °´Å¥¾ÍÊÇÈçºÎÉè¼Æ¡£
µ±ÄãµÄ¹â±ê½¹µã½øÈëij¸ö±íµ¥ÔªËصÄʱºò£¬»á¼¤»î¸Ã±íµ¥µÄµÚÒ»¸ö£¨
Á÷²¼¾Ö˳´Ó×óµ½ÓÒ£¬´ÓÉÏÖÁÏ£©
type=submit µÄ°´Å¥£¨¼ÙÈçÓУ©£¬µÈ´ýÏìÓ¦»Ø³µÊ¼þ£¬²¢Ìá½»¸Ãform
Äã¿ÉÒÔ²âÊÔһϴúÂë
<form action="">
<input type ="t ......
×î½üдվÄÚËÑË÷£¬ËùÒÔÑо¿ÁËÒ»ÏÂËã·¨£¬¸ÃËã·¨µÄÔÀíÈçͼÏÔʾ¡£
ÒÔÏÂÊÇÒ»¸öÓÃaspдµÄ¼òµ¥µÄ·Ö´Ê³ÌÐòÖ÷ÒªµÄ´úÂ룬´Ê¿âÎÒÒѾÓÃaccess½¨Á¢ºÃÁË¡£
Èç¹ûҪעÖØЧÂÊ£¬MarLenµÄÑ¡È¡ºÜÊÇÖØÒª£¬·ñÔòЧÂÊ»áÊ®·ÖµÍÏ£¬ÕâÀïMarLenÎÒÑ¡È¡µÄÊÇ5¡£
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......