| |
把太湖轻轻画上建筑
|
|
| 日期：2007-1-22 13:45:27 来源:吴中地产 编辑： |
|
| |
|
|
|
|
<% 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
%>