ʹÓÃ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_
Ïà¹ØÎĵµ£º
×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.Õ ......
<%
DirName="html\" '¾²Ì¬Îļþ±£´æµÄĿ¼£¬½áβӦ´ø"\"
foxrax=Request("foxrax")
if foxrax="" then
FileName=GetStr()&".html"
FileName=replace(FileName,"/","")'Ìæ»»×Ö·û
FileName=replace(FileName,"?","&qu ......
conndb.asp
<%
Session.CodePage=65001
response.Charset="utf-8"
%>
<%
'Êý¾Ý¿âÁ¬½ÓÎļþ
dim conn
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("../date/#heihuhuhuajian.mdb")+";Jet OLEDB:Database Pass ......
<%
set rs=server.CreateObject("adodb.recordset")
ids=""
call lids(keys)
ids=keys&ids
sql="select id,title,pic_xiao,content from "&tables&" where lid in("&ids&") "
......
fixÊÇbmpµÄÒ»ÖÖÑÜÉú¸ñʽ£¬¿ÉÓÃÓÚaspÉú³ÉÑéÖ¤ÂëͼÐΡ£
Ò»¸öÀý×Ó£º
1 ͼÏó»æÖÆÍê³Éºó£¬½«Îļþ´æÎª24λλͼ¸ñʽµÄBMPͼÏóÎļþ¡£
2 È¥³ýǰ54ByteÄÚÈÝ.
3 ¸ÄÃûΪBODY+Êý×Ö.FIX
4 ÐÞ¸ÄCHECKCODE.ASP,µ÷ÓÃÄãÐÂ×öµÄÕâ¸öÎļþ.
£¨checkcode.asp ¸ºÔðÉú³ÉºÍÊä³öÑéÖ¤Âë 1309 byte£¬head.fix ÊÇ54byteµÄBMPÍ·£¬body.fix Êý×Ö0~9 10 ......