message.asp

来自「欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆」· ASP 代码 · 共 34 行

<script Language= "javascript" >
function funInsert() 
{
	if (document.frmBoard.Contactman.value == "")  {
		window.alert("请输入姓名，谢谢！");document.frmBoard.Contactman.focus();return}
	if (document.frmBoard.Email.value == "")  {window.alert("请输入电子邮件地址，谢谢！");document.frmBoard.Email.focus();return}
	if (document.frmBoard.Title.value == "")  {window.alert("请输入留言标题，谢谢！");document.frmBoard.Title.focus();return}
   	document.frmBoard.submit();
	return true;
}
</script>
<% 'funInsert
   name=request("name")
   sex=request("sex")
   address=request("address")
   postcode=request("postcode")
   telphone=request("telphone")
  fax=request("fax")
  email=request("email") 
  title=request("title")
  comments=request("comments")
  dim conn,rs,path,sql
    set conn=Server.CreateObject("ADODB.Connection")
    path=Server.MapPath("message.mdb")
   conn.open  "driver={Microsoft Access Driver (*.mdb)};dbq="& path
   'conn.open "message"
   set rs = Server.CreateObject("ADODB.recordset")
   dim nowww
    nowww=CStr(Now)
   sql="insert into MessageData(姓名,性别,地址,邮编,电话,传真,电邮,主题,内容,时间) VALUES("&"'"+name+"'"&",'"+sex+"'"&",'"+address+"'"&",'"+postcode+"'"&",'"+telphone+"'"&",'"+fax+"'"&",'"+email+"'"&",'"+title+"'"&",'"+comments+"'"&",'"+nowww+"'"&")" 
   conn.Execute(sql)
   
   response.redirect  "success.html"
%>