reply.asp

来自「电脑技术精华大全-共77册-507M.zip」· ASP 代码 · 共 35 行

<!--#include file="inc/dbconn.asp"-->

<%
id = request.querystring("id")


Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","&lt;")
exp2=Replace(exp2,">","&gt;")
exp2=Replace(exp2,"'","''")
exp2=Replace(exp2,Chr(13),"<br>")
Deal=exp2
End Function

%>

<%
Set rs=Server.CreateObject("ADODB.RecordSet")
strsql="Select * from 留言本 where ID = " & id
rs.open strsql,conn,1,3

rs("Reply_Icon") = request("repic")
rs("Reply")      = request("remain")
rs("Reply_Date") = cstr(now())
rs("Replyname")  = request("replyname")
rs.update


rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "index.asp" 
%>