photo.asp

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

<!-- #include file="include/con_help.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/jk_val_code.asp" -->
<!-- #include file="include/jk_frm.asp" -->
<!-- #include file="include/jk_review.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="include/jk_nsort.asp" -->
<!-- #include file="include/jk_upload.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<script language="JavaScript" src="style/joekoe_select.js"></script>

<% 
dim nummer,nums,rssum,page,viewpage,thepages,pageurl,word,id,d_name,ispic,data_name,col_num,tr_ture,pnum,num_col
col_num=4
num_col=3
pnum=100\col_num
tr_ture=true
pageurl="?"
nummer=num_col*col_num
nums=nummer
n_sort="photo"
index_url="photo"
data_name="photo"

tit_fir="会员相册"

select case action
case "write"
  tit="添加照片"
case "myphoto"
  tit="我的相册"
case "show"
  tit="查看照片"
case "edit"
  tit="编缉照片"
case else
  tit="公开相册"
end select
if action="write" then
  call web_head(0,1,0,0,0)
else
  call web_head(0,0,0,0,0)
end if 
'----------------------------左边 开始----------------------------
%>
<table cellspacing=1 cellpadding=1 class=table>
<tr><td colspan=2 class=td>&nbsp;<%response.write img_skin("m_help")%>网络相册</td></tr>
<tr class=bg_td><td align=center>
  <table border=0 cellspacing=1 cellpadding=2 width='100%'>
  <tr><td align=center><%response.write img_skin("m_article")%><a href='?action=write'>我要添加照片</a></td></tr>
  <tr><td align=center><%response.write img_skin("m_article")%><a href='?action=myphoto'>查看我的照片</a></td></tr>
  <tr><td align=center><%response.write img_skin("m_article")%><a href='photo.asp'>查看公开照片</a></td></tr>
  <tr><td class=htdlh  style='text-indent:24px'>只有注册并登陆后才可以使用自己的网络相册。</td></tr>
  </table>
</td></tr>
</table>
<%
call left_action()
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
response.write vbcrlf&"<table cellspacing=1 cellpadding=1 class=table>"

select case action
case "write"
  call photo_write()
case "myphoto"
  call photo_myphoto()
case "show"
  call photo_show()
case "edit"
  call photo_edit()
case "handle"
  call sushi_chk_handle()
case else
  call photo_main()
end select
response.write vbcrlf&"</table>"&ukong

'----------------------------中间 结束----------------------------
call web_end(0,0)

sub photo_write()
  if login_mode="" then call my_login()   '未登陆不可申请
%>
<tr><td class=td>&nbsp;&nbsp;<%response.write tit%></td></tr>
<tr><td class=bg_td>
<%
  dim found_err,drpic,drname,drtopic,drword,drhidden,drtim,addtime,drsampname,photoname
  if joekoe_cms.chk() then
    drname=login_username
    drpic=trim(request.form("photo_pic"))
    photoname=trim(request.form("photoname"))
    drsampname=trim(request.form("sampname"))
    drtopic=trim(request.form("wrtopic"))
    drtopic=joekoe_cms.code_form(drtopic)
    drword=request.form("phword")
    drhidden=trim(request.form("wrhidden"))
    drtim=now
'-------保存--------------------------------------
            found_err=""
            if drtopic="" or isnull(drtopic) then
              found_err=found_err & "+照片的 <font class=red>主题</font> 是必需要的！<br>"
            end if
            if drword="" or isnull(drword) then
              found_err=found_err & "+照片的 <font class=red>内容</font> 是必需要的！<br>"
            end if
            if found_err<>"" then
              response.write "<table class=table><tr><td align=center class=bg_td height=300>"&found_error(found_err,260)&"</td></tr></table>"
              exit sub
            end if
            sql="select id,photopic,nname,topic,word,tim,sampname,hidden,counter,photoname from photo where (id is null)"
            call joekoe_cms.exec("",-1)
            rs.open sql,conn,1,3
            rs.addnew
            rs("photopic")=drpic
            rs("nname")=drname
            rs("topic")=drtopic
            rs("word")=drword
            rs("tim")=drtim
            rs("sampname")=drsampname
            rs("photoname")=photoname
            if drhidden="yes" then
               rs("hidden")=1
            else
               rs("hidden")=0
            end if
            rs.update
            rs.close
            call upload_note(index_url,first_id(data_name,"id"))
            ispic=joekoe_cms.rand_file("photo")
