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ØÐëµÄ£¬´«µÝ¹ýÈ¥ÊÇΪ
Ïà¹ØÎĵµ£º
VBSÀ³¬³öIntegerÀàÐ͵Äȡֵ·¶Î§£¬¸ÃÀàÐ͵Äȡֵ·¶Î§Îª-32,768 µ½ 32,767 Ö®¼äµÄÕûÊý¡£
³ö´íµÄ¸ùÔ´£º
ÔÚASPÀÓÐʱºòΪÁË·ÂÖ¹×¢È룬ËùÒÔÔÚ½ÓÊÕ²ÎÊýµÄʱºòÖ±½ÓʹÓÃCintº¯Êý°Ñ½Ó¹ýÀ´µÄ²ÎÊýת»»ÎªInteger£¨Êý×Ö£©ÀàÐÍ£¬Õâ¾Í´æÔÚÒ»¸öDZÔÚÎÊÌ⣬µ±Ò³Ãæ½ÓÊÕµÄij¸ö²ÎÊý£¨Request("xxx")£©³¬¹ýȡֵ·¶Î§Ê±£¨¿É¼òµ¥Àí½âΪ5λÊý×Ö£ ......
<%
If Not IsNull(Request("fileName")) Then r = DownLoadFile(Request("fileName"))
Function DownLoadFile(fileName)
Dim s,fso,f,fLen
fileName = Server.MapPath(fileName)
'create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open()
s.Type = 1
Set fso = Server.CreateObject ......
ÏÖÔÚÖ÷Á÷µÄÍøÕ¾¿ª·¢ÓïÑÔÎÞÍâºõasp¡¢php¡¢asp.net¡¢jspµÈ¡£
ÍøÒ³´Ó¿ªÊ¼¼òµ¥µÄhmtlµ½¸´ÔӵķþÎñÓïÑÔ£¬×ß¹ýÁË10¶à¸öÄêÍ·£¬¸÷ÖÖ¼¼Êõ²ã³ö²»Çµ¥¸öµÄÖ÷Á÷¼¼ÊõÒ²ÔÚ²»¶Ï·Ðµİ汾£¬ÏÖÔÚ·ÖÎöϸ÷ÖÖÓïÑÔµÄÇø±ð¡¢ÓÅÊÆ¡¢ÁÓÊÆ¡¢¿ª·¢×¢ÒâÊÂÏ
HTML:µ±È»ÕâÊÇÍøÒ³×î»ù±¾µÄÓïÑÔ,ÿһ¸ö·þÎñÆ÷ÓïÑÔ¶¼ÐèÒªËüµÄÖ§³Ö,Ҫѧϰ,Õâ¸ö¿Ï¶¨ÊÇ¿ªÊ¼ ......
'ʹÓÃFSOÐÞ¸ÄÎļþÌØ¶¨ÄÚÈݵĺ¯Êý
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFi ......
ÔÚInterDevÖÐʵÏÖÍøÉϹºÎïÍÆ³µ(1)
¡¡±¾ÎĽ«½éÉÜÔÚInterDevÖÐʵÏÖÍøÉÏÉ̵깺Îï³µ¹¦Äܵķ½·¨£¬¾ßÌå²½ÖèÈçÏ£º
¡¡¡¡Ò»¡¢ Êý¾Ý¿â½á¹¹£º
¡¡¡¡²úÆ·Êý¾Ý±í(Products): ´æ·Å²úÆ·ÐÅÏ¢
²úÆ·Ãû ProductName
²úÆ·±àºÅ ProductID
µ¥¼Û Price
·ÖÀà±àºÅ CategoryID
¡¡¡¡ Cart£º¹ºÎï³µÊý¾Ý±í£¬ÁÙʱ´æ·Å¿Í»§µÄ¶ ......