dim conn,dbs //定义变量 Set conn=Server.CreateObject（"ADODB.Connection"） //建立连接对象 dbs=server.mappath（"url.mdb"） //定义要连接的数据库路径 conn.open "driver={microsoft access driver （*.mdb）}；dbq="&dbs //打开并实现其数据库源的链接 user=trim（request.querystring（"user"）） //得到default.html文件中得到的在浏览器中输入的网址 if user＜＞"" then //当user值不为空时 user=replace（user,"http://",""） //将"http://"字符串从user值删去 at=instr（user,"@"） //将user值中"@"所在位置赋给变量at else response.write "信息出错，请联系moon!" //当user值为空时则告诉网友有错 end if if at＞0 then user=left（user,at-1） //当user值中"@"所在的位置大于0时，将其中的部分重赋给user，如"BBS"或" GUESTBOOK"等值 else response.redirect "def.htm" //如果没有得到其中的值，如打http://www.luyu.net时，就返回def.htm文件中。 response.end //停止输出 end if if user＜＞"" then set rs=conn.execute（"select url from dns where user='"&user&"'"） //当user值不为空时，连接数据库，将进行搜索 if not rs.eof then conn.execute（"update url set click=click+! Where user='"&user&"'"）//当记录不为空时，将此网站的访问量加1 response.redirect rs（"url"） //再转向其网站 else response.write "抱歉，没有这个网站!" //记录为空时，警告网友没有此网站 end if set rs=nothing else response.write"抱歉，没有这个域名！" //当user的值为空时，则警告网友没有此域名 end if set conn=nothing //关闭数据库连接
