<% '************************************************** '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

 

 

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ㄩ5th Floor,Qualipak Centre 122 Connaught Road West Hong Kong

Office Hours:

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

Name :
Email/Tel/ICQ:
Request/comment :

 

 
Copyright @ 2004 All Rights Reserved