o.asp 黑鹰自助链管理系统 1.1 商业版码程序 - ASP源码程序

www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > go.asp

    <!--#include file="mdb.asp"-->
<%
id=request.querystring("id")
set r=server.createobject("adodb.recordset")
sql="select * from detail where id="&id
set rsc=conn.execute(sql)
id=rsc("id")
url=rsc("url")
title=rsc("title")
memo=rsc("memo")
out=rsc("out")
verity=rsc("verity")
conn.execute (sql)
rsc.close
set rsc=nothing
if verity<>1 then
Response.Write "<script language=javascript>alert('找不到该网站或该网站未审核...');this.location.href='./';</script>"
Response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>　<%=url%></title>
<meta content="<%=title%>" name="description">
<meta content="<%=title%>" name="keywords">
</head>
<script>var location='';</script>
<frameset rows="29,*" border=0>
<frame name="top" src="showtop.asp?id=<%=id%>" marginwidth="0" marginheight="0" scrolling="no" frameborder="no" noresize>
<frame name="bottom" src="url.asp?id=<%=id%>" marginwidth="0" marginheight="0" scrolling="Auto" frameborder="no" noresize>
<noframes>
<body>
<p>本页面使用了帧,但您的浏览器不支持.</p>
</body>
</noframes>
</frameset>