syscode_pic.asp

后台登陆admin.asp

<%

'****************************************************
if guestpic<>"yes" and UserLogined<>True then
call guesterror()
response.end
end if

dim pic_id,piccat_id,onpic,suitpic,titlepic
dim founderr,errmsg

if request.querystring("pic_id")<>"" then
    if not isInteger(request.querystring("pic_id")) then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
    end if
	pic_id=CLng(request("pic_id"))
else
	pic_id=0
end if

if request.querystring("piccat_id")<>"" then
  if not isInteger(request.querystring("piccat_id")) then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
  end if
  piccat_id=CLng(request("piccat_id"))
else
  piccat_id=0
end if

if pic_id>0 then
   sql="select * from pic where pic_id="&pic_id
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,1,3
	if rs.bof and rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>你要找的图片不存在，或者已经被管理员删除！</li>"
	else	
		if rs("Passed")=1 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>你要找的图片尚未被管理员审核！</li>"
		else
			start="精美图片 - "&rs("pic_name")&""
			titlepic=rs("pic_name")
                        piccat_id=CLng(rs("piccat_id"))
                        onpic=rs("pic_pic")
                        suitpic=rs("pic_pic1")
                        rs("pic_count")=rs("pic_count")+1
			rs.update
		end if
	end if
end if

'=================================================
if FoundErr=True then
	Call HxErrMsg()
	response.end
end if

'=================================================
'过程名：main_pic
'作  用：显示图片版面位置导航
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub main_pic()
if piccat_id>0 then
  Response.Write "&nbsp;&nbsp;您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='pic.asp'>精美图片</a>" & vbCrLf
  sql="select * from piccat where piccat_id="&piccat_id
  set rs3=conn.execute(sql)
  if rs3.eof then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
  End IF
  if rs3("sid")<>"0" then
     sql="select * from piccat where piccat_id="&rs3("sid")
     set rs4=conn.execute(sql)
     Response.Write " >> <a href=""pic.asp?piccat_id="&rs4("piccat_id")&""">"&rs4("piccat_name")&"</a>" 
     rs4.close
     set rs4=nothing
  end if
  Response.Write " >> <a href=""pic.asp?piccat_id="&rs3("piccat_id")&""">"&rs3("piccat_name")&"</a>" 
  rs3.close
  set rs3=nothing 
else
  Response.Write "&nbsp;&nbsp;您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='pic.asp'>精美图片</a>" & vbCrLf
end if
end sub

'=================================================
'过程名：top_pic
'作  用：热门排行
'参  数：n-调用条数,nn-显示长度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:    www.ynsky.com.cn
'=================================================
sub top_pic(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("SELECT top "&n&" * FROM pic where passed=0 ORDER by pic_count DESC,pic_id DESC")
do while not rs.eof
Response.Write "<tr><td height=22 class=table-xia><font color=#FF0000>·</font><a href='showpic.asp?pic_id="&rs("pic_id")&"' Title='图片名称："&rs("pic_name")&"&#13&#10点击次数："&rs("pic_count")&"&#13&#10上传时间："&rs("pic_date")&"' "& nnn &">"&gotTopic(rs("pic_name"),nn)&"</a></td></tr>" & vbCrLf
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "<tr><td align='center' valign='middle'>当前没有图片！</td></tr>"
end if
rs.close
set rs=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：best_pic
'作  用：推荐图片
'参  数：n-调用条数,nn-显示长度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:    www.ynsky.com.cn
'=================================================
sub best_pic(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("SELECT top "&n&" * FROM pic where isbest = 1 order by pic_id desc")
do while not rs.eof
Response.Write "<tr><td height=22 class=table-xia><font color=#FF0000>·</font><a href='showpic.asp?pic_id="&rs("pic_id")&"' Title='图片名称："&rs("pic_name")&"&#13&#10点击次数："&rs("pic_count")&"&#13&#10上传时间："&rs("pic_date")&"' "& nnn &">"&gotTopic(rs("pic_name"),nn)&"</a></td></tr>" & vbCrLf
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "<tr><td align='center' valign='middle'>没有推荐图片！</td></tr>"
end if
rs.close
set rs=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：class_pic
'作  用：图片分类——纵排
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub class_pic()
sql="select * from piccat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
if request("piccat_id")=cstr(rs1("piccat_id")) then
response.write "&nbsp;<font color=""#FF0000"">·"&rs1("piccat_name")&"</font><BR>"
else
response.write "&nbsp;<font color=""#FF0000"">·</font><a href='pic.asp?piccat_id="&rs1("piccat_id")&"'>"&rs1("piccat_name")&"</a><BR>"
end if
sql="select * from piccat where sid="&rs1("piccat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if request("piccat_id")=cstr(rs2("piccat_id")) then
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=""#FF0000"">├ "&rs2("piccat_name")&"</a></font><BR>"
else
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='pic.asp?piccat_id="&rs2("piccat_id")&"'>├ "&rs2("piccat_name")&"</a><BR>"
end if
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
end sub

'=================================================
'过程名：class1_pic
'作  用：图片分类——横排
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub class1_pic()
sql="select * from piccat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
if request("piccat_id")=cstr(rs1("piccat_id")) then
response.write "<font color=""#FF0000"">〖"&rs1("piccat_name")&"〗</font><BR>"
else
response.write "<a href='pic.asp?piccat_id="&rs1("piccat_id")&"'>〖"&rs1("piccat_name")&"〗</a><BR>"
end if
sql="select * from piccat where sid="&rs1("piccat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if request("piccat_id")=cstr(rs2("piccat_id")) then
response.write "&nbsp;&nbsp;<font color=""#FF0000"">├ "&rs2("piccat_name")&"</a></font>"
else
response.write "&nbsp;&nbsp;<a href='pic.asp?piccat_id="&rs2("piccat_id")&"'>├ "&rs2("piccat_name")&"</a>"
end if
rs2.movenext
loop
response.write "<BR>"
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
end sub

'=================================================