goto_self.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<%
    id=cint(request.querystring("id"))
	set rs=server.createobject("ADODB.recordset")
	sql="select fromurl,Reads from zhai where id="&id
	rs.Open sql,conn,1,1

	if rs.bof and rs.eof then
		response.write "<p><a href='http://www.dzhai.com'>对不起，你访问的页面已更新，请返回网站首页查找您感兴趣的内容！</a></p>"
		response.end
	else
		fromurl=rs(0)
		hits=rs(1)+1
		conn.execute("update zhai set Reads="&hits&" where id="&id)
		response.redirect fromurl
	end if

%>