登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>服务器类>>域名服务>>iis如何绑定泛解析的域名
iis如何绑定泛解析的域名
来源: ‖ 作者: ‖ 点击: ‖ 时间:08-03-03 09:40:17 ‖ 【 】‖ 我要投稿
 直接设置主机头即可。例如:a.com  
设置主机头www.a.com,默认站点  
                      bbs.a.com,论坛  
                      *.a.com,其他  
dns中使用泛域名如.com->aliang->*  
  解析时就是*.aliang.com  
  这是你只要在解析到的主机上设置一默认文档index.asp,完成解析即可  
  附index.asp  
  <%   Response.Buffer=True   %>  
  <%    
  dim   name,targeturl,path,temp  
  targeturl="http://"  
  temp=Request.ServerVariables("SERVER_NAME")  
  name=temp  
  temp=trim(temp)  
  temp=split(temp,".")  
   
  Dim   Conn,dbfile,Rs,SqlStr,DataBaseType  
   
  Set   Conn=server.CreateObject("ADODB.Connection")  
   
  DataBaseType=0  
  if   DataBaseType=1   then  
  '数据库类型Access2000  
  '数据库文件位置,使用相对路径  
  dbfile="Data.mdb"  
  Conn.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &server.Mappath(dbfile)  
  else  
  '定义数据库连接  
   
  dim   server1  
  dim   user1  
  dim   ps  
  dim   Db  
  dim   connstr  
  server1="192.168.1.100"  
  user1="sa"  
  ps="你的密码"  
  Db="dns"  
  connstr="Driver={SQL   SERVER};SERVER="&server1&";UID="&user1&";PWD="&ps&";Database="&Db  
  Set   Conn=Server.Createobject("ADODB.CONNECTION")  
  Conn.open   connstr  
  end   if  
   
  'Recordset  
  set   Rs=server.CreateObject("ADODB.Recordset")  
  SqlStr   =   "select   *   from   [DNS]   where   name='"&temp(0)&"'"  
  Rs.open   SqlStr,Conn,1,1  
  if   Rs.eof=true   or   Rs.bof   then  
  targeturl=targeturl+"error.asp"  
  else  
  targeturl   =   targeturl+Rs("url")  
  end   if
|<< << < 1 2 > >> >>|
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
相关文章列表
无相关新闻
请文明参与讨论,禁止漫骂攻击。  
网友评论