|
<% 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),"|||||||||||||||||||||||||||