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

📄 edit.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题
💻 ASP
字号:
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
              <%
dim sql
dim rs
sql="select * from learning where articleid="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
                %> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="../inc/style.css">
<title>修改贺卡</title>
</head>
<body topmargin="20" leftmargin="15" bgcolor="#FFFFFF" >
<form method="POST" action="saveedit.asp?id=<%=request("id")%>">
  <div align="center"><center>
      <table border="1" cellspacing="2" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF">
        <tr bgcolor="#006cd9"> 
          <td width="100%" height="20"> 
            <p align="center"><b><font
      color="#FFFFFF"><%=rs("home")%>修改贺卡页</font></b> 
          </td>
    </tr>
    <tr align="center">
      <td width="100%">
            <table border="0" cellspacing="1" width="100%">
              <tr>
                <td>
                  <div align="center">贺卡名称:</div>
                </td>
                <td width="85%" height="30">
                  <input type="text" name="title" size="20" 
                  class=put maxlength="255" value="<%=rs("title")%>">
                  可选,填写后,才能有贺卡搜索功能。 </td>
              </tr>

              <tr> 
                <td> 
                  <div align="center">贺卡分类:</div>
                </td>
                <td width="85%" height="30"> 
                  <select class="put" name="typeid" size="1">
                    <%
dim rs1,sql1,sel
 set rs1=server.createobject("adodb.recordset")
  sql1="select * from type"
 rs1.open sql1,conn,1,1
			  do while not rs1.eof
                                sel="selected"    
		             response.write "<option  value='"+CStr(rs1("typeID"))+"' name=typeid "
		           ' Response.Write rs1("typeid")& rs("typeid")
		             if rs("typeid")=rs1("typeid") then Response.Write sel
		             Response.Write ">"+rs1("type")+"</option>"+chr(13)+chr(10)
		             rs1.movenext
    		          loop
			rs1.close
			  %> 
                  </select>
                </td>
              </tr>
              <tr> 
                <td> 
                  <div align="center">缩图地址:</div>
                </td>
                <td width="85%" height="30"> 
                  <input type="text" name="images" size="70" 
                  class=put maxlength="255" value="<%=rs("images")%>">
                  <font color="#FF0000" size="3">*</font> </td>
              </tr>
              <tr> 
                <td> 
                  <div align="center">贺卡地址:</div>
                </td>
                <td width="85%" height="30"> 
                  <input type="text" name="images1" size="70" 
                  class=put maxlength="255" value="<%=rs("images1")%>">
                  <font color="#FF0000" size="3">*</font> </td>
              </tr>
            </table>
      </td>
    </tr>
  </table>
      <p>
        <input type="submit" value=" 修 改 "
  name="cmdok" class=put1>
        &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="reset" value=" 复 原 "
  name="cmdcancel" class=put1>
      </p>
    </center>
  </div>
  <div align="center">
    <center>
    </center></div>
</form>
<div align="center"> 
  <p>以上代 <font color="#FF0000" size="3">*</font> 为必填写</p>
  <p><a href="manage.asp"><font face="Webdings" size="4">7</font>返回管理页面</a> </p>
</div>
</body>
</html>
<% 
   
 rs.close 
set rs=nothing 
  conn.close  
  set conn=nothing  
%>

⌨️ 快捷键说明

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