<%
fl=4
openconn
set rs=conn.execute("select * from "&prefix&"wz where "&prefix&"s1=3 and id="&id)
if rs.eof then
alertmsg "错误的选择！",""
else
p1=rs(prefix&"p1")
p8=rs(prefix&"p8")
t1=fdata(rs(prefix&"t1"),"-")
p2=rs(prefix&"p2")
b1=rs(prefix&"b1")
s4=rs(prefix&"s4")+1
conn.execute("update "&prefix&"wz set "&prefix&"s4="&prefix&"s4+1 where id="&id)
end if
%>
<%=SiteTitle%>
<%=getone(3,"p1","lm")%>
<%
rows=getrs("select id,"&prefix&"p1 from "&prefix&"lm where "&prefix&"s3=3 order by "&prefix&"s2 desc,id desc","")
if rowslen>=0 then
for i=0 to rowslen
if id=abint(rows(0,i)) then
cl="-on"
else
cl=""
end if
%>