photoedit.asp

一套非常实用的博客源代码,功能全,界面简单易用.

							</td>
						  </tr>
						  <tr bgcolor="#FFFFFF">
							<td width="112" align="right" nowrap><strong>标题：</strong></td>
							<td width="100%">
								<input name="ph_Name" type="text" class="input_bg" id="ph_Name" value="<%=EditDeHTML(ph_Edit("ph_Name"))%>" size="60">
							</td>
						  </tr>
							<script language="JavaScript" src="include/ubbcode.js"></script>
						  <tr bgcolor="#FFFFFF">
							<td align="right"><strong>缩略图：</strong></td>
							<td><input name="ph_Thumbnail" type="text" class="input_bg" id="ph_Thumbnail" value="<%=EditDeHTML(ph_Edit("ph_Thumbnail"))%>" size="60" maxlength="200"> 推荐缩略图大小为100*100</td>
						  </tr>
						  <tr bgcolor="#FFFFFF">
							<td align="right" valign="top">
								<strong>图片地址：</strong>
							</td>
							<td valign="top">
								<textarea name="ph_Image" class="textarea_bg" rows="6"  style="width:100%" wrap="VIRTUAL" id="ph_Image" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyUp="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();"><%=ph_Edit("ph_Image")%></textarea>
								
						<div>1.您可以添加多个图片地址，每张图片用回车分隔。在添加多张图片的时候，请注意<font color=red>最后一张图片的后面不要加回车</font>！</div>
						<div>2.您可以添加多张图片的简要说明，每张图片的简要说明之前用&quot;<font color="blue">@</font>&quot;隔开。而每一个简要说明都对应你所添加的图片。</div>
						<div>3.例如: http://www.nmacw.com/1.jpg@这是一张测试图片</div>
						<div style="text-indent: 42px;">http://www.nmacw.com/2.jpg@这是第二张测试图片</div>
						<div style="text-indent: 42px;">http://www.nmacw.com/3.jpg&nbsp;&nbsp;&nbsp;&nbsp;注: 此图不加说明</div>
					</td>
						  </tr>
						  <tr bgcolor="#FFFFFF">
						    <td align="right" valign="top"><strong>内容：</strong></td>
							<td valign="top"><textarea name="message" class="textarea_bg" rows="6"  style="width:100%" wrap="VIRTUAL" id="Message" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyUp="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();"><%=EditDeHTML(ph_Edit("ph_Remark"))%></textarea></td>
						    </tr>
						  <tr bgcolor="#FFFFFF">
							<td align="right"><strong>上传图片：</strong></td>
							<td>
								<iframe border="0" frameborder="0" framespacing="0" height="23" marginheight="0" marginwidth="0" noresize"noResize" scrolling="No" width="100%" vspale="0" src="attachment_e.asp"></iframe>
								<br>仅支持<font color=red>GIF,JPG,BMP,PNG</font>格式
							</td>
						  </tr>
						  <tr bgcolor="#FFFFFF">
						    <td align="right"><strong>打分数目：</strong></td>
						    <td>
								<%Dim phVote
								phVote=split(ph_Edit("ph_Vote"),"|")%>
								<input name="phVote1" type="text" value="<%=""&phVote(0)&""%>" size="2" />
								1分&nbsp;&nbsp;
								<input name="phVote2" type="text" value="<%=""&phVote(1)&""%>" size="2" />
								2分&nbsp;&nbsp;
								<input name="phVote3" type="text" value="<%=""&phVote(2)&""%>" size="2" />
								3分&nbsp;&nbsp;
								<input name="phVote4" type="text" value="<%=""&phVote(3)&""%>" size="2" />
								4分&nbsp;&nbsp;
								<input name="phVote5" type="text" value="<%=""&phVote(4)&""%>" size="2" />
								5分&nbsp;&nbsp;
							</td>
						    </tr>
						  <tr align="center" bgcolor="#FFFFFF">
							<td colspan="2">
								<input name="ph_ID" type="hidden" id="ph_ID" value="<%=ph_Edit("ph_ID")%>">
								<input name="ph_CateID" type="hidden" id="ph_CateID" value="<%=ph_Edit("ph_CateID")%>">
								<input name="editsubmit" type="submit" value="确定编辑" onClick="this.disabled=true;document.inputform.submit();">
								<input name="L_Reset" type="button" id="L_Reset" value="取消编辑" onclick="javascript:history.go(-1);">
							</td>
						  </tr>
						</form>
						</table>
					</td>
				  </tr>
				</table>
			<%End IF
		End IF
		ph_Edit.Close
		Set ph_Edit=Nothing
	End If
