栏目导航
热点推荐
- 一些常用的正则表达式大全
- ASP超级链接和HTML函数正则表达
- ASP隐藏下载地址及防盗代码
- 最常用的正则表达式示例
- ASP程序数据库被挂马的处理方法
- ASP生成html的新方法
- 精通ASP错误提示大全
- ASP制作迅雷看看电影人气指数(图
- ASP+SQL Server构建网页防火墙
- ASP 编程中 20 个非常有用的例子
- ASP代码:防止重复多次提交表单
- ASP写的不错的"数字分页"涵数
阅览排行
asp 会员注册系统程序
www.jz123.cn 2008-09-07 来源: 中国建站 编辑整理 我要投递新闻
Asp 会员注册系统程序二
<!--#include file="Inc/articleCHAR.INC"-->
<%
If request.form("Comane")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误:您没输入公司名称,请返回检查!!"");history.go(-1);</script>")
response.end
end if
If request.form("Somane")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误:您没输入联系人,请返回检查!!"");history.go(-1);</script>")
response.end
end if
If request.form("Phone")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误:您没输入联系电话,请返回检查!!"");history.go(-1);</script>")
response.end
end if
If request.form("title")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误:您没输入标题,请返回检查!!"");history.go(-1);</script>")
response.end
end if
If request.form("content")="" Then
Response.Write("<script language=""JavaScript"">alert(""错误:您没输入留言内容,请返回检查!!"");history.go(-1);</script>")
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from book"
rs.open sql,conn,1,3
rs.addnew
rs("name")=htmlencode2(request.form("name"))
rs("Comane")=htmlencode2(request.form("Comane"))
rs("Somane")=htmlencode2(request.form("Somane"))
rs("Phone")=htmlencode2(request.form("Phone"))
rs("Fox")=htmlencode2(request.form("Fox"))
rs("email")=htmlencode2(request.form("email"))
rs("title")=htmlencode2(request.form("title"))
rs("content")=htmlencode2(request.form("content"))
rs("time")=date()
rs.update
rs.close
if request.form("name")="未注册用户" then
response.redirect "Wtok.asp"
else
response.redirect "NetBook.asp"
end if
%>
好了简单的注册程序己经完成了.
上一篇:百度新闻分类展示新闻标题演示用过程 下一篇:asp发送邮件代码