<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim P,Place P=Request.QueryString("P") if p="Y" then %> <% Places=Request.QueryString("Place") %> <% On Error Resume Next sql="SELECT DPPM.PMID,DPPM.DPID,DPPM.chnname,Place.ID,Place.Place,Place.Method FROM DPPM,Place where Place.Place like '%" & Places & "%' and DPPM.pmid=[Place].[ID] order by PMID; " dete.open sql,cnn,3,3 dete.movefirst if dete.eof then %> <% else do until dete.eof ID=dete("pmid") if len(id)<2 then id="00"&Id if len(id)<3 then id="0"&id %> <% dete.movenext loop end if%>

无记录。
No.<%=ID%>	<% if dete("DPID")=0 then response.Write("-") else response.Write("No." & dete("DPID"))%>	<%=dete("chnname")%>	<%=dete("Place")%><% if isnull(dete("Method"))=false then response.Write("(" & dete("Method") & ")")%>

<% dete.close cnn.close else response.Write("-") end if %>