sub ads_txt(ads_tnum,ads_cnum)
dim tmp1,topic,url
sql="select top "&ads_tnum&" id,topic,url from ads_txt where nsort='other' order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
topic=rs("topic")
tmp1=tmp1&"<table cellspacing=1 cellpadding=1><tr><td><a href="&rs("url")&" target=_blank>"&joekoe_cms.code_html(topic,1,ads_cnum)&"</a></td></tr></table>"

查看更多...

file= 播放flv地址
showdigits=true 播放时间是否现实，不现实可为空
autostart=true 是否自动播放，不自动可为空

查看更多...

'----------------------------------水印修改开始----------------------------------------
          Dim Photo,Logo,PhotoPath,LogoPath,Jpeg,Path
        '头像水印修改
        if lcase(uppath)="face" then
            if lcase(upfile_name2)<>"gif" then
                    '创建缩微图
                        Set Jpeg = Server.CreateObject("Persits.Jpeg")'建立实例

查看更多...

<script type="text/javascript">
var $ = function(v){return document.getElementById(v);}
function isSecurity(v){
if (v.length < 3) { iss.reset();return;}
var lv = -1;
if (v.match(/[a-z]/ig)){lv++;}
if (v.match(/[0-9]/ig)){lv++;}

查看更多...

<script language=javascript>
//CharMode函数
//测试某个字符是属于哪一类
function CharMode(iN) {
   if (iN>=48 && iN <=57) //数字
    return 1;
   if (iN>=65 && iN <=90) //大写字母

查看更多...

<script type="text/javascript">
var $ = function(v){return document.getElementById(v);}
function isSecurity(v){
if (v.length < 3) { iss.reset();return;}
var lv = -1;
if (v.match(/[a-z]/ig)){lv++;}
if (v.match(/[0-9]/ig)){lv++;}

查看更多...

查看更多...

新云4.0采集系统自动分词，自动加上TAGS。在admin_savedata.asp中修改。


复制内容到剪贴板程序代码
<!--#include file="../inc/cls_tags.asp"-->
复制内容到剪贴板程序代码
'***********************************

查看更多...

Tags: 新云新云

Swfoto 是一款flash(swf)读取图片的容器,可以用于各种网站网页中
演示：http://phoebe.080.net/swfoto/Swfoto.htm

　　2.0
　　支持跨域读取图片(由于经过代理，跨域会速度稍慢), 已经取消由于大家都用了一个代理, 会造成用拥挤参考：服务器端用代理实现flash跨域读取数据
　　可以设定图片圆角
　　使用As3重新写代码，执行效率更高

查看更多...

方法：将以下代码保存成 wap.reg ,然后双击导入注册表

点击下载此文件

查看更多...

Tags: WAPWAP