reply.asp

电脑知识十万个为什么-v1.5注册版.zip

<!--#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" 
%>