Else
	Dim editPost_ID
	editPost_ID=Trim(Request.Form("ph_ID"))
	If IsInteger(editPost_ID)=False Then%>
		<table width="710" border="0" align="center" cellpadding="0" cellspacing="6" bgcolor="#FFFFFF" class="wordbreak">
		  <tr>
			<td align="center" valign="middle" height="120">
			  <h4>参数错误</h4>
				<p>&nbsp;</p>
			  <div><a href='javascript:history.go(-1);'>请返回重新填写</a></div>
			</td>
		  </tr>
		</table>
	<%Else
		Dim ph_editPost
		Set ph_editPost=Server.CreateObject("ADODB.Recordset")
		SQL="SELECT ph_ID,ph_Author FROM photo WHERE ph_ID="&editPost_ID
		ph_editPost.Open SQL,znwl,1,1
		SQLQueryNums=SQLQueryNums+1
		If ph_editPost.EOF AND ph_editPost.BOF Then%>
			<table width="710" border="0" align="center" cellpadding="0" cellspacing="6" bgcolor="#FFFFFF" class="wordbreak">
			  <tr>
				<td align="center" valign="middle" height="120">
					<h4>错误：你要修改的图片不存在</h4>
					<p>&nbsp;</p>
					<div><a href="default.asp">点击返回主页面</a></div>
				</td>
			  </tr>
			</table>
		<%Else
			If Not((ph_editPost("ph_Author")=memName And memStatus="Admin") Or memStatus="SupAdmin") Then%>
				<table width="710" border="0" align="center" cellpadding="0" cellspacing="6" bgcolor="#FFFFFF" class="wordbreak">
				  <tr>
					<td align="center" valign="middle" height="120">
						<h4>错误：没有权限修改</h4>
						<p>&nbsp;</p>
						<div><a href="default.asp">点击返回主页面</a><br><br><a href="logging.asp">或者重新登陆</a></div>
					</td>
				  </tr>
				</table>
			<%Else%>
				<table width="710" border="0" align="center" cellpadding="0" cellspacing="6" bgcolor="#FFFFFF" class="wordbreak">
				  <tr>
					<td align="center" valign="middle" height="160">
						<h4>修改成功</h4>
						<p>&nbsp;</p>
						<%IF Request.Form("message")=Empty OR Request.Form("ph_Name")=Empty OR Request.Form("ph_Image")=Empty Then
							Response.Write("必须填写完整内容<br><a href='javascript:history.go(-1);'>请返回重新填写</a>")
						ElseIF Request.Form("phdel")="1" Then
							znwl.ExeCute("DELETE * FROM photo WHERE ph_ID="&Request.Form("ph_ID"))
							znwl.ExeCute("DELETE * FROM photo_Comment WHERE ph_ID="&Request.Form("ph_ID"))
							znwl.ExeCute("UPDATE photo_Cate SET cate_Nums=cate_Nums-1 WHERE cate_ID="&Request.Form("ph_CateID")&"")
							znwl.ExeCute("UPDATE blog_info SET blog_PhotoNums=blog_PhotoNums-1")
							SQLQueryNums=SQLQueryNums+4
							Application.Lock
							Application.UnLock
							Response.Write("图片及相关评论删除成功<p>&nbsp;</p><a href='photo.asp'>点击返回相册</a>")
						Else
							Dim ph_Author,ph_Name,ph_Remark,ph_Thumbnail,ph_Image,ph_ID,Ph_DisVote,ph_DisComm,phVoteAll,phVote1,phVote2,phVote3,phVote4,phVote5
							ph_Author=CheckStr(Request.Form("ph_Author"))
							ph_Name=CheckStr(Request.Form("ph_Name"))
							ph_Remark=CheckStr(Request.Form("message"))
							ph_Thumbnail=CheckStr(Request.Form("ph_Thumbnail"))
							ph_Image=CheckStr(Request.Form("ph_Image"))
							ph_ID=editPost_ID
							IF Request.Form("Ph_DisVote")="1" Then
								Ph_DisVote=True
							Else
								Ph_DisVote=False
							End IF
							IF Request.Form("ph_DisComm")="1" Then
								ph_DisComm = True
							Else
								ph_DisComm = False
							End IF
							phVote1=CheckStr(Request.Form("phVote1"))
							phVote2=CheckStr(Request.Form("phVote2"))
							phVote3=CheckStr(Request.Form("phVote3"))
							phVote4=CheckStr(Request.Form("phVote4"))
							phVote5=CheckStr(Request.Form("phVote5"))
							phVoteAll=""&phVote1&"|"&phVote2&"|"&phVote3&"|"&phVote4&"|"&phVote5&""
							Dim ph_MoveToSQL
							IF Request.Form("Ph_moveto")<>"0" Then
								ph_MoveToSQL=",ph_CateID="&Request.Form("Ph_moveto")&""
							End IF
							znwl.ExeCute("UPDATE photo Set ph_Author='"&ph_Author&"',ph_Name='"&ph_Name&"',ph_Thumbnail='"&ph_Thumbnail&"',ph_Image='"&ph_Image&"',ph_Remark='"&ph_Remark&"',ph_Vote='"&phVoteAll&"',ph_DisComm="&ph_DisComm&",Ph_DisVote="&Ph_DisVote&ph_MoveToSQL&" WHERE ph_ID="&ph_ID&"")
							SQLQueryNums=SQLQueryNums+1%>
							<a href='default.asp'>点击返回首页</a>
							<p>&nbsp;</p>
							<a href='photoshow.asp?photoID=<%=""&ph_ID&""%>'>或者返回你所修改的图片</a>
							<p>&nbsp;</p>
							或者等待3秒后自动返回你所修改的图片<meta http-equiv='refresh' content='3;url=photoshow.asp?photoID=<%=""&ph_ID&""%>'>
						<%End IF%>
					</td>
				  </tr>
				</table>
			<%End If
		End If
		ph_editPost.Close
		Set ph_editPost=Nothing
	End If
End IF%>
<!--#include file="footer.asp" -->