<% html/cnsd/contact.asp

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="../inc/conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=Gb2312" />
<title>广州市澳图光电有限公司  GUANGZHOU AUTOLT CO.,LTD</title>
<meta name="keywords" content="澳图光电,澳图,澳图灯光,广州澳图光电有限公司,舞台灯光生产,舞台灯光销售">
<meta name="description" content="澳图光电,澳图,澳图灯光,广州澳图光电有限公司,舞台灯光生产,舞台灯光销售"><link href="../css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
input { border:#B4B4B4 1px solid; height:18px;}
.input1 { width:250px;}
.input2 { width:160px;}
.input3 { margin:0px 30px;}
textarea { border:#B4B4B4 1px solid; width:250px;}
/* --feedback-- */
.fb_tab { border-top:1px #CBCBCB solid; border-left:1px #CBCBCB solid;}
.fb_tab td { border-right:1px #CBCBCB solid; border-bottom:1px #CBCBCB solid;}
.fb_tab2 {}
.fb_tab2 td { height:30px;}
</style>
<%
if request.Form("act")="add" then
'注意:各个属性的类型
	
	if request.form("message")=""  then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，没有填写要发送的内容！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	if len(request.form("message"))>200  then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，您填写的内容太长了，请检查后重新提交！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	sql="select * from [message]"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	  	
  	rs("name")		=htmltostr(request.Form("username"),5000,200)
	rs("from")		=htmltostr(request.Form("email"),5000,200)
	rs("tel")		=htmltostr(request.Form("tel"),5000,200)
	rs("email")		=htmltostr(request.Form("email"),5000,200)
	rs("message")	=htmltostr(request.Form("message"),5000,200)
	rs("time")		=date()
	rs("read")		=0
	rs("ifshow")	=0
	
	if err<>0 then
		response.Write sql
		response.Write err.description
		response.End()
	end if