📄 article_edit1.asp

📁 图利文章管理系统。毕业设计郑州科技学院2006级计算机系计算机信息管理专业
💻 ASP
字号:
<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>2 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
%>
<!--#include file="conn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>文章修改</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body topmargin="0" leftmargin="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="article_edit.asp">笑话管理首页</a>&nbsp;|&nbsp;<a href="article_add.asp">添加笑话</a>&nbsp;|&nbsp;<a href="article_edit.asp?shen=t">查看未审核</a> </td></tr> 
</table><br><br> <table width="90%" border="0" cellspacing="0" cellpadding="0" class="border" align="center"> 
<tr> <td class="title" height="25" align="center"><b><font color="#FFFFFF">添 加 
文 </font></b> <b><font color="#FFFFFF">章</font></b> </td></tr> <tr> <td> <table width="100%" border="0" cellspacing="1" cellpadding="2"> 
<form method="POST" action="article_add_save.asp?id=<%=request("id")%>&action=edit" 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,sel
	dim sort
	sort=request("sort")
 	set rs=server.createobject("adodb.recordset")
  	sql="select * from sort"
 	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "Not record."
	else
	do while not rs.eof
        if sort=CStr(rs("sort")) then
               sel="selected"
        else
               sel=""
        end if	
	response.write "<option " & sel & " value='"+CStr(rs("sort"))+"' name=sort>"+rs("sort")+"</option>"+chr(13)+chr(10)
	rs.movenext
    	loop
	end if
	rs.close
%> </select> </td></tr> <%   
				sql="select * from learning where articleid="&request("id")   
				rs.open sql,conn,1,1   
			%> <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" value="<%=rs("writer")%>"> 
**</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="<%=rs("title")%>"> 
**</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="26" name="txtcontent" cols="88" type="text"><%
	content=replace(rs("content"),"<br>",chr(13))
	content=replace(content,"&nbsp;"," ")
	response.write content
%></textarea> **</td></tr> <tr align="center"> <td colspan="2" class="tdbg"> <input type="submit" value=" 修 改 " name="cmdok" >   
&nbsp; <input type="reset" value=" 清 除 "  name="cmdcancel"> </td></tr> </form></table></td></tr> 
</table>
</body> 
</html> 
<% 
	set rs=nothing 
	conn.close 
	set conn=nothing 
%>
⌨️ 快捷键说明

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