www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\801w.asp

    <!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="common/index.asp"-->
<%
Dim rs 
if request.querystring("linkin")<>"" and request.cookies("linkin")=""  then 
set rs=NewAsp.Execute ("UPDATE NC_User SET userpoint=userpoint+10 WHERE username = '" & request.querystring("linkin") &"'")
Response.Cookies("linkin")=request.querystring("linkin")
response.cookies("linkin").expires=date+1
set rs=nothing
end if
%>
<%
Call Main()
Call TPL_Flush()
NewAsp.PageEnd()
%>