北京澳环世纪教育中心 - asp相关http://www.360edu.org.cn/Blog/翻译中心 国际交流 教育资讯 技术讨论 - RainbowSoft Studio Z-Blog 1.8 Arwen Build 81206zh-CNCopyright © 2008 globe360. All Rights Reserved 澳环教育 版权所有Fri, 10 Sep 2010 14:05:40 +0800如何解决 SELECT TOP 1语句竟然返回多条记录的问题？vip360edu@163.com (360edu)http://www.360edu.org.cn/Blog/post/95.htmlTue, 17 Mar 2009 10:52:08 +0800http://www.360edu.org.cn/Blog/post/95.html实际现象：将select top 修改为3条以上 ，数据库中的消息就全部显示。
解决思路：两种： 1. 添加个无重复值的列排序辅助一下。 （如下修改方法）
                                  2.在输出显示时判断数目，到了你想要的数目就终止输出。

原第5条 "Order By time_stamp DESC"

hit有重复值，增加一个排序列就可以了，hit有重复值也不应该显示6条。
修改后  "Order By time_stamp DESC,iid desc"

<% set rs=server.createobject("adodb.recordset")
Sql="select top 6 * From info where "&_
"iid In (Select iid From info_cat_map "&_
"where icid='2009222131214') "&_
"Order By time_stamp DESC,iid desc"
Set rs=Conn.Execute(Sql)
Do While Not rs.Eof
if rs("flag")=1 then
title_str="<font color=red>"&LimitWords(rs("title"),25)&"<img src=images/new.gif border=0 align=absbottom></img></font>"
else
title_str=LimitWords(rs("title"),25)
end if
%>

翻译中心 http://www.360edu.org.cn/interpret.asp  北京团体语言培训  企业外语培训  

]]>asp相关http://www.360edu.org.cn/Blog/post/95.html#commenthttp://www.360edu.org.cn/Blog/http://www.360edu.org.cn/Blog/feed.asp?cmt=95http://www.360edu.org.cn/Blog/cmd.asp?act=tb&id=95&key=933678d6向上滚动图片代码，在asp中的应用。vip360edu@163.com (360edu)http://www.360edu.org.cn/Blog/post/94.htmlTue, 17 Mar 2009 10:28:26 +0800http://www.360edu.org.cn/Blog/post/94.html1.使用滚动图片代码，注意本页面中是否有相同层名称。
2.出现静止时，检查 height是否合适。
3.出现报错时，根据反馈信息来定位错误。
4.注意数据库中id号14  表名称：pic_hot  相对应字段名称： pic 和classname
北京澳环世纪翻译中心 http://www.360edu.org.cn/interpret.asp  北京团体语言培训  企业外语培训  

]]>asp相关http://www.360edu.org.cn/Blog/post/94.html#commenthttp://www.360edu.org.cn/Blog/http://www.360edu.org.cn/Blog/feed.asp?cmt=94http://www.360edu.org.cn/Blog/cmd.asp?act=tb&id=94&key=dcc3793d ASP图片加水印函数vip360edu@163.com (360edu)http://www.360edu.org.cn/Blog/post/26.htmlWed, 24 Dec 2008 13:51:50 +0800http://www.360edu.org.cn/Blog/post/26.html       现在做开发的,特别是企业站和产品,和门户网图片资源,都喜欢加上水印,说到底就是为了防别人下载走!不过现在有反水印的程序,好像说只要知道你加水印文字之类的信息就可以破解了.这年头反正能加就能减,道一C魔高一Z!

 

程序代码 程序代码

Function JpegPersits  
    if SiteConfig("WatermarkType")=0 then  
        Jpeg.Canvas.Font.Color = Replace(SiteConfig("WatermarkFontColor"),"#","&h") '颜色  
        Jpeg.Canvas.Font.Family = SiteConfig("WatermarkFontFamily")         '字体  
        Jpeg.Canvas.Font.size = SiteConfig("WatermarkFontSize")         '大小  
        Jpeg.Canvas.Font.Bold = CBool(SiteConfig("WatermarkFontIsBold"))    '是否加粗  
        'Jpeg.Canvas.Font.ShadowXoffset = 10        '水印文字阴影向右偏移的像素值，输入负值则向左偏移  
        'Jpeg.Canvas.Font.ShadowYoffset = 10        '水印文字阴影向下偏移的像素值，输入负值则向右偏移  
        Title = SiteConfig("WatermarkText")    
        TitleWidth = Jpeg.Canvas.GetTextExtent(Title)  
        if Jpeg.Width<TitleWidth then exit function '图片比水印文字小，则不加水印  
        select case SiteConfig("WatermarkWidthPosition")  
        case "left"  
            PositionWidth=10  
        case "center"  
            PositionWidth=(Jpeg.Width - TitleWidth) / 2  
        case "right"  
            PositionWidth= Jpeg.Width - TitleWidth - 10  
        end select  
        Jpeg.Canvas.Print PositionWidth, 10, Title  
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
    elseif SiteConfig("WatermarkType")=1 then  
        Set Jpeg2 = Server.CreateObject("Persits.Jpeg")  
        Jpeg2.Open Server.MapPath(SiteConfig("WatermarkImage"))  
        Jpeg2Width=Jpeg2.OriginalWidth  
        Jpeg2Height=Jpeg2.OriginalHeight  
        if Jpeg.Width<Jpeg2Width or Jpeg.Height<Jpeg2Height*2 then exit function    '图片比水印图片小，则不加水印  
        select case SiteConfig("WatermarkWidthPosition")  
        case "left"  
            PositionWidth=10  
        case "center"  
            PositionWidth=(Jpeg.Width - Jpeg2Width) / 2  
        case "right"  
            PositionWidth= Jpeg.Width - Jpeg2Width - 10  
        end select  
        select case SiteConfig("WatermarkHeightPosition")  
        case "top"  
            PositionHeight=10  
        case "center"  
            PositionHeight=(Jpeg.Height - Jpeg2Height) / 2  
        case "bottom"  
            PositionHeight= Jpeg.Height - Jpeg2Height - 10  
        end select  
        Jpeg.Canvas.DrawImage PositionWidth, PositionHeight, Jpeg2, 1, &HFFFFFF '透明度, 透明颜色  
    end if  
End Function  


北京澳环翻译中心 http://www.360edu.org.cn       北京澳环教育博客提供：http://www.360edu.org.cn/Blog/

]]>asp相关http://www.360edu.org.cn/Blog/post/26.html#commenthttp://www.360edu.org.cn/Blog/http://www.360edu.org.cn/Blog/feed.asp?cmt=26http://www.360edu.org.cn/Blog/cmd.asp?act=tb&id=26&key=d9ad68f8