book_login.asp

个人网站系统 毕业论文 大家可以借鉴下

 <!--#include file ="conn.asp"-->
 <%
 n_name=trim(request.form("new_name"))
 n_pic=trim(request.form("face"))
 n_hpage=trim(request.form("new_homepage"))
 n_oicq=trim(request.form("new_oicq"))
 n_email=trim(request.form("new_email"))
 n_content=trim(request.form("new_content"))
 
 if n_name="" or n_content="" or isnull(n_name) or isnull(n_content) then  %>
 <script language="JavaScript">
  alert("留言内容和呢称不能为空！！")
  history.go(-1)
   </script>
  <% 
   end if
 if n_email<>"" then 
 if instr(n_email,"@")<>0 and instr(n_email,".")<>0 then   
  else
  %>
  <script language="JavaScript">
  alert("email 不对！！")
  history.go(-1)
   </script>
  <%
  end if
 end if
 if n_oicq<>"" then
 if not isnumeric(n_oicq) then%>
  <script language="JavaScript">
  alert("oicq 不对")
  history.go(-1)
   </script>
  
 <%end if
 end if%>
 <%
 set rs=server.CreateObject("adodb.recordset")
  sql="select * from gsbook"
  rs.open sql,conn,3,3
 rs.addnew
 rs("new_name")=n_name
 rs("new_img")=n_pic
 rs("new_qq")=n_oicq
 rs("new_email")=n_email
 rs("new_homepage")=n_hpage
 rs("new_content")=n_content
 rs.update
 %>
 <script language="JavaScript">
 alert("留言成功，谢谢！！")
 window.location.href("gsbook.asp")
 </script>
 <%
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 %>