pingfen.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 14 行

<%
If Session("PingFen"&request.Form("ID"))="YES" Then
   Response.redirect "../info.asp?msg=您已经给文章打过分了，不能再打分了"
   Response.end
End If
%>
<!--#include file="articleconn.asp"-->
<%
sql="update learning set persons=persons+1 , fenshu=(fenshu*persons+"&cint(request.Form("fenshu"))&")/(persons+1) where articleid=" & request.Form("ID")
conn.execute(sql)
Session("PingFen"&request.Form("ID"))="YES"
conn.close
response.redirect "go.asp?id=" & request.Form("ID")
%>