<% If Request("action")="Change" Then '更改数量 '更改数量 if Request("Photo_name")="" or Not(isNumeric(Request("Photo_name"))) then Photo_name=1 else Photo_name=request("Photo_name") end if if Request("NID")="" or Not(isNumeric(Request("NID"))) then Response.Redirect "photo_List.asp" Response.End() end if Set Rs=Server.Createobject("adodb.recordset") Sql="Select * From Net_photo Where NID="&Request("NID")&"" Rs.open Sql,Conn,1,3 if not Rs.eof then Rs("Photo_name") = Request("Photo_name") Rs.update end if Rs.close Set Rs=nothing Response.Redirect "photo_List.asp" Response.End End If %> <% If Request("action")="edit" Then '更改名称 Set Rs=Server.Createobject("adodb.recordset") Sql="Select * From Net_photo Where NID="&Request("NID")&"" Rs.open Sql,Conn,1,3 if not Rs.eof then Rs("photo_name") = Request("photo_name") Rs.update end if Rs.close Set Rs=nothing Response.Redirect "photo_List.asp" Response.End End If %>

当前位置 >> 相片管理 | 相片管理列表

请输入关键字： " /> *修改相片说明直接在[相片名称]处修改！ <% KeyWord = DelStr(Request("KeyWord")) If KeyWord="" Then sql="Select * From net_photo order by Nid desc" Else sql="Select * From net_photo Where photo_name like '%"& KeyWord &"%' or mesege like '%"& KeyWord &"%' order by nid desc" End If set rs=createobject("adodb.recordset") rs.open sql,conn,1,3 rs.pagesize=16 if not rs.eof and not rs.bof then %> <% for i=1 to rs.PageSize if rs.eof or rs.bof then exit for %> <% rs.movenext next %> 编号 标题 类别 介绍推荐 日记推荐 联系推荐 发布时间 首页推荐 允许评论 选择 <%=rs("NID")%> " name="NID<%=rs("NID")%>" id="NID<%=rs("NID")%>" /> 相片名称：" type="text" id="photo_Name<%=rs("NID")%>" onBlur="ModifyPhoto_name<%=rs("NID")%>()" value="<%=Rs("photo_Name")%>" size="30" >" width="100" border="0"/>(点击率：<%=rs("hits")%>) <% Set Rst=server.createobject("adodb.recordset") Rst.open "Select * From Net_photo_Class Where ClassID="&rs("ClassID"),Conn,1,1 If Not Rst.eof and Not Rst.bof Then Response.Write Rst("ClassName") End If Rst.Close Set Rst=nothing %> &tuijianc=tuijian_2"><%Call Joleo.Judgement(rs("tuijian_2"))%> &tuijianc=tuijian_3"><%Call Joleo.Judgement(rs("tuijian_3"))%> &tuijianc=tuijian_4"><%Call Joleo.Judgement(rs("tuijian_4"))%> <%=rs("add_date")%> &tuijianc=tuijian_1"><%Call Joleo.Judgement(rs("tuijian_1"))%> &tuijianc=pinglun"><%Call Joleo.Judgement(rs("pinglun"))%> " style="border:0px;"> 全选 <% else Response.Write "

暂无信息，敬请期待！

" end if rs.close set rs=nothing conn.close set conn=nothing %>