📄 freeadd.asp

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

💻 ASP

字号:

<!--#include file="data.asp"-->
<!--#include file="check.asp"-->
<!--#include file="code.asp"-->
<html><head><title>添 加 文 件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="oa.css">
<%
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from type order by id asc"
rs.open sql,conn,1,1
%>

</head>

<body >
<form method="POST" name="myform" action="adminsave.asp?action=add">
  <div align="center"><center><table cellspacing="0" width="100%" 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="15%" align="right" valign="top" height="20"><b>文件类型：</b></td>
                <td width="85%">
<%
        sql = "select * from type"
        rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	response.write "请先添加栏目。"
	response.end
	else
%>
<select name="typeid" size="1">
        <option selected value="">==请选栏目==</option>

<% 
        do while not rs.eof
%>
 
        <option value="<%=trim(rs("id"))%>"><%=trim(rs("type"))%></option>
       
<%
        rs.movenext
        loop
	end if
        rs.close
        set rs = nothing
        conn.Close
        set conn = nothing
%>
       </select> 
    
		</td></tr>
        <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"></td>
        </tr>
        
        <tr>
          <td width="15%" align="right" valign="top"><b>文章内容：</b></td>
          <td width="85%">
		  <textarea name="txtcontent" style="display:none"></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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -