replyinsert.asp

来自「用asp写的关于亚运会的网页」· ASP 代码 · 共 28 行

<%@LANGUAGE="VBSCRIPT"%>
<%
function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "<P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLcode = fString
end if
end function
hf=trim(request.Form("Reply"))
id=clng(request.Form("MM_recordId"))
sj=date()
set cn1 = server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
cn1.ConnectionString="dsn=asp"
cn1.Open 
rs.LockType=3
sql1= "SELECT * FROM table_liuyan WHERE ID = " & id
rs.Open sql1,cn1
rs(5)=HTMLcode(hf)
rs(7)=sj
rs.update
cn1.close
set cn1=nothing
response.redirect "admin.asp"
%>