re.asp

谁与争锋留言薄v1.0

<!--#include file="zwd.asp"-->

<script language="JavaScript">
function closeit()
{setTimeout("self.close()",10)}</script>
<%function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"&lt;"
	           case ">"
	                result=result+"&gt;"
              case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"&quot;"
	           case "&"
	                result=result+"&amp;"
              case chr(32)	           
	                'result=result+"&nbsp;"
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   end function

sub getInput()
	     sInput=trim(request.form("txtanswer"))
	     spassword=trim(request.form("password"))
         sdel=trim(request.form("del"))
         end sub
   dim sql
   dim rs

   dim sInput
   dim spassword
   dim sdel

   getInput()

  if spassword<>"3.14" then%>
   <script language="JavaScript"> closeit()
</script>
<%else 
if sdel="1" then
deldata()%>
<script language="JavaScript"> closeit()
</script>
<%else
saveData()%>
<script language="JavaScript"> closeit()
</script>

<%


end if
end if  
sub deldata()
       on error resume next
   dim sql 
   dim rs
   sql="delete from book where id="&request.QueryString("id")
 
  set rs=server.createobject("adodb.recordset")
         rs.open sql,conn,1,3
   end sub
   sub saveData()
        on error resume next
       sql = "SELECT * FROM book where id="&request.QueryString("id")
       
  set rs=server.createobject("adodb.recordset")
         rs.open sql,conn,1,3
       rs("answer") =htmlencode2(sInput)
       rs("replytime")=cstr(now())
       rs.Update
       
   end sub


%>