📄 admin_affiche_edit.asp

📁 ASP+Accesss数据库设备WEB报修
💻 ASP
字号:
<%if session("pass")<>"ok" then 
    Response.Redirect "index.asp"
    Response.End 
  end if
%>
<!--#include file="conn.asp"-->
<!--#include file="ChkURL.asp"-->
<!--#include file="../inc/UBB.asp"-->

<%
dim sql
dim rs
AfficheId=cint(request("AfficheId"))
if AfficheId<>"" and AfficheId="0" then
	Response.Write "<script>alert('未指定参数');history.back()</script>"
	response.end
else
    sql="select * from affiche where afficheid="&request("AfficheId")
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
 	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		Response.Write "<script>alert('指定的ID不存在！');history.back()</script>"
		response.end
	end if	
end if
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.affichename.value=="")
	{
	  alert("友情提示!\n\n请填写公告标题!")
	  document.form.affichename.focus()
	  return false
	 }
else if (document.form.affichecontent.value=="")
	{
	  alert("友情提示!\n\n请填写公告内容!")
	  document.form.affichecontent.focus()
	  return false
	 }
}
// -->
</script>
<script language="JavaScript" src="../inc/ubb.js"></script>
</head>

<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="TableBorder" align=center>
<tr align="center">
    <td height=25 colspan=2  class="TableTitle1"><strong>公 告 发 布</strong></tr>
<tr>
    <td width="100" class="TableRow2" height=25><strong>管理快捷方式：</strong></td>
    <td height="25" class="TableRow2"><a href="Admin_All.asp">管理首页</a>
     | <a href="Admin_Affiche.asp">公告管理</a>     </td>
</tr>
</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="20"></td>
  </tr>
</table>

<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% align=center class="border">
  <TBODY>
  <TR>
      <TD align=middle vAlign=top width=100%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="TableBorder">
  <form name="form" method="post" action="Admin_Affiche_Edit_Save.asp?AfficheId=<%=request("AfficheId")%>" onSubmit="return form_onsubmit()">
  <tr> 
   <td height="25" colspan="2" align="center" class="TableTitle1" >公 告 发 布</td>
   </tr>
  <tr>
    <td height="25"  align="right" class="TableRow2">公告标题：</td>
    <td class="TableRow2" ><input type="text" name="affichename"  maxlength="50" size="73" value="<%=rs("Affichename")%>">
* </td>
  </tr>
  <tr> 
   <td height="25" align="right"  valign="top" class="TableRow2">　</td>
   <td  valign="top" class="TableRow2"><%call ubbshow()%></td>
  </tr>
  <tr> 
   <td align="right"  valign="top" class="TableRow2">公告内容：</td>
   <td  valign="top" class="TableRow2"> 
   <textarea name="affichecontent" cols="71" rows="15" ><%
	content=replace(rs("affichecontent"),"<br>",chr(13))
	content=replace(content,"&nbsp;"," ")
	response.write content
%></textarea>   </td>
  </tr>
<tr >
<td height="25" colspan="2" align="center" class="TableRow2"><input type="submit" value="提交公告" name="Submit">
&nbsp;  <input type="reset" value="清除重写" name="Submit2"></td>
</tr>
 </form>
</table>
<% 
 rs.close 
set rs=nothing 
  conn.close  
  set conn=nothing  
%>
</TD></TR></TBODY></TABLE>

<!--#include file="copyright.asp" -->
</BODY></HTML>
⌨️ 快捷键说明

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