1.ASPÁ¬½ÓAccessÊý¾Ý¿â
<%
dim conn,mdbfile
mdbfile=server.mappath("Êý¾Ý¿âÃû³Æ.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=Êý¾Ý¿âÃÜÂë;dbq="&mdbfile
%>
2. ASPÓëSQLÊý¾Ý¿âÁ¬½Ó£º
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL·þÎñÆ÷Ãû³Æ»òIPµØÖ·;UID=sa;PWD=Êý¾Ý¿âÃÜÂë;DATABASE=Êý¾Ý¿âÃû³Æ
%>
½¨Á¢¼Ç¼¼¯¶ÔÏó£º
Set rs=server.createobject("adodb.recordset")
rs.open SQLÓï¾ä,conn,3,2
3. SQL³£ÓÃÃüÁîʹÓ÷½·¨£º
(1) Êý¾Ý¼Ç¼ɸѡ£º
sql="select * from Êý¾Ý±í where ×Ö¶ÎÃû=×Ö¶ÎÖµ order by ×Ö¶ÎÃû "
sql="select * from Êý¾Ý±í where ×Ö¶ÎÃû like ‘%×Ö¶ÎÖµ%‘ order by ×Ö¶ÎÃû "
sql="select top 10 * from Êý¾Ý±í where ×Ö¶ÎÃû order by ×Ö¶ÎÃû "
sql="select * from Êý¾Ý±í where ×Ö¶ÎÃû in (‘Öµ1‘,‘Öµ2‘,‘Öµ3‘)"
sql="select * from Êý¾Ý±í where ×Ö¶ÎÃû between Öµ1 and Öµ2"
(2) ¸üÐÂÊý¾Ý¼Ç¼ ......
ASPÁ¬½ÓÊý¾Ý¿â
¡¡¡¡ASPÁ¬½Ó11ÖÖÊý¾Ý¿âÓï·¨×ܽá
¡¡¡¡¾³£Ê¹Óõ½ÓйØÊý¾Ý¿âµÄ²Ù×÷¡£°üÀ¨Á¬½Ó´úÂë¡¢SQLÃüÁîµÈµÈ£¬ÓÖ²»Ôø¿ÌÒâÈ¥¼ÇÒäËüÃÇ£¨ÎÒ±¾ÈËÊDz»Ô¸ÒâÈ¥¼ÇÕâ¶«¶«£©£¬ËùÒÔ³£³£ÔÚÓõ½µÄʱºòÓÖÈ¥²éÊé±¾£¬·À´·È¥¡£Ò»Ð©±È½ÏÉÙÓõÄÊý¾Ý¿â»¹²»Ò»¶¨ÄÜ˳ÀûÕÒµ½£¬ËùÒÔÏÖÔÚ°ÑËüÃÇÈ«¹éÄɵ½ÕâÀÌṩ´ó¼Ò²Î¿¼¡£
¡¡¡¡<Ò»>Êý¾Ý¿âµÄÁ¬½Ó·½·¨£º
¡¡¡¡1.AccessÊý¾Ý¿âµÄDSN-lessÁ¬½Ó·½·¨:
¡¡¡¡set adocon=Server.Createobject("adodb.connection")
¡¡¡¡adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
¡¡¡¡Server.MapPath("Êý¾Ý¿âËùÔÚ·¾¶")
¡¡¡¡2.Access OLE DBÁ¬½Ó·½·¨£º
¡¡¡¡set adocon=Server.Createobject("adodb.connection")
¡¡¡¡adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
¡¡¡¡"Data Source=" & Server.MapPath("Êý¾Ý¿âËùÔÚ·¾¶")
¡¡¡¡3.SQL serverÁ¬½Ó·½·¨£º
¡¡¡¡set adocon=server.createobject("adodb.recordset")
¡¡¡¡adocon.Open"Driver={SQL Server};Server=(Local);UID=***;PWD=***;"& _
¡¡¡¡"database=Êý¾Ý¿âÃû;"
¡¡¡¡4.SQL server OLE DBÁ¬½Ó·½·¨:
¡¡¡¡set adocon=Server.Createobject("adodb.connection")
......
·½·¨Ò»£º¼òµ¥£¬µÃ²»µ½²ÎÊý£¬Ö»ÓÐÒ»¸öÐéÄâ·¾¶
GetUrl =request("url")
ÀýÈ磺http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
»ñȡΪ:shiyan.asp
·½·¨¶þ£ºµÃµ½Õû¸öURL£¬µÃµ½²ÎÊý
'µÃµ½µ±Ç°Ò³ÃæµÄµØÖ·
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80   ......
<%
set conn=server.createobject("adodb.connection")
conn.connectionstring="PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=210.76.209.130;DATABASE=databasename;UID=sa;PWD=password;"
conn.open
%>
ÆäÖÐ 210.76.209.130 ¾ÍÊÇÔ¶³Ì·þÎñÆ÷µÄIP
¶þ¡¢ÎÒÓÃVBдÁ˸ö¹ÜÀíÈí¼þ,²¢²ÉÈ¡PINGÔ¶³Ì·þÎñÆ÷ÓòÃûµÄ·½·¨»ñȡԶ³Ì·þÎñÆ÷µÄIP,·þÎñÆ÷¶ËʹÓÃÁË»¨Éú¿ÇÈí¼þ,µ«ÎÞÂÛÔõôÑù¶¼ÊÇÊý¾Ý¿âÎÞ·¨·ÃÎʵÄÌáʾ,»¹ÓÐÎÒÔÚ³ÌÐòÀïµ÷ÓÃÁËPING³öµÄ·þÎñÆ÷IP,Ææ¹ÖµÄÊÇÈç¹ûÎÒ±¾µØSQL·þÎñÆô¶¯,³ÌÐò²»Ìáʾ³ö´í,ËäÈ»PING³öµÄIP²¢²»ÊÇÎÒ±¾»úµÄ,È´¿ÉÒÔÁ¬µ½ÎÒ±¾µØµÄSQLÊý¾Ý¿â,Èç¹ûÎҰѱ¾µØSQL·þÎñ¹Ø±Õ,¾ÍÄĸöÒ²Áª²»ÉÏÁË,ÇëÓоÑéµÄÅóÓѰï°ïÎÒ,¸æËßÎÒÔõô¿ÉÒÔʵÏ־ͿÉÒÔ.
£ººÃÏñÃâ·ÑµÄ¶þ¼¶ÓòÃû²»ÔÚÏßµÄʱºò½âÎö³öÀ´µÄÊDZ¾»úip127.0.0.1°É£¬Äã¿ÉÒÔÊÔÊÔÓýðÍòάµÄgnHost»òÕßÌìÁªÊÔÊÔ
Èý¡¢ÎҵIJÙ×÷ϵͳÊÇwin2003°²×°sqlserverÒÔºó,
ÔÚÔ¶³Ì»úµ÷ÓøûúÉϵÄÊý¾Ý¿â,ÿ´Î¶¼µÃÏÈÔÚ¿ªÊ¼ÔËÐÐÀïÊäÈë
\\192.168.1.18(ÎÒÕą̂»úÆ÷µÄIP)
È»ºóÊäÈëÓû§ÃûÃÜÂë²ÅÄÜÔÚ¿Í»§¶ËµÄ²éѯ·ÖÎöÆ÷Àï´ò¿ªsql server,
ÔÚÍøÉÏÕÒÁËÏÂ×ÊÁÏ˵ÊÇ×¢²á±íÀïµÄloginmodeÉèΪ2¾ÍÐÐÁË,¿ÉÊÇÎÒŪÁË»¹ÊDz»ÐÐ,
ÎÒʵÔÚŪ²»¶®ÁË ......
<%
set conn=server.createobject("adodb.connection")
conn.connectionstring="PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=210.76.209.130;DATABASE=databasename;UID=sa;PWD=password;"
conn.open
%>
ÆäÖÐ 210.76.209.130 ¾ÍÊÇÔ¶³Ì·þÎñÆ÷µÄIP
¶þ¡¢ÎÒÓÃVBдÁ˸ö¹ÜÀíÈí¼þ,²¢²ÉÈ¡PINGÔ¶³Ì·þÎñÆ÷ÓòÃûµÄ·½·¨»ñȡԶ³Ì·þÎñÆ÷µÄIP,·þÎñÆ÷¶ËʹÓÃÁË»¨Éú¿ÇÈí¼þ,µ«ÎÞÂÛÔõôÑù¶¼ÊÇÊý¾Ý¿âÎÞ·¨·ÃÎʵÄÌáʾ,»¹ÓÐÎÒÔÚ³ÌÐòÀïµ÷ÓÃÁËPING³öµÄ·þÎñÆ÷IP,Ææ¹ÖµÄÊÇÈç¹ûÎÒ±¾µØSQL·þÎñÆô¶¯,³ÌÐò²»Ìáʾ³ö´í,ËäÈ»PING³öµÄIP²¢²»ÊÇÎÒ±¾»úµÄ,È´¿ÉÒÔÁ¬µ½ÎÒ±¾µØµÄSQLÊý¾Ý¿â,Èç¹ûÎҰѱ¾µØSQL·þÎñ¹Ø±Õ,¾ÍÄĸöÒ²Áª²»ÉÏÁË,ÇëÓоÑéµÄÅóÓѰï°ïÎÒ,¸æËßÎÒÔõô¿ÉÒÔʵÏ־ͿÉÒÔ.
£ººÃÏñÃâ·ÑµÄ¶þ¼¶ÓòÃû²»ÔÚÏßµÄʱºò½âÎö³öÀ´µÄÊDZ¾»úip127.0.0.1°É£¬Äã¿ÉÒÔÊÔÊÔÓýðÍòάµÄgnHost»òÕßÌìÁªÊÔÊÔ
Èý¡¢ÎҵIJÙ×÷ϵͳÊÇwin2003°²×°sqlserverÒÔºó,
ÔÚÔ¶³Ì»úµ÷ÓøûúÉϵÄÊý¾Ý¿â,ÿ´Î¶¼µÃÏÈÔÚ¿ªÊ¼ÔËÐÐÀïÊäÈë
\\192.168.1.18(ÎÒÕą̂»úÆ÷µÄIP)
È»ºóÊäÈëÓû§ÃûÃÜÂë²ÅÄÜÔÚ¿Í»§¶ËµÄ²éѯ·ÖÎöÆ÷Àï´ò¿ªsql server,
ÔÚÍøÉÏÕÒÁËÏÂ×ÊÁÏ˵ÊÇ×¢²á±íÀïµÄloginmodeÉèΪ2¾ÍÐÐÁË,¿ÉÊÇÎÒŪÁË»¹ÊDz»ÐÐ,
ÎÒʵÔÚŪ²»¶®ÁË ......
¡¡¡¡ÔÚASP±à³ÌµÄ¹ý³ÌÖУ¬»ñÈ¡µ±Ç°²Ù×÷µÄÎļþµÄÎļþÃû£¬ÊÇÒ»¸ö·Ç³£³£Óõ͝×÷£¬ASPºÃÏñûÓÐ×Ô¼ºÄÚÖú¯Êý£¬ËùÒÔÕâ¸ö²Ù×÷ÎÒÃÇÐèÒª×Ô¼º±àº¯ÊýÀ´Íê³É¡£½ñÌìÒ»¸öÀÏÅóÓÑÎÊÎÒÔõô×ö£¬ÎÒã¶ÁËһϣ¬»¹ÔÚÏëÓÐûÓÐÄÚÖú¯Êý£¬ÊµÔÚûÏëÆðÀ´£¬²»ÖªµÀÊÇÕæµÄûÓл¹ÊÇÎÒ²»ÖªµÀ¡£ºÇºÇ~²»¹ÜÁË£¬×îºóÎÒ»¹ÊÇ×Ô¼ºÐ´ÁËÒ»¸öСº¯ÊýÀ´Íê³ÉµÄ£¬²»¹ý²»ÊÇÎÒµÄÔ´´£¬ÍüÁËÔÚÄĶù¿´µ½µÄ·½·¨£¬Ò»Ö±¼ÇÔÚÐÄÀï¡£
½éÉÜÒ»ÏÂInstrRevº¯Êý
InstrRevº¯Êý£º´Ó×Ö·û´®µÄ×îºóÒ»¸ö×Ö·ûËÑË÷Æð£¬ÏòÇ°ÃæÖð¸öËÑË÷Ç°Ãæ×Ö·û´®£¬·µ»Ø×Ö·ûÔÚ×Ö·û´®µ±Öеĵڼ¸Î»¡£
¾ÙÀýÀ´ËµÃ÷ÆäÓ¦Óãº
ASP/Visual Basic´úÂë
<%
Dim strTXT,pos
strTXT=www.baidu.com
pos=instrRev(strTXT,".")
Response.Write pos
%>
InstrRevº¯ÊýËÑË÷µÄÆðʼÊǵ¹Ðò£¬µ¹×ÅËÑË÷µ½comǰµÄÄǸö“.”¡£·µ»ØÕâ¸öµãÔÚ×Ö·û´®ÖеÄλÖ㬴Ó0¿ªÊ¼¼ÆÊý£¨ÀàËÆÊý×飩£¬Õâ¸öµãΪµÚ12룬ËùÒÔ·µ»ØµÄ½á¹û½«ÊÇ11¡£
ͨ¹ý´ËÔÀí£¬ÎÒÃDz»¹â¿ÉÒÔÈ¡µÃASPÒ³ÃæµÄÎļþÃû£¬»¹¿ÉÒÔ»ñÈ¡ÓòÃûºó׺ÃûµÈÐÅÏ¢£¬Ó¦Óû¹ÊDZȽϹ㷺µÄ¡£
ÏÂÃæÕ⼸¾ä´úÂë¾ÍÊÇʵÏÖ»ñÈ¡µ±Ç°ÎļþÃû£¨·Åµ½ASPÒ³ÃæÀ ......
´æ´¢½ø³Ì¾ÍÊÇ×÷Ϊ¿ÉÖ´ÐжÔÏó´æ·ÅÔÚÊý¾Ý¿âÖеÄÒ»¸ö»ò¶à¸öSQLÃüÁî¡£
¶¨Òå×ÜÊǺܳéÏó¡£´æ´¢½ø³ÌÆäʵ¾ÍÊÇÄÜÍê³ÉÒ»¶¨²Ù×÷µÄÒ»×éSQLÓï¾ä£¬Ö»²»¹ýÕâ×éÓï¾äÊÇ·ÅÔÚÊý¾Ý¿âÖеÄ(ÕâÀïÎÒÃÇ̸ֻSQL SERVER)¡£Èç¹ûÎÒÃÇͨ¹ý´´½¨´æ´¢½ø³ÌÒÔ¼°ÔÚASPÖе÷Óô洢½ø³Ì£¬¾Í¿ÉÒÔ±ÜÃ⽫SQLÓï¾äͬASP´úÂë»ìÔÓÔÚÒ»Æð¡£ÕâÑù×öµÄºÃ´¦ÖÁÉÙÓÐÈý¸ö£º
µÚÒ»¡¢´ó´óÌá¸ßЧÂÊ¡£´æ´¢½ø³Ì±¾ÉíµÄÖ´ÐÐËٶȷdz£¿ì£¬¶øÇÒ£¬µ÷Óô洢½ø³Ì¿ÉÒÔ´ó´ó¼õÉÙͬÊý¾Ý¿âµÄ½»»¥´ÎÊý¡£
µÚ¶þ¡¢Ìá¸ß°²È«ÐÔ¡£¼ÙÈ罫SQLÓï¾ä»ìºÏÔÚASP´úÂëÖУ¬Ò»µ©´úÂëʧÃÜ£¬Í¬Ê±Ò²¾ÍÒâζ×Å¿â½á¹¹Ê§ÃÜ¡£
µÚÈý¡¢ÓÐÀûÓÚSQLÓï¾äµÄÖØÓá£
ÔÚASPÖУ¬Ò»°ãͨ¹ýCOMMAND¶ÔÏóµ÷Óô洢½ø³Ì£¬¸ù¾Ý²»Í¬Çé¿ö£¬±¾ÎÄÒ²½éÉÜÆäËüµ÷Ó÷½·¨¡£ÎªÁË·½±ã˵Ã÷£¬¸ù¾Ý´æ´¢½ø³ÌµÄÊäÈëÊä³ö£¬×÷ÒÔϼòµ¥·ÖÀࣺ
1. Ö»·µ»Øµ¥Ò»¼Ç¼¼¯µÄ´æ´¢½ø³Ì
¼ÙÉèÓÐÒÔÏ´洢½ø³Ì(±¾ÎĵÄÄ¿µÄ²»ÔÚÓÚ½²ÊöT-SQLÓï·¨£¬ËùÒÔ´æ´¢½ø³ÌÖ»¸ø³ö´úÂ룬²»×÷˵Ã÷)£º
/*SP1*/
CREATE PROCEDURE DBO.GETUSERLIST
AS
SET NOCOUNT ON
BEGIN
SELECT * from DBO.[USERINFO]
END
GO
ÒÔÉÏ´æ´¢½ø³ÌÈ¡µÃUSERINFO±íÖеÄËùÓмǼ£¬·µ»ØÒ»¸ö¼Ç¼¼¯¡£Í¨¹ýCOMMAND¶ÔÏóµ÷Óøô洢½ø³ÌµÄASP´úÂëÈçÏÂ:
'**ͨ¹ýCOMMAND¶ÔÏóµ ......
´æ´¢½ø³Ì¾ÍÊÇ×÷Ϊ¿ÉÖ´ÐжÔÏó´æ·ÅÔÚÊý¾Ý¿âÖеÄÒ»¸ö»ò¶à¸öSQLÃüÁî¡£
¶¨Òå×ÜÊǺܳéÏó¡£´æ´¢½ø³ÌÆäʵ¾ÍÊÇÄÜÍê³ÉÒ»¶¨²Ù×÷µÄÒ»×éSQLÓï¾ä£¬Ö»²»¹ýÕâ×éÓï¾äÊÇ·ÅÔÚÊý¾Ý¿âÖеÄ(ÕâÀïÎÒÃÇ̸ֻSQL SERVER)¡£Èç¹ûÎÒÃÇͨ¹ý´´½¨´æ´¢½ø³ÌÒÔ¼°ÔÚASPÖе÷Óô洢½ø³Ì£¬¾Í¿ÉÒÔ±ÜÃ⽫SQLÓï¾äͬASP´úÂë»ìÔÓÔÚÒ»Æð¡£ÕâÑù×öµÄºÃ´¦ÖÁÉÙÓÐÈý¸ö£º
µÚÒ»¡¢´ó´óÌá¸ßЧÂÊ¡£´æ´¢½ø³Ì±¾ÉíµÄÖ´ÐÐËٶȷdz£¿ì£¬¶øÇÒ£¬µ÷Óô洢½ø³Ì¿ÉÒÔ´ó´ó¼õÉÙͬÊý¾Ý¿âµÄ½»»¥´ÎÊý¡£
µÚ¶þ¡¢Ìá¸ß°²È«ÐÔ¡£¼ÙÈ罫SQLÓï¾ä»ìºÏÔÚASP´úÂëÖУ¬Ò»µ©´úÂëʧÃÜ£¬Í¬Ê±Ò²¾ÍÒâζ×Å¿â½á¹¹Ê§ÃÜ¡£
µÚÈý¡¢ÓÐÀûÓÚSQLÓï¾äµÄÖØÓá£
ÔÚASPÖУ¬Ò»°ãͨ¹ýCOMMAND¶ÔÏóµ÷Óô洢½ø³Ì£¬¸ù¾Ý²»Í¬Çé¿ö£¬±¾ÎÄÒ²½éÉÜÆäËüµ÷Ó÷½·¨¡£ÎªÁË·½±ã˵Ã÷£¬¸ù¾Ý´æ´¢½ø³ÌµÄÊäÈëÊä³ö£¬×÷ÒÔϼòµ¥·ÖÀࣺ
1. Ö»·µ»Øµ¥Ò»¼Ç¼¼¯µÄ´æ´¢½ø³Ì
¼ÙÉèÓÐÒÔÏ´洢½ø³Ì(±¾ÎĵÄÄ¿µÄ²»ÔÚÓÚ½²ÊöT-SQLÓï·¨£¬ËùÒÔ´æ´¢½ø³ÌÖ»¸ø³ö´úÂ룬²»×÷˵Ã÷)£º
/*SP1*/
CREATE PROCEDURE DBO.GETUSERLIST
AS
SET NOCOUNT ON
BEGIN
SELECT * from DBO.[USERINFO]
END
GO
ÒÔÉÏ´æ´¢½ø³ÌÈ¡µÃUSERINFO±íÖеÄËùÓмǼ£¬·µ»ØÒ»¸ö¼Ç¼¼¯¡£Í¨¹ýCOMMAND¶ÔÏóµ÷Óøô洢½ø³ÌµÄASP´úÂëÈçÏÂ:
'**ͨ¹ýCOMMAND¶ÔÏóµ ......