Shulou(Shulou.com)06/03 Report--

Editor to share with you how to achieve the ajax message board, I believe that most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to understand it!

The code is as follows:

/ / JavaScript Document

Function $(id)

{

Return document.getElementById (id)

}

Function echo (obj,html)

{

$(obj) [xss_clean] = html

}

Function fopen (obj)

{

$(obj) .style.display = ""

}

Function fclose (obj)

{

$(obj) .style.display = "none"

}

Function lTrim (str)

{

If (str.charAt (0) = = "")

{

/ / if the first character on the left of the string is a space

Str = str.slice (1); / / remove spaces from the string

/ / this sentence can also be changed to str = str.substring (1, str.length)

Str = lTrim (str); / / Recursive call

}

Return str

}

/ / remove the space to the right of the string

Function rTrim (str)

{

Var iLength

ILength = str.length

If (str.charAt (iLength-1) = "")

{

/ / if the first character to the right of the string is a space

Str = str.slice (0, iLength-1); / / remove spaces from the string

/ / this sentence can also be changed to str = str.substring (0, iLength-1)

Str = rTrim (str); / / Recursive call

}

Return str

}

/ / remove the spaces on both sides of the string

Function trim (str)

{

Return lTrim (rTrim (str))

}

Function sck (s)

{

Return s.replace (/\ nUnig, "[br]")

/ / s=s.replace (chr (13) & chr (23), "")

/ / return s

}

Function f (obj)

{

Return trim (eval ("document.forms [0]." + obj+ ".value"))

/ / return trim ($(obj) .value)

}

Function setf (obj)

{

Return eval ("document.forms [0]." + obj+ ".focus ();")

}

Function show (obj)

{

Var slots $(obj) .style

S. Displaygirls. Displaygirls = "none"? "": "none"

}

Function echo (obj,html)

{

$(obj) [xss_clean] = html

}

Function createxmlhttp ()

{

Var xmlhttp=false

Try {

Xmlhttp = new ActiveXObject ("Msxml2.XMLHTTP")

}

Catch (e) {

Try {

Xmlhttp = new ActiveXObject ("Microsoft.XMLHTTP")

}

Catch (e) {

Xmlhttp = false

}

}

If (! xmlhttp & & typeof xMLHttpRequestrated undefined) {

Xmlhttp = new XMLHttpRequest ()

If (xmlhttp.overrideMimeType) {/ / set the MiME category

Xmlhttp.overrideMimeType ('text/xml')

}

}

Return xmlhttp

}

Function getnum (url,obj)

{

/ / var b = ""

Var xmlhttp=createxmlhttp ()

If (! xmlhttp)

{

Alert ("your browser does not support XMLHTTP clients!")

Return

}

Xmlhttp.onreadystatechange=requestdata

Xmlhttp.open ("GET", url,true)

Xmlhttp.send (null)

Function requestdata () {

If (xmlhttp.readyState==4)

{

If (xmlhttp.status==200)

{

(obj) .value=xmlhttp.responseText

}

}

}

}

Function getdata (url,obj1,obj2)

{

Var xmlhttp=createxmlhttp ()

If (! xmlhttp)

{

Alert ("your browser does not support XMLHTTP clients!")

Return

}

Xmlhttp.onreadystatechange=requestdata

Xmlhttp.open ("GET", url,true)

Xmlhttp.send (null)

Function requestdata ()

{

Fopen (obj1)

Echo (obj1, "loading data, please wait a moment.")

If (xmlhttp.readyState==4)

{

If (xmlhttp.status==200)

{

If (obj1 updated obj2) {fclose (obj1);}

Echo (obj2,xmlhttp.responseText)

}

}

}

}

Function postdata (url,obj,data)

