photo.asp

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

</td></tr>
</form>
<%
end sub

sub photo_myphoto()
  if login_mode="" then call my_login()   '未登陆不可申请
  dim id,nname,topic,hidden,tim,weather
  sql="select count(id) from photo where nname='"&login_username&"'"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  if int(rssum)<1 then
    call photo_write()
    exit sub
  end if
  call format_pagecute()
  sql="select top "&nummer*viewpage&" id,photopic,nname,topic,word,tim,sampname,hidden,counter,photoname from photo where nname='"&login_username&"' order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
%>
<form name=sel_form action='?action=handle' method=post>
<tr align=center><td class=td>序号</td><td class=td width=200>主题</td><td class=td>作者</td><td class=td>时间</td><td class=td>公开</td><td class=td colspan=2>操作</td></tr>
<%
  for i=1 to nums
    id=rs("id")
    topic=rs("topic")
    tim=rs("tim")
    if rs("photoname")<>"" then
     d_name=rs("photoname")
    else
     d_name=rs("nname")
    end if	
%>
<tr class=bg_td align=center height=26><td><%response.write rssum-(i+(viewpage-1)*nummer)%></td>
<td align=left>&nbsp;&nbsp;<a href=?action=show&id=<%response.write id%>><font alt='照片名称：<%response.write joekoe_cms.code_html(topic,1,0)%>'><%response.write joekoe_cms.code_html(topic,1,18)%></font></a></td>
<td><%response.write d_name%></td>
<td><%response.write joekoe_cms.time_type(tim,4)%></td>
<td><%if rs("hidden")=true then%><font color=blue><b alt=公开>√</b></font><%else%><font color=red><b alt=不公开>×</b></font><%end if%></td>
<td><a href=?action=edit&id=<%response.write id%> title=编缉照片内容简介><img src=images/admin/edit.gif border=0></a></td><td><input type=checkbox name=sel_id value=<%response.write id%>></td>
</tr>
<%
  rs.movenext
  next
  rs.close
%>
<tr class=bg_tds height=26><td colspan=4>&nbsp;共有<font class=red><%response.write rssum%></font>个照片&nbsp;页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>&nbsp;分页：<% response.write jk_pagecute(nummer,thepages,viewpage,"?action=myphoto&",5,"#ff0000") %></td>
<td colspan=2 align=center>
执行
<select name=sel_type size=1>
<option value='公开相册'>公开照片</option>
<option value='取消公开'>取消公开</option>
<option value='删除相册'>删除照片</option>
</select>
<input type=submit value='操作' onclick="return sel_click(this.form);">
</td><td align=center><input type=checkbox name=sel_all value='yes' onclick="javascript:select_all(this.form);"></td>
</tr></form>

<%
end sub

sub photo_main()
  dim id,nname,topic,hidden,tim
  sql="select count(id) from photo where hidden=1"
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  if int(rssum)<1 then
    call photo_write()
    exit sub
  end if
  call format_pagecute()
  sql="select top "&nummer*viewpage&" id,photopic,nname,topic,word,tim,sampname,hidden,counter,photoname from photo where hidden=1 order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
%>
<tr><td class=td>&nbsp;公开相片欣赏</td></tr>

<%
  for i=1 to nums
    id=rs("id")
    topic=rs("topic")
    tim=rs("tim")
    if rs("photoname")<>"" then
     d_name=rs("photoname")
    else
     d_name=rs("nname")
    end if		
%>

<% if (i-1) mod col_num=0 then %>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr align=center>
<%
tr_ture=false
end if
%>
<td width='<%response.write pnum%>'>
<table border=0 cellspacing=0 cellpadding=2>
<tr><td align=center><%response.write pic_fk(rs("photopic"),1,"photo.asp?action=show&id="&id)%></td></tr>
<tr><td align=center><a href='?action=show&id=<%response.write id%>'><font alt='照片名称：<%response.write joekoe_cms.code_html(topic,1,0)%><br>发 布 人：<%response.write rs("photoname")%><br>发布时间：<%response.write joekoe_cms.time_type(rs("tim"),5)%><br>浏览次数：<%response.write rs("counter")%> 人次'><%response.write joekoe_cms.code_html(topic,1,8)%></font></a></td></tr>
</table>
</td>
<%
  if i mod col_num=0 then
  tr_ture=true
%>
</tr></table></td></tr>
<% end if
  rs.movenext
  next
  rs.close
%>

<% if not tr_ture then %>
</tr></table></td></tr>
<% end if %>

<tr class=bg_tds height=26><td>&nbsp;共有<font class=red><%response.write rssum%></font>个照片&nbsp;页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>&nbsp;分页：<% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000") %></td></tr>

<%
end sub

sub photo_show()

dim pic

'为适应分页定义ID
id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("photo.asp")
end if

  dim a_id
  a_id=trim(request("id"))
  sql="select id,photopic,nname,topic,word,tim,sampname,hidden,counter,photoname from photo where id="&a_id&""
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
   if rs.eof then
%>
<tr><td class=td>&nbsp;出错了！</td></tr>
<tr class=bg_tds><td align=center height=50><br><br>对不起，内容不存在！<br><br><a href=<%response.write trim(request.servervariables("http_referer"))%>>返回</a><br><br></td></tr>
<%
else
    call joekoe_cms.exec("update photo set counter=counter+1 where id="&rs("id")&"",0)
if rs("photoname")<>"" then
 d_name=rs("photoname")
else
 d_name=rs("nname")
end if
pic=rs("photopic")
%>
<tr><td class=td>&nbsp;&nbsp;&nbsp;&nbsp;<%response.write tit%></td></tr>
<tr><td class=bg_td>
<table border=0 width='100%' cellspacing=0 cellpadding=0>
<tr><td>
<table border=0 valign=top cellspacing=1 cellpadding=2 width='100%'>
<%if rs("hidden")=true then%>
<tr height=26><td><font color=#222222><%=joekoe_cms.time_type(rs("tim"),5)%>&nbsp;&nbsp;星期<%= weeks(datepart("w",rs("tim"))) %></font></td><td align=right>作者：<%response.write d_name%>&nbsp;&nbsp;浏览：<%response.write rs("counter")%>&nbsp;&nbsp;<td></tr>
<tr height=26><td colspan=2>&nbsp;&nbsp;<b><%response.write joekoe_cms.code_html(rs("topic"),1,0)%></b><td></tr>
<tr><td colspan=2><hr height=1 width='96%' align=left color='#ededed'></td></tr>

<tr><td colspan=2 align=center>
<a href='javascript:;' onclick="javascript:open_view('<%response.write pic_url(pic,0)%>',1);"><img src='<%response.write pic_url(pic,0)%>' border=0 onload="javascript:if(this.width>500)this.width=500;" align=center alt='在新窗口中浏览此图片'></a>
</td></tr>

<tr><td colspan=2><hr height=1 width='96%' align=left color='#ededed'></td></tr>
<tr><td valign=top align=center colspan=2>
<table border=0 cellspacing=0 cellpadding=0 width='96%' align=center>
<tr><td><b>图片简介：</b></td></tr>
<tr><td class=htd style='word-wrap:break-word; word-break:break-all; text-align:justify; text-justify:inter-ideograph'>
<% 
 word=code_jk(rs("word"))
 response.write joekoe_cms.code_html(word,1,500)
 %>
</td></tr>
</table>
</td></tr>
<tr><td height=20 colspan=2></td></tr>
</table>
</td>
</table>
</td></tr>

<tr><td>
<% 
if login_mode<>"" then
 call review_type(n_sort,id,"photo.asp?action=show&id="&id,1,login_username)
else 
end if
else
 response.write vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td height=26>&nbsp;&nbsp;<font class=gray>你不能查看未公开相册！</font></td></tr></table>"
end if
%>
</td></tr>
<%
Response.Write ("<tr><td align=right class=bg_tds height=26>")

Response.Write ("<a href='javascript:history.go(-1)'><script>history.(-1)</script>返回上页</a>")

Response.Write ("<a href=?>相册首页</a>&nbsp;</td></tr>")


 end if
 rs.close
'  if login_mode<>"" then call dowrite()
end sub

function weeks(w)
select case w
	case 1 weeks="日"
	case 2 weeks="一"
	case 3 weeks="二"
	case 4 weeks="三"
	case 5 weeks="四"
	case 6 weeks="五"
	case 7 weeks="六"
end select
end function

sub sushi_chk_handle()
  dim sel_type,seltype
  sel_type=trim(request.form("sel_type"))
  select case sel_type
  case "公开相册"
    seltype="gkphoto"
  case "取消公开"
    seltype="qxphoto"
  case "删除相册"
    seltype="delete"
  case else
    sel_type=""
    seltype=""
  end select
  if sel_type="" or seltype="" then
   	Response.Write "<script>"
	Response.Write "alert('您在提交用户操作时出现非法的数据');"
	Response.Write "</script>"
    exit sub
  end if
  dim sel_id,hdim,hnum,id
  sel_id=trim(request.form("sel_id"))
  sel_id=replace(sel_id," ","")
  hdim=split(sel_id,",")
  hnum=ubound(hdim)
  for i=0 to hnum
    id=hdim(i)
    if isnumeric(id) then
      select case seltype
      case "delete"
    	 call joekoe_cms.exec("delete from photo where id="&id&"",0)
      case "gkphoto"
        sql="update photo set hidden=1 where id="&id
        conn.execute(sql)
      case "qxphoto"
        sql="update photo set hidden=0 where id="&id
        conn.execute(sql)
      case else

      end select
    end if
  next
  erase hdim
Response.Write ("<tr><td align=left class=td>&nbsp;&nbsp;成功信息</td></tr>")
Response.Write ("<tr><td align=center class=bg_td height=180>")
Response.Write ("已成功（"&sel_type&"）操作了"&(hnum+1)&"条"&tit_fir&"记录！<br><br>")
Response.Write ("<a href='"&trim(request.servervariables("http_referer"))&"'>返回上页</a>")
Response.Write ("&nbsp;&nbsp;&nbsp;&nbsp;<a href=?>相册首页</a></td></tr>")
end sub
%>