break.asp

商机网站8.0,比教完整,可以自己二次开发!

<%Option Explicit%>
<!--#include file="conn.asp"-->
<%
dim RS,sql,id
dim referer
referer = Request.ServerVariables("HTTP_REFERER")
if not request("id")=request.cookies("breadid") then
   response.cookies("breadid")=Request("id")
id= Request("id")
if Trim(id) <> "" and IsNumeric(id) then
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "select id,stopnum  from site where id = " & id
RS.Open sql, Conn, 3, 3
if not RS.EOF then
RS("stopnum").value = RS("stopnum").value + 1
RS.Update()
end if
RS.Close()
Set RS = nothing
end if
Response.Redirect(referer)
else
%>
<script language=javascript>  
alert( "错误：您已经报告过了！"  );
location.href = "javascript:history.back()"  
</script>

<%end if%>