28,391
社区成员
发帖
与我相关
我的任务
分享
<%
ArticleID = PE_Clng(Trim(request("ArticleID")))
If CheckUserLogined() = True Then
Call GetUser(UserName)
Dim rs, cookie, sql,ArticleID
Cookie = ReplaceBadChar(Request.Cookies("wanmei")("Article_"&ArticleID&""))
If Cookie = "" Then
Conn.Execute "update PE_User set UserExp=UserExp+1 where UserName='" & UserName & "'"
Response.Cookies("wanmei")("Article_"&ArticleID&"") = 1
Response.Cookies("wanmei").Expires = Date + 3650
End If
End If
%>