{

Var xmlhttp=createxmlhttp ()

If (! xmlhttp)

{

Alert ("your browser does not support XMLHTTP clients!")

Return

}

Xmlhttp.open ("POST", url, true)

Xmlhttp.onreadystatechange=requestdata

Xmlhttp.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded")

Xmlhttp.send (data)

Function requestdata ()

{

Fopen (obj)

Echo (obj, "data is being submitted, please wait a moment.")

/ / alert (xmlhttp.readyState)

If (xmlhttp.readyState==4)

{

/ / alert (xmlhttp.status)

If (xmlhttp.status==200)

{

Echo (obj,xmlhttp.responseText)

}

}

}

}

Function checkform (obj,id)

{

If (f ("user") = "")

{

Alert ("Please leave your name!")

Setf ("user")

Return false

}

If (f ("user") .length > 10 & & f ("user") 50)

{

Alert ("Sorry the title is too long!")

Setf ("title")

Return false

}

If (f ("content") = "")

{

Alert ("messages cannot be empty!")

Setf ("content")

Return false

}

Data= "user=" + escape (f ("user")) + "& title=" + escape (f ("title")) + "& content=" + escape (document.forms [0] .content.value) + & reply= + escape (f ("reply"))

/ / alert (data)

/ / data= "content=" + escape (sck (f ("content")

If (obj== "add")

{

/ / alert (obj)

Postdata ("file.asp?action=addsave", "contentdata", data)

} else if (obj== "reply")

{

Postdata ("file.asp?action=replysave", "contentadmin" + id,data)

}

Return true

}

Function adminlogin ()

{

If ($(adminuser ") .value==")

{

Alert ("Management account cannot be empty!")

("adminuser") .focus ()

Return false

}

If ($(adminpwd ") .value==")

{

Alert ("Administrative password cannot be empty!")

("adminpwd") .focus ()

Return false

}

Data= "adminuser=" + escape ($("adminuser") .value) + "& adminpwd=" + escape ($("adminpwd") .value)

Postdata ("file.asp?action=checkadmin", "loginlist", data)

Return true

}

Function adreset ()

{

$("adminuser") .value= ""

$("adminpwd") .value= ""

}

Function linktool ()

{

If ($("linktool") [xss_clean] = "self-help link")

{

$("linktool") [xss_clean] = "friendly link"

Getdata ("list.asp?action=addlink", "linklist", "linklist")

} else

{

$("linktool") [xss_clean] = "self-help link"

Getdata ("list.asp?action=linklist", "linklist", "linklist")

}

}

Function addlink ()

{

If ($(home ") .value==")

{

Alert ("site name cannot be empty")

("home") .focus ()

Return false

}

If ($(url ") .value==")

{

Alert ("website address cannot be empty!")

("url") .focus ()

Return false

}

Data= "home=" + escape ($("home") .value) + "& url=" + escape ($("url") .value)

Postdata ("list.asp?action=linksave", "linklist", data)

Return true

}

Function linkreset ()

{

$("home") .value= ""

$("url") .value= ""

}

Function updatepwd ()

{

If (f ("user") = "")

{

Alert ("Please enter an administrative account!")

Setf ("user")

Return false

}

If (f ("npwd") = "")

{

Alert ("Please enter the administrative password!")

Setf ("npwd")

Return false

}

If (f ("npwd")! = f ("npwd1"))

{

Alert ("New password and confirmation password are not the same!")

Setf ("npwd")

Return false

}

Data= "user=" + escape (f ("user")) + "& pwd=" + escape (f ("npwd"))

Postdata ("list.asp?action=savepwd", "contentdata", data)

Return true

}

Function updateinfo ()

{

If (f ("gonggao") = "")

{

Alert ("announcement content cannot be empty!")

Setf ("gonggao")

Return false

}

If (f ("foot") = "")

{

Alert ("copyright information cannot be empty!")

Setf ("foot")

Return false

}

Data= "news=" + escape (document.forms [0] .gonggao.value) + "& foot=" + escape (document.forms [0] .foot.value)

Postdata ("list.asp?action=infosave", "contentdata", data)

Return true

}

The above is all the contents of the article "how to achieve the ajax message board". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.