⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_pic.asp

📁 本系统是一套开源WEB的网站管理系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
		Else%>
		<option style="color:#ff0000;font-weight:bold;">----请添加大分类----</option>
		<%rs1.close
		Set rs1=Nothing
		End If
			 %>
          </select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">查看权限：</td>
    <td valign="middle"> 
      <input type="radio" name="popedom" id="pop0" value=0 checked><label style="cursor:hand;" for="pop0">游客</label>
      <input type="radio" name="popedom" id="pop1" value=1><label style="cursor:hand;" for="pop1">普通会员</label>
      <input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label> &nbsp;
      <span style="color:#3D3D3D;">[需要<%=pointName%><input name="jifen" type="text" class="wenbenkang" value="0" size="4">以上 | 消费<%=moneyName%>：<input name="money" type="text" class="wenbenkang" value="0" size="4">] *游客请保持为 0</span> </td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片属性：</td>
    <td valign="middle">
	尺寸[ 宽 <input type="text" name="imgwidth" id="imgwidth" class="wenbenkang" size="5">px &nbsp; 高 <input type="text" name="imgheight" id="imgheight" class="wenbenkang" size="5">px ] &nbsp;&nbsp;大小：<input type="text" name="picsize" id="picsize" class="wenbenkang" size="5"> &nbsp;<input type="checkbox" name="isgood" id="isgood" value="true"><label style="cursor:hand;" for="isgood">设为推荐</label> &nbsp;<input type="checkbox" name="allowPl" id="allowPl" value="true" checked><label for="allowPl" style="cursor:hand;">允许评论</label> &nbsp;</td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">缩图上传：</td>
    <td valign="middle"><iframe height="25" scrolling="no" width="100%" frameborder="0" marginheight="0" marginwidth="0" src="myup.asp?cat=picture&uptype=pic&urlname=previewPicUrl" name="upimg"></iframe></iframe></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">缩图地址：</td>
    <td valign="middle"><input name="previewPicUrl" type="text" class="wenbenkang" id="previewPicUrl" size=40> &nbsp;</td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片上传：</td>
    <td valign="middle"><iframe height="25" scrolling="no" width="100%" frameborder="0" marginheight="0" marginwidth="0" src="myup.asp?cat=picture&uptype=pic&urlname=imgurl&sizeName=picsize" name="upimg"></iframe></iframe></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片地址：</td>
    <td valign="middle"><input name="imgurl" type="text" class="wenbenkang" id="imgurl" onchange="viewimg.src='../'+imgurl.value;imgwidth.value=viewimg.width;imgheight.value=viewimg.height;" size=40> &nbsp;<button onclick="viewimg.src='../'+imgurl.value;imgwidth.value=viewimg.width;imgheight.value=viewimg.height;">读取尺寸</button><div id="Layer2" style="position:absolute; left:350px; top:350px; width:0px; height:0px; z-index:2;overflow:scroll;"><img src="" name="viewimg" id="viewimg"></div></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td align="right" valign="top">图片简介：</td>
    <td valign="top"><input type="hidden" name="content" value="本图片受版权保护，未经本站或作者同意不得转载或用于商业目的。" id="edit"><!--#include file="../editor/edit.asp"--></td>
  </tr>
  <tr valign="middle" class="td_titleB"> 
    <td height="25" colspan="2" align="center"> 
      <input type="checkbox" name="pass" id="pass1" value="checkbox" checked><label for="pass1" style="cursor:hand;">通过审核</label>
      <input name="addpic" type="submit" id="addpic" value="发布图片">
    </td>
  </tr>
</form>
</table>
<%End Sub
Sub editPic()
if getPopedom("picAdmin")=false then
	popedomMsg
	exit sub
