📄 pic_add.asp

📁 图利文章管理系统。毕业设计郑州科技学院2006级计算机系计算机信息管理专业
💻 ASP
字号:
<%
if session("admin")="" then
  response.redirect "admin.asp"
end if
action=Request("action")
%>
<!--#include file="conn.asp"-->
<%
if Request.QueryString("action")="edit" then
id=Request.QueryString("id")
sql = "select * from pic where picid="&id 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
YSort=rs("Sort")
name=rs("picname")
pic=rs("picurl")
minipic=rs("spicurl")
writer=rs("writer")
writerurl=rs("writer_url")
content=html_1(rs("content"))
rs.close
Set rs=Nothing
function html_1(fString)
	fString = Replace(fString, "</P><P>" , CHR(10) & CHR(10))
	fString = Replace(fString, "<BR>" , CHR(10))
	html_1= fString
end function
title="编辑文件"
b="修 改"
else
title="添加文件"
b="添 加"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="style.css">
<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>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border"> 
<tr background="images/bg.gif"> <td class="topbg" height="22" colspan="2" align="center"><b>漫 
画 管 理</b></td></tr> <tr> <td class="tdbg" width="70" height="30"><b>管理导航：</b></td><td class="tdbg" height="30">&nbsp;<a href="pic_list.asp">漫画浏览管理</a>&nbsp;|&nbsp;<a href="pic_add.asp?action=add">添加漫画</a>&nbsp;|&nbsp;<a href="pic_list.asp?shen=t">查看未审核</a></td></tr> 
</table><br> <table width="100%" border="0" cellspacing="0" cellpadding="0" class="border" align="center"> 
<tr> <td class="title" height="25" align="center"><b><font color="#FFFFFF"><%=title%></font></b> 
</td></tr> <tr> <td> <table width="100%" border="0" cellspacing="1" cellpadding="2"> 
<form method="POST" action="pic_add_save.asp?action=<%=action%>" name="form1" > 
<tr> 
<td width="15%" align="right" class="tdbg" height="20">笑话类型：</td><td width="85%" height="30" class="tdbg"> 
<select class="smallSel" name="sort" size="1"> <%
	dim rs,sql
 	set rs=server.createobject("adodb.recordset")
  	sql="select * from sort where sort_pic=1"
 	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "Not record."
	else
	do while not rs.eof
	%>
	<option value="<%=rs("sort")%>" <%if rs("sort")=YSort then%> selected <%end if%>><%=rs("sort")%></option>
	<%
	rs.movenext
    	loop
	end if
	rs.close
%> </select>
** </td>
</tr>
<tr> <td width="15%" align="right" height="30" class="tdbg">漫画作者：</td><td width="85%" height="30" class="tdbg"> 
<input type="text" name="writer" size="30" maxlength="20"> </td></tr> 
<tr> <td width="15%" align="right" height="30" class="tdbg">漫画标题：</td><td width="85%" height="30" class="tdbg"> 
<input type="text" name="title" size="50" maxlength="100" value="<%=name%>"> **</td></tr>     
<tr> <td width="15%" align="right" valign="top" class="tdbg">图片说明：</td><td width="85%" class="tdbg"> 
<script src=code.js></script> <!--#include file=ubb.inc --> <br> <textarea rows="6" name="txtcontent" cols="60" type="text"><%=content%>...</textarea> 
**</td></tr> <tr> <td width="15%" align="right" class="tdbg" height="20">缩略小图：</td><td width="85%" height="30" class="tdbg">     
<input name="minipic" type="text" value="<%=minipic%>" size="52" readonly="readonly"> 
<a href="javascript:image1()">贴网上的图片</a> |　<a href="JavaScript:openem()">上传图片</a></td></tr> 
<tr> <td width="15%" align="right" class="tdbg" height="20">正常大图：</td><td width="85%" class="tdbg"> 
<input name="pic" type="text" size="52" readonly="readonly" value="<%=pic%>"> 
<a href="javascript:image2()">贴网上的图片</a> |　<a href="JavaScript:openem()">上传图片</a> 
</td></tr> <tr> <td colspan="2" class="tdbg" height="40" align="center"> <input type="submit" value=" <%=b%> " name="cmdok" > 
&nbsp; <input type="reset" value=" 清 除 "  name="cmdcancel"> <input type="hidden" name="id" value="<%=id%>">   
</td></tr> </form></table></td></tr> </table><br><%if Request.QueryString("action")="edit" then%> 
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border"> 
<tr background="images/bg.gif"> <td class="topbg" height="22" align="center"><b>漫   
画 预 览</b></td></tr> <tr> <td class="tdbg" align="center" height="30"> <%if minipic<>"" then  
		  if instr(minipic,"[img]") then
			 minipic = Replace(minipic, "[img]","<img src=")
			 minipic = Replace(minipic, "[/img]"," alt=""漫画预览"" onload=""javascript:if(this.width>500)this.width=500""><br>")  
		  else
			 minipic = Replace(minipic, "[up]","<img src=../upload/")
			 minipic = Replace(minipic, "[/up]","  alt=""漫画预览""onload=""javascript:if(this.width>500)this.width=500""><br>")  
		  end if
		  Response.Write(minipic)
		 end if
	   %> </td></tr> </table><%end if%> <br>
<br> 
</body>  
</html>
⌨️ 快捷键说明

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