📄 user_pic.asp
字号:
<!--#include file="user_popedom.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
sub naviPic()%>
<div align="center" style="padding-top:8px;height:30px;vertical-align:middle;"><a href="?channel=pic&action=picList&list=1">所有图片</a> <a href="?channel=pic&action=picList&list=2">通过审核的图片</a> <a href="?channel=pic&action=picList&list=3">未审核的图片</a> <a href="user_publish.asp?channel=pic&action=maosin_appPic">发表图片</a></div>
<%end sub
sub addpic()%>
<script language="javascript">
function mych(){
if(document.myform.picclass.options[document.myform.picclass.selectedIndex].value==""){
alert("请选择所属分类");
return false;
document.myform.classes.focus();
}
if(document.myform.authors.value==""){
alert("图片作者不能为空!");
document.myform.authors.focus();
return false;}
if(document.myform.keyword.value==""){
alert("图片关键词不能为空!");
document.myform.keyword.focus();
return false;
}
if(document.myform.title.value==""){
alert("图片标题不能为空");
document.myform.title.focus();
return false;}
if(document.myform.imgurl.value==""){
alert("请输入图片地址");
document.myform.imgurl.focus();
return false;}
if(document.myform.content.value==""){
alert("图片简介不能为空");
return false;}
return true;}
</Script>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="tableBC" style="margin-top:3px;">
<tr>
<td height="25" colspan="2" valign="middle" class="tdT"> 添加图片</td>
</tr>
<form action="user_publish.asp?channel=pic&action=maosin_savepic" name="myform" Method="post" onSubmit="return mych()">
<tr class="tdBC">
<td width="70" height="25" align="right" valign="middle">图片标题：</td>
<td width="*" valign="middle">
<input name="title" type="text" class="wenbenkang" id="title" 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="#000000" 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="tdBC">
<td height="25" align="right" valign="middle">关 键 词：</td>
<td valign="middle"><input name="keyword" type="text" class="wenbenkang" id="keyword" size="40"> <font color="#3d3d3d">*多个关键词请用“|”分隔</font></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">图片作者：</td>
<td valign="middle"><input name="authors" type="text" value="<%=userinfo(1)%>" class="wenbenkang" id="authors">
<select name="name1" onChange="authors.value=this.value;">
<option value="">选择作者</option>
<option value="佚名">佚名</option>
<option value="不详">不详</option>
<option value="网络">网络</option>
<option value="<%=webname%>"><%=webname%></option>
<option value="<%=userinfo(1)%>"><%=userinfo(1)%></option>
</select></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">图片来源：</td>
<td valign="middle"><input name="picfrom" type="text" class="wenbenkang" id="picfrom">
<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>
<option value="<%=userinfo(1)%>"><%=userinfo(1)%></option>
</select></td>
</tr>
<tr class="tdBC">
<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%>
<option value="<%=rs1("catId")&","&rs2("classID")%>">├<%=rs2("class")%></option>
<%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="tdBC">
<td height="25" align="right" valign="middle">查看权限：</td>
<td valign="middle">
<select name="popedom">
<option value="0" selected>游客</option>
<option value="1">普通会员</option>
<option value="2">VIP会员</option>
</select>
<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="tdBC">
<td height="25" align="right" valign="middle">图片属性：</td>
<td valign="middle">
尺寸[ 宽 <input type="text" name="imgwidth" id="imgwidth" class="wenbenkang" size="5">px 高 <input type="text" name="imgheight" id="imgheight" class="wenbenkang" size="5">px ] 大小：<input type="text" name="picsize" id="picsize" class="wenbenkang" size="5"> <input type="checkbox" name="isgood" id="isgood" value="true"><label style="cursor:hand;" for="isgood">设为推荐</label> <input type="checkbox" name="allowPl" id="allowPl" value="true" checked><label for="allowPl" style="cursor:hand;">允许评论</label> </td>
</tr>
<tr class="tdBC">
<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="upload.asp?uptype=img&urlname=myform.previewPicUrl" name="upimg"></iframe></iframe></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">缩图地址：</td>
<td valign="middle"><input name="previewPicUrl" type="text" class="wenbenkang" id="previewPicUrl" size=40> </td>
</tr>
<tr class="tdBC">
<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="upload.asp?uptype=img&urlname=myform.imgurl&sizeName=myform.picsize" name="upimg"></iframe></iframe></td>
</tr>
<tr class="tdBC">
<td height="25" align="right" valign="middle">图片地址：</td>
<td valign="middle"><input name="imgurl" type="text" class="wenbenkang" id="imgurl" onchange="imgurl.value;imgwidth.value=viewimg.width;imgheight.value=viewimg.height;" size=40> <button onclick="viewimg.src=imgurl.value;imgwidth.value=viewimg.width;imgheight.value=viewimg.height;">读取尺寸</button> <font color="#3d3d3d">*请双击</font><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="tdBC">
<td align="right" valign="top">图片简介：</td><td valign="top"><%=showUBB(0,0)%><br/><textarea name="content" style="width:100%" rows="10" id="content" class="textkang">本图片受版权保护，未经本站或作者同意不得转载或用于商业目的。</textarea></td>
</tr>
<tr valign="middle">
<td height="25" colspan="2" align="center" class="tdT">
<input type="checkbox" name="pass" id="pass1" value="true" <%if cint(userinfo(2))=3 then: response.write("checked"):else:response.write("disabled")end if%>><label for="pass1" style="cursor:hand;">通过审核</label>
<input name="addpic" type="submit" id="addpic" value="发布图片" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'">
</td>
</tr>
</form>
</table>
<%End Sub
Sub savepic()
action=lcase(request.querystring("action"))
id=request.form("id")
title=Request.form("title")
titlecolor=Request.form("titlecolor")
picClass=Request.form("picclass")
previewPicUrl=Request.form("previewPicUrl")
imgurl=Request.form("imgurl")
authors=Request.form("authors")
picfrom=request.form("picfrom")
Keyword=Request.form("Keyword")
content=Request.form("content")
imgwidth=Request.form("imgwidth")
imgheight=Request.form("imgheight")
picsize=Request.form("picsize")
if imgwidth="" or imgheight="" then
WHsize="未知"
else
WHsize=imgwidth&" × "&imgheight
end if
if cint(userinfo(2))=3 then
jifen=Request.form("jifen")
money=Request.form("money")
popedom=Request.form("popedom")
if Request.form("isgood")="true" then
isgood=true
else
isgood=false
end if
if Request.form("istop")="true" then
istop=true
else
istop=false
end if
if Request.form("pass")="true" then
pass=true
else
pass=false
end if
else
jifen=0
money=0
popedom=0
isgood=false
istop=false
pass=false
if fabuPass=0 then
pass=true
elseif fabuPass=1 then
pass=false
end if
end if
if Request.form("allowPl")="" then
allowpl=false
else
allowpl=true
end if
if trim(title)="" then
errmsg="<li>请您输入图片标题</li>"
end if
if trim(authors)="" then
errmsg=errmsg&"<li>请您输入图片作者</li>"
end if
if picclass="" then
errmsg=errmsg&"<li>请您选择图片所属分类</li>"
else
clStr=split(picclass,",")
if ubound(clStr)=1 then
catid=clStr(0)
classId=clStr(1)
else
errmsg=errmsg&"<li>您输入的分类ID不正确</li>"
end if
end if
if trim(content)="" then
errmsg=errmsg&"<li>请您输入新闻内容</li>"
end if
if trim(imgurl)="" then
errmsg=errmsg&"<li>请您输入图片地址</li>"
end if
if not isNumeric(jifen) then
errmsg=errmsg&"<li>您输入的"&pointName&"值不正确,"&pointName&"值应为数字型整数</li>"
end if
if not isNumeric(money) then
errmsg=errmsg&"<li>您输入的"&moneyName&"值不正确,"&moneyName&"值应为数字型整数</li>"
end if
if errmsg<>"" then
showmsg "<font color=""#ff0000"">系统发生如下错误:</font><br>"&errmsg,"出错信息"
errmsg=""
exit sub
end if
if ms_submit=0 then
if chkIsOut=false then
showmsg "<font color=""#ff0000"">茂盛系统返回提示信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
exit sub
end if
end if
if action=lcase("maosin_savemdf") then
sql="select * from ms_pic where id="&id
else
sql="select * from ms_pic where (id is null)"
end if
Set urs=Server.CreateObject("ADODB.RecordSet")
urs.open sql,connstr,1,3
if action<>lcase("maosin_savemdf") then
urs.AddNew
end if
urs("catID")=catID
urs("classID")=classID
urs("pic_title")=chkFormStr(title)
urs("titlecolor")=chkColor(titlecolor)
urs("pic_size")=replace(picsize,"'","")
urs("WHsize")=replace(WHsize,"'","")
urs("previewPicUrl")=ChkFormStr(previewPicUrl)
urs("pic_url")=ChkFormStr(imgurl)
urs("pic_authors")=ChkFormStr(authors)
if action<>lcase("maosin_savemdf") then
urs("pic_date")=now()
urs("post_member")=userinfo(1)
end if
urs("pic_keyword")=chkFormStr(replace(keyword,"|",","))
urs("pic_content")=filterKeyWord(ubbCode(content,1,0,0,1))
urs("pic_from")=ChkFormStr(picfrom)
urs("pic_isgood")=isgood
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -