ʹÓÃAsp²Ù×÷Êý¾Ý¿â
1£®Í¨¹ýODBC»òÕßOLE·½Ê½Á¬½ÓµÄÇø±ð£¿
ÏÖÔÚÓÐÁ½ÖÖÁ¬½ÓÊý¾Ý¿âµÄ·½·¨¡£Ò»·½Ã棬¿ÉÒÔÓÃODBC²úÉúÒ»¸öÁ¬½Ó£¬ÕâÖÖÁ¬½ÓÓëÈκÎÓÐODBCÇý¶¯Æ÷µÄÊý¾Ý¿â£¨¼´»ù±¾ÉÏÊÇÊг¡ÉÏËùÓеÄÊý¾Ý¿â£©¼æÈÝ£»ÁíÒ»·½Ã棬¿ÉÒÔÓÃÔʼOLE DBÌṩÉ̲úÉúÒ»¸öÁ¬½Ó¡£
¸ÃÓÃÄĸöÌṩÉÌ£¿¾¡¿ÉÄÜÓÃÔʼOLE DBÌṩÉÌ£¬ÒòΪËüÌṩÁ˶ÔÊý¾Ý¸üÓÐЧµÄ·ÃÎÊ¡£MicrosoftÕýÖð²½ÓÃOLE DBÈ¡´úODBC±ê×¼£¬Ó¦¸Ã½ö½öÔÚûÓÐÔʼOLE DBÌṩÉÌʱʹÓÃODBC¡£
¢Å£®ÓÃODBC·½Ê½Á¬½ÓSQL Server£º
¢Ù£®ÅäÖÃODBC
¢Ú£®Á¬½Ó´úÂ룺
conn_odbc.asp
£¼%
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "DSN=course_dsn;UID=course_user;PWD=course_password;DATABASE=course"
Conn.Open "course_dsn","course_user","course_password"
%£¾
×¢Ò⣺ÔÚÅäÖÃMyDSNʱÈôÖ¸¶¨Ä¬ÈÏÊý¾Ý¿âΪcourseÔòÉÏÊö´úÂë×÷ÓÃÏëͬ£¬·ñÔòµÚ¶þÐеÄÁ¬½Ó·½Ê½¸üÓÐÁé»îÐÔ£¬¿ÉÒÔÖ¸¶¨Á¬½Óij¸öÊý¾Ý¿â£¨µ±È»£¬Ç°ÌáÊÇcourse_user¶ÔÕâ¸öÊý¾Ý¿âÓвÙ×÷ȨÏÞ£©¡£
¢Æ£®ÓÃOLE·½Ê½Á¬½ÓSQL Server£º
conn_ole.asp
£¼%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=10.1.43.238,2433; UID=course_user;PWD=course_password;DATABASE=course"
%£¾
2£®²Ù×÷Êý¾Ý¿â£ºConnectionºÍRecordset
ÁªºÏʹÓÃconnectionºÍrecordset²Ù×÷Êý¾Ý¿â£¬»òÕßֻʹÓÃconnection²Ù×÷Êý¾Ý¿â¡£
Àý×Ó£º
¢Å£®ÁªºÏʹÓÃconnectionºÍrecordset²Ù×÷Êý¾Ý¿â
use_db_1.asp
£¼%
Set conn=Server.CreateObject("ADODB.Connection") '´´½¨Á¬½ÓÊý¾Ý¿âµÄ¶ÔÏó
conn.Open "course_dsn","course_user","course_password" 'ʹÓøöÔÏóÁ¬½ÓÊý¾Ý¿â
Set rs=Server.CreateObject("ADODB.RecordSet") '´´½¨¼Ç¼¼¯¶ÔÏó
rs.Open "select * from user_info",conn,1,1 'ʹÓüǼ¼¯¶ÔÏó´ò¿ªÊý¾Ý¿â
if rs.recordcount£¾0 then 'Èç¹ûÓмǼ
response.write "User_id User_name<br£¾"
for i=1 to rs.recordcount 'Ñ»·¶ÁÈ¡ËùÓмͼ
response.write rs("id")&" "&rs("user_name")&"<br£¾"
'Ïòä¯ÀÀÆ÷Êä³ö¼Í¼µÄ×Ö¶Î
rs.movenext 'Ö¸ÕëÏÂÒÆÒ»ÐÐ
if rs.eof then exit for 'Èç¹ûµ½´ï¼Ç¼¼¯µ×²¿ÔòÍ˳öÑ»·
next
end if
%£¾
Ч¹û£º
User_
Ïà¹ØÎĵµ£º
ÎÒдÁ˸ö³ÌÐò£¬±¾µØÔËÐÐÍêÈ«Õý³££¬ÉÏ´«µ½·þÎñÆ÷ÔÚ·þÎñÆ÷ÉϲÙ×÷ÓÐʱºòÄÜÕý³£²Ù×÷£¬µ«ÊÇÔËÐÐÒ»»á¶ù¾Í·þÎñÆ÷Á¬½Ó³¬Ê±£¬È»ºó¾Í²»ÄÜÕý³£²Ù×÷ÁË£¬¹Ø±ÕÍøÒ³£¬´ò¿ª»¹ÊDz»ÄÜÁ¬½ÓÊý¾Ý¿â²Ù×÷£¬µÈ°ëСʱºó»òÕ߸ü¾ÃÓÖÄÜÕý³£ÁË£¬ÇëÎÊÕâ¸öÊÇÔõô»ØÊ£¿±¾µØËæʱ¶¼ÄÜÕý³£ÔËÐÐÇÐÕÒ²»³öÈκÎÎÊÌâ¡£¸ßÊÖ°ï°ïæ°¡£¡ ......
<%
DirName="html\" '¾²Ì¬Îļþ±£´æµÄĿ¼£¬½áβӦ´ø"\"
foxrax=Request("foxrax")
if foxrax="" then
FileName=GetStr()&".html"
FileName=replace(FileName,"/","")'Ìæ»»×Ö·û
FileName=replace(FileName,"?","&qu ......
<%@ Language="VBScript" %>
<%' Option Explicit %>
<%
'²»Ê¹ÓÃÊä³ö»º³åÇø£¬Ö±½Ó½«ÔËÐнá¹ûÏÔʾÔÚ¿Í»§¶Ë
Response.Buffer = False
'ÉùÃ÷´ý¼ì²âÊý×é
Dim ObjTotest(26,4)
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = ......
<%
'ÏÂÃæÊÇ×î¾ß¼¼Êõº¬Á¿µÄº¯ÊýÁË£¬¹þ¹þ~
'Ôö¼ÓÊý¾Ý¿â×Ö¶Î
function addziduan(ziduanming,ziduanleixing)
on error resume next
fldname = ziduanming
if ziduanleixing=1 or ziduanleixing=4 then
fldtype = "VarChar"
fldsize = 255
elseif ziduanleixing=2 or ziduanleixing=3 then
fldtyp ......
¿Í»§¶Ë´úÂ룺
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Ê ......