IDC资讯中心
这是最重要的一个了。也很大。我的习惯不太好。没有加详细的注释，认真看吧。
#########send.asp##############
<html>
<head>
<meta content="text/html; charset=gb2312" http-equiv=content-type>
<meta http-equiv=pragma content=no-cache>
<link rel="shortcuticon" url="images/bluenote.ico">
<style type="text/css">
td{font-family: "宋体"; font-size: 9pt}
body { font-family: "宋体"; font-size: 9pt}
select { font-family: "宋体"; font-size: 9pt}
.p9{font-family:"宋体";font-size:9pt;line-height:130%; width:68px;}
a {cursor:hand;text-decoration:none; font-family: "宋体"; font-size: 9pt;}
input{font-size:9pt}
.an{background-color:ffffff;color:000000;border: 1 double}
</style>
<title>发言</title>
<script language=javascript>
var tmp0="$f对$t说：|无表情|$f向$t微微一笑：|微笑|$f笑嘻嘻地对$t说：|嘻笑|$f冲$t傻乎乎的笑笑：|傻笑|$f对$t娇笑着：|娇笑|$f对着$t哈哈大笑：|大笑|$f看着$t，心头一阵狂喜：|狂喜|$f冲着$t狂笑不已：|狂笑|$f对$t奸笑着：|奸笑|$f咯咯一笑，很大方地对$t说：|大方|$f紧紧地握住$t的手：|握手|$f向$t挥了挥手：|挥手|$f耸耸肩，两手一摊：$t，|耸肩1|$f无奈地耸耸肩：$t，|耸肩2|$f摸摸$t的头，细声安慰：|安慰|$f笑呵呵向$t一拱手：|拱手|$f很有礼貌地对$t作了一揖：|作揖|$f深深地鞠了一躬：$t，|鞠躬|$f不好意思地对$t说：|歉意|$f瞪大了眼睛，很讶异地看着$t：|讶异|$f大吃一惊：$t，|惊讶|$f茫然地看着$t：|茫然|$f一脸的迷茫：$t，|迷茫|$f颇感迷惑：$t，|迷惑|$f感到很是奇特：$t，|奇特|$f对$t潇洒地一甩头：|潇洒|$f惋惜地看着$t：|惋惜|$f对$t皱了皱眉：|皱眉|$f很遗憾地对$t说：|遗憾|$f大包大揽地向$t承诺：|承诺|$f抓抓头皮，还是不解：$t，|不解|$f提高嗓门，大声地对$t说：|大声|"
var tmp1="$f不解地问$t：|询问|$f向$t吐了吐舌头：|吐舌|$f非常自信地对$t说：|自信|$f向上天祈祷着,$t，|祈祷|$f向$t噘了噘嘴：|噘嘴|$f嘟着嘴对$t说：|嘟嘴|$f平静地对$t说：|平静|$f高兴地对$t说：|高兴|$f在$t耳边悄悄地说：|耳语|$f眯着小眼睛对$t说：|眯眼|$f眼波晶莹明亮地看着$t：|眼亮|$f幸福地看着$t：|幸福|$f很满足地对$t说：|满足|$f轻轻牵着$t的手，小声地说：|牵手|$f轻轻推了$t一下：|轻推|$f粘粘糊糊地向$t撒娇：|撒娇|$f对$t做了个鬼脸：|鬼脸|$f神秘兮兮地对$t说：|神秘|$f脸上泛起了红晕，低着头小声地对$t说：|脸红|$f低着头，玩弄着自己的手指，羞得满脸通红：$t，|害羞|$f小猫猫般地依偎在$t的怀中：|依偎|$f拍了拍$t那脏兮兮的小脸蛋：|拍脸|$f向$t抛去一个媚眼：|媚眼|$f恶狠狠地冲$t瞪着眼睛：|瞪眼|$f柔声地对$t说：|柔声|$f情意绵绵地望着$t说：|深情|$f温柔地抱住$t说：|拥抱|$f亲了亲$t的脸：|亲亲|$f恋恋不舍地拉着$t的衣角：|不舍|"
var tmp2="$f运足气一声断喝：$t！|断喝|$f幸灾乐祸地对$t说：|幸灾|$f露出无可奈何的表情：$t，|无奈|$f使劲敲敲自己脑门，看着$t：|拍脑|$f顾作沉思状：$t，|沉思|$f一付无辜的样子：$t，|无辜1|$f感到非常无辜，$t：|无辜2|$f感觉很不舒服：$t，|不适|$f打个大哈欠：$t，|哈欠|$f口吐白沫，晕倒在地：$t，|白沫|$f感到无聊极了：$t，|无聊|$f看着$t，快要吐了：|想吐|$f一脸无赖泼皮样子：$t，|无赖|$f歪着看着$t，二球劲十足：|二球|$f双眼盯着$t，奴才嘴脸十足：|奴才|$f委屈地对$t说：|委屈|$f大感沮丧：$t，|沮丧|$f望着窗外细雨淅淅，不由得双眼朦胧：$t，|伤感|$f悲伤地对$t说：|悲伤|$f泪水在眼框里打着转：$t，|含泪|$f看着$t，快要哭了：|要哭|$f低低抽泣着：$t，|抽泣|$f一把将$t抱住，哭哭涕涕：|抱哭|$f想到伤心处，泪流如注：$t，|大哭|$f抱头放声大哭：$t，|痛哭|$f号淘大哭：$t，|大哭|$f对$t露出失望的表情：|失望|$f用眼角斜视$t，满脸俱是轻蔑不屑之色：|轻蔑|$f生气地对$t说：|生气|"
var tmp3="$f向$t提出强烈抗议：|抗议|$f对$t大声叫嚷：|叫嚷|$f对$t气愤地嚷道|气愤|$f怨毒地看着$t：|怨毒|$f一把甩掉$t的手，恶恨恨地说：|甩手|$f目光尽赤，冲$t怒不可恶地狂吼：|暴怒|$f打了$t老大一个耳括子：|耳光|$f不客气地猛揍$t一拳：|拳打|$f一脚踢在$t的屁股上：|脚踢|$f向$t点头称是：|点头称是|$f兴高采烈地对$t说：|兴高采烈|$f惊慌失措地对$t说：|惊慌失措|$f幸灾乐祸地对$t说：|幸灾乐祸|$f眉飞色舞地对$t说：|眉飞色舞|$f阴阳怪气地对$t说：|阴阳怪气|$f哭天抢地地对$t说：|哭天抢地|$f牢骚满腹地对$t说：|牢骚满腹|$f理屈词穷地对$t说：|理屈词穷|$f江郎才尽地对$t说：|江郎才尽|$f凶神恶煞地对$t说：|凶神恶煞|$f眉歪眼斜地对$t说：|眉歪眼斜|$f目光凛然地对$t说：|目光凛然|$f声嘶力竭地对$t说：|声嘶力竭|$f意乱情迷地对$t说：|意乱情迷|$f脸色铁青地对$t说：|脸色铁青|$f失魂落魄地对$t说：|失魂落魄|$f目光呆滞地对$t说：|目光呆滞|$f正气凛然地对$t说：|正气凛然|"
var tmp4="$f手足无措地对$t说：|手足无措|$f无精打采地对$t说：|无精打采|$f依依不舍地对$t说：|依依不舍|$f拳打脚踢地对$t说：|拳打脚踢|$f不怀好意地对$t说：|不怀好意|$f毛手毛脚地对$t说：|毛手毛脚|$f得意洋洋地对$t说：|得意洋洋|$f慨叹万千地对$t说：|慨叹万千"
var etmp=tmp0+tmp1+tmp2+tmp3+tmp4;
var ev=etmp.split("|")
function wh(fn){
fn.open();
fn.writeln("<!–★请另存为html类型的文件★–>");
fn.writeln("<html><head><title>对话区</title><meta http-equiv=content-type content=\"text/html; charset=gb2312\">");
fn.writeln("<style type=text/css>.t{color:003366;font-size:9pt;}.pic{font-size:17pt;}body{font-family:\"宋体\";font-size:10.5pt;line-height:160%}a{text-decoration:none}a:hover{text-decoration:underline}a:visited{color:blue}</style></head><\script language=\"javascript1.1\">");
fn.writeln("var autoscrollon=1;var scrollonfunction;var scrollofffunction;");
fn.writeln("function scrollit(){ if(!parent.sd.ot.as.checked){autoscrollon=0;return true;}else{autoscrollon=1;startup();return true;}}function scrollwindow(){if(autoscrollon==1){this.scroll(0,65000);settimeout(scrollwindow(),200);}}function scrollon(){autoscrollon=1;scrollwindow();}function scrolloff(){autoscrollon=0;}function startup(){parent.onblur=scrollonfunction;parent.onfocus=scrollofffunction;scrollwindow();}");
fn.writeln("scrollonfunction=new function(scrollon());");
fn.writeln("scrollofffunction=new function(scrolloff());");
fn.writeln("startup();</\script>");return;
}
function write(){
wh(parent.pub.document);
parent.pub.document.writeln("<body text=#000000 bgcolor=#eeeeff >");
parent.pub.document.writeln("<div id=\"div0\"></div>◆<span style=color:#ff0088>蓝蝶聊天室</span>◆中心大厅<br>轻轻敲醒沉睡的心灵，慢慢张开你的眼睛，让那昨日的忧伤随聊而去！<hr size=1><div id=ly></ly>");
wh(parent.my.document);
var myd=parent.my.document;
myd.writeln("<body text=#000000 bgcolor=#eeeeff >");
myd.writeln("<div id=\"div0\"></div>◆<span style=color:#ff0088>蓝蝶聊天室</span>◆温馨包厢<br>");
myd.writeln("<span style=color:#0000ff;font-size:9pt>[这是您的个人包厢，只显示和您相关的发言！]</span><hr size=1><div id=ly></div>");
}
</script>
<script language="vbscript">
function urlencoding(vstrin)
strreturn = ""
for i = 1 to len(vstrin)
thischr = mid(vstrin,i,1)
if abs(asc(thischr)) < &hff then
strreturn = strreturn & thischr
else
innercode = asc(thischr)
if innercode < 0 then
innercode = innercode + &h10000
end if
hight8 = (innercode and &hff00)\ &hff
low8 = innercode and &hff
strreturn = strreturn & "%" & hex(hight8) & "%" & hex(low8)
end if
next
urlencoding = strreturn
end function
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
</script>
<script language="javascript">
var me="<%=session("u_name")%>";
<%if session("u_sx")="1" then %>
var msx="girl.gif";
<%else%>
var msx="boy.gif";
<%end if%>
var ts=new os();
function os()
{this.f="";
this.t="";
this.e="";
this.w="0";
this.sc="";
this.cl="";
this.send=sendmsg;
}
function checksays()
{if (document.say.says.value=="") {alert("你要说什么呢？");return false;}
var fm=document.say;
var sc=fm.says.value;
var f=me
var t=fm.t.options[0].value;
var e=document.ot.userface.selectedindex;
var w="0"
var cl=fm.says.style.color;
fm.says.value="";
fm.says.focus();
ts.f=f;
ts.t=t;
ts.e=e;
ts.sc=sc;
ts.cl=cl;
ts.w=w;
settimeout("ts.send();",20);
delete(f);delete(sc);delete(fm);delete(cl);delete(t);delete(e);
return false;
}
function sendmsg()
{ if (this.t=="" && this.f=="") {alert("你要对谁说？");return;}
crld=1;
var ss="f="+code(this.f)+"&t="+code(this.t)+"&sc="+code(this.sc)+"&cl="+this.cl+"&e="+this.e;
ss=urlencoding(ss)
var osend=new activexobject("microsoft.xmlhttp");
osend.open("post","say.asp",false);
osend.setrequestheader("content-length",ss.length);
osend.setrequestheader("content-type","application/x-www-form-urlencoded");//没有这句就玩不转拉
osend.send(ss);
var odom=new activexobject("microsoft.xmldom");
odom.async=false;
body=bytes2bstr(osend.responsebody);
// alert(body);
odom.loadxml(body);
if(odom.parseerror.errorcode != 0)
{ alert(body);
alert("sorry.出现了错误");
return }
else
{var aryf=odom.documentelement.selectnodes("f");
var aryt=odom.documentelement.selectnodes("t");
var arysc=odom.documentelement.selectnodes("sc");
var arycl=odom.documentelement.selectnodes("cl");
var arysj=odom.documentelement.selectnodes("sj");
var arye=odom.documentelement.selectnodes("e");
var tmphtml="";
var img="";
lengt=aryf.length;
for(var i=0;i<lengt;i++){
img="<img src=boy.gif width=12 height=12 border=0>";
tmphtml="<font style=\cursor:hand;color:"+arycl(i).text+"\>"+document.ot.userface.options[arye(i).text].value+rp2(arysc(i).text,"{^amp]","&")+"</font> <span class=t>["+arysj(i).text+"]</span><br>";
tmphtml=rp2(tmphtml,"$f","<a href=\"javascript:parent.sd.towho("+aryf(i).text+");\">"+img+aryf(i).text+"</a>");
tmphtml=rp2(tmphtml,"$t","<a href=\"javascript:parent.sd.towho("+aryt(i).text+");\">"+aryt(i).text+"</a>");
if (aryf(i).text==me || aryt(i).text==me)
{ parent.my.ly.innerhtml+=tmphtml;
} else
parent.pub.ly.innerhtml+=tmphtml;
}// end for
}
delete(aryf);delete(aryt);delete(arysc);delete(arycl);delete(arysj);delete(arye);
delete(odom)
delete(osend)
delete(tmphtml)
}
function code(str)
{var a = new regexp("","gi")
var b = new regexp("\"","gi")
str = str.replace(/&/gi,"&")
str = str.replace(/</gi,"<")
str = str.replace(/>/gi,">")
str = str.replace(b,""")
str = str.replace(/&/gi,"{^amp]")
delete(a)
delete(b)
return(str)
}
function rp2(str,fs,is)
{while (str.indexof(fs)!=-1)
str = str.replace(fs,is)
delete(a);
return(str)
}
—此页 未完代续————-
