Ò»¸öASPÅжÏ×Ö·û´®µÄÎÊÌâ

×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ

---

VBScript code:

<%
set rs=server.CreateObject("adodb.recordset")
sql="select PowerList from ±í where PowerList ='KSO10004'"
rs.open sql,conn,1,1
if not rs.eof then
response.Write("ºÃ")
end if

%>

ÕâÑù£¿£¿

---

VBScript code:
if inStr("KSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008","KSO10004" ) then Response.write "ºÃ"

---

VBScript code:
PowerList=KSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
PowerList=","&PowerList&","
checkStr=KSO10000 '´ø¼ì²éµÄÖµ
checkStr=","&checkStr&","
if (instr(PowerList,"checkStr")>0) then
response.write("ºÃ")
end if

ÎÒÕâ¸öд·¨Ò²ÊʺÏÅжÏÊý×Ö

---

VBScript code:
Function chkStrInStrs(vStr,vStrs)