<% '************************************************** '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-Web Promotion For Contact Us

 


Contact Us

If you are interested in our services, don't hesitate to contact us. Our sales and technical staff are pleased to discuss with you in details, and provide good solutions/plans to you.

Services email: services@Webscenter.com
Support email: support@Webscenter.com
Telephone:(852) 21161238
Address:16th Floor Guangdong Finance Building 88 Connaught Road west.Hongkong
Office Hours:

Please send any questions, comments, or feedback on our website to webmaster@Webscenter.com. Or fill in the following Form.

Name

*

Company

 

Tel

Email

*

Comment

*

 

 

 

 

Web Hosting,Web Design,Web Promotion,Web Translation,Web Store,Networking Consultancy,Technology Product Sales,ERP System

Copyright @ 2004 All Rights Reserved