sevetel.asp

个人备忘系统一个不错的备忘软件.专供刚学ASP的人学习. 代码简单易懂 mymanage

<!--#include file="conn.asp"-->
<%
if session("user")="" or session("group")="" then
response.write("<script>alert('您还没有登陆或登陆超时');window.location.href('index.asp')</script>")
response.end
end if
%>
<%

nam=session("name")
tel=request.form("tel")
pho=request.Form("pho")
mail=request.Form("mail")
add=request.Form("add")
qq=request.Form("qq")
bir=request.Form("bir")
grop=request.Form("grop")
'插入数据库数据
'____________________________________________________________
set rs=server.CreateObject("adodb.recordset")     
cmd="select * from  tel where 姓名='"&nam&"'"
rs.open cmd,conn,1,3
if rs.eof then
response.write("<script>alert('请不要非法提交');window.location.href('addtel.asp')</script>")
else

rs("姓名")=nam
rs("手机")=tel
rs("电话")=pho
rs("Email")=mail
rs("地址")=add
rs("QQ")=qq
rs("生日")=bir
rs("组别")=grop
rs.update
'set rs=nothing
rs.close
conn.close
session("name")=""
response.write("<script>alert('信息保存成功');window.location.href('addtel.asp')</script>")
end if
'_____________________________________________________________

%>