asp ajax新闻评论
Ajax.js
// AJAX类
function AJAXRequest() {
var xmlObj = false;
var CBfunc,ObjSelf;
ObjSelf=this;
try { xmlObj=new XMLHttpRequest; }
catch(e) {
try { xmlObj=new ActiveXObject("MSXML2.XMLHTTP"); }
catch(e2) {
try { xmlObj=new ActiveXObject("Microsoft.XMLHTTP"); }
catch(e3) { xmlObj=false; }
}
}
if (!xmlObj) return false;
this.method="POST";
this.url;
this.async=true;
this.content="";
this.callback=function(cbobj) {return;}
this.send=function() {
if(!this.method||!this.url||!this.async) return false;
xmlObj.open (this.method, this.url, this.async);
if(this.method=="POST") xmlObj.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
xmlObj.onreadystatechange=function() {
if(xmlObj.readyState==4) {
if(xmlObj.status==200) {
ObjSelf.callback(xmlObj);
}
}
}
if(this.method=="POST") xmlObj.send(this.content);
else xmlObj.send(null);
}
}
前台页面:
<style type="text/css">
#fbpl
{
width:600px;
height:200px;
background-color:#EEEEEE;
}
#fbbt
{
height:30px;
padding-top:5px;
text-align:center;
font-weight:bold;
color:#FF0000;
background-color:#CCCCCC;
}
#fbfm
{
text-align:left;
margin-left:80px;
}
#fbfm ul {
margin:10px;
padding:0px;
}
#fbfm li {
list-style: none;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 14px;
}
#nc
{
width:300;
border:#CCCCCC solid 1px;
}
#content
{
width:350;
height:100;
border:#CCCCCC solid 1px;
}
#anniu
{
height:30px;
text-align:center;
}
.bt
{
background-color:#FFFFFF;
color:#000000;
font-size:12px;
width:60;
height:20;
border:#CCCCCC solid 1px;
}
#pllist
{
width:600px;
background-color:#EEEEEE;
font-size:12px;
}
#pllbt
{
height:30px;
padding-top:5px;
text-align:center;
font-weight:bold;
color:#FF0000;
background-color:#CCCCCC;
}
#plbox
{
font-size:12px;
}
/*
.u {
font-size: 12px;
float:left;
height:25px;
line
相关文档:
ASP函数与VBSCRIPT类似,以下举一些常用的函数
Array()
函数返回一个数组
表达式 Array(list)
允许数据类型: 字符,数字均可
实例: <%
Dim myArray()
For i = 1 to 7
Redim Preserve myArray(i)
myArray(i) = WeekdayName(i)
Next
......
sub aspsql()
SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post),Sql_Inj ......
AJAX类
// AJAX类
function AJAXRequest() {
var xmlObj = false;
var CBfunc,ObjSelf;
ObjSelf=this;
try { xmlObj=new XMLHttpRequest; }
catch(e) {
try { xmlObj=new ActiveXObject("MSXML2.XMLHTTP"); }
catch(e2) {
try { xmlObj=new ActiveXObject("Microsoft.XMLHTTP"); }
catch(e ......
写了一个 用户自定义控件,有两个dropdownlist 关联。为了避免刷新使用ajax 实现。
defautl页面中使用到了这个用户控件,但是取值永远不是ajax赋值的结果而是初始化的值。
但把这两个dropdownlist 放到default 页面就能正常取值 不知道是什么原因。 ......
<mce:script type="text/javascript"><!--
var xmlHttp = false;
try {
xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e2) {
xmlHttp = false;
}
}
if (!xmlHttp & ......