submit.asp

订单系统 是同学自己做的 希望对大家有用

<%
If request.form("title")="" Then
response.write"<script>alert('请填写定单信息！');history.back()</script>"
response.end
End If
'If not isnumeric(request.form("title")) Then
'response.write"<script>alert('请确定您要选择的旅游路线！');history.back()</script>"
'response.end
'End If
'response.buffer="true"
If request.form("name")="" Then
response.write"<script>alert('请填写联系人姓名！');history.back()</script>"
response.end
End If
'If request.form("mail")="" Then
'response.write"<script>alert('请填写您的电子邮件地址！');history.back()</script>"
'response.end
'End If
'If not isnumeric(request.form("address")) Then
'response.write"<script>alert('请选择您的线路行程！');history.back()</script>"
'response.end
'End If
If request.form("address")="" Then
response.write"<script>alert('请选择您的线路行程！');history.back()</script>"
response.end
End If
If request.form("Price")="" Then
response.write"<script>alert('请选择您的消费意向！');history.back()</script>"
response.end
End If
If request.form("tel")="" Then
response.write"<script>alert('请填写您的联系电话！');history.back()</script>"
response.end
End If
If request.form("Content")="" Then
response.write"<script>alert('请附上您的简短留言！');history.back()</script>"
response.end
End If
If len(request.form("Content"))>1000 Then
response.write"<script>alert('留言不能超过1000字！');history.back()</script>"
response.end
End If
%>
<!--#include file="conn.asp"-->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from data where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("title")=request.form("title")
rs("name")=request.form("name")
rs("mail")=request.form("mail")
rs("address")=request.form("address")
rs("price")=request.form("price")
rs("tel")=request.form("tel")
rs("Content")=request.form("Content")
rs("date")=now()
rs("ip")=request.ServerVariables("remote_addr")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"Success.asp"
%>