save_lyb.asp

来自「<1> 优化了部分代码及一些BUG.提高了浏览速度 <2&」· ASP 代码 · 共 38 行

<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_system.asp-->
<%
        dim rs,sql,ly_bz
	
        ly_bz=request("ly_bz")
	ly_bz=replace(ly_bz," ","&nbsp;")
        ly_bz=replace(ly_bz,chr(13)&chr(10),"<Br>")
	

	sql="select * from [lyb]"
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew
        
        rs("ly_bz")=ly_bz
        rs("ly_man")=request("ly_man")
        rs("ly_tel")=request("ly_tel")
        rs("ly_email")=request("ly_email")
        rs("ly_date")=now()

        rs.update

%>

<!--#include file=../include/foot.asp-->

<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("你已成功留言!")
Sub window_onload

window.history.back

End Sub

-->
</SCRIPT>