Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPÖÐÊ®´ó³£ÓóÌÐò´úÂë.£ºµÚÎå½Ú¡´ÎÒµÄÐĵáµ

ÀûÓÃASP´òÔìÍøÕ¾ÂÛ̳DIY(3)
    ¡¡¡¡2¡¢¹¹½¨ÎÄÕÂÏÔʾģ¿é
¡¡¡¡Ç°ÃæËµ¹ý£¬Ò»Æ¬¾ßÌåµÄÎÄÕÂÊÇ·ÖÊôÔÚ¿´°åºÍÖ÷Ìå֮ϵġ£Òò´ËÏÔʾÎÄÕÂÒ²Òª¾­¹ý¿´°åÁбíºÍÖ÷ÌåÁбíÕâÁ½Ò³Ãæºó£¬²ÅÄܵõ½Ìض¨Ö÷ÌâÏÂÎÄÕµÄÁÐ±í¡£
¡¡¡¡£¨1£©°åÁбíµÄÏÔÊ¾Ò³Ãæ£º
£¼ html£¾
£¼ head£¾
£¼ title£¾¿´°åÁÐ±í£¼ /title£¾
£¼ meta http-equiv="Content-Type"content="text/html; charset=GB2312"£¾
£¼ /head£¾
¡¡¡¡£¨2£©´ò¿ªÁ¬½Ó£¬ÏÔʾ¿´°åÁбí
£¼ %Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" & Server.MapPath("bbssystem.mdb")
sql = "select * from ¿´°åÁбí"
set rs=conn.execute(sql)
%£¾
¡¡¡¡×¢£º¼òµ¥µÄSQL²éѯ£¬°ÑËùÓеĿ´°åÓйØÑ¶Ï¢´«»Øµ½¼Í¼¼¯RSÖС£ÏÂÃæµÄÈÎÎñ¾ÍÊÇÏÔʾ¼Í¼¼ÇµÃÄÚÈÝ£¬²¢ÔÚÏàÓ¦µÄ¿´°åÃû³ÆÉϽ¨Á¢ÏÔʾ¿´°åÖ÷ÌâµÄÁ¬½Ó¡£
£¼ body bgcolor="#FFFFFF"£¾
£¼ h2 align="center"£¾¿´°åÁÐ±í£¼/h2£¾
£¼ table width="60%" border="0"cellspacing="0" cellpadding="0"align="center"£¾
£¼ tr bgcolor="#FFFFCC"£¾
£¼ td height="35" width="25%"£¾¿´°åÃû³Æ£¼/td£¾
£¼ td height="35" width="21%"£¾°åÖ÷£¼/td£¾
£¼ td height="35" width="23%"£¾Ö÷ÌâÊý£¼/td£¾
£¼ td height="35" width="31%"£¾°åÖ÷µÇ½£¼/td£¾
£¼ /tr£¾
¡¡¡¡×¢£ºÕâ¶ùÒ»²¿·ÖÊÇÏÔʾ³ö±í¸ñÖÐÿһÁеıêÌ⣬Õâ¶ùÎÒûÓÐÓÃÒ»¸öͳһµÄº¯ÊýÀ´ÏÔʾRS¼Í¼¼ÇµÄÄÚÈÝ£¬ÒòΪÕâÑù¿ÉÒÔ¶Ô±í¸ñµÄÍâ¹ÛºÍ·ç¸ñ×ö¸ü¶àµÄ¿ØÖÆ£¬Ê¹ÓÃÆðÀ´ËäÈ»ÓеãÂé·³£¬µ«ÊÇÈ´¸üΪÁé»î¡£
£¼ %
do
boardid=rs("id")
boardname=rs("Ãû³Æ")
boardmanager=rs("°åÖ÷")
response.write "£¼ tr£¾£¼ td£¾£¼a href=qBoard.asp?boardid="& boardid& "&boardname=" & boardname& "£¾" & boardname &"£¼ /a£¾£¼ /td£¾"
¡¡¡¡×¢£ºÕâÒ»ÐÐÊÇÖØµã£¬µ±µã»÷Á˸÷¸ö°åµÄÃû³Æºó£¬¿ÉÒÔÁ¬½Óµ½ÏÔʾ¿´°åÖ÷ÌâµÄÒ³Ãæ¡£³ÌÐò´úÂë¿´ÆðÀ´ÓеãÂé·³£¬ÎÒ·Ö½âÁ˸øÄã½²£¬Äã¾Í»áÃ÷°×ÁË¡£ÔÚµã»÷Ö®ºó£¬ä¯ÀÀÆ÷ÇëÇóʹÓõÄÊÇqBoard.aspÒ³Ãæ£¬²¢´øÓÐÒ»¸ö²ÎÊýboardid£¬´ú±íÒªÏÔʾ¿´°åµÄIDºÅ£¬ÔÚÇëÇóÒ³ÃæºÍ²ÎÊýÖ®¼äÓÃÎʺţ¨£¿£©·Ö¸ô¡£BoardidÊÇÇ°ÃæÉ趨Á˵ıäÁ¿£¬ÆäÖаüº¬µÄ¾ÍÊǶÔÓ¦¿´°åµÄIDºÅ¡£Õâ¸öÁ¬½ÓÖл¹´øÓÐÁíÍâÒ»¸ö²ÎÊýboardname£¬ÓÃÀ´°Ñ¿´°åÃû³Æ´«µÝ¸øqBoard.aspÒ³Ãæ¡£ÔÚ¶à¸ö²ÎÊý¼äʹÓÃ"&"À´·Ö¸ô¡£Õâ¸ö²ÎÊý²»ÊDZØÐëµÄ£¬´«µÝ¹ýÈ¥ÊÇΪ


