ID无效！") end if dim ids,pa,cid,picw,pich ids=request.QueryString("class") if ids="" or IsNumeric(ids)=False then Call Error("

ID无效！") end if pa=request.QueryString("pa") Set rs = Server.CreateObject("ADODB.Recordset") sql="Select * from wjfile where ID="&id rs.open sql,conn,1,3 if rs.eof then rs.close set rs=Nothing Call Error("

ID无效！") end if dim Counts Counts=rs("filepin") Response.Write "

" '-------A登录信息 if myid=0 then Response.write "欢迎您:登陆/注册
----------
"& chr(13) else '检查有几条新留言 dim newguest newguest = 0 IF myid > 0 THEN newguest = ForNewGuest(myid) END IF if newguest > 0 then Response.write "您有"&newguest&"条新消息
"& chr(13) end if end if '--------------------------- If Not rs.eof Then rs("hit")=rs("hit")+1 rs.update() end if Response.Write ""&ubb(rs("name"))&"
" Response.Write "来源:"&ubb(rs("laiy"))&"
" Response.Write "日期:"&ubb(fordate(rs("times")))&"
" Response.Write "人气:"&ubb(rs("hit"))&"
" set Rs=Server.CreateObject("ADODB.Recordset") Sql="select ID,picurl,format,YD_size from [uppic] where lid="&id&" order by id desc" rs.open Sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=picviewnum Dim Count,page,pagecount,gopage,act gopage="picview.asp?id="&id&"&class="&ids&"&pa=" & pa & "&sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) response.write ("共:"&count&"张图片
") For i=1 To PageSize If rs.eof Then Exit For Response.write "
" response.write"免费下载 " dim picc picc=replace(rs("picurl"),"http://"&request.ServerVariables("Server_NAME")&"","") response.write"编辑
" rs.moveNext Next if page-pagecount<0 then response.write "
下页-尾页" if page>1 then response.write "上页-首页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页[GO]
" Else Response.write "无此图片！
" end if rs.close set rs=nothing set rs1=server.createobject("adodb.recordset") sql="select top 1 ID,name,lid,idd from wjfiLE where lid="&ids&" and id<"&id&" order by id desc" rs1.open sql,conn,1,1 if rs1.recordcount>0 then %> &class=<%=rs1("lid")%>&cid=<%=rs1("idd")%>&pa=<%=pa%>&sid=<%=sid%>">>><%=ubb(rs1("name"))%>
<% end if rs1.close set rs1=nothing set rs2=server.createobject("adodb.recordset") sql="select top 1 ID,name,lid,idd from wjfile where lid="&ids&" and id>"&id&" order by id asc" rs2.open sql,conn,1,1 if rs2.recordcount>0 then %> &class=<%=rs2("lid")%>&cid=<%=rs2("idd")%>&pa=<%=pa%>&sid=<%=sid%>"><<<%=ubb(rs2("name"))%>
<%end if rs2.close set rs2=nothing '------------------- '随机广告开始 if adsetkf("ads5")=1 then call adstr(5) response.write"
"&chr(13) end if '------------------- %> ~~~~~~~
发表评论(<%=Counts%>)条
加入收藏
<%conn.close set conn=nothing%> ----------
<%if pa<>"" then%> 返回列表
<%end if%> 返回上级
返回首页