📄 index.asp

📁 功能最强大的ASP网站

💻 ASP

字号:

<%
'*********************************************************************
SqlDbHost="127.0.0.1" 	'修改实际的数据库服务器地址
SqlDbName="WinIISWeb"	'修改为实际的数据库名
SqlUserName="sa"		'修改为实际的数据库用户名
SqlUserPass="linyang"	'修改为实际的数据库密码
'*********************************************************************


'on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
'SQL链接字符串
connstr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=" & SqlDbHost & "; Initial Catalog="&SqlDbName&"; User ID="&SqlUserName&"; Password=" & SqlUserPass
conn.Open connstr


'先判断是否有URL设置,如果该地址设置了URL转发,则直接转发到相关的地址.
call URLFun() %>
  
<% 
'如果有URL转发设置的.直接转发到相关的地址
sub URLFun()
'先得到用户浏览器请求的网址
Server_Name = Request.ServerVariables("SERVER_NAME")
set rsurl = conn.execute ("SELECT * FROM url WHERE domain='"&Server_Name&"'")
if rsurl.eof  then
	response.write "对不起，该网页不存在"
	rsurl.close
	set rsurl = nothing
	exit sub
else
'在页面中进行跳转
URL=rsurl("url")
flag = rsurl("urltype")
if flag <> "1" then
%>
<meta http-equiv="refresh" content="0;url=http://<%=URL%>">
<%
else%>
<html>
<head>
<meta http-equiv='Content-Language' content='zh-cn'>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title><%=URL%></title>
</head>
<frameset rows='*'><frameset cols='*' frameborder='NO' border='0' framespacing='0' rows='*'><frame name='contents' target='main' src='http://<%=URL%>' noresize scrolling='YES' frameborder='NO'><noframes><body bgcolor='#FFFFFF' text='#000000'>您的浏览器不支持框架！</body></noframes></frameset></html>
<%
end if
End If
'销毁对象
Set rs=Nothing
conn.close
Set conn=Nothing
response.end
end sub
%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -