后台广告管理有一个其它文字广告,多数人只应用在论坛楼层间,但这个文字广告如果在其它页面调用,用正常的JS调用是调不出来的,所以想了这个办法,适合于在任何页面调用,至于调出来做什么,那就看你的需要了,可以做首页文字广告位等等拉,自己看着办..呵呵!
Code:
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

查看更多...

Tags: 文字文字 广告广告

该日志是私密日志，只有管理员或发布者可以查看！

<table border=0  bgcolor="#ffffff">
<%
sql="select top 16 id,topic,tim from news where hidden=1 and c_id=21 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
response.write "<tr>"
  for i=1 to 2

查看更多...

Tags: 新闻新闻

剥离克隆 插件 克隆文章出错

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。

解决方法：看看你的access表里有没有字段是空的，例如ole类型的字段，是空的话就会出现以上错误

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>"

查看更多...

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

查看更多...

在回复时间之后增加如下代码：

查看更多...

Tags: 审核审核

sub joekoe_chk_add()
  dim username,password,email,password2
  call admin_td("添加管理员")
  if chk() then
  username=trim(request.form("username"))
  password=trim(request.form("password"))
  if username="" or password="" then

查看更多...

Tags: 管理管理

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 所有记录中均未找到搜索关键字。
/include/jk_class.asp, 第 20 行


解决方法：

查看更多...

Tags: 错误错误