save.asp

一个VB做的语音系统控件

<!--#include file="db_open.asp"-->
<%function check(word)
     word=replace(word,"<","&lt;")
     word=replace(word,">","&gt;")
     word=replace(word,"java","")
     word=replace(word,"vb","")
     word=replace(word,"update","")
     word=replace(word,"delete","")
     check=word
  end function

  user_name=check(request.form("user_name"))
  user_oicq=check(request.form("user_oicq"))
  user_passwd=request.form("user_passwd")
  user_homepage=check(request.form("user_homepage"))
  user_mail=check(request.form("user_mail"))
  user_from=check(request.form("user_from"))
  user_touxiang=check(request.form("user_touxiang"))
  user_title=check(request.form("user_title"))
  user_content=check(request.form("user_content"))
  pub_time=now()
  if int(user_passwd)<>int(session("my_rnd")) then 
     response.write "<script>alert('认证码出错，请填入"&session("my_rnd")&"!');history.back();</script>"
     response.end
  end if
  if len(user_name)=0 then 
     response.write "<script>alert('请填写完整信息！');history.back();</script>"
     response.end
  end if
  if len(user_title)=0 then 
     response.write "<script>alert('请填写完整信息！');history.back();</script>"
     response.end
  end if
  if len(user_content)=0 then 
     response.write "<script>alert('请填写完整信息！');history.back();</script>"
     response.end
  end if
  set rs=server.createobject("adodb.recordset")
  rs.open "select * from ly_info order by id desc",conn,1,2
  rs.addnew
  rs("user_name")=user_name
  rs("user_oicq")=user_oicq
  rs("user_homepage")=user_homepage
  rs("user_mail")=user_mail
  rs("user_from")=user_from
  rs("user_touxiang")=user_touxiang
  rs("user_title")=user_title
  rs("user_content")=user_content
  rs("pub_time")=pub_time
  rs.update
  set rs=nothing
  call db_close()
  response.redirect "list.asp"
%>