submit.asp

支持在线订单提交

<%
If not isnumeric(request.form("productID")) Then
response.write"<script>alert('请确定您要选择的产品型号！');history.back()</script>"
response.end
End If
response.buffer="true"
If request.form("user")="" Then
response.write"<script>alert('请填写联系人姓名！');history.back()</script>"
response.end
End If
If request.form("email")="" Then
response.write"<script>alert('请填写您的电子邮件地址！');history.back()</script>"
response.end
End If
If not isnumeric(request.form("oicq")) Then
response.write"<script>alert('请输入正确的OICQ号码！');history.back()</script>"
response.end
End If
If request.form("corp")="" 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("add")="" Then
response.write"<script>alert('请填写您公司的地址！');history.back()</script>"
response.end
End If
If len(request.form("memo"))>500 Then
response.write"<script>alert('备注不能大于500字！');history.back()</script>"
response.end
End If
%>
<!--#include file="conn.asp"-->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from cdb where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("user")=request.form("user")
rs("email")=request.form("email")
rs("oicq")=request.form("oicq")
rs("corp")=request.form("corp")
rs("tel")=request.form("tel")
rs("url")=request.form("url")
rs("add")=request.form("add")
rs("memo")=request.form("memo")
rs("dt")=now()
rs("productID")=request.form("productID")
rs("ip")=request.ServerVariables("remote_addr")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"success.asp"
%>