📄 admin_pic.asp
字号:
}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>
<SCRIPT LANGUAGE="JavaScript">
<!--
//控制上传文件域js
var i=0;//全局计数变量
function Set1()
{var iCount,str;
iCount=window.form2.upcount.value
str='<td></td>';
if((!iCount)||(iCount==0))
{iCount=1;
window.form2.upcount.value=1;
}
if (iCount>100)
{
window.form2.upcount.value=i-1;
alert("每次最大允许上传100个文件");
}
else
{window.form2.upcount1.value=0
for(i=1;i<=iCount;i++)
{
str+='<div align="left">图片'+i+':<input type="text" name="pic'+i+'" style="width:280"> <iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=pic&ztpic=pic'+i+'"></iframe></div>';
}
window.upid.innerHTML=str+'<td></td>';
}
return false;
}
function Set2()
{var iCount,iV;
iV=parseInt(window.form2.upcount1.value)
iCount=parseInt(window.form2.upcount.value)
if(iCount!=i-1)
{iCount=i-1;}
if (i>100)
{
window.form2.upcount.value=100;
alert("每次最大允许上传100个文件");
}
else
{
if(i==1){i=2}
if(iV==1){iCount=1;window.form2.upcount1.value=0;}
{
window.form2.upcount.value=iCount+1;
window.upid.insertAdjacentHTML('BeforeEnd','<div align="left">图片'+i+':<input type="text" name="pic'+i+'" style="width:280"> <iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=pic&ztpic=pic'+i+'"></iframe><br></div>');
}
}
i++;
return false;
}
function Set3()
{var iCount,str;
iCount=window.form2.upcount.value
str='<td></td>';
str+='<div align="left"> 不添加组图请不要设定.<br></div>';
window.upid.innerHTML=str+'<td></td>';
i=2;
window.form2.upcount.value=1;
}
//-->
</SCRIPT>
<form name="form2" method="post" action="">
<tr class=Hxcmsss>
<td colspan="2">新增图片</td>
</tr>
<tr class=Hxcmsds>
<td width="17%" align="right">图片名称：</td>
<td width="83%">
<input type="text" name="name" class="textarea" size="40">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">所属分类：</td>
<td>
<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
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
%>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">图片大小：</td>
<td>
<input type="text" name="url" class="textarea" size="20" value="未知">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">图片地址：</td>
<td>
<input name="pic" type="text" id="big" size="40">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">上传原图：</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=Hxcmsds>
<td align="right">缩图地址：</td>
<td>
<input name="spic" type="text" id="small" size="40">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">上传缩图：</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=Hxcmsds>
<td align="right">增加组图：</td>
<td colspan="1" height="28"> 增加图片数:
<input type="text" name="upcount" style="width:40" value="3"> <input type="button" name="Button0" onClick="Set1();" value=" 设 定 "><input name="Button2" type=Button onClick="return Set2();" value="增加文件"><input type="reset" name="Submit222" onClick="Set3();" value="清空重填"><input type="hidden" name="upcount1" value="1" >
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">组图地址：</td>
<td height="" id="upid"> 不添加组图请不要设定.</td>
</tr>
<tr class=Hxcmsds>
<td align="right">图片介绍：</td>
<td>
<textarea name="desc" class="textarea" cols="55" rows="6">图片</textarea>
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">图片添加：</td>
<td><input type="text" name="tjuser" size="10" value="<%=Session("hxStudioAdminName")%>">
</td>
</tr>
<tr class=Hxcmsqs align="center">
<td colspan="2">
<input type="checkbox" name="isbest" value="1" class="textarea">
推荐
<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=Hxcmsbk 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=Hxcmsss>
<td colspan="2">修改图片</td>
</tr>
<tr class=Hxcmsds>
<td width="17%" align="right">图片名称：</td>
<td width="83%">
<input name="name" type="text" class="textarea" id="name" size="40" value="<%=rs("pic_name")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">所属分类：</td>
<td>
<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
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
%>
</select>
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">图片大小：</td>
<td>
<input name="url" type="text" class="textarea" id="url" size="20" value="<%=rs("pic_url")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">图片地址：</td>
<td>
<input name="pic" type="text" class="textarea" id="big" size="60" value="<%=rs("pic_pic")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">上传原图：</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=Hxcmsds>
<td align="right">缩图地址：</td>
<td>
<input name="spic" type="text" class="textarea" id="small" size="60" value="<%=rs("pic_spic")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">上传缩图：</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=Hxcmsds>
<td align="right">组图地址：</td>
<td align="left" height="25"><input name="pic_pic1" type="text" class="textarea" id="pic_pic1" size="60" value="<%=rs("pic_pic1")%>"> <br>没有组图请留空，要增减图片请严格按此格式编辑！每张图片前加 | 分隔符。</td>
</tr>
<tr class=Hxcmsds>
<td align="right">图片介绍：</td>
<td>
<textarea name="desc" cols="65" rows="6" class="textarea" id="desc"><%=rs("pic_desc")%></textarea>
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">图片添加：</td>
<td><input type="text" name="tjuser" size="10" value="<%=rs("tjuser")%>">
</td>
</tr>
<tr class=Hxcmsqs 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>
<%
rs.close
set rs=nothing
end if
end if
'****************************************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -