<% 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│广告服务│联系我们
Welcome to online message boards ! 　　　　　　　　　　　　　　　　
书写留言Voice　 　管理入口Admin

Name：

E-Mail：

HomePage：

Whispers：

Yes No（The messages can be seen only Admin?）

Head ：

Access to all Head

Title：

Content：

Mood：

   

 

WuHan WDLZ Biological Technolegy Co.,Ltd. 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%>