aspÏÂÀÁбíÇóÖú - Web ¿ª·¢ / ASP
ÓÉÓÚÒ³ÃæÓжà¸ölist£¬Ëì±àÁ˸öfunction list333£¬ÒÔ±¸µ÷ÓÃ
<% function list333 (a,b,c,d)
response.Write "<select name="&d&">"
response.Write "<option value="">ÇëÑ¡Ôñ</option>"
set rs=server.createobject("adodb.recordset")
sql = "SELECT * from "&a&" "
rs.open sql, adocon, 1, 1
if rs.eof or rs.bof then
response.end
else
do while not rs.eof or rs.bof
response.Write "<option value="&rs(""&c&"")&">"&rs(""&b&"")&"</option>"
rs.movenext
loop
end if
response.Write "</select>"
rs.close
end function
%>
ÔÚδ¼ÓÈëºìÉ«µÄÒ»¾äʱһÇÐÕý³££¬¼ÓÈëÁ˺ìɫһ¾äºó£¬µ¥¸öµ÷ÓÃlist333£¬²»ÏÔʾ¡°ÇëÑ¡Ôñ¡±Ñ¡Ïһ¸öÒ³Ãæµ÷ÓÃ5´Îʱ£¬Ö»ÏÔʾ3¸ölist¿ò£¬ÇÒÄÜÏÔʾ¡°ÇëÑ¡Ôñ¡±Ñ¡Ïî¡£ÇëÎÊÕâÊÇÔõô»ØÊ£¿ÔÚÏߵȸßÊÖ½â´ð
¿´ÁËһϴúÂë
do while not rs.eof or rs.bof
response.Write "<option value="">ÇëÑ¡Ôñ</option>"//Ó¦¸Ã·ÅÔÚÕâÀï
response.Write "<option value="&rs(""&c&"")&">"&rs(""&b&"")&"</option>"
response.Write "<option value="">ÇëÑ¡Ôñ</option>"
ÀïÃæÓõ¥ÒýºÅ
Ïà¹ØÎÊ´ð£º
ÓÐÒ»¸öÀà
class adc
{
dim a,b,c
}
ÈçºÎÔÚÁíÍâÒ»¸öÀàÖÐÈ¡µÃÀà³ÉÔ±¼°³ÉÔ±¸öÊý
class getmenber
{
dim menbers()
function getmenbers(resclass)
'resΪһδ֪Àà
'getmenber ......
ĿǰÊÇA.aspÃæÒ³ÓÐÒ»¸ö±äÁ¿aa,Ôõô²Å¿ÉÒÔ´«µ½B.aspÒ³Ãæ,²»ÊÇÓÃURL´«,ÏëÓÃ<inupt >¿Ø¼þÔõô´«°¡!Çë´ó¼ÒÖ¸µã!
ÓÃ±íµ¥´«Öµ
´«Öµ£¬GETºÍPOST£¬ÒªÃ´´ø²ÎÊý£¬ÒªÃ´ÓÃform
¶øÇÒ£¬Èç¹ûÄãÁ½¸öÒ³ÃæÃ»ÓÐÈκιØÁª£¬´«Ö ......
¹ØÓÚÍøÕ¾°²È«µÄÎÊÌ⣡
ÎÒÁ˽⵽µÄÍøÕ¾°²È«ÎÊÌâ°üÀ¨£º
sql×¢Èë©¶´ºÍ±©¿â©¶´»¹ÓÐÉÏ´«Â©¶´
³ýÁËÕâЩ»¹ÓÐÆäËûµÄ©¶´Ã´£¿
×¢Èë©¶´¿ÉÒÔͨ¹ý¹ýÂËÀ´·ÀÖ¹
±©¿â©¶´Ôõô·ÀÖ¹
»¹ÓÐÈËÉÏ´«µÄľÂíÊÇ.gif
ÕâÖÖ©¶´Ôõôȥ± ......
O O O O O O
|.......| |........| |.......|
| | |
O O ......
¸÷λºÃ£¬ÎÒ¸Õ°ÑÒ»¸öASPÍøÕ¾ÉèÖúÃÁË£¬Ò²ÄÜÕý³£·ÃÎÊ¡£µ«ÊÇÔÚÎÒ±¾»úÉϲ»ÄÜ´ò¿ªadmin\login.asp,ËùÒÔÎÞ·¨ÊµÏÖºǫ́¹ÜÀí¡££¨´íÎóÌáʾÎÞ·¨ÕÒµ½ÍøÒ³£¬´úÂë404£¬ÎҵIJÙ×÷ϵͳÊÇwin2000 server)
µ«ÊÇÆæ¹ÖµÄÊÇÔÚ¾ÖÓòÍøµÄÆäËû» ......