<% const MaxPerPage=10 '分页显示的纪录个数 dim sql dim rs dim gstBookID dim totalPut dim CurrentPage dim TotalPages dim i,j if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %> 留言簿
<%=url%>  
ENGLISH│广告服务│联系我们
欢迎光临武大绿洲在线留言版 　　　　　　　　　　　　　　　　

请 您 留 言

大名：

邮箱：

主页：

悄悄话：

是 否（若选择是，则留言仅站长可见）

头像：

查看所有头像

主题：

留言：

心情：

     

 

武大绿洲 copyright © 2000
<%function fromwhere() ip=rs("ip") sip=ip Set con=Server.CreateObject("ADODB.Connection") connstr="DBQ="+server.mappath("database/gstbook.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};" con.open connstr str1=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str2=left(sip,instr(sip,".")-1) sip=mid(sip,instr(sip,".")+1) str3=left(sip,instr(sip,".")-1) str4=mid(sip,instr(sip,".")+1) if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then else num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4) set rs1=server.createobject("adodb.recordset") sql="select Top 1 country,city from diqu where ip1 <="&num&" and ip2 >="&num&"" rs1.open sql,con,1,3 if not rs1.eof then country=rs1("country") city=rs1("city") else country="其它" city="" end if end if rs1.close fromwhere=country&city end function%>