"
Response.write "请您先登陆..."& chr(13)
Response.write "
ID无效！")
end if
if ids="" or IsNumeric(ids)=False then
Call Error(" ID无效！")
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open "Select * from Wzclass where classid="&ids,conn,1,2
if rs.eof then
rs.close
set rs=Nothing
Call Error(" 不存在的栏目！")
end if
if abs(int(myjb)) < rs("cent") then
rs.close
set rs=Nothing
Call Error(" 你的"&getcent&"不够！")
end if
if Instr(","&rs("payID")&",",","&myid&",") = 0 then
if rs("payID") <> "" then
rs("payID") = rs("payID")&","&myid
else
rs("payID") = myid
end if
rs.update
conn.Execute("update Users set myjb=myjb-"&abs(int(rs("cent")))&" Where id="&myid)
end if
Rs.close
set rs=nothing
conn.close
set conn=Nothing
response.write " "
%>
购买成功,正在返回..
[返回上级]