admin_pic.asp

本程序采用花香内核

        <tr class=lanyuds align="center"> 
         <td><input type=checkbox Name=pic_id Value=<%=rs("pic_id")%>></td>
         <td><%If Rs("passed")=1 Then%><a href="checktj.asp?id=<%=rs("pic_id")%>&action=pass&hx66=checkpic"><font color=red>pass</font></a><%else%>√<%End If%></td>
         <td><img src='<%=rs("pic_spic")%>' width='75' border='0'></td>
         <td><%=rs("pic_name")%> </td>
         <td><%=rscat("piccat_name")%></td>
         <td><%=rs("tjuser")%></td>
         <td><%=rs("pic_date")%></td>
         <td><font color=red><%=rs("reviewcount")%></font> </td>
         <td><a href="admin_view.asp?action=pic&pic_id=<%=rs("pic_id")%>">评论</a>  <a href="admin_pic.asp?id=<%=rs("pic_id")%>&action=editpic">编辑</a> 
          <a href="checktj.asp?id=<%=rs("pic_id")%>&action=del&hx66=checkpic">删除</a></td>
        </tr>
<%
rscat.close
set rscat=nothing
%>
      <%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
        <tr class=lanyuds> 
          <td colspan="9" height="22" align="center">当前没有图片！</td>
        </tr>
      <%end if
end if%>
        <form name="form1" method="post" action="admin_pic.asp?action=pic&piccat_id=<%=request.querystring("piccat_id")%>">
          <tr class=lanyuqs> <td class=lanyuqs colspan="9"><table width="100%" align="center">
            <td align="seft"> 
            <input type=hidden value=DEL name=operation>
	 <input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中本页所有 <input type=submit value=批量删除 onclick="return Del()"> </td>
            <td align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalpic%>条记录/<%=picperpage%>篇每页. 
              <%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
              <%=i%> 
              <%else%>
              <a href="admin_pic.asp?action=pic&page=<%=i%>&piccat_id=<%=request.querystring("piccat_id")%>"><%=i%></a> 
              <%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
              <a href="admin_pic.asp?action=pic&page=<%=page%>&piccat_id=<%=request.querystring("piccat_id")%>" title="下一页">>></a> 
              <%end if%>
              &nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="text" name="page" class="textarea" size="4">
              <input type="submit" name="Submit" value="Go" class="button">
            </table></td>
          </tr>
        </form>
      </table>
      <br>
	  <%end if
	  if request.querystring("action")="newpic" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<script  language="javascript">
 function upload_big(big_obj,small_obj,path,f)
  {
   if(f==1){
   big_obj.focus();
   }else{
   small_obj.focus();
   }
  var arr = showModalDialog("upfile.asp?f="+f+"&path="+path, "", "dialogWidth:245px; dialogHeight:80px; status:0;help:0");
  if (arr != null){
  var ss;
  ss=arr.split("*")
  if(f==1){
  big_obj.value=ss[0];
  small_obj.value=ss[1];
  }else{
  small_obj.value=ss[0];
  }
 }
}
</script>
        <form name="form2" method="post" action="">
          <tr class=lanyuss> 
            <td colspan="2">
            新增图片</td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">图片名称</td>
            <td width="83%"> 
              <input type="text" name="name" class="textarea" size="40"> 添加人：<input type="text" name="tjuser" size="10" value="admin">
            </td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">所属分类</td>
            <td width="83%">
              <select name="piccatid">
                <%