end if
sql="Select * from ms_pic where id="&Request.QueryString("id")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
dim editpath:editpath="../editor/"
%>
<script language="javascript">
function mych(){
submits();
if(document.form.picclass.options[document.form.picclass.selectedIndex].value==""){
alert("请选择所属分类");
return false;
document.form.classes.focus();
}
if(document.form.authors.value==""){
alert("图片作者不能为空!");
document.form.authors.focus();
return false;}
if(document.form.keyword.value==""){
alert("图片关键词不能为空!");
document.form.keyword.focus();
return false;
}
if(document.form.title.value==""){
alert("图片标题不能为空");
document.form.title.focus();
return false;}
if(document.form.content.value==""){
alert("图片简介不能为空");
IframeID.document.body.focus();
return false;}
return true;}
var editorpath="../editor/";
</Script>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="text table_border mainTable">
  <tr> 
    <td height="25" colspan="2" valign="middle" class="td_titleT"> 修改图片</td>
  </tr>
	<form action="?action=maosin_savePic&operate=maosin_mdf" name="form" Method="post" onSubmit="mych()">
  <tr class="td_bgcolor"> 
    <td width="80" height="25" align="right" valign="middle">图片标题：</td>
    <td width="*" valign="middle"><input name="id" type="hidden" value=<%=rs("id")%>><input name="title" value="<%=rs("pic_title")%>" type="text" id="title" class="wenbenkang" size="40" ondrop="document.form.keyword.value=document.form.title.value;" onpaste="document.form.keyword.value=document.form.title.value;" onkeyup="document.form.keyword.value=document.form.title.value;">标题颜色：<input name="titlecolor" type="text" class="wenbenkang" value="<%=rs("titlecolor")%>" id="titlecolor" size="10" readonly> <select name="colorrs" onChange="titlecolor.value=this.value;"><option value="#000000">选择颜色</option><%colorStr=split(colorRS,","):for i=0 to ubound(colorStr): Response.Write ("<option style=""background-color:"& colorStr(i) &";color: "& colorStr(i) &""" value="""&colorStr(i)&""">"&colorStr(i)&"</option>"):next%></select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">关 键 词：</td>
    <td valign="middle"><input name="keyword" type="text" value="<%=rs("pic_keyword")%>" class="wenbenkang" id="keyword" size="40">  &nbsp;<font color="#3d3d3d">*多个关键词请用“|”分隔</font></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">发布作者：</td>
    <td valign="middle"><input name="authors" type="text" value="<%=rs("pic_authors")%>" class="wenbenkang" id="authors"> &nbsp;<select name="name1" onChange="authors.value=this.value;"><option value="">选择作者</option><option value="佚名">佚名</option><option value="不详">不详</option><option value="网络">网络</option><option value="<%=webboss%>"><%=webboss%></option><option value="<%=webname%>"><%=webname%></option></select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片来源：</td>
    <td valign="middle"><input name="picfrom" type="text" value="<%=rs("pic_from")%>" class="wenbenkang" id="picfrom"> &nbsp;<select name="from1" onChange="picfrom.value=this.value;"><option value="">选择来源</option><option value="转载">转载</option><option value="不详">不详</option><option value="网络">网络</option><option value="原创">原创</option><option value="整理">整理</option><option value="<%=webname%>"><%=webname%></option></select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片分类：</td>
    <td valign="middle"><select name="picclass" id="picclass">
		 <%sql="select * from ms_pic_cat"
		 Set rs1=Server.CreateObject("ADODB.RecordSet")
		 rs1.Open sql,connstr,1,1
		 If Not rs1.Bof And Not rs1.Eof Then
		 Do While Not rs1.Eof
			 sql="select * from ms_pic_class where catID="&rs1("catID")
			 Set rs2=Server.CreateObject("ADODB.RecordSet")
			 rs2.Open sql,connstr,1,1
			 If Not rs2.Eof And Not rs2.Bof Then%>
			 		<option style="color:#ff0000;font-weight:bold;">----<%=rs1("catName")%>----</option>
				<%Do While Not rs2.Eof
					if rs("classID")=rs2("classID") then%>
					<option value="<%=rs1("catId")&","&rs2("classID")%>" selected><%=rs2("class")%></option>
					<%else%>
					<option value="<%=rs1("catId")&","&rs2("classID")%>"><%=rs2("class")%></option>
					<%end if
					rs2.MoveNext
				Loop
			 	rs2.close
				Set rs2=Nothing
			 Else%>
					<option>请添加子分类</option>
					<%rs2.close
				Set rs2=Nothing
			 End If
		rs1.MoveNext
		Loop
		rs1.close
		Set rs1=Nothing
		Else%>
		<option style="color:#ff0000;font-weight:bold;">----请添加大分类----</option>
		<%rs1.close
		Set rs1=Nothing
		End If
			 %>
	 </select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">查看权限：</td>
    <td valign="middle"> 
		  <%if cint(rs("popedom"))=0 then%>
		 	<input type="radio" name="popedom" id="pop0" value=0 checked><label style="cursor:hand;" for="pop0">游客</label>
            <input type="radio" name="popedom" id="pop1" value=1><label style="cursor:hand;" for="pop1">普通会员</label>
            <input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label> &nbsp;
		  <%elseif cint(rs("popedom"))=1 then%>
		 	<input type="radio" name="popedom" id="pop0" value=0><label style="cursor:hand;" for="pop0">游客</label>
            <input type="radio" name="popedom" id="pop1" value=1 checked><label style="cursor:hand;" for="pop1">普通会员</label>
            <input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label> &nbsp;
		  <%elseif cint(rs("popedom"))=2 then%>
		 	<input type="radio" name="popedom" id="pop0" value=0><label style="cursor:hand;" for="pop0">游客</label>
            <input type="radio" name="popedom" id="pop1" value=1><label style="cursor:hand;" for="pop1">普通会员</label>
            <input type="radio" name="popedom" id="pop2" value=2 checked><label style="cursor:hand;" for="pop2">VIP会员</label> &nbsp;
		  <%end if%>
      <span style="color:#3D3D3D;">[需要<%=pointName%><input name="jifen" type="text" class="wenbenkang" value="<%=rs("jifen")%>" size="4">以上 | 消费<%=moneyName%>：<input name="money" type="text" class="wenbenkang" value="<%=rs("money")%>" size="4">] *游客请保持为 0</span> </td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片属性：</td>
    <td valign="middle">
	<%
	if rs("WHsize")<>"" then
	whsize=split(rs("WHsize")," χ ")
	if UBound(whsize)=1 then
		imgwidth=whsize(0)
		imgheight=whsize(1)
	else
		imgwidth=""
		imgheight=""
	end if
	end if
	%>
	尺寸[ 宽 <input type="text" name="imgwidth" id="imgwidth" value="<%=imgwidth%>" class="wenbenkang" size="5">px &nbsp; 高 <input type="text" name="imgheight"  value="<%=imgheight%>" id="imgheight" class="wenbenkang" size="5">px ] &nbsp;&nbsp;大小：<input type="text" name="picsize" value="<%=rs("pic_size")%>" id="picsize" class="wenbenkang" size="5"> &nbsp;<input type="checkbox" name="isgood" id="isgood" value="true" <%if rs("pic_isgood")=true then response.write("checked") end if%>><label style="cursor:hand;" for="isgood">设为推荐</label> &nbsp;<input type="checkbox" name="allowPl" id="allowPl" value="true" <%if rs("allow_pl")=true then response.write("checked") end if%>><label for="allowPl" style="cursor:hand;">允许评论</label> &nbsp;</td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">缩图上传：</td>
    <td valign="middle"><iframe height="25" scrolling="no" width="100%" frameborder="0" marginheight="0" marginwidth="0" src="myup.asp?cat=picture&uptype=pic&urlname=previewPicUrl" name="upimg"></iframe></iframe></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">缩图地址：</td>
    <td valign="middle"><input name="previewPicUrl" type="text" class="wenbenkang" value=<%=rs("previewPicUrl")%> id="previewPicUrl" size=40> &nbsp;</td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片上传：</td>
    <td valign="middle"><iframe height="25" scrolling="no" width="100%" frameborder="0" marginheight="0" marginwidth="0" src="myup.asp?cat=picture&uptype=pic&urlname=imgurl&sizeName=picsize" name="upimg"></iframe></iframe></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">图片地址：</td>
    <td val漀瑰潩??ign="middle"><input name="imgurl" type="text" class="wenbenkang" value=<%=rs("pic_url")%> id="imgurl" onchange="viewimg.src='../'+imgurl.value;imgwidth.value=viewimg.width;imgheight.value=viewimg.height;" size=40> &nbsp;<button onclick="viewimg.src='../'+imgurl.value;imgwidth.value=viewimg.width;imgheight.value=viewimg.height;">读取尺寸</button><div id="Layer2" style="position:absolute; left:350px; top:350px; width:0px; height:0px; z-index:2;overflow:scroll;"><img src="" name="viewimg" id="viewimg"></div></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td align="right" valign="top">图片简介：</td>
    <td valign="top"><input type="hidden" name="content" id="edit" value="<%=server.HTMLENCode(rs("pic_content"))%>"><!--#include file="../editor/edit.asp"-->
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">奖励发布：</td>
    <td valign="middle"><%=pointName%>：<input type="input" class="wenbenkang" name="sendOutPoint" value="0" size="15"> <%=pointUnits%> &nbsp;&nbsp;&nbsp;<span>共累计奖励该发布者 <%=rs("sendOutPoint")%>&nbsp;<%=pointUnits%></span></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="25" align="right" valign="middle">审核：</td>
    <td valign="middle"><input type="checkbox" name="pass" id="pass1" value="checkbox" <%if rs("pass")=true then response.write("checked") end if%>><label for="pass1" style="cursor:hand;">通过审核</label></td>
  </tr>
  <tr valign="middle" class="td_titleB"> 
    <td height="25" colspan="2" align="center"> 
      <input type="submit" id="modifypic" name="modifypic" value="图片修改">
    </td>
  </tr>
</form>
</table>
<%
rs.close
set rs=Nothing
End Sub
Sub deletePic()
if getPopedom("picAdmin")=false then
	popedomMsg
	exit sub
end if
sql="delete from ms_pic where id="&Request.QueryString("id")
conn.Execute(sql)
adminShowMsg "成功信息","<li>恭喜您,图片操作删除成功！</li><br><br><span id=seNum>5</span><a href=javascript：showtime></a>秒钟后系统将自动返回图片管理页......</b><meta http-equiv=refresh content=5;url=admin_pic.asp><SCRIPT>valignbottom()</SCRIPT><script>function showtime(secs){seNum.innerText=secs;if(--secs>0)setTimeout('showtime('+secs+')',1000);}showtime(5);</script>"
exit sub
End Sub
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>
123

⌨️ 快捷键说明

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