asp¾²Ì¬Éú³É£¬Î±¾²Ì¬
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!-- #include file="../configinc/conndb.asp"-->
<!--#include file="../configinc/function.asp"-->
<%
keys=request.QueryString("keys")
dim objXmlHttp,binFileData,objAdoStream
if request("action")="index" then
call indexhtml()
response.Write "ÒѸüРÊ×Ò³ Ò³Ãæ£¡"&"<br>"
elseif request("action")="message" then
call messagehtml()
response.Write "ÒѸüРÔÚÏßÁôÑÔ Ò³Ãæ£¡"&"<br>"
else
'============================ÁбíÒ³¿ªÊ¼======================================
ids=""
call lids(keys)
ids=keys&ids
set rsf=server.CreateObject("adodb.recordset")
rsf.open "select id from "&tables&" where lid in("&ids&") order by shijian desc",conn,1,1
do while not rsf.eof
strOut=ReadfromUTF(Server.MapPath("../")&"\asp\show_"&keys&".htm","utf-8")
'¶ÁÈ¡Êý¾ÝÐÅÏ¢
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select site from "&table&" where id="&keys&" ",conn,3,3
left_site=rs1("site")
rs1.close
set rs1=nothing
'ûÓзÖÀàµÄ×ó±ßÏÔʾ
leftxx=""
if shangjis(keys)=99 then
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select id,title from "&tables&" where lid="&keys&" ",conn,3,3
do while not rs1.eof
leftxx=leftxx&left_site
leftxx=Replace(leftxx,"{left_id}",rs1("id"))
leftxx=Replace(leftxx,"{left_title}",rs1("title"))
Ïà¹ØÎĵµ£º
Ê×ÏÈ£¬Ò»°ã²Ù×÷ϵͳĬÈϾù²»°²×°IIS·þÎñ£¬Òò´Ë±ØÐëÏȰ²×°IIS·þÎñ¡£°²×°¹ý³ÌÖУ¬ÐèÒªÓõ½²Ù×÷ϵͳµÄ°²×°ÅÌ£¬ÓÐЩϵͳ»¹ÐèÒªÌØ¶¨°æ±¾µÄ²¹¶¡¡£±ÈÈçXPÐèÒªSP2¡£
´Ë´¦²»ÔÙ½éÉÜÍøÕ¾µÄÊôÐÔÅäÖã¬ÒòΪÓÐÖî¶àµÄÎÄÕ¶¼»á½«Õâ·½ÃæµÄÄÚÈÝ¡£
1¡£VISTA HOME BASIC
²»Äܰ²×°IIS·þÎñ
2¡£WINDOWS XP
ÐèҪȷ±£ÔÚASPÍøÕ¾Ä¿Â¼µÄ°²È ......
Active Server Pages ÌṩÄÚ½¨¶ÔÏó£¬ÕâЩ¶ÔÏóʹÓû§¸üÈÝÒ×ÊÕ¼¯Í¨¹ýä¯ÀÀÆ÷ÇëÇó·¢Ë͵ÄÐÅÏ¢¡¢ÏìÓ¦ä¯ÀÀÆ÷ÒÔ¼°´æ´¢Óû§ÐÅÏ¢£¨ÈçÓû§Ê×Ñ¡Ï¡£±¾ÎļòҪ˵Ã÷ÿһ¸ö¶ÔÏó¡£
Application ¶ÔÏó
¿ÉÒÔʹÓà Application ¶ÔÏóʹ¸ø¶¨Ó¦ÓóÌÐòµÄËùÓÐÓû§¹²ÏíÐÅÏ¢¡£
Request ¶ÔÏó
¿ÉÒÔʹÓà Request ¶ÔÏó·ÃÎÊÈκÎÓà HTTP ÇëÇó ......
ÎÒдÁ˸ö³ÌÐò£¬±¾µØÔËÐÐÍêÈ«Õý³££¬ÉÏ´«µ½·þÎñÆ÷ÔÚ·þÎñÆ÷ÉϲÙ×÷ÓÐʱºòÄÜÕý³£²Ù×÷£¬µ«ÊÇÔËÐÐÒ»»á¶ù¾Í·þÎñÆ÷Á¬½Ó³¬Ê±£¬È»ºó¾Í²»ÄÜÕý³£²Ù×÷ÁË£¬¹Ø±ÕÍøÒ³£¬´ò¿ª»¹ÊDz»ÄÜÁ¬½ÓÊý¾Ý¿â²Ù×÷£¬µÈ°ëСʱºó»òÕ߸ü¾ÃÓÖÄÜÕý³£ÁË£¬ÇëÎÊÕâ¸öÊÇÔõô»ØÊ£¿±¾µØËæÊ±¶¼ÄÜÕý³£ÔËÐÐÇÐÕÒ²»³öÈκÎÎÊÌâ¡£¸ßÊÖ°ï°ïæ°¡£¡ ......
¡¡1.¼Ç¼¼¯¹Ø±Õ֮ǰÔٴδò¿ª:
¡¡¡¡------------------------------------
¡¡¡¡sql="select * from test"
¡¡¡¡rs.open sql,conn,1,1
¡¡¡¡if not rs.eof then
¡¡¡¡dim myName
¡¡¡¡myName=rs("name")
¡¡¡¡end if
¡¡¡¡sql="select * from myBook"
¡¡¡¡rs.open sql,conn,1,1
¡¡¡¡------------------------------------ ......