|
|
|
 当前位置：首页 > > 如何将提交的数据中的换行符替换成
|
<%
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " </P> <P>")
fString = Replace(fString, CHR(10), " <BR>")
HTMLEncode2 = fString
end function
%>
<%
if Request.QueryString("mark")="southidc" then
id=request("id")
content1=Request("content1")
content1=HTMLEncode2(content1)
content=Request("content")
If content1="" Then
response.write "SORRY <br>"
response.write "内容不能为空!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from contact where id="&id
rs.open sql,conn,1,3
rs("content1")=content1
rs("content")=content
rs.update
rs.close
response.redirect "contact_ManageEdit.asp?id=1"
end if
%>
|
|
