webscenter.com

<% '************************************************** 'this is a test '************************************************** 'mamual add=request("add") if add="OK" then username=request("username") username=replace(username,"'","‘") usercompany=request("usercompany") usercompany=replace(usercompany,"'","‘") userhomepage=request("userhomepage") userhomepage=replace(userhomepage,"'","‘") liuyan=request("liuyan") liuyan=replace(liuyan,"'","‘") tel=request("tel") tel=replace(tel,"'","‘") userIP=request.ServerVariables("REMOTE_Addr") shijian=now if username="" or userhomepage="" then response.write "" set conn=nothing response.end end if nian=year(date) yue=month(date) ri=day(date) shi=hour(time) fen=minute(time) miao=second(time) Randomize sjs=Int((100 * Rnd) + 1) ly_ID=nian&yue&ri&shi&fen&miao&sjs set comm=server.createobject("adodb.command") comm.activeconnection=conn sql="insert into Dt_lyb (xm,lz,zy,nr,ip,sj,tel) values ('"&username&"','"&usercompany&"','"&userhomepage&"','"&liuyan&"','"&userIP& "','"&shijian& "','" &tel& "')" comm.commandtext=sql comm.execute set comm=nothing set conn=nothing response.redirect "thanks.htm" response.end end if '********************************************************************************** '读出现有留言 set rs=server.createobject("adodb.recordset") rs.activeconnection=conn rs.cursortype=3 rs.locktype=1 sql="select * from Dt_lyb order by sj desc" rs.open sql XX_NUM=rs.recordcount '*******************************分页****************************************** if not rs.eof then PageSize=10 PageNUM=XX_num mod PageSize if PageNUM=0 then PageNUM=int(XX_num/PageSize) else PageNUM=int(XX_num/PageSize)+1 end if PageNO=request("PageNO") if PageNO="" or (not isNumeric(PageNO)) then PageNO=1 else if cint(PageNO)<1 or cint(PageNO)>PageNUM then PageNO=1 end if end if if PageNO>1 then LJfirst="首页上一页" else LJfirst="首页上一页" end if if cint(PageNO) < PageNUM then LJsecond="下一页末页" else LJsecond="下一页末页" end if BOTTEM=""&LJfirst&" "&LJsecond&"" jiluweizhi=PageSize*(PageNO-1) rs.movefirst rs.move jiluweizhi end if '*******************************分页结束**************************************** %> webscenter.com