用ASP+ACCESS实现简单的域名转向

最新推荐文章于 2023-11-09 11:25:28 发布

dragonbbc

最新推荐文章于 2023-11-09 11:25:28 发布

阅读量972

点赞数

分类专栏： web开发文章标签： access asp microsoft url domain 数据库

本文链接：https://blog.csdn.net/dragonbbc/article/details/662874

版权

web开发专栏收录该内容

27 篇文章 0 订阅

订阅专栏

首先创建数据库Domain.mdb，通过设计器创建表domain，输入以下字段

ID 自动编号
URL 文本
toURL 文本
Name 文本
hideURL 是/否

创建数据库连接文件conn.asp

<%
Dim Conn,Connstr,Rs
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Domain.mdb")
Conn.Open Connstr
Set Rs = Server.CreateObject("ADODB.RecordSet")
%>

创建转向文件default.asp

<%
url = Request.ServerVariables("HTTP_HOST")
'url = Replace(url,"www.","")
Sql = "Select * from domain where URL='"&url&"'"
Rs.Open Sql,Conn,1,3

If NOT Rs.EOF And NOT Rs.BOF Then
tourl = Rs("tourl")
title = Rs("Name")
hideurl = Rs("hideURL")
Else
tourl = "http://www.xun.cc"
End If
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
If hideurl = True Then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%></title>
</head>
<frameset cols="*" frameborder="no" border="0" framespacing="0">
<frame src="<%=tourl%>" />
</frameset>
</html>
<%
Else
Response.Redirect(tourl)
End If
%>