}
Return false;
}
Function slide_2003a05_02 (url ){
Window. open (url, 'help', 'top = 0, left = 0, toolbar = no, location = no, directories = no, status = no, menubar = no, scrollbars = yes, width = 450, height = 500, top = 10, left = 10 ');}
Function verify_input (form ){
If (form. p. value = ""){
Alert ("Enter the search keyword! ");
Return false;
} Else {
Return true;
}
}
Function get_lang (form, name ){
If (name = "chn "){
Form. lang. value = "chn ";
}
Else {
Form. lang. value = "en ";
}
Form. submit ();
Return false;
}
Function dtlpost (I)
{
Dtlpostfrm. action + = "& sel =" + I;
Dtlpostfrm. sel. value = I;
Dtlpostfrm. submit ();
Return false;
}
Function popupwap (aobj)
{
Try
{
Var breadth = 520
Var height = 370;
Var left = (screen. width-width)/2;
Var top = (screen. height-height)/2;
Var href = aobj;
Var param = 'resizable = 0, scrollbars = 0, width ='
+ Width + ', height =' + height + ', left ='
+ Left + '; top =' + top;
Window. open (href, '_ blank', param );
}
Catch (e)
{
}
Return false;
}
Function popupshop (aobj)
{
Try
{
Var breadth = 820
Var height = 570;
Var left = (screen. width-width)/2;
Var top = (screen. height-height)/2;
Var href = aobj;
Var param = 'resizable = 1, scrollbars = 1, width ='
+ Width + ', height =' + height + ', left ='
+ Left + '; top =' + top;
Window. open (href, '_ blank', param );
}
Catch (e)
{
}
Return false;
}
Function submitbtm (pid)
{
Try
{
Var href = "? P = "+ document. bottom. p. value
+ "\ X26source = ysearch_img_result_bottomsearch"
+ "\ X26chnTotal =-1 \ x26enTotal =-1 \ x26pid =" + pid;
If (document. search. lang. checked ){
Href + = "\ x26lang = trans ";
}
Document. location. href = href;
}
Catch (e)
{
}
Return false;
}
Function clk (el, ct, cd ){
Var newurl;
If (document. images ){
Newurl = "http://cn.wrs.yahoo.com/search/yisou/" + escape (ct) + "/" + 1 + "/" + escape (cd) + "/" + '000000' + "/" + "*" + "http://cn.wrs.yahoo.com/clk.gif ";
(New Image (). src = newurl;
}
Return true;
}
Function open_wl_win (href ){
Var width = 600;
Var height = 680;
Var left = (screen. width-width)/2;
Var top = 10;
Var param = 'resizable = 0, scrollbars = 1, width ='
+ Width + ', height =' + height + ', left ='
+ Left + '; top =' + top;
Window. open (href, '_ blank', param );
}
--> </Script>
</Head>
<Body oncontextmenu = "return false" onselectstart = "return false" oncopy = "return false" topmargin = "0" leftmargin = "0">
<BASE onmouseover = "window. status = 'liuyang online shop Alliance-image search-images not searchable '; return true">
<Table width = "782" border = "0" align = "center" id = "table1" height = "82">
<Tr>
<Td width = "776" valign = "top" colspan = "2"> <p align = "center"> </td>
</Tr>
<Form name = "search" method = "get" action = "pic. asp">
<Tr background = "images/Top_7.gif">
<Td width = "163" rowspan = "3" valign = "top">
</td>
& Lt; td width = "609" & gt;
<P align = "center">
<P> Image Search:
<Input type = "text" name = "p" size = "30" value = "<% = request (" p ") %> "> <span lang =" en-us ">
<Input type = "hidden" name = "source" value = "ysearch_img_hp_search"> <input type = "hidden" name = "pid" value = "">
<Input type = "hidden" name = "mip" value = "all">
<Input type = "hidden" name = "miw" value = "all">
<Input type = "hidden" name = "chntotal" value = "-1">
<Input type = "hidden" name = "entotal" value = "-1">
</Span> <input type = "submit" value = "Search" name = "B1">
<Input type = "reset" value = "reset" name = "B2">
</P> </td>
</Tr>
<Tr>
<Td> </td>
</Tr>
<Tr>
& Lt; td width = "609" bgcolor = "# F4FEFF" & gt;
<A href = "http://www.lenoxo.com/index.asp"> homepage </a>
<A href = "http://www.lenoxo.com/main.htm"> Search home </a> picture
<Font color = "# FF0000"> <a href = "http://www.lenoxo.com/mp3.htm"> music </a> </font>
<A href = "http://www.lenoxo.com/newso.asp"> News </a>
<A href = "http://www.lenoxo.com/word.htm"> documentation </a>
<A href = "http://www.lenoxo.com/ring.htm"> ringtones </a>
<A href = "http://www.lenoxo.com/yp.asp"> yellow pages </a>
<A href = "http://www.lenoxo.com/hangye/"> industry </a>
<A href = "http://www.lenoxo.com/login.asp"> shopping </a>
<A href = "http://www.lenoxo.com/more.htm"> more </a> </td>
</Tr>
</Form>
</Table>
<%
Dim URL, Update, startimer, endtimer, overdate
Url = "http://image.yahoo.com.cn/search? Source = ysearch_img_result_topsearch & mip = all & miw = all & p = "& request (" p ") &" & chntotal = "& request (" chntotal ") & "& entotal =" & request ("entotal") & "& pid =" & request ("pid ") & "& lang = chn & B =" & request ("B ")&""
Const adTypeText = 2
Update = GetURL (URL)
Overdate = bytes2bstr2 (Update)
First = instr (overdate, "<table width =" "98%" "border =" "0" "align =" "center" "cellpadding =" "6" "cellspacing =" "0">")
If first = 0 then %> the image you want is not found <%
Else
Betw = instr (overdate, "Next page>")-first + 5
Overdate = Mid (overdate, first, betw)
Overdate = replace (overdate, "search? "," Pic. asp? ")
Overdate = replace (overdate, "searchdtl_v3.html? "," Http://image.yahoo.com.cn/searchdtl_v3.html? ")
Overdate = replace (overdate, "searcheml.html? "," Http://image.yahoo.com.cn/searcheml.html? ")
Response. Write overdate
End if
'Get remote HTML
Function GetURL (url)
Set Retrieval = CreateObject ("Microsoft. XMLHTTP ")
With Retrieval
. Open "get", url, False
. Send
GetURL =. responsebody
End
Set Retrieval = Nothing
End Function
Function Bytes2bStr2 (vin)
Dim BytesStream, StringReturn
Set BytesStream = Server. CreateObject ("ADODB. Stream ")
With BytesStream
. Type = adTypeText
. Open
. WriteText vin
. Position = 0
. Charset = "GB2312"
. Position = 2
StringReturn =. ReadText
. Close
End
Set BytesStream = Nothing
Bytes2bStr2 = StringReturn
End Function
Function bytes2bstr1 (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
Bytes2bstr1 = strreturn
End Function
%>
</Body>
</Html>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