sql="select * from piccat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("piccat_name")&"'>"
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
%>
              <option value="<%=rs2("piccat_id")%>">├ <%=rs2("piccat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
             </td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">图片大小</td>
            <td width="83%"> 
              <input type="text" name="url" class="textarea" size="20" value="未知">
            </td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">图片地址</td>
            <td width="83%"> 
              <input name="pic" type="text" id="big" size="40">
            </td>
          </tr>
             <tr class=lanyuds> 
          <td>上传原图：</td>
           <td align="left" height="25"><input type="button" name="Submit" value="上传大图" onClick="upload_big(this.form.big,this.form.small,'<%=path%>',1);"> 你的系统如开启水印功能，上传大图后缩图自动添加。</td>
           </tr>
          <tr class=lanyuds> 
            <td width="17%">缩图地址</td>
            <td width="83%"> 
              <input name="spic" type="text" id="small" size="40">
            </td>
          </tr>
          <tr class=lanyuds> 
           <td>上传缩图：</td>
          <td align="left" height="25"><input type="button" name="Submit" value="上传缩图" onClick="upload_big(this.form.big,this.form.small,'<%=path%>',0);"> 你的系统如关闭水印功能，请上传缩图。</td>
            </tr>
          <tr class=lanyuds> 
            <td width="17%">图片介绍</td>
            <td width="83%"> 
              <textarea name="desc" class="textarea" cols="65" rows="6">图片版权归图片本人所有,未经同意不得转载!</textarea>
            </td>
          </tr>
          <tr  class=lanyuqs align="center">
            <td colspan="2">  
              <input type="checkbox" name="isbest" value="1" class="textarea">
              推荐&nbsp;&nbsp;&nbsp; 
              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="Reset" value="清空重填" class="button">
              [<a href="admin_pic.asp?action=pic">返回</a>] </td>
          </tr>
		  <input type="hidden" name="action" value="newpic">
		<input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
      <%end if
	  if request.QueryString("action")="editpic" then
	  if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from pic where pic_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<script  language="javascript">
 function upload_big(big_obj,small_obj,path,f)
  {
   if(f==1){
   big_obj.focus();
   }else{
   small_obj.focus();
   }
  var arr = showModalDialog("upfile.asp?f="+f+"&path="+path, "", "dialogWidth:245px; dialogHeight:80px; status:0;help:0");
  if (arr != null){
  var ss;
  ss=arr.split("*")
  if(f==1){
  big_obj.value=ss[0];
  small_obj.value=ss[1];
  }else{
  small_obj.value=ss[0];
  }
 }
}
</script>
        <form name="form2" method="post" action="">
          <tr class=lanyuss> 
            <td colspan="2">
            修改图片</td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">图片名称</td>
            <td width="83%"> 
              <input name="name" type="text" class="textarea" id="name" size="40" value="<%=rs("pic_name")%>"> 添加人：<input type="text" name="tjuser" size="10" value="<%=rs("tjuser")%>"> 
            </td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">所属分类</td>
            <td width="83%">
            <select name="piccatid" class="textarea" id="piccatid">
                <%
sql="select * from piccat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("piccat_name")&"'>"
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
%>
              <option value="<%=rs2("piccat_id")%>"<%if rs2("piccat_id")=rs("piccat_id") then response.write "selected" end if%>>├ <%=rs2("piccat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
            </td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">图片大小</td>
            <td width="83%"> 
              <input name="url" type="text" class="textarea" id="url" size="20" value="<%=rs("pic_url")%>">
            </td>
          </tr>
          <tr class=lanyuds> 
            <td width="17%">图片地址</td>
            <td width="83%"> 
              <input name="pic" type="text" class="textarea" id="big" size="60" value="<%=rs("pic_pic")%>">
            </td>
          </tr>
          <tr class=lanyuds> 
          <td>上传原图：</td>
           <td align="left" height="25"><input type="button" name="Submit" value="上传大图" onClick="upload_big(this.form.big,this.form.small,'<%=path%>',1);"> 你的系统如开启水印功能，上传大图后缩图自动添加。</td>
           </tr>
          <tr class=lanyuds> 
            <td width="17%">缩图地址</td>
            <td width="83%"> 
              <input name="spic" type="text" class="textarea" id="small" size="60" value="<%=rs("pic_spic")%>">
            </td>
          </tr>
          <tr class=lanyuds> 
           <td>上传缩图：</td>
          <td align="left" height="25"><input type="button" name="Submit" value="上传缩图" onClick="upload_big(this.form.big,this.form.small,'<%=path%>',0);"> 你的系统如关闭水印功能，请上传缩图。</td>
            </tr>
          <tr class=lanyuds> 
            <td width="17%">图片介绍</td>
            <td width="83%"> 
              <textarea name="desc" cols="65" rows="6" class="textarea" id="desc"><%=rs("pic_desc")%></textarea>
            </td>
          </tr>
          <tr class=lanyuqs align="center"> 
            <td colspan="2"><input name="isbest" type="checkbox" class="textarea" id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>> 推荐
              <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              <input type="reset" name="Reset" value="清空重填" class="button">
              [<a href="admin_pic.asp?action=pic">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("pic_id")%>">
          <input type="hidden" name="action" value="editpic">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%end if
end if
%>