fyaspcode.asp

学校成绩查询系统是一个非常好的软件请大家试试

<%
sub addnew()
set rs=server.createobject("adodb.recordset")
sqltext="select * from news"
rs.open sqltext,conn,3,3
rs.addnew
rs("tit")=replace(replace(replace(replace(trim(request.form("tit")),";","；"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
rs("content")=request.form("content")
rs("firstImageName")=replace(trim(request.form("firstImageName")),"'","")
rs("d_savepathfilename")=replace(trim(request.form("d_savepathfilename")),"'","")
rs("hits")= 1
rs.update
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
Response.write("<script>alert(""添加成功！"");location.href=""addnew.asp"";</script>")
Response.end
end sub
sub modnew()
set rs=server.createobject("adodb.recordset")
sqltext="select * from news"
rs.open sqltext,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("hits")= 1
rs.update
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
Response.write("<script>alert(""修改成功！"");location.href=""news.asp"";</script>")
Response.end

end sub
sub addnewqy()
set rs=server.createobject("adodb.recordset")
sqltext="select * from news"
rs.open sqltext,conn,3,3
rs.addnew
rs("tit")=replace(replace(replace(replace(trim(request.form("tit")),";","；"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
rs("content")=dvHTMLEncode(request.form("content"))
rs("hits")= 1
rs.update
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
Response.write("<script>alert(""添加成功！"");location.href=""addnew.asp"";</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
%>