📄 add.asp
字号:
<%@ codepage ="936" %><!--#include file="../conn/dbconn1.asp"--><!--#include file="../inc/config.asp"--><SCRIPT>function viewa(url){ var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=100,width=575,height=240'); }</SCRIPT><HTML><HEAD><TITLE><%=WebName%>·在线咨询</TITLE><META content=zh-cn http-equiv=Content-Language><META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK href="images/main.css" rel=stylesheet><META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD><BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"><tr><TD bgColor=#FFFFFF height=4></TD></tr></table><center><TABLE border=0 cellPadding=0 cellSpacing=0 width="770" style="border-collapse: collapse" bordercolor="#111111"><TBODY><tr><TD background="images/x_2.gif" height=69 vAlign=top width=275> <a target="_top" href="<%=WebUrl%>"> <img src="../images/zyokLOGO3.gif" width="157" height="50" border="0"></a></TD><TD vAlign=top><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="40"><tr><td width="100%" valign="top"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="41"><tr><td width="23%" rowspan="2" height="8" valign="bottom"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6"><tr><td width="100%" valign="top"><img border="0" src="images/car6684.gif"></td></tr></table></td><td width="77%" height="17"><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="338" id="AutoNumber5"><tr><TD width="25" style="font-size: 12px; font-family: 宋体; line-height: 150%"> </TD><TD width="66" style="font-size: 12px; font-family: 宋体; line-height: 150%"> </TD><TD width="25" style="font-size: 12px; font-family: 宋体; line-height: 150%"> </TD><TD width="66" style="font-size: 12px; font-family: 宋体; line-height: 150%"> </TD><TD width="290" style="font-size: 12px; font-family: 宋体; line-height: 150%"><p align="center"> <b><span style="font-weight: 400"><font color="#FFFF00"><%if session("user")<>"" then%><a href="../exitsystem.asp"><img border="0" src="../hyxx/images/gb.gif" width="16" height="13" alt="点击退出"></a></font>欢迎您:<font face=arial color="#FF0000"><%=session("user")%></font><font color="#FFFF00"><%else%> </font></span></b><a href="../Login/register.asp"><img border="0" src="../images/zc.gif"></a> <a href="../help/hyhelp.asp"><img border="0" src="../images/help.gif"></a><b><span style="font-weight: 400"><font color="#FFFF00"><%end if%></font></span></b></TD><TD width=4 valign="middle" style="font-size: 12px; font-family: 宋体; line-height: 150%; color: #000"> </TD></tr></table></center></div></td></tr><tr><td width="77%" height="3"> </td></tr></table></td></tr></table><TABLE border=0 cellPadding=0 cellSpacing=0 width="495"><TBODY><TR><TD align=right bgColor=#ff8400 height=28 width="385"><center><TABLE border=0 cellPadding=2 cellSpacing=0 width=200 style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD width="11"><B><IMG src="images/index_aro.gif"></B></TD><TD width="82"><font color="#FFFFFF" style="font-size: 10pt; letter-spacing: 1"><b><a href="Add.asp"><font color="#FFFFFF">我要咨询</font></a></b></font></TD><TD width="11"><B><IMG src="images/index_aro.gif"></B></TD><TD width="76"><span style="letter-spacing: 1"><font color="#FFFFFF" size="2"><b><a href="default.asp"><font color="#FFFFFF">查看留言</font></a></b></font></span></TD></TR></TBODY></TABLE></TD><TD align=right bgColor=#ff8400 height=28 width="82"><font color="#FFFFFF"><b><a href="../default.asp"><font color="#FFFFFF" style="font-size: 10pt"><<回首页</font></a></b></font></TD><TD align=right height=28 width=28><IMG src="images/x_3.gif"></TD></TR></TBODY></TABLE></TD></tr></TBODY></TABLE></center><center><TABLE width="770" height="428" border=0 align="center" cellPadding=0 cellSpacing=0 bordercolor="#111111" style="border-collapse: collapse"><TBODY><TR><TD vAlign=top height="401" width="769"><TABLE border=0 cellPadding=0 cellSpacing=0 width="769"><TBODY><TR><TD align=right width=38> </TD><TD height=25 width=52><B><FONT color=#cc6600> </FONT></B><IMG src="images/x_4.gif"> </TD><TD height=25 width=679><B><span style="font-size: 10.5pt; letter-spacing: 1">客户留言咨询</span></B></TD></TR></TBODY></TABLE><div align="center"><center><TABLE border=0 cellPadding=0 cellSpacing=0 width="669" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD bgColor=#01438b height=1 width="669"></TD></TR><TR><TD bgColor=#217dda height=5 width="669"></TD></TR></TBODY></TABLE></center></div><center><TABLE border=0 cellSpacing=1 width="670" style="border-collapse: collapse" bordercolor="#111111" background="images/bg1.gif" height="192"><TBODY><TR><TD align=middle height="169" width="666"><TABLE border=0 cellPadding=0 cellSpacing=0 height=160 width="100%" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#FFFFFF"><TBODY><TR vAlign=top><TD colSpan=5 height="160"><div align="center"><center><table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111"><tr> <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111"><tr> <td> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff" style="border-collapse: collapse"><tr> <td><div align="center"><center><table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" height="52"><tr><td height="20" bgcolor="#CCCCCC"> <div align="center"><strong><font color="#FF0000" size="3">添 加 留 言</font></strong></div></td></tr><tr> <td height="56" valign="top"><table width="100%" border="1" cellpadding="0" cellspacing="1" bgcolor="F4F4F4" style="border-collapse: collapse" bordercolor="#111111" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><Form language=javascript name="GbAdd" method="post" action="Add.asp?add" onsubmit="return GbAdd_onsubmit()"> <tr> <td width="120" height="30" align="right">姓名：</td><td width="640" height="30"> <input name="U_Name" type="text" maxlength="20" size="20"><font color="#FF0000">*</font> 请写上您的姓名。</td></tr><tr> <td width="120" height="30" align="right">电话：</td><td height="30"> <input name="tel2" type="text" maxlength="20" size="20">（请填好您的联系电话。）</td></tr><tr> <td width="120" height="30" align="right">邮箱：</td><td height="30"> <input name="U_Email" type="text" size="45" maxlength="50">（请填好您最常用的Email地址。）</td></tr><tr> <td width="120" height="30" align="right">来自：</td><td height="30"> <SELECT name=where2> <OPTION selected>==请选择==</OPTION> <OPTION value=河南>河南</OPTION> <OPTION value=北京>北京</OPTION> <OPTION value=上海>上海</OPTION> <OPTION value=天津>天津</OPTION> <OPTION value=重庆>重庆</OPTION> <OPTION value=河北>河北</OPTION> <OPTION value=山西>山西</OPTION> <OPTION value=内蒙古>内蒙古</OPTION> <OPTION value=辽宁>辽宁</OPTION> <OPTION value=吉林>吉林</OPTION> <OPTION value=黑龙江>黑龙江</OPTION> <OPTION value=江苏>江苏</OPTION> <OPTION value=安徽>安徽</OPTION> <OPTION value=福建>福建</OPTION> <OPTION value=江西>江西</OPTION> <OPTION value=山东>山东</OPTION> <OPTION value=四川>四川</OPTION> <OPTION value=浙江>浙江</OPTION> <OPTION value=湖北>湖北</OPTION> <OPTION value=云南>云南</OPTION> <OPTION value=湖南>湖南</OPTION> <OPTION value=广东>广东</OPTION> <OPTION value=台湾>台湾</OPTION> <OPTION value=广西>广西</OPTION> <OPTION value=海南>海南</OPTION> <OPTION value=贵州>贵州</OPTION> <OPTION value=西藏>西藏</OPTION> <OPTION value=陕西>陕西</OPTION> <OPTION value=甘肃>甘肃</OPTION> <OPTION value=青海>青海</OPTION> <OPTION value=宁夏>宁夏</OPTION> <OPTION value=新疆>新疆</OPTION> <OPTION value=香港>香港</OPTION> <OPTION value=澳门>澳门</OPTION> <OPTION value=台湾>台湾</OPTION> <OPTION value=美国>美国</OPTION> <OPTION value=新加坡>新加坡</OPTION> <OPTION value=德国>德国</OPTION> <OPTION value=法国>法国</OPTION> <OPTION value=英国>英国</OPTION> <OPTION value=加拿大>加拿大</OPTION> <OPTION value=新西兰>新西兰</OPTION> <OPTION value=澳大利亚>澳大利亚</OPTION> <OPTION value=巴西>巴西</OPTION> <OPTION value=韩国>韩国</OPTION> <OPTION value=日本>日本</OPTION> <OPTION value=意大利>意大利</OPTION> <OPTION value=俄罗斯>俄罗斯</OPTION> <OPTION value=其它>其它</OPTION></SELECT></td></tr><tr> <td width="120" height="30" align="right">标题：</td><td height="30"> <input name="Title" type="text" size="62" maxlength="50"><font color="#FF0000">*</font></td></tr><tr> <td width="120" align="right">内容：</td><td><textarea name="Content" cols="68" rows="8"></textarea><font color="#FF0000">*</font></td></tr><tr align="center"> <td height="30" colspan="2"> <input type="submit" name="Submit" value="提 交"> <input type="reset" name="reset" value="重 写"> </td></tr></Form></table></td></tr><tr><TD bgColor=#F2F2F2 height=1></TD></tr></table></center></div></td></tr></table></td></tr></table></td></tr></table></center></div></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></center></TD><SCRIPT language=javascript id=QzeNet><!--function GbAdd_onsubmit() {if(document.GbAdd.U_Name.value.length<1){alert("您必须输入您的姓名!");document.GbAdd.U_Name.focus();return false;}if(document.GbAdd.where2.value.length<1){alert("请选择你来自区域!");document.GbAdd.where2.focus();return false;}if(document.GbAdd.Title.value.length<1){alert("您必须输入您的咨询标题!");document.GbAdd.Title.focus();return false;}if(document.GbAdd.Content.value.length<1){alert("您必须输入您的留言内容!");document.GbAdd.U_Name.focus();return false;}if(document.GbAdd.Content.value.length>600){alert("您输入留言内容超过600字!");document.GbAdd.U_Name.focus();return false;}}//--></SCRIPT><% Dim Uname,tel1,Uemail,where1,Utitle,UcontentUname = Trim(request.form("U_Name"))tel1 = Trim(request.form("tel2"))Uemail = Trim(request.form("U_Email"))where1 = Trim(request.form("where2"))Utitle = request.form("Title")Ucontent = request.form("Content")'HTML支持function htmlencode(str)htmlencode=server.htmlencode(str)htmlencode=replace(replace(htmlencode,chr(13),"<br>"),"'","’")end functionset rs=server.createobject("adodb.recordset")sqltext="select * from GuestBook"rs.open sqltext,conn,3,3if request.querystring="add" then'添加一条留言到数据库rs.addnewrs("UserName")=Unamers("tel")=tel1if Uemail="" thenrs("UserEmail")="@"elsers("UserEmail")=Uemailend ifrs("where")=where1rs("Title")=Utitlers("Content")=htmlencode(Ucontent)rs("AddTime")=cstr(now())rs.updaters.closeconn.closeResponse.Redirect "default.asp"End if%><TD bgColor=#ff8400 width=2 rowspan="2" height="428"></TD></TR><tr><td width="769" background="../images/bt1.gif"> </td></tr></TBODY></TABLE></BODY><!--#include file="../inc/end.asp"--></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -