±í×ֶΣº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
×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ
VBScript code:
<%
set rs=server.Creat ......
ÇëÎÊΪʲôÎÒÕâ¶Î´úÂë¿ÉÒÔÏÔʾÒÑÐ޸ijɹ¦picÎļþ¼ÐÖеÄͼƬ£¬µ«Êµ¼ÊÉÏÎļþ¼ÐÖеÄÎļþÃû³Æ»¹ÊǺúõġ£Íû¸ßÊÖ°ïæ¸Ä¸Ä°¡¡£
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......