%>
<table class=table><tr class=bg_td><td align=center height=300>
添加照片已经成功保存<br><br>
<a href='photo.asp?action=myphoto'>返回我的网络相册</a><br><br>
（系统将在<font class=red><%=dim_num(21)%></font>秒钟后自动返回）
<meta http-equiv='refresh' content='<%=dim_num(21)%>; url=photo.asp?action=myphoto'>
</td></tr></table>
</table>
<%
            call val_chk_end(index_url)
            exit sub
'-------保存--------------------------------------
end if
%>
<table border=0 width='100%' cellspacing=0 cellpadding=0>

<tr><td class=bg_td>
<table border=0 cellspacing=1 cellpadding=2 width='100%' id=samp>
<form name=write_photo action='?action=write' method=post>
<input type=hidden name=chk value='yes'>
<input type=hidden name=upid value=''>
<%response.write val_code_num(index_url,1)%>
<tr height=30>
<td>图片主题：</td>
<td><input type=text name=wrtopic size=70 maxlength=40></td>
</tr>
<tr>
<td><%call frm_ubb_type("class=bg_td")%></td>
<td><%call frm_ubb("write_photo","phword","",0)%></td>
</tr>
<tr height=100>
<td valign=top><br>内容简介：<br>500字以内<br></td>
<td><textarea rows=10 name=phword cols=78 maxlength=500 title='按 Ctrl+Enter 可直接发送' onkeydown="javascript:frm_quicksubmit();"></textarea></td>
</tr>
<tr>
<td>图片地址：</td>
<td><input type=text name=photo_pic value='' size=50 maxlength=100>&nbsp;&nbsp;<a href='upload.asp?uppath=photo&upname=<%response.write ispic%>&uptext=photo_pic' target=upload_frame>上传图片</a></td></tr>
<tr class=bg>
<td>上传文件：</td>
<td><iframe frameborder=0 name=upload_frame width='98%' height=30 scrolling=no src='upload.asp?uppath=photo&upname=<%response.write ispic%>&uptext=photo_pic'></iframe></td>
</tr>
<tr height=25>
<td>发 布 人：</td>
<td><input type=text name=photoname value='<%response.write login_username%>' size=20 maxlength=20></td>
</tr>
<tr height=30>
<td>是否公开：</td>
<td><input type=radio name=wrhidden value='no' checked>私人<input type=radio name=wrhidden value='yes'>公开<script language=javascript>document.write(redx);</script>选择公开后，此图片所有人可见，否则不可见。</td>
</tr>
<tr height=30><td colspan=3 align=center><input type=submit name=wsubmit value=' 可 以 发 送 啦 '>　　<input type=reset value=' 重 新 再 来 ' onclick="return reset()"></td></tr>
</table>
</td></tr>
</table>
</td></tr>
</form>

<%
end sub

