index1.asp

结合了某度和AH的个人主页 功能比较完整

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from music where id="&request("id")
rs.open sql,conn,1,3
if rs.eof and rs.bof then   
response.write"地址错误" 
response.end
end if
js=rs("count")
js=js+1
rs("count")=js
rs.update
url=rs("url")
RTrim(url)//滤除url后面空格
aurl=right(url, 2)//取url后面两个字符
if aurl<>"ra" and aurl<>"rm" and aurl<>"am" and aurl<>"vb" then
Response.Redirect "media/index.asp?url="&url&""
else
Response.Redirect "real/index.asp?url="&url&""
end if
rs.close
set rs=nothing
%>