Snitz Forums 2000

Snitz Forums 2000

All Forums

Community Forums

Community Discussions (All other subjects)

Playing With Google's Search Engine

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:

UserName:

Password:

Format Mode:

Format:

Message:

* HTML is OFF
* Forum Code is ON

Smilies

[quote][i]Originally posted by Carefree[/i]
[br]Ever want to just look up random words in a search engine to see whether any page on the net has them all?  I was bored, so I wrote a little routine to use a dictionary database & auto-search Google.
It uses the dictionary database from Atomic's spell-checker mod.

Basically, put the dictionary & the asp file in the same directory, run the file, done.  I have it creating 20 different searches - if you want to change it, feel free.

[scrollcode][code]
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dictionary2000.mdb"
For y = 1 to 20	'Number of searches to create
	strLst="%2B"
	for x = 1 to 5	'Number of words per search
		Randomize
		q=int(Rnd*113808)
		set my_Conn = Server.CreateObject("ADODB.Connection")
		my_Conn.Open strConnString
		strSql="SELECT WORD FROM DICTIONARY WHERE id=" & q
		set rsDict = my_conn.Execute(strSql)
		strLst=strLst&rsDict("Word") & " %2B"
	next
	for x = 1 to 5	'Add in a 5-letter word with random characters
		Randomize
		q=(Rnd*26)
		strAlp="abcdefghijklmnopqrstuvwxyz"
		strLst=strLst&mid(strAlp,q,1)
	Next
	strLst=strLst&" -dictionary -wordlist"
	url="http://www.google.com/search?hl=en&q="""&strLst&"""&btnG=Search"
	Response.Write("<script>" & vbCrLf)
	Response.Write("window.open('" & url & "');" & vbCrLf)
	Response.Write("</script>")
next
%>
[/code][/scrollcode]<
[/quote]

Check here to include your profile signature.

T O P I C R E V I E W
Carefree	Posted - 09 September 2008 : 15:34:00 Ever want to just look up random words in a search engine to see whether any page on the net has them all? I was bored, so I wrote a little routine to use a dictionary database & auto-search Google. It uses the dictionary database from Atomic's spell-checker mod. Basically, put the dictionary & the asp file in the same directory, run the file, done. I have it creating 20 different searches - if you want to change it, feel free. <% strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dictionary2000.mdb" For y = 1 to 20 'Number of searches to create strLst="%2B" for x = 1 to 5 'Number of words per search Randomize q=int(Rnd113808) set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString strSql="SELECT WORD FROM DICTIONARY WHERE id=" & q set rsDict = my_conn.Execute(strSql) strLst=strLst&rsDict("Word") & " %2B" next for x = 1 to 5 'Add in a 5-letter word with random characters Randomize q=(Rnd26) strAlp="abcdefghijklmnopqrstuvwxyz" strLst=strLst&mid(strAlp,q,1) Next strLst=strLst&" -dictionary -wordlist" url="http://www.google.com/search?hl=en&q="""&strLst&"""&btnG=Search" Response.Write("<script>" & vbCrLf) Response.Write("window.open('" & url & "');" & vbCrLf) Response.Write("</script>") next %> <
2 L A T E S T R E P L I E S (Newest First)
Shaggy	Posted - 10 September 2008 : 11:44:53 [Link] <
MarkJH	Posted - 09 September 2008 : 17:47:01 http://www.googlewhack.com/ <

Snitz Forums 2000

This page was generated in 0.03 seconds.