ASP³ÌÐòÓëSQL´æ´¢¹ý³Ì½áºÏʹÓÃÏê½â
´æ´¢½ø³Ì¾ÍÊÇ×÷Ϊ¿ÉÖ´ÐжÔÏó´æ·ÅÔÚÊý¾Ý¿âÖеÄÒ»¸ö»ò¶à¸ö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¶ÔÏóµ÷Óô洢½ø³Ì**
DIM MYCOMM,MYRST
SET MYCOMM = SERVER.CREATEOBJECT("ADODB.COMMAND")
MYCOMM.ACTIVECONNECTION = MYCONSTR 'MYCONSTRÊÇÊý¾Ý¿âÁ¬½Ó×Ö´®
MYCOMM.COMMANDTEXT = "GETUSERLIST" 'Ö¸¶¨´æ´¢½ø³ÌÃû
MYCOMM.COMMANDTYPE = 4 '±íÃ÷ÕâÊÇÒ»¸ö´æ´¢½ø³Ì
MYCOMM.PREPARED = TRUE 'ÒªÇó½«SQLÃüÁîÏÈÐбàÒë
SET MYRST = MYCOMM.EXECUTE
SET MYCOMM = NOTHING
´æ´¢½ø³ÌÈ¡µÃµÄ¼Ç¼¼¯¸³¸øMYRST£¬½ÓÏÂÀ´£¬¿ÉÒÔ¶ÔMYRST½øÐвÙ×÷¡£
ÔÚÒÔÉÏ´úÂëÖУ¬COMMANDTYPEÊôÐÔ±íÃ÷ÇëÇóµÄÀàÐÍ£¬È¡Öµ¼°ËµÃ÷ÈçÏ£º
-1 ±íÃ÷COMMANDTEXT²ÎÊýµÄÀàÐÍÎÞ·¨È·¶¨
1 ±íÃ÷COMMANDTEXTÊÇÒ»°ãµÄÃüÁîÀàÐÍ
2 ±íÃ÷COMMANDTEXT²ÎÊýÊÇÒ»¸ö¾ßÓеıíÃû³Æ
4 ±íÃ÷COMMANDTEXT²ÎÊýÊÇÒ»¸ö´æ´¢½ø³ÌµÄÃû³Æ
»¹¿ÉÒÔͨ¹ýCONNECTION¶ÔÏó»òRECORDSET¶ÔÏóµ÷Óô洢½ø³Ì£¬·½·¨·Ö±ðÈçÏ£º
'**ͨ¹ýCONNECTION¶ÔÏóµ÷Óô洢½ø³Ì**
DIM MYCONN,MYRST
SET MYCONN = SERVER.CREATEOBJECT("ADODB.CONNECTION")
MYCONN.OPEN MYCONSTR 'MYCONSTRÊÇÊý¾Ý¿âÁ¬½Ó×Ö´®
SET MYRST = MYCONN.EXECUTE("GETUSERLIST",0,4) '×îºóÒ»¸ö²Î¶Ïº¬ÒåͬCOMMANDTYPE
SET MYCONN = NOTHING
'**ͨ¹ýRECORDSET¶ÔÏóµ÷Óô洢½ø³Ì**
DIM MYRST
SET
Ïà¹ØÎĵµ£º
SELECT EMP_ID,EMP_NO,LOGIN_NAME,EMP_NAME,SITE_CODE,DEPT_CODE,
JOB_DESC,HRMS_DEPT_CODE,MAIL_ACCOUNT,EXT_NO ,
(case when SITE_CODE='QCS' then 1 else 2 end) site
from dbo.AM_EMPLOYEE
WHERE ACTIVE = 'Y' AND EXT_NO = '6006'
order by site
ÏëÒªÔÚÔ±¹¤±íÖвé³öµç»°ºÅΪ6006µÄÔ±¹¤µÄÓ¢ÎÄÃûÀ´×÷ÎªÏµÍ³Ò³ÃæÉ ......
Public Function GetDataTable()
Dim myComm As New SqlClient.SqlCommand("SELECT cauth_id,cauth_name,igrade,csupauth_id,csupauth_name from MAIN_TREE01 ", sqlconnection1)
Dim sdapt As New SqlClient.SqlDataAdapter(myComm)
Dim ds As New DataSet
sdapt.Fill(ds)
R ......
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 c ......
ASPÁ¬½ÓÊý¾Ý¿â
¡¡¡¡ASPÁ¬½Ó11ÖÖÊý¾Ý¿âÓï·¨×ܽá
¡¡¡¡¾³£Ê¹Óõ½ÓйØÊý¾Ý¿âµÄ²Ù×÷¡£°üÀ¨Á¬½Ó´úÂë¡¢SQLÃüÁîµÈµÈ£¬ÓÖ²»Ôø¿ÌÒâÈ¥¼ÇÒäËüÃÇ£¨ÎÒ±¾ÈËÊ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Ô¶³Ì·þÎñÆ÷ÓòÃûµÄ ......