dayi_reply_save.asp

问卷答疑系统提供个工具欢迎大家交流免费使用

<!--#include file="conn.asp"-->
<% 
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
    changechr=replace(replace(replace(replace(changechr,"[sayyes]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
    changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 
end function
%>
<%
dim id
id=cstr(request("id"))
dim reply
dim sql
dim rs
reply=changechr(trim(request("reply")))
isreply=1
replydate=now()
on error resume next
set rs=server.createobject("adodb.recordset")
sql="update table_dayi set dayi_reply='"&reply&"',dayi_isreply='"&isreply&"',dayi_replydate='"&replydate&"' where id="+id
rs.Open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('回复成功！');"&"window.location.href = 'all.asp'"&" </script>" 
set rs=nothing
%>