replysave.asp

来自「网络商城系统」· ASP 代码 · 共 24 行

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%
if request.form("content")="" then
response.write"<script language=javascript>alert('评论内容必须填写');this.location.href='javascript:history.go(-1)';</script>"
response.end
end if
function html(constring)
        constring=replace(constring,CHR(13),"")
		constring=replace(constring,CHR(10),"<br>")
		constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
		html=constring
end function
	
set rs=server.createobject("adodb.recordset")
sql="select * from pl where id="&request("id1")
rs.open sql,conn,3,3
rs("reply")=html(trim(request("content")))
rs("check")=true
rs.update
response.write"<script language=javascript>alert('该条评论已经回复');this.location.href='comment.asp';</script>"
rs.close
set rs=nothing
%>