mxay


        new mxay : http://www.mxay.com/

March 13, 2007

如何用frame引用搜索引擎的搜索结果?

Filed under: 编程, frame — mxay @ 9:40 am

记得在做PR查询程序时,一直无法将百度用frame引入网页,老是自动弹出新窗口。

今日无意中看到了一个特别的处理方法,介绍给大家参考参考。

<script>

function QueryString()

{

var name,value,i;

var str=location.href;

var num=str.indexOf("?")

str=str.substr(num+1);

var arrtmp=str.split("&");

for(i=0;i < arrtmp.length;i++){

num=arrtmp[i].indexOf("=");

if(num>0){

name=arrtmp[i].substring(0,num);

value=arrtmp[i].substr(num+1);

this[name]=value;

}

else {this[name]=0}

}

}

var Request=new QueryString();

word=Request["q"];

</script>

<html>

<head><TITLE>网络搜霸</TITLE>

<META http-equiv=Content-Type content="text/html; charset=gb2312">

<SCRIPT>var location='’;</SCRIPT>

</head>

<script>

document.write(’<frameset name="zymenu" cols="236,*" rows="*" border="0" framespacing="0" frameborder="NO">’);

document.write(’<frame src="left.asp?q=’ + word + ‘" name=leftzy framespcing=0 noresize>’);

document.write(’<frameset name="leftmenu" rows="0,0,0,0,0,0,*" cols="*">’);

document.write(’<frame src="others.asp?p=’ + word + ‘" name="othersinfo">’);

document.write(’<frame src="http://search.cn.yahoo.com/search?p=’ + word + ‘&ei=gb2312&source=ysearch_web_hp_button&z=&meta=all" name="yahooinfo">’);

document.write(’<frame src="http://nisearch.163.com/search.php?q=’ + word + ‘" name="163info">’);

document.write(’<frame src="http://www.sogou.com/sohu?query=’ + word + ‘" name="sohuinfo">’);

document.write(’<frame src="http://www.iask.com/s?k=’ + word + ‘" name="sinainfo">’);

document.write(’<frame src="http://www.baidu.com/baidu?wd=’ + word + ‘&cl=3" name="baiduinfo">’);

document.write(’<frame src="http://www.google.cn/search?q=’ + word + ‘&ie=gb&oe=UTF-8&hl=zh-CN&client=aff-avalanche&forid=1" name="googleinfo">’);

document.write(’</frameset>’);

document.write(’</frameset><noframes></noframes>’);

</script>

<noframes><body>Sorry, your browser seems not to support frames.

</body> </noframes>

</html> 

以上引用souyes的代码。关于 frame 引入自己网页的处理方法,大家可以在平时浏览诸如大旗网之列的网站上参考一下,许多处理方式还是挺有意思的啊。

参考地址见:

http://www.souyes.com/search.asp?q=中礼资讯网

January 23, 2007

让EXCEL单元格具有下拉列表功能(ComboBox)

Filed under: VB, Excel, VBA, 编程 — mxay @ 11:41 am

今日在做一个让EXCEL和ComboBox类似这类控件组合的文件。挺方便实用的。

1.新建一个EXCEL文件,点“视图”-》“工具栏”,选择Visual Basic。再点VB面板的“控件工具箱”,选择一个ComboxBox控件(组件)(同时设置此控件为非打印对象,以免打印时,出现控件)。这里,你也可以选择其它控件,看你具体使用情况,可适当变动。

2.按Alt+F11,进入VBA编程界面。双击“ThisWorkbook”(就是本EXCEL对象),输入代码:

Private Sub Workbook_Open()
Sheet1.ComboBox1.Visible = False
End Sub

这个语句的作用是,启动EXCEL文件时,不显示控件。

再双击“Sheet1”,输入代码:

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_Click()
Selection.Value = Sheet1.ComboBox1.Text
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then ‘这里6是说,当点击第六列时,才启动ComboBox
With Sheet1.ComboBox1
.Visible = True
.Width = Target.Width
.Height = Target.Height
.Left = Target.Left
.Top = Target.Top
.Clear
.AutoSize = True
.AddItem “张三”
.AddItem “李斯”
.AddItem “王武”
.AddItem “陶喆”
End With
End If
End Sub
好了,这样就差不多了。你可以适当修改、扩充功能。

(本文 mxay 原创,转贴请注明来源:www.mxay.com)

Powered by WordPress