<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="articleconn.asp"-->
<!--#include file="home.asp"-->
<!--#include file="ip.asp"-->
<!--#include file="INC/char.asp" --><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body><% Response.Charset = "gb2312"
dim sql
dim rs
dim urlid
dim url
  urlid=clng(request("id1"))
  set rs=server.createobject("adodb.recordset")
   sql="select url from movieurl where id="&urlid
   rs.open sql,conn,1,1
if not rs.eof  then
 terok=Replace(request.cookies("userid"), "'", "''")&Replace(request.cookies("password"), "'", "''")
    url = rs("url").value
end if
rs.close
conn.close
set rs= nothing
set rs = nothing
if url <> "" then
    Response.Redirect(url)
else
    Response.Write("没找到url!")
end if
%>
</body>
</html>