?? admin_news_add_dj3.asp
字號:
<!--webbot bot="Validation" s-display-name="欄目分類" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="lm">
<option>請選擇</option>
<%
lmid=rs("lmid")
if len(lmid)>1 then
iii=replace(lmid,"|",",")
iii=replace(lmid,",","|")
if len(iii)=1 then bb=iii
aa=split(iii,"|")
abcd=len(iii)
abcd=abcd/2-2
abc=int(abcd)
if abcd>abc then abcd=abc+1
abc=int(abcd)
abcd=abc
'response.write abcd
'response.end
i=0
for each ai in split(iii,"|")
if aa(i)<>"" then
bb=aa(i)
i=i+1
sql3 = "select * from lm where id="&bb
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open sql3,conn,1,1
if rs3.recordcount<>0 then
response.write rs3("lm")&","
else
response.write "<font color=blue>[無欄目編號為:"&bb&"]</font>"
end if
rs3.close
set rs3=nothing
end if
next
elseif len(lmid)=1 then
sql2 = "select * from lm where id="&lmid
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
if rs2.recordcount<>0 then
response.write rs2("lm")
else
response.write "找不到欄目,編號:"&lmid
end if
rs2.close
set rs2=nothing
else
response.write "<font color=blue>無欄目</font>"
end if
%>
</select>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -