📄 editarticle.asp

📁 *** ***** 系统进入 *** ***** 系统主文件为index.htm 系统超级用户用户名:lhh 密码:lhh *** ***** 系统功能说明 *** ****

💻 ASP

字号:

<!--#include file="data.asp"-->
<!--#include file="check.asp"-->
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>mod_learn_art</title>
<link rel="stylesheet" type="text/css" href="oa.css">
</head>

<body style="margin:0">
<form method="POST" action="adminsave.asp?id=<%=request("id")%>&action=edit">
  <div align="center"><center><table cellspacing="0" width="80%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
    <tr>
      <td width="100%" bgcolor="#999999" height="20"><font color="#FFFFFF"><center><p><b>修 改 文 件</b></font></td>
    </tr>
    <tr align="center">
      <td width="100%"><table border="0" cellspacing="1" width="100%">
         <tr>
                <td width="20%" align="right" valign="top" height="20"><b>文件类型：</b></td>
                <td width="80%">
        <select class="smallSel" name="typeid" size="1">                
<%
     set rs=server.createobject("adodb.recordset")
      sql="select * from type"
     rs.open sql,conn,1,1
    if rs.eof and rs.bof then
        response.write "Not record."
    else
    do while not rs.eof
        if request("typeid")=cstr(rs("id")) then
               sel="selected"
        else
               sel=""
        end if    
    response.write "<option " & sel & " value='"+CStr(rs("id"))+"' name=typeid>"+rs("type")+"</option>"
    rs.movenext
        loop
    end if
    rs.close
%>        
</select>
    </td></tr>
<%
    sql="select * from learn where id="&request("id")
    rs.open sql,conn,1,1
%>
        <tr>
          <td width="15%" align="right" height="30"><b>文件标题：</b></td>
          <td width="85%" height="30"><input type="text" name="txttitle" size="70"
          class="smallinput" maxlength="100" value="<%=rs("title")%>"></td>
        </tr>
        
        <tr>
          <td width="15%" align="right" valign="top"><b>文章内容：</b></td>
          <td width="85%"><textarea name="txtcontent" style="display:none"><%=Rs("Content")%></textarea>
<iframe ID="eWebEditor1" src="web/ewebeditor.asp?id=txtcontent&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> 
	</td>
        </tr>
        <tr>
          <td width="15%" align="right" height="30"><b>支持HTML：</b></td>
          <td width="85%" height="30"><input type=checkbox name="htmlable" value="yes"> 选择后文章全部支持HTML语法，UBB语法将没有任何作用</td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center></div><div align="center"><center><p><input type="submit" value=" 添 加 "
  name="cmdok" class="buttonface">&nbsp; <input type="reset" value=" 清 除 "
  name="cmdcancel" class="buttonface"></p>
  </center></div>
</form>
</body>
</html>
<%
    set rs=nothing
    conn.close
    set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -