en_savenetbook.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了

<!--#include file="Inc/Conn.asp"-->
<%
'=================================
'
'  冠龙网络科技有限公司
'  网址：http://www.glgk.com
'  电话 :[phone]
'  信箱：[e-mail]
'  QQ：53180986
'
'=================================
%>
<!--#include file="Inc/articleCHAR.INC"-->
<%
If request.form("Comane")="" Then
Response.Write("<script language=""JavaScript"">alert(""Error: You have not input company name , please return and check ！！"");history.go(-1);</script>")
response.end
end if
If request.form("Somane")="" Then
Response.Write("<script language=""JavaScript"">alert(""Error：You have not input the person to contact , please return and check ！！"");history.go(-1);</script>")
response.end
end if
If request.form("Phone")="" Then
Response.Write("<script language=""JavaScript"">alert(""Error：You have not input the telephone number , please return and check ！！"");history.go(-1);</script>")
response.end
end if
If request.form("title")="" Then
Response.Write("<script language=""JavaScript"">alert(""Error：You have not input titles , please return and check ！！"");history.go(-1);</script>")
response.end
end if
If request.form("content")="" Then
Response.Write("<script language=""JavaScript"">alert(""Error：You have not input the content of leaving a message , please return and check ！！"");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")="Not register user " then
response.redirect "En_Wtok.asp"
else
response.redirect "En_NetBook.asp"
end if
%>