user_put.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<!-- #include file="include/con_user.asp" -->
<!-- #include file="include/jk_put.asp" -->
<!-- #include file="include/jk_frm.asp" -->
<!-- #include file="include/jk_email.asp" -->
<!-- #include file="include/jk_nsort.asp" -->
<!-- #include file="include/jk_upload.asp" -->
<%
call time_lock()
dim nsort,data_name,session_for,dim_down,types,true_hidden,true_put
session_for=joekoe_cms.web_cookies&"_put_"
go_back="<input type=button name=go_back value='返回上一页' onclick=""javascript:history.back(1);"">"
class_td=" class=bg_td"
tit="发布信息"

call web_head(2,1,0,0,0)
'----------------------------左边 开始----------------------------
call user_left("")
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0 colspan=2>&nbsp;<%response.write img_skin("m_user")&tit%></td></tr>
<tr class=bg_tds><td height=30 colspan=2>
  <table border=0>
  <tr><td><%response.write img_skin("m_")%><a href='?action=art'<%if action="art" or action="" then response.write " class=red"%>>发表文章</a></td>

  <td><%response.write img_skin("m_")%><a href='?action=news'<%if action="news" then response.write " class=red"%>>发布新闻</a></td>

  <td><%response.write img_skin("m_")%><a href='?action=down'<%if action="down" then response.write " class=red"%>>发布软件</a></td>

  <td><%response.write img_skin("m_")%><a href='?action=paste'<%if action="paste" then response.write " class=red"%>>发表贴图</a></td>

  <td><%response.write img_skin("m_")%><a href='?action=flash'<%if action="flash" then response.write " class=red"%>>推荐动漫</a></td>

  <td><%response.write img_skin("m_")%><a href='?action=web'<%if action="web" then response.write " class=red"%>>推荐网站</a></td>

  <td><%response.write img_skin("m_")%><a href='?action=pris'<%if action="pris" then response.write " class=red"%>>发布企业</a></td>

  <td><%response.write img_skin("m_")%><a href='?action=flea'<%if action="flea" then response.write " class=red"%>>市场信息</a></td>


</tr>
  </table>
</td></tr>
<form name=add_frm action='?action=<%response.write action%>' method=post onsubmit="javascript:frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<input type=hidden name=upid value=''>
<%
select case action
case "news"
  nsort=action
  index_url="news"
  data_name="news"
  tit_fir="新闻"
  call put_load(21)
  if true_put=true then
    call put_news()
  else
    call put_close("发布")
  end if
case "down"
  nsort=action
  index_url="down"
  data_name="down"
  tit_fir="软件"
  call put_load(23)
  if true_put=true then
    dim_down=split(web_down,"|")
    call put_down()
    erase dim_down
  else
    call put_close("发布")
  end if
case "paste","flash"
  nsort=action
  types=action
  if nsort="paste" then nsort="gall"
  index_url="gallery"
  data_name="gallery"
  tit_fir="贴图"
  if action="flash" then tit_fir="Flash"
  call put_load(24)
  if true_put=true then
    call put_gallery()
  else
    call put_close("上传")
  end if
case "web"
  nsort=action
  index_url="website"
  data_name="website"
  tit_fir="网站"
  call put_load(25)
  if true_put=true then
    call put_web()
  else
    call put_close("推荐")
  end if
  case "pris"
  nsort=action
  index_url="pris"
  data_name="pris"
  tit_fir="企业"
  if int(format_mid_num(45))=1 then
   if int(dim_num(45))>login_emoney then
    call admin_error("注意：发布"&tit_fir&"需要 <font class=red>"&dim_num(45)&"</font> "&web_dim(9)&"，您只拥有 <font class=blue>"&login_emoney&"</font> "&web_dim(9)&"，不够支付！")
   else
      call put_pris()
   end if
  else
    call put_close("发布")
  end if
case "flea"
  nsort=action
  index_url="flea"
  data_name="flea"
  tit_fir="信息"
  call put_load(27)
  if true_put=true then
    if int(dim_num(27))>login_emoney then
     call admin_error("注意：发布"&tit_fir&"需要 <font class=red>"&dim_num(27)&"</font> "&web_dim(9)&"，您只拥有 <font class=blue>"&login_emoney&"</font> "&web_dim(9)&"，不够支付！")
    else
     call put_flea()
    end if
  else
    call put_close("发布")
  end if
