<% Dim ArticleID, rs, q, cookie, sql ArticleID = PE_Clng(Trim(request("ArticleID"))) Cookie = ReplaceBadChar(Request.Cookies("eagle_01")("Article_"&ArticleID&"")) Const Add = "" '在这里填入“查看”二字的URL地址 sql = "select MY_upart from PE_Article where Deleted=" & PE_False & " and Status=3 and ArticleID=" & ArticleID If Action = "up" Then If Cookie = "" Then Set rs = server.CreateObject("ADODB.recordset") rs.open sql, conn, 1, 3 If Not (rs.bof and rs.EOF) Then rs("MY_upart") = rs("MY_upart") + 1 rs.update Response.Cookies("eagle_01")("Article_"&ArticleID&"") = 1 Response.Cookies("eagle_01").Expires = Date + 3650 End If rs.Close Set rs = nothing End If Response.Redirect Request.Servervariables("http_referer") Else Set rs = Conn.Execute(sql) Response.Write"
" Response.Write"

" If rs("MY_upart")="" or isnull(rs("MY_upart")) then Response.Write 0 conn.execute("update PE_Article set MY_upart=0 where ArticleID=" & ArticleID ) Else Response.Write rs("MY_upart") End If Response.Write"
" Response.Write"

" If Cookie = "" Then Response.Write"支持" Else Response.Write"已点击" End If Response.Write"

" rs.Close Set rs = Nothing End If CloseConn %>