📄 admin_picadd.asp

📁 这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下
💻 ASP
字号:
<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：web@sun116.net
'=========================================================
if session("AdminName") = "" then
    response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<%
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from [type] order by TypeID asc"
rs.open sql,conn,1,1
%>
<SCRIPT language="JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rs("typeName"))%>","<%= trim(rs("ClassID"))%>","<%= trim(rs("TypeID"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.form.mclass.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.form.mclass.options[document.form.mclass.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</SCRIPT>
<html>
<head>
<script language="Javascript">
function openScript(url, width, height){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
function openem()
{ 
openScript('../upload.asp',350,200); 
}
</script>

<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.name.value=="")
	{
	  alert("友情提示!\n\n请填写图片名称!")
	  document.form.name.focus()
	  return false
	 }
else if (document.form.nclass.value=="")
	{
	  alert("友情提示!\n\n请选择图片一级分类!")
	  document.form.nclass.focus()
	  return false
	 }
else if (document.form.mclass.value=="")
	{
	  alert("友情提示!\n\n请选择图片二级分类!")
	  document.form.mclass.focus()
	  return false
	 }
else if (document.form.pic.value=="")
	{
	  alert("友情提示!\n\n请输入图片地址!")
	  document.form.pic.focus()
	  return false
	 }
else if (document.form.jj.value=="")
	{
	  alert("友情提示!\n\n请填写图片说明!!")
	  document.form.jj.focus()
	  return false
	 }
}
// -->
</script>

<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<head>
<title>讯网wap图片后台管理中心</title>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
    <td height=23 colspan=2 class="topbg"><strong>图 片 管 理</strong></tr>
<tr>
    <td width="100" class="tdbg" height=25><strong>管理快捷方式：</strong></td>
    <td class="tdbg"><a href="Admin_All.asp">管理首页</a>
     | <a href="Admin_All.asp">图片管理</a>
	 | <a href="Admin_Class.asp">分类管理</a>
     | <a href="Admin_PicAdd.asp">添加图片</a>
	 | <a href="Admin_Affiche.asp">公告管理</a>
     </td>
</tr>
</table>
<br>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% align=center class="border">
  <TBODY>
  <TR>
      <TD align=middle bgColor=#f2f2f2 vAlign=top width=100%>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
  <form name="form" method="post" action="Add_SavePic.Asp?Action=Add_Pic" onsubmit="return form_onsubmit()">
  <tr> 
   <td class="bk" width="115" align="right">文件名称：</td>
   <td class="bk" width="565"> 
    <input type="text" name="name" class="an" maxlength="50" value="<%=name%>" size="20">
    * </td>
  </tr>
  <tr> 
   <td class="bk" width="115" align="right">文件大小：</td>
   <td class="bk" width="565"> 
    <input type="text" name="dx" class="an" maxlength="50" value="<%=dx%>" size="20">
   </td>
  </tr>
<TR class="bk">
<TD height=30 align=right width="115">一级分类：</TD>
<TD>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from [class]"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "..."
response.end
else
%>
<SELECT name="nclass" onChange="changelocation(document.form.nclass.options[document.form.nclass.selectedIndex].value)" size="1">
<OPTION selected value>==请选择图片分类==</OPTION>
<%do while not rs.eof%>
<OPTION value="<%=trim(rs("ClassID"))%>"><%=trim(rs("ClassName"))%></OPTION>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
conn.Close
set conn = nothing
%></SELECT> *</TD>
</TR>
<TR class="bk">
<TD height=30 align=right width="115">二级分类：</TD>
<TD><SELECT name="mclass"><OPTION selected value>==请选择二级栏目==</OPTION></SELECT> *</TD>
</TR>
<TR class="bk">
<TD width="115"  align="right">是否推荐：</TD>
<TD><input type="radio" name="hot" value="0" checked>
否<input type="radio" name="hot" value="1">
是 </TD></TR>
  <tr> 
   <td class="bk" width="115" align="right">图片：</td>
   <td class="bk" width="565"> 
    <input type="text" name="pic" class="an" maxlength="200" value="<%=pic%>" size="20">&nbsp;
	<a href="JavaScript:openem()">上传图片</a></td>
  </tr>
  <tr> 
   <td class="bk" valign="top" width="115" align="right">文件简介：</td>
   <td class="bk" valign="top" width="565"> 
    <textarea name="jj" class="an" cols="40" rows="5"><%=jj%></textarea>
   </td>
  </tr>
<tr class="bk">
<td width="15%" height="25" align="right"></td>
<td width="85%"><input type="submit" value="提交图片" name="Submit">&nbsp;<input type="reset" value="清除重写" name="Submit2"></td>
</tr>
 </form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
  <tr> 
    <td height="2"></td>
  </tr>
  
  <tr> 
   
    <td class="bk">请注意，必须填写带有“*”项目，缩略图如果不填写则使用默认图片</td>
  </tr>
        <TR>
          <TD></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="copyright.asp" -->
</BODY></HTML>
💿 文件大小 676 K
👤 上传用户 yong_715
📂 所属分类其他
🏷️ 相关标签

#lt #gt
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -