index_cl.asp

一个简单适用的产品订购系统

<!--#include file="yd631_conn.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！"
response.write "</td></tr></table></center>"
response.end
end if

angela_product=trim(request.Form("yd631_product"))
angela_num=trim(request.Form("yd631_num"))
angela_kehu=trim(request.Form("yd631_kehu"))
angela_tel=trim(request.Form("yd631_tel"))
angela_fax=trim(request.Form("yd631_fax"))
angela_yb=trim(request.Form("yd631_yb"))
angela_email=trim(request.Form("yd631_email"))
angela_address=trim(request.Form("yd631_address"))
angela_other=trim(request.Form("yd631_other"))


set rs=server.CreateObject("adodb.recordset")
sql="select * from yd631_angela_order"
rs.open sql,conn,3,3
rs.addnew
rs("yd631_angela_product")=angela_product
rs("yd631_angela_num")=angela_num
rs("yd631_angela_kehu")=angela_kehu
rs("yd631_angela_tel")=angela_tel
rs("yd631_angela_fax")=angela_fax
rs("yd631_angela_yb")=angela_yb
rs("yd631_angela_email")=angela_email
rs("yd631_angela_address")=angela_address
rs("yd631_angela_other")=angela_other
rs("yd631_angela_time")=date()
rs("yd631_angela_pass")="no"
rs.update
%>
<script language="javascript">
	alert("定单提交成功！谢谢");
	location.href='angela.asp';
	</script>
	<%
	rs.close
	set rs=nothing
	
	
	%>