📄 topframe
字号:
#!/usr/sww/bin/perl# topframe - given a picture KWID, display the picture and its blobworld $DEBUG = 0;$incoming = $ENV{'QUERY_STRING'}; # 107005$kwid = $incoming;# is it Corel or reg photocd?if (length($incoming) < 7) { $dir1 = "corel"; $dir2 = $kwid; substr($dir2,-3,3) = "000"; } else { # do this later: extract dir1 and dir2 from kwid}$pictureURL = "/imgs/128x192/$dir1/$dir2/$kwid.jpeg";$blobdir = "/imgs/blobs/$dir2/$kwid/";$blobworldURL = "$blobdir/$kwid" . "_" . "blobworld.jpeg";print "Content-type: text/html\n\n";print "<HTML>\n";print "<HEAD>\n";print "<TITLE>Blobworld Query</TITLE>\n";print "</HEAD>\n";print "<script language=\"javascript1.2\" src=\"/photos/blobworld/topframe.js\">";print "</script>\n";print "<BODY bgcolor=#FFFFFF>\n";#print "<BODY>\n";if ($DEBUG) { print "<h1>TESTING: kwid = $kwid</h1>\n"; print "pictureURL = $pictureURL<br>"; print "blobdir = $blobdir<br>";}print "<table>\n";print "<tr valign=top><td>";print "<img src=$pictureURL>\n";print "<td><a href=\"/cgi-bin/blobs/getblobid?".$kwid."\" onClick=\"get_target()\">";print "<img name=BWimage src=$blobworldURL ismap border=0></a>\n";#print "</table>\n";#print "<table>\n";#print "<tr valign=top><td>";print "<td>\n";print "<table><tr><td colspan=2>\n";print "<form name=\"submit_form\" target=\"_blank\" ";print "action=\"/cgi-bin/blobs/match_blobs_keywords\" ";print "onReset=\"reset_form()\" method=post>\n";print "<input type=\"hidden\" name=imgnum value=$kwid>\n";print "<input type=\"hidden\" name=numblobs value=0>\n";print "<input type=\"hidden\" name=b1>\n";print "<input type=\"hidden\" name=b2>\n";print "<input type=\"hidden\" name=bloblist>\n";print "<input type=\"hidden\" name=position value=0>\n";print "<input type=hidden name=num_imgs value=35000>\n";print "<input type=hidden name=requested_imgs value=2000>\n";print "Keywords (optional): <input type=text name=keywords size=18 maxlength=50>\n";#print "<tr><td>\n";print "</td></tr><tr align=left>";print "<td>\n";print "<input type=button value=\"Submit\" onClick=formsubmit()>\n";print "</form>\n";print "</td><td>\n";print "<form>\n";print "<input type=\"reset\" value=\"Clear\" onClick=\"parent.location='/cgi-bin/blobs/blobworld?$kwid'\">\n";print "</form>\n";print "</td></tr></table>\n";print "</td></tr></table>\n";print "</BODY>\n";print "</HTML>\n";⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -