|
<%
dim action
action=trim(request("action"))
if action = "save" then
if session("fkfk")=minute(now) then
response.write ""
response.End
end if
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), "
")
HTMLEncode2 = fString
end function
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from yinet_book",conn,1,3
rs.addnew
rs("subject")=trim(request("subject"))
rs("content")=htmlencode2(trim(request("content")))
rs("uname")=trim(request("uname"))
rs("mail")=trim(request("mail"))
rs("tel")=trim(request("tel"))
rs("address")=trim(request("add"))
rs("cname")=trim(request("cname"))
rs("fax")=trim(request("fax"))
rs("date")=now
rs("ip")=Request.ServerVariables("remote_addr")
rs.update
rs.close
set rs=nothing
session("fkfk")=minute(now)
response.write "
"
end if%>
|
