|
|
- dim key,myarr,item
- dim str:str=""
- key=SafeRequest("sName",0)
- myarr=split(key,vbCrLf)
- for each item in myarr
- str=str&"'"&trim(item)&"',"
- next
- str=left(str,len(str)-1)
- str=replace(str,Chr(32),"")
- str="(" & str & ")"
- sql="Select sname,sbrief,smaster,sremark from School where sname in"&str
-
-
- set rs=conn.execute(sql)
|
|
IP卡
狗仔卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