北京凯特来专利代理有限公司

<%Response.Expires=0 dim input() id=Request.QueryString("id") if id=Vbempty then id=1 lyfile = server.mappath("DataBase.asp") Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(lyfile,1,False) counter = 0 do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve input(counter) input(counter) = thisline counter = counter + 1 loop thisfile.Close lynumber=(counter-1)/7%> 北京凯特来专利代理有限公司


公司概况	专利代理	商标注册	涉外专利	法律法规	其它业务	公司动态	分支机构	您的留言	联系我们

凯特来留言本

<% if lynumber>15 then page=0 for i=1 to lynumber step 15 page=page+1 Response.Write "[" & page &"] " next end if%>

[书写留言]

<%for i=id to id+14 if i>lynumber then exit for Response.Write input((i-1)*7+1) & "

" if input((i-1)*7+3)<>"0" then Response.Write "姓名：" & input((i-1)*7+2) & "
" else Response.Write "姓名：" & input((i-1)*7+2) & "
" end if Response.Write "时间：" & input((i-1)*7+4) & "
" if input((i-1)*7+5)<>"0" then Response.Write "来自：" & input((i-1)*7+5) & "
" if input((i-1)*7+7)<>"0" then if input((i-1)*7+6)<>"0" then Response.Write "主页：" & input((i-1)*7+6) & "" else Response.Write "主页：" & input((i-1)*7+7) & "" end if end if Response.Write "

" next%>

<% if lynumber>15 then page=0 for i=1 to lynumber step 15 page=page+1 Response.Write "[" & page &"] " next end if%>
[书写留言]