<%

sub lm() 
Dim rdsInfo
	set rdsInfo = Server.CreateObject("ADODB.Recordset")
	rdsInfo.Open "qy Where user= '"&session("qyname")&"'",Conn,3,3
rdsInfo(""&strlx&"")=request.form(""&strlx&"")
	rdsInfo.Update
	rdsInfo.Close
	set rdsInfo = nothing
Response.write("<script>alert(""信息編輯成功！"");location.href=""lm.asp?lx="&lx&"&m="&m&""";</script>")
Response.end
End Sub
sub addnew()
set rs=server.createobject("adodb.recordset")
sqltext="select * from qynews"
rs.open sqltext,conn,3,3
rs.addnew
rs("stype")=replace(trim(request.form("stype")),"'","")
rs("tit")=replace(replace(replace(replace(trim(request.form("tit")),";","；"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
rs("content")=request.form("content")
rs("from")=replace(trim(request.form("from")),"'","")
rs("firstImageName")=replace(trim(request.form("firstImageName")),"'","")
rs("d_savepathfilename")=replace(trim(request.form("d_savepathfilename")),"'","")
rs("hits")= 1
rs("userid")=Session("dluser")
rs.update
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
Response.write("<script>alert(""添加成功！"");location.href=""addnew.asp?m="&request("m")&""";</script>")
Response.end
end sub
sub addnewqy()
set rs=server.createobject("adodb.recordset")
sqltext="select * from qynews"
rs.open sqltext,conn,3,3
rs.addnew
rs("stype")=replace(trim(request.form("stype")),"'","")
rs("tit")=replace(replace(replace(replace(trim(request.form("tit")),";","；"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
rs("content")=dvHTMLEncode(request.form("content"))
rs("from")=replace(trim(request.form("from")),"'","")
rs("hits")= 1
rs.update
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
Response.write("<script>alert(""添加成功！"");location.href=""addnew.asp?m="&request("m")&""";</script>")
Response.end
end sub
sub modnew()
set rs=server.createobject("adodb.recordset")
rs.Open "qynews Where id= "&request("id"),Conn,3,3
rs("tit")=replace(replace(replace(replace(trim(request.form("tit")),";","；"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
rs("content")=dvHTMLEncode(request.form("content"))
rs("from")=replace(trim(request.form("from")),"'","")
rs("firstImageName")=replace(trim(request.form("firstImageName")),"'","")
rs("d_savepathfilename")=replace(trim(request.form("d_savepathfilename")),"'","")
rs.update
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
Response.write("<script>alert(""編輯成功！"");location.href=""new.asp?m="&request("m")&""";</script>")
Response.end
end sub
sub modnewqy()
set rs=server.createobject("adodb.recordset")
rs.Open "qynews Where userid='"&session("userid")&"' and id= "&request("id"),Conn,3,3
rs("tit")=replace(replace(replace(replace(trim(request.form("tit")),";","；"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
rs("content")=request.form("content")
rs("from")=replace(trim(request.form("from")),"'","")
rs("firstImageName")=replace(trim(request.form("firstImageName")),"'","")
rs("d_savepathfilename")=replace(trim(request.form("d_savepathfilename")),"'","")
rs.update
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
Response.write("<script>alert(""編輯成功！"");location.href=""new.asp?m="&request("m")&""";</script>")
Response.end
end sub
function dvHTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")

    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")

    dvHTMLEncode = fString
end if
end function
Function bbHTMLDecode(reString) '轉換HTML代碼
	Dim Str:Str=reString
	If Not IsNull(Str) Then
		Str = Replace(Str, "&amp;", "&")
		Str = Replace(Str, "&gt;", ">")
		Str = Replace(Str, "&lt;", "<")
		Str = Replace(Str, "&nbsp;", CHR(32))
	    Str = Replace(Str, "&nbsp;", CHR(9))
		Str = Replace(Str, "&#160;&#160;&#160;&#160;", CHR(9))
		Str = Replace(Str, "&quot;", CHR(34))
		Str = Replace(Str, "&#39;", CHR(39))
		Str = Replace(Str, "", CHR(13))
		Str = Replace(Str, "<br>", CHR(10))
		Str = Replace(Str, "<BR>", CHR(10))
		bbHTMLDecode = Str
	End If
End Function
%>