sub photo_edit()
%>
<tr><td class=td>&nbsp;&nbsp;<%response.write tit%></td></tr>
<tr><td class=bg_td>
<%
  dim found_err,drname,drtopic,drword,drhidden,drtim,addtime,drsampname,photoname,id
  id=trim(request("id"))
  sql="select top 1 id,photopic,nname,topic,word,tim,sampname,hidden,counter,photoname from photo where id="&id
  call joekoe_cms.exec(sql,-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
      response.write "<table class=table><tr><td align=center class=bg_td height=300>"&tit_fir&"ID（"&id&"）不存在！</td></tr></table>"
    exit sub
  end if
  if joekoe_cms.chk() then
    photoname=trim(request.form("photoname"))
    drsampname=trim(request.form("sampname"))
    drtopic=trim(request.form("wrtopic"))
    drtopic=joekoe_cms.code_form(drtopic)
    drword=request.form("phword")
    drhidden=trim(request.form("wrhidden"))

    found_err=""
    if drtopic="" or isnull(drtopic) then
      found_err=found_err & "+照片的 <font class=red>主题</font> 是必需要的！请输入。<br>"
    end if
    if drword="" or isnull(drword) then
      found_err=found_err & "+照片的 <font class=red>内容</font> 是必需要的！请输入。<br>"
    end if
    if found_err<>"" then
      response.write "<table class=table><tr><td align=center class=bg_td height=300>"&found_error(found_err,260)&"</td></tr></table>"
      exit sub
    end if
    rs("topic")=drtopic
    rs("word")=drword
    rs("sampname")=drsampname
    rs("photoname")=photoname
    if drhidden="yes" then
      rs("hidden")=1
    else
      rs("hidden")=0
    end if
    rs.update
    rs.close
    call upload_note(index_url,first_id(data_name,"id"))
    ispic=joekoe_cms.rand_file("photo")
%>
<table class=table><tr class=bg_td><td align=center height=300>
<font class=red>编辑照片已经成功保存</font><br><br>
<a href='photo.asp?action=myphoto'>返回我的网络相册</a><br><br>
（系统将在<font class=red><%=dim_num(21)%></font>秒钟后自动返回）
<meta http-equiv='refresh' content='<%=dim_num(21)%>; url=photo.asp?action=myphoto'>
</td></tr></table>
</table>
<%
  call val_chk_end(index_url)
  exit sub
'-------保存--------------------------------------
  end if
%>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr><td class=bg_td>
<table border=0 cellspacing=1 cellpadding=2 width='100%' id=samp>
<form name=write_photo action='?action=edit&id=<%response.write rs("id")%>' method=post>
<input type=hidden name=chk value='yes'>
<input type=hidden name=upid value=''>
<%response.write val_code_num(index_url,1)%>
<tr height=30>
<td>照片主题：</td>
<td><input type=text name=wrtopic value="<%response.write joekoe_cms.code_html(rs("topic"),1,0)%>" size=78 maxlength=50></td>
</tr>
<tr>
<td><%call frm_ubb_type("class=bg_td")%></td>
<td><%call frm_ubb("write_photo","phword","",0)%></td>
</tr>
<tr height=100>
<td valign=top><br>内容简介：<br>500字以内<br></td>
<td><textarea rows=11 name=phword cols=78 maxlength=500 title='按 Ctrl+Enter 可直接发送' onkeydown="javascript:frm_quicksubmit();"><%response.write joekoe_cms.code_word(rs("word"))%></textarea></td>
</tr>
<tr height=25>
<td>发 布 人：</td>
<td><input type=text name=photoname value='<%response.write rs("photoname")%>' size=20 maxlength=20></td>
</tr>
<tr height=25>
<td>发布日期：</td><td><%response.write joekoe_cms.time_type(rs("tim"),5)%></td>
</tr>
<tr height=30>
<td>是否公开：</td>
<td><input type=radio name=wrhidden value='no' <%if rs("hidden")=false then%>checked<%end if%>>私人<input type=radio name=wrhidden <%if rs("hidden")=true then%>checked<%end if%> value='yes'>公开<script language=javascript>document.write(redx);</script>选择公开后，此照片所有人可见，否则不可见。</td>
</tr>
<tr height=30><td colspan=3 align=center><input type=submit name=wsubmit value=' 可 以 发 送 啦 '>　　<input type=reset value=' 重 新 再 来 ' onclick="return reset()"></td></tr>
</table>
</td></tr>
</table>