lyb_save.asp

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

<!--#include file=../system/include/config.asp-->
<!--#include file=../share/conn_news.asp-->
<!--#include file=../system/include/function.asp-->
<%
        dim rs,sql,bz

	
        bz=request("bz")
	bz=replace(bz," ","&nbsp;")
        bz=replace(bz,chr(13)&chr(10),"<Br>")
	

	sql="select * from [paper_lyb]"
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        rs.addnew
        
        rs("bz")=bz
        rs("man")=request("man")
        rs("paper_id")=request("paper_id")
        rs("email")=request("email")
        rs("date")=now()

        rs.update

	dim fso,f,forappending
	forappending=8
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Set f = fso.OpenTextFile(Server.Mappath("../system/admin/remove.txt"), forappending, True)
	f.WriteLine request("email")
	f.Close()
	set f=nothing
	set fso=nothing
%>
<!--#include file=../system/include/foot.asp-->
<SCRIPT LANGUAGE=vbscript>
<!--
msgbox("提交成功!")
window.top.location.href="lyb_view.asp?type=<%=request("type")%>&amp;paper_id=<%=request("paper_id")%>"
-->
</SCRIPT>