Ïà¹ØÎĵµ£º

±à³ÌÈí¼þaspºÍasp.netµÄÇø±ð


»ú¹¹Ãû³Æ£º    ÈÕÆÚ£º2009 - 09 - 14    ²é¿´´ÎÊý£º
334 ´Î
        ASP.NetºÍASPµÄ×î´óÇø±ðÔÚÓÚ±à³Ì˼άµÄת»»£¬¶ø²»½ö½öÔÚÓÚ¹¦ÄܵÄÔöÇ¿¡£ASPʹÓÃVBS/JSÕâÑùµÄ½Å±¾ÓïÑÔ»ìºÏhtmlÀ´±à³Ì£¬¶øÄÇЩ½Å±¾ÓïÑÔÊôÓÚÈõÀàÐÍ¡¢ÃæÏò½á¹¹µÄ±à³ÌÓïÑÔ£¬¶ø·ÇÃæÏò¶ÔÏó£¬Õâ¾ÍÃ÷Ï ......

½â¾öASP²»ÄܸüÐÂ,Êý¾Ý¿â»ò¶ÔÏóΪֻ¶ÁµÄÎÊÌâ

×î½ü°ï±ðÈË´¦ÀíÏÂÊý¾Ý,·¢ÏÖÌí¼ÓÊý¾Ýʱ,¾ÍÌáʾ"ASP ²»ÄܸüС£Êý¾Ý¿â»ò¶ÔÏóΪֻ¶Á¡£",´ÓÍøÉÏÕÒÁË,ҲûÓнâ¾öÎÒµÄÎÊÌâ.
1¡¢·þÎñÆ÷µÄÊý¾ÝĿ¼mdbÎļþËùÔÚµÄĿ¼£¬ÊÇÖ»¶ÁµÄ
2¡¢Êý¾Ý¿âÔÚ±¾µØµÄȨÏÞ£¬È¥Ö»¶ÁȨÏÞ£¬ÔÙÉÏ´«
3¡¢ÓпÉÄÜÄãÊÇ´ÓÖ»¶ÁÄ¿Â¼ÒÆ¶¯µ½¿É¶ÁĿ¼µÄ£¬ËùÒÔÒ»¶¨²»ÄÜÕâôÓã¬ÏÈϵ½±¾µØ£¬ÔÙÉÏ´«£¬¿É½â¾ö´ËÀàÎÊ ......

asp²É¼¯³ÌÐò

<%
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=not ......

asp fckeditor×Ô¶¨ÒåÉÏ´«ÎļþµÄÎļþÃû

Ö»ÐèÒªÔÚfckeditor\editor\filemanager\connectors\aspÎļþ¼ÐϵÄcommands.aspÐÞ¸Äһϼ´¿É
ÔÚÕâ¸öÎļþÖвéÕÒһϣºFileUpload
»áÕÒµ½Õâ¸öº¯Êý
°Ñ
´úÂëÈçÏÂ:
Dim sFilePath
sFilePath = CombineLocalPaths(sServerDir, sFileName)
¸ÄΪ
´úÂëÈçÏÂ:
Dim sFilePath,ranNum
Randomize
ranNum=int(90000*rnd)+ ......

ASPÑéÖ¤Âë´úÂë

½«ÒÔÏ´úÂë·Åµ½Ò»¸öµ¥¶ÀµÄÒ³Ãæcheckcode.asp
<%
Option Explicit
Response.buffer=true
Call Com_CreatValidCode("validateCode")
Sub Com_CreatValidCode(pSN)
' ½ûÖ¹»º´æ
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentTy ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