case else
  action="art"
  nsort=action
  index_url="article"
  data_name="article"
  tit_fir="文章"
  call put_load(22)
  if true_put=true then
    call put_art()
  else
    call put_close("发表")
  end if
end select
response.write vbcrlf&"</table>"
response.write ukong
'----------------------------中间 结束----------------------------
call web_end(0,0)

sub put_web()
  dim name,url,pic,ispic,username,country,lang,remark,counter,isgood,tim,hidden
  if chk() then
    name=code_admin("name",1,50)
    url=code_admin("url",1,100)
    remark=code_admin("remark",1,250)
    csid=trim(request.form("c_id"))
    if cs_nd(csid)=false then
      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if
    if name="" or url="" or lcase(url)="http://" or remark="" then
      call admin_error(tit_fir&"名称、地址和说明 不能为空！")
      exit sub
    end if
    pic=code_admin("pic",1,100)
    username=code_admin("username",1,20)
    if symbol_name(username)=false then username=login_username
    country=code_admin("country",1,20)
    lang=code_admin("lang",1,20)
    tim=joekoe_cms.now_time
    counter=0
    isgood=false
    hidden=false
    call chk_cid_sid()
    sql="select * from "&data_name
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,3
    rs.addnew
    rs("c_id")=cid
    rs("s_id")=sid
    rs("name")=name
    rs("url")=url
    rs("pic")=pic
    rs("username")=username
    rs("country")=country
    rs("lang")=lang
    rs("remark")=remark
    rs("counter")=counter
    rs("isgood")=isgood
    rs("hidden")=true_hidden
    rs("tim")=tim
    rs.update
    rs.close
    call upload_note(index_url,first_id(data_name,"id"))
    call admin_msg("推荐")
    exit sub
  end if
  call form_first()
  ispic=joekoe_cms.rand_file(nsort)
%>
<tr class=bg_td><td width='18%'><%response.write tit_fir%>名称：</td><td width='82%'><input type=text size=60 name=name value='' maxlength=50><%response.write redx%></td></tr>
<tr class=bg_td><td><%response.write tit_fir%>类型：</td><td><%call chk_csid(nsort,cid,sid)%></td></tr>
<tr class=bg_td><td><%response.write tit_fir%>地址：</td><td><input type=text size=60 name=url value='http://' maxlength=100><%response.write redx%></td></tr>
<tr class=bg_td><td>国家地区：</td><td><select name=country size=1>
<option>中国</option>
<option>香港</option>
<option>台湾</option>
<option>美国</option>
<option>英国</option>
<option>日本</option>
<option>韩国</option>
<option>加拿大</option>
<option>澳大利亚</option>
<option>新西兰</option>
<option>俄罗斯</option>
<option>意大利</option>
<option>法国</option>
<option>西班牙</option>
<option>德国</option>
<option>其它国家</option>
</select>&nbsp;&nbsp;&nbsp;<%response.write tit_fir%>语言：<select name=lang size=1>
<option>简体中文</option>
<option>繁体中文</option>
<option>English</option>
<option>其它语言</option>
</select></td></tr>
<tr class=bg_td><td>图片说明：</td><td><input type=text name=pic value='' size=60 maxlength=100></td></tr>
<tr class=bg_td><td>上传图片：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=website&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
<tr class=bg_td>
<td valign=top class=htd><br><%response.write tit_fir%>说明：<br><=250B</td>
<td>
<table border=0><tr>
<td><textarea name=remark rows=8 cols=65></textarea></td>
<td width=5></td>
<td valign=bottom><%call textarea_resize("remark")%></td>
</tr></table>
</td>
</tr>
<%
  call submit_add()
end sub

sub put_gallery()
  dim name,ispic,spic,pic,remark,username,power,emoney,counter,tim,istop
  if chk() then
    name=code_admin("name",1,50)
    pic=code_admin("pic",1,100)
    remark=code_admin("remark",1,250)
    csid=trim(request.form("c_id"))
    if cs_nd(csid)=false then
      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if
    if name="" or pic="" or remark="" then
      call admin_error(tit_fir&"名称、地址和说明 不能为空！")
      exit sub
    end if
    spic=code_admin("spic",1,100)
    username=code_admin("username",1,20)
    if symbol_name(username)=false then username=login_username
    power=code_admin("power",1,50)
    power=replace(power," ","")
    power=replace(power,",",".")
    emoney=trim(request.form("emoney"))
    if not isnumeric(emoney) then emoney=0
    tim=joekoe_cms.now_time
    counter=0
    istop=0
    call chk_cid_sid()
    sql="select * from "&data_name
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,3
    rs.addnew
    rs("c_id")=cid
    rs("s_id")=sid
    rs("types")=types
    rs("name")=name
    rs("spic")=spic
    rs("spic")=spic
    rs("pic")=pic
    rs("remark")=remark
    rs("username")=username
    rs("power")=power
    rs("emoney")=emoney
    rs("counter")=counter
    rs("istop")=istop
    rs("hidden")=true_hidden
    rs("tim")=tim
    rs.update
    rs.close
    call upload_note(index_url,first_id(data_name,"id"))
    call admin_msg("上传")
    exit sub
  end if
  call form_first()
  ispic=joekoe_cms.rand_file(nsort)
%>
<tr class=bg_td><td width='18%'><%response.write tit_fir%>名称：</td><td width='82%'><input type=text size=40 name=name value='' maxlength=50><%response.write redx%></td></tr>
<tr class=bg_td><td><%response.write tit_fir%>分类：</td><td><%call chk_csid(nsort,cid,sid)%></td></tr>
<%ispic=joekoe_cms.rand_file(nsort)%>
<tr class=bg_td><td><%response.write tit_fir%>小图片：</td><td><input type=text name=spic value='' size=50 maxlength=100>&nbsp;　<a href='upload.asp?uppath=gallery&upname=<%response.write ispic%>&uptext=spic' target=upload_frames>上传小图片</a></td></tr>
<%ispic=joekoe_cms.rand_file(nsort)%>
<tr class=bg_td><td><%response.write tit_fir%>地址：</td><td><input type=text name=pic value='' size=50 maxlength=100><%response.write redx%><a href='upload.asp?uppath=gallery&upname=<%response.write ispic%>&uptext=pic' target=upload_frames>上传<%response.write tit_fir%></a></td></tr>
<tr class=bg_td><td>上传文件：</td><td><iframe frameborder=0 name=upload_frames width='100%' height=30 scrolling=no src='upload.asp?uppath=gallery&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
<tr class=bg_td>
<td><%call frm_ubb_type(" class=bg_td")%></td>
<td><%call frm_ubb("add_frm","remark","&nbsp;&nbsp;",0)%></td>
</tr>
<tr class=bg_td><td><%response.write tit_fir%>说明：<br><br><=250字符</td>
<td>
<table border=0><tr>
<td><textarea name=remark rows=8 maxlength=250 cols=65></textarea></td>
<td width=5></td>
<td valign=bottom><%call textarea_resize("remark")%></td>
</tr></table>
</td>
</tr>
<%
  call chk_power("浏览","",1)
  call submit_add()
end sub

sub put_down()
  dim ddim,name,keyes,url,url2,homepage,sizes,types,genre,os,power,emoney,username,tim,counter,pic,ispic,remark
  if chk() then
    name=code_admin("name",1,50)
    url=code_admin("url",1,200)
    remark=request.form("remark")
    csid=trim(request.form("c_id"))
    if cs_nd(csid)=false then
      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if
    if name="" or url="" or remark="" then
      call admin_error(tit_fir&"标题、下载地址 和 "&tit_fir&"内容 不能为空！")
      exit sub
    end if
    url2=code_admin("url2",1,200)
    homepage=code_admin("homepage",1,50)
    sizes=code_admin("sizes",1,10)
    types=trim(request.form("types"))
    if not isnumeric(types) then types=0
    genre=code_admin("genre",1,5)
    os=code_admin("os",1,100)
    os=replace(os," ","")
    pic=code_admin("pic",1,100)
    keyes=code_admin("keyes",1,20)
    power=code_admin("power",1,50)
    power=replace(power," ","")
    power=replace(power,",",".")
    emoney=trim(request.form("emoney"))
    if not isnumeric(emoney) then emoney=0
    username=code_admin("username",1,20)
    if symbol_name(username)=false then username=login_username
    tim=joekoe_cms.now_time
    counter=0
    call chk_cid_sid()
    sql="select * from "&data_name
    call joekoe_cms.exec(sql,-1)
    rs.open sql,conn,1,3
    rs.addnew