aspÊý¾Ý¿âÁ¬½Ó´úÂë
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 Password=;"
set conn=server.createobject("ADODB.CONNECTION")
On Error Resume Next
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "Êý¾Ý¿âÁ¬½Ó³ö´í£¬Çë¼ì²éÁ¬½Ó×Ö´®¡£"
Response.End
End If
%>
<%
'Êý¾Ý¿â±íÎļþ
'È«¾Ö±äÁ¿£¬·½±ã³ÌÐòµÄÕûÌå×ªÒÆ,Õ⼸¸ö±äÁ¿ÎªºËÐıäÁ¿¡£
dim table,tables,config
table="xinwen_fenlei" '¶¨Òå·ÖÀà±íµ¥µÄÃû³Æ
tables="news" '¶¨Òå´æ´¢Êý¾Ý±íµ¥µÄÃû³Æ
config="class_config" '¶¨Òå·ÖÀàÊôÐÔ±íµ¥µÄÃû³Æ
picwenzi="www.xx.cn" '¶¨ÒåˮӡͼƬµÄÎÄ×Ö
pickuandu=400 '¶¨ÒåËõÂÔͼµÄ¿í¶È
picgaodu=400 '¶¨ÒåËõÂÔͼµÄ¸ß¶È
pickuandu_xiao=105 '¶¨ÒåËõÂÔͼµÄ¿í¶È
picgaodu_xiao=100 '¶¨ÒåËõÂÔͼµÄ¸ß¶È
sites=""
%>
<%
'ÍøÕ¾»ù±¾ÐÅÏ¢ÏÔʾ
set rs_jiben=server.CreateObject("adodb.recordset")
rs_jiben.open "select * from site where id=1",conn,1,1
wznames=rs_jiben("title")
wzmiaoshu=rs_jiben("content")
wzkeys=rs_jiben("keys")
wztop=rs_jiben("top")
wzfoot=rs_jiben("foot")
rs_jiben.close
set rs_jiben=nothing
%>
Ïà¹ØÎĵµ£º
Ê×ÏÈ£¬Ò»°ã²Ù×÷ϵͳĬÈϾù²»°²×°IIS·þÎñ£¬Òò´Ë±ØÐëÏȰ²×°IIS·þÎñ¡£°²×°¹ý³ÌÖУ¬ÐèÒªÓõ½²Ù×÷ϵͳµÄ°²×°ÅÌ£¬ÓÐЩϵͳ»¹ÐèÒªÌØ¶¨°æ±¾µÄ²¹¶¡¡£±ÈÈçXPÐèÒªSP2¡£
´Ë´¦²»ÔÙ½éÉÜÍøÕ¾µÄÊôÐÔÅäÖã¬ÒòΪÓÐÖî¶àµÄÎÄÕ¶¼»á½«Õâ·½ÃæµÄÄÚÈÝ¡£
1¡£VISTA HOME BASIC
²»Äܰ²×°IIS·þÎñ
2¡£WINDOWS XP
ÐèҪȷ±£ÔÚASPÍøÕ¾Ä¿Â¼µÄ°²È ......
<% '--------------------------------------------------------------------------------------------------
Set rs9 = Server.CreateObject("ADODB.RecordSet")
sqlstr="select * from ¿Í»§×ÊÁÏ¿â order by id desc"
rs9.open sqlstr,conn,1,3
%>
<%Set fs = server.CreateObject( ......
¡¡¡¡1.1 ʲôÊÇASP.net
¡¡¡¡ASP.net ÊÇÒ»ÖÖ½¨Á¢ÔÚͨÓÃÓïÑÔÉϵijÌÐò¹¹¼Ü£¬Äܱ»ÓÃÓÚһ̨Web·þÎñÆ÷À´½¨Á¢Ç¿´óµÄWebÓ¦ÓóÌÐò¡£ASP.netÌṩÐí¶à±ÈÏÖÔÚµÄWeb¿ª·¢Ä£Ê½Ç¿´óµÄµÄÓÅÊÆ¡£
¡¡¡¡Ö´ÐÐЧÂʵĴó·ùÌá¸ß
¡¡¡¡ASP.netÊǰѻùÓÚͨÓÃÓïÑԵijÌÐòÔÚ·þÎñÆ÷ÉÏÔËÐС£²»ÏñÒÔǰµÄASP¼´Ê±½âÊͳÌÐò£¬¶øÊǽ«³ÌÐòÔÚ·þÎñÆ÷¶ËÊ×´ÎÔËÐÐʱ½øÐ ......
ÎÒдÁ˸ö³ÌÐò£¬±¾µØÔËÐÐÍêÈ«Õý³££¬ÉÏ´«µ½·þÎñÆ÷ÔÚ·þÎñÆ÷ÉϲÙ×÷ÓÐʱºòÄÜÕý³£²Ù×÷£¬µ«ÊÇÔËÐÐÒ»»á¶ù¾Í·þÎñÆ÷Á¬½Ó³¬Ê±£¬È»ºó¾Í²»ÄÜÕý³£²Ù×÷ÁË£¬¹Ø±ÕÍøÒ³£¬´ò¿ª»¹ÊDz»ÄÜÁ¬½ÓÊý¾Ý¿â²Ù×÷£¬µÈ°ëСʱºó»òÕ߸ü¾ÃÓÖÄÜÕý³£ÁË£¬ÇëÎÊÕâ¸öÊÇÔõô»ØÊ£¿±¾µØËæÊ±¶¼ÄÜÕý³£ÔËÐÐÇÐÕÒ²»³öÈκÎÎÊÌâ¡£¸ßÊÖ°ï°ïæ°¡£¡ ......
<%@ Language="VBScript" %>
<%' Option Explicit %>
<%
'²»Ê¹ÓÃÊä³ö»º³åÇø£¬Ö±½Ó½«ÔËÐнá¹ûÏÔʾÔÚ¿Í»§¶Ë
Response.Buffer = False
'ÉùÃ÷´ý¼ì²âÊý×é
Dim ObjTotest(26,4)
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = ......