⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 modify.asp

📁 代码名称: 程式下载管理 添加日期: 2000-8-23 所属分类: ASP代码>主页管理 总下载次数: 697 文件大小: 20KB 适用环境: Unix/WINNT 评定级别:
💻 ASP
字号:
<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if
%>
<!--#include file=dbconn.asp-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修 改 下 载 程 序</title>
<link rel="stylesheet" type="text/css" href="download.css">
</head>

<body>
<%
dim sql
dim rs
sql="select * from download where id="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
%>
<form method="POST" action="savemodify.asp?id=<%=request("id")%>&amp;page=<%=request("page")%>">
  <div align="center"><center><table border="1" cellspacing="0" width="70%"
  bgcolor="#F0F8FF" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF">
    <tr>
          <td width="100%" bgcolor="#0080C0" height="20"> 
            <div align="center"><font
      color="#FFFFFF">修 改 下 载 程 序</font> </div>
          </td>
    </tr>
    <tr align="center">
      <td width="100%"><table border="0" cellspacing="1" width="100%">
        <tr>
          <td width="15%" align="right" height="30"><b><font color="#0080C0">文件名称:</font></b></td>
          <td width="85%" height="30">
                  <input type="text" name="txtfilename" size="60"
          class="smallinput" maxlength="100" value="<%=rs("filename")%>">
                </td>
        </tr>
        <tr>
          <td width="15%" align="right" height="30"><b><font color="#0080C0">显示名称:</font></b></td>
          <td width="85%" height="30">
                  <input type="text" name="txtshowname" size="60"
          class="smallinput" maxlength="100" value="<%=rs("showname")%>">
                </td>
        </tr>
        <tr>
          <td width="15%" align="right" valign="top"><b><font color="#0080C0">程式简介:</font></b></td>
          <td width="85%">
                  <textarea rows="6" name="txtnote" cols="60" class="smallarea">
<%
dim tempstr
tempstr=replace(rs("note"),"&nbsp;"," ")
tempstr=replace(tempstr,"<br>",chr(13))
response.write tempstr

%>
</textarea>
                </td>
        </tr>
        <tr>
          <td width="15%" align="right" valign="top" height="20"></td>
          <td width="85%"></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>
<%
else
 response.write "错误:找不到该程式!"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

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