📄 edit.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<%
if instr(session("flag_fyadmin"),"51")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" type="text/css" href="../style.css"
</HEAD>
<script LANGUAGE="JavaScript">
function check()
{
 if (document.form1.title.value=="")
  {
   alert("请输入新闻标题！")
   document.form1.title.focus()
   document.form1.title.select()
   return
  }
 if (document.form1.content.value=="")
  {
   alert("请输入新闻内容！")
   document.form1.content.focus()
   document.form1.content.select()		
   return
  }
   document.form1.submit()
}
</script>
<SCRIPT language=javascript>
  var upfile_obj;
  function OnUpFile()
  {
   upfile_obj.src=upfile_obj.lowsrc;
   upfile_obj.src=document.forms["form1"].upfile.value;
  }
</SCRIPT>
<%
set rs=server.createobject("adodb.recordset")
Sql="select * from hyxx where newsid="&request("newsid")&"" 
rs.open sql,conn,1,1
%>
<FORM method="post" Action="SaveEdit.asp?Newsid=<%=request("newsid")%>" Name="form1">
<input type="hidden" name="newsid" value="<%=request("newsid")%>">
<INPUT name=upfile onchange=return(OnUpFile()) type=hidden>
<CENTER>
<TABLE border="1" width="600" cellpadding="4" style="border-collapse: collapse" bordercolor="#C0C0C0">
  <TR>
    <TD bgcolor="#C0C0C0" height=30 colspan=2>
	<p align="center"><b>添加新闻</b></TD>
  </TR>
  <TR> 
    <TD width="27%" bgcolor="#EFEFEF" align="right">新闻标题：</TD>
    <TD width="71%" bgcolor="#EFEFEF"><input type="text" name="title" size="52" value="<%=rs("title")%>"><font color=#ff6600> *</font></TD>
  </TR>
  <TR> 
    <TD bgcolor="#EFEFEF" align="right">新闻分类：</td>
    <TD bgcolor="#EFEFEF"> 
    <select name="typeid">
    <option value="" selected>--选择类别--</option>
    <%
      set rstype=server.createobject("adodb.recordset")
      sqltype="select * from hyxxtype"
      rstype.open sqltype,conn,1,1
      do while not rstype.eof
      if rs("typeid")=rstype("typeid") then
         sel="selected"
      else
         sel=""
      end if
      response.write "<option " & sel & " value='"+CStr(rstype("typeID"))+"' name=typeid>"+rstype("type")+"新闻</option>"+chr(13)+chr(10)
      rstype.movenext
      loop
      rstype.close
    %> 
    </select>
    </TD>
  </TR>
  <TR>
    <TD bgcolor="#EFEFEF" align="right">推荐新闻：</td>
    <TD bgcolor="#EFEFEF"><INPUT <%if rs("tjnews")=1 then response.write "checked"%> name=tj type=radio value="1">推荐&nbsp;&nbsp;<INPUT <%if rs("tjnews")=0 then response.write "checked"%> name=tj type=radio value="0">不推荐</TD>
  </TR>
  <TR> 
    <TD bgcolor="#EFEFEF" align="right">新闻内容：</TD>
    <TD bgcolor="#EFEFEF"><textarea rows="10" name="content" cols="50"><%=replace(rs("content"),"<br>",chr(13))%></textarea><font color=#ff6600> *</font></TD>
  </TR>
  <TR> 
    <TD bgcolor="#EFEFEF" align="right">来源：</TD>
    <TD bgcolor="#EFEFEF"><input type="text" name="nfrom" size="30" value="<%=rs("nfrom")%>"></TD>
  </TR>
  <TR>
    <TD bgcolor="#EFEFEF" align="right">是否包含图片：</td>
    <TD bgcolor="#EFEFEF"><INPUT <%if rs("Selectpic")=1 then response.write "checked"%> name=Selectpic type=radio value="1">包含&nbsp;&nbsp;<INPUT <%if rs("Selectpic")=0 then response.write "checked"%> name=Selectpic type=radio value="0">不包含</TD>
  </TR>
  <TR> 
    <TD bgcolor="#EFEFEF" align="right"> 上传文件： </TD>
    <TD bgcolor="#EFEFEF"><iframe name="ad" frameborder=0 width=100% height=30 scrolling=no src=upload.asp></iframe></TD>
  </TR>
  <TR height="30">
    <TD colspan="2" align="center" bgcolor="#EFEFEF" ><input type="button" value=" 提　交" onclick="check()">
    <input type="button" name="Submit2" value=" 重　执">
  </TR>
</TABLE>
</form>
</body>
</html>
<% 
 rs.close 
 set rs=nothing 
 conn.close  
 set conn=nothing  
%>
⌨️ 快捷键说明

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