±í×ֶΣºUserName¡¢Password¡¢PowerList
ÏÖÔÚ±íµ¥ÀïÃæÓУºUserName¡¢Password¡¢PowerListÕ⼸¸öÏÆäÖУ¬PowerListΪ¸´Ñ¡¿ò£¬Ò»¹²ÓÐ15¸öÃû×Ö¶¼ÎªPowerListµÄ¸´Ñ¡¿ò,15¸öPowerListµÄÖµ·Ö±ðΪk1 k2 k3 k4 k5 k6 k7 k8 k9 k10 k11 k12 k13 k14 k15µ½µÄЧ¹û£ºÓÃASP£¬Ôö¼ÓÊý¾Ý¿â£¬±íµ¥ÀïÃæµÄ£ºUserNameÌí¼Ó½ø×Ö¶ÎUserName£¬PasswordÌí¼Ó½ø×Ö¶ÎPassword£¬15¸öÃû×Ö¶¼ÎªPowerListµÄÑ¡ÏîÌí¼Ó½ø×Ö¶ÎPowerListÀïÃæ£¬Õâ15¸öPowerList¸´Ñ¡¿òµÄÖµÓöººÅ¸ô¿ª£¬½øÈëÊý¾Ý¿âºó£¬×Ö¶ÎPowerListµÄÖµÈçÏ£ºk1,k2,k3,k4,k5,k6,k7,k8,k9,k10,k11,k12,k13,k14,k15
×¢Ò⣺¸´Ñ¡¿òµÄÏî¿ÉÑ¡¿É²»Ñ¡£¬Èçֻѡk1,k5,k7 £¬ÄÇÊý¾Ý¿âÀïÃæµÄÖµ¾ÍÖ»ÊÇk1,k5,k7
»¶Ó¸÷λ¸ßÊÖÀ´°ï棬лл´ó¼ÒÀÖ
¸´Ñ¡¿òÃüÃûÒªÓйæÂÉ£¬Èçname='k1'name='k2'
ÓÃ±íµ¥Ìá½»£¬
ÔÚ½ÓÊÕÒ³Ãæ¾ÍÓÃ
for i=1 to 15
value=request("k"+i)
if value&"" <>"" then
˵Ã÷±»Ñ¡ÖÐ
end if
next
¸´Ñ¡¿òÃüÃûÒªÓйæÂÉ£¬Èçname='k1'name='k2'
ÓÃ±íµ¥Ìá½»£¬
ÔÚ½ÓÊÕÒ³Ãæ¾ÍÓÃ
dim check_value
check_value=""
flag=0
for i=1 to 15
value=request("k"+i)
if value&"" <>"" then
flag=flag+1
if flag=1 then
check_value=value
else
check_value=check_value&","&value
end if
Ïà¹ØÎÊ´ð£º
ÎÒÃÇÓÐÒ»¸öÍøÕ¾Ä£°å£¬www.c111.com.cn,Ï£ÍûÐÞ¸ÄһЩµØ·½£º
1£©µã»÷×ó²à¡°·þÎñÆ·ÅÆ¡±µÄÆäÖÐÒ»¸öС·ÖÀ࣬Èç¡°×ãÇò¡±£¬½çÃæµÄÓÒ²à¾Í³öÏÖÈçwww.c111.com.cn/1.jpg£¬µã»÷1.jpgÉÏ·½µÄÆäÖÐÒ»¸öÆ·ÅÆlogo£¬ÏÂÃæ¾Í³öÏÖÏà¹ØµÄÍ ......
<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......
aspÏÂÃæ£¬µ±Òª¸ù¾Ý²»Í¬µÄȨÏÞÏÔʾһЩ¹¦Äܰ´Å¥µÄ»°»áд³É
<%
if ȨÏÞ=1 then
%>
<input type="submit" name="Submit" value="Ìá½»" />
<%
end i ......