<% Dim Uname,tel1,Uemail,where1,Utitle,Ucontent Uname = Trim(request.form("U_Name")) tel1 = Trim(request.form("tel2")) Uemail = Trim(request.form("U_Email")) where1 = Trim(request.form("where2")) Utitle = request.form("Title") Ucontent = request.form("Content") 'HTML支持 function htmlencode(str) htmlencode=server.htmlencode(str) htmlencode=replace(replace(htmlencode,chr(13),"
"),"'","’") end function set rs=server.createobject("adodb.recordset") sqltext="select * from GuestBook" rs.open sqltext,conn,3,3 if request.querystring="add" then '添加一条留言到数据库 rs.addnew rs("UserName")=Uname rs("tel")=tel1 if Uemail="" then rs("UserEmail")="@" else rs("UserEmail")=Uemail end if rs("where")=where1 rs("Title")=Utitle rs("Content")=htmlencode(Ucontent) rs("AddTime")=cstr(now()) rs.update rs.close conn.close Response.Redirect "ly.asp" End if %>
“全员全面质量管理”会议胜利召开  2006-12-30
关于鼎枫防盗门检测的通告  2006-12-28
太湖胥香园2006年再创佳绩  2006-12-27
我公司参加全国一级房地产企业联络会  2006-12-26
吴中地产2006欢乐圣诞夜精彩组图  2006-12-22
热烈祝贺石湖之韵获江苏优秀住宅金奖  2006-12-22
热烈祝贺吴中地产入江苏房产业前五强  2006-12-22
成绩，是我们自豪的语言  2006-12-20
石湖华城列入创建全国优秀示范小区计划  2006-12-14
石湖华城，首席生活城火爆开盘  2006-12-11
吴中地产集团档案信息中心已开通  2006-12-5
石湖华城即将开盘  2006-11-29
石湖之韵参评江苏省优秀住宅  2006-11-29
热烈祝贺天翔物业中标石湖华城  2006-11-16
姑苏桃花源开工奠基典礼隆重举行  2006-11-10
工程月刊第8期  2006-11-8
胥口环湖路北地块方案汇报会隆重举行  2006-11-6
太湖观景阳房，再掀热销新风暴  2006-11-6
吴中新城•吴中地产  2006-11-1
土地拍卖•吴中地产  2006-11-1

下一页
　
江苏吴中集团 版权所有