savereview.asp

·用JAVA实现的对动态树状信息的管理。操作员可以通过IE浏览器查看整个树形结构信息

<!--#include file="dbpath.asp"-->
<%
if request.form("reviewname")="" then
   response.write"请输入您的名字！<a href=""javascript:history.go(-1)"">back</a>"
   response.end
end if
if request.form("review")="" then
   response.write"请输入您的评论！<a href=""javascript:history.go(-1)"">back</a>"
   response.end
end if
if len(request.form("review"))>800 then  
   response.write"你的评论不能大于800字！<a href=""javascript:history.go(-1)"">back</a>"
   response.end
end if
if IsValidEmail(trim(request("reviewemail")))=false then
   response.write"请输入有效的EMIL地址！<a href=""javascript:history.go(-1)"">back</a>"
   response.end
end if
  reviewname=Trim(request.form("reviewname"))
  reviewemail=Trim(request.form("reviewemail"))
  review=changechr(Trim(request.form("review")))
  id=request("id")

  

set objrs=server.createobject("adodb.recordset")
sql="select review,reviewcount from gallery where id="&id
objrs.open sql,objconn,3,3
objrs("reviewcount").value=objrs("reviewcount").value+1
objrs("review")="<br>评论人：<a href=""mailto:"&reviewemail&""">"&reviewname&_
       "<a><table bgcolor=""#F7F7F7"" cellspacing=""0"" cellpadding=""5"" border=""0"" width=""90%"" align=""center""><tr><td width=""100%""><br>"&_
         review&"<br><br><font style=""font-size:8pt"">评论时间："&now()&"<br></td></tr></table>"&objrs("review")
objrs.update
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing

response.redirect "review.asp?id="&request("id")
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;")
end function
function IsValidEmail(email)

dim names, name, i, c

IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail = false
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
end if
if InStr(email, "..") > 0 then
   IsValidEmail = false
end if

end function
%>