<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%Call Head() dim ids,pin,id,pa,cid,vote ids=request.QueryString("class") if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if pin=request.form("pin") id=request.QueryString("id") if id="" or IsNumeric(id)=False then Call Error("ID无效！") end if pa=request.QueryString("pa") if pa="" or IsNumeric(cid)=False then pa=1 cid=trim(request.QueryString("cid")) if cid="" or IsNumeric(cid)=False then Call Error("ID无效！") end if vote=request("vote") if vote="" or IsNumeric(vote)=False then Call Error("ID无效！") end if Set Rs = Server.CreateObject("Adodb.Recordset") rs.open"select * from wjfile where ID = "&id,conn,1,2 select case vote case "1" rs("good")=rs("good")+1 rs.update case "2" rs("bad")=rs("bad")+1 rs.update End Select rs.close set rs=nothing conn.close Set conn = Nothing response.redirect "soft_view.asp?id=" & id & "&class="&ids&"&cid="&cid&"&pa="&pa&"&sid="&sid&"" response.write "

" %>