edit.asp

广东交友源程序

<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<link rel="stylesheet" href="../../inc/style.css">
<Script Language="Javascript" Src="../../inc/JS_CheckForm.asp">
</script>
<script Language="JavaScript">
<!--
function CheckAll()  
{  
	//检查非空
	if (!CheckEmpty(form.title, "文章标题"))	return false;   
	if (!CheckEmpty(form.content, "文章内容"))	return false;   
	//全部通过
	return true;  
}  
-->
</script>
<form method="POST" action="saveedit.asp?id=<%=request("id")%>" name="form" onSubmit="return(CheckAll());">
    <table border="0" cellspacing="0" width="95%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0">
      <tr> 
          
        <td height="28"> 
          <p><b><font color="#000000">修改文章</font></b>
        </td>
    </tr>
    <tr align="center">
          <td bgcolor="#FFFFFF"> 
            <table border="0" cellspacing="1" width="100%">
              <%
dim sql
dim rs
 sql="select * from learning where articleid="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
                %>
              <tr> 
                
              <td width="15%" align="right" height="30"><font color="#FF0000" size="3">*</font><font color="#0080C0">文章标题：</font></td>
                <td width="85%" height="30"> 
                  <input type="text" name="title" size="70"
          class="put" maxlength="255" value="<%=rs("title")%>">
              </td>
              </tr>
              <tr> 
                
              <td width="15%" align="right" height="30"><font color="#0080C0">文章栏目：</font></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 width="15%" align="right" valign="top"><font color="#FF0000" size="3">*</font><font color="#0080C0">文章内容：</font><b><br>
                </b></td>
                <td width="85%"> 
                  <textarea rows="20" name="content" cols="70" class="put"><%if rs("html")=false then
                content=replace(rs("content"),"<br>",chr(13))
                content=replace(content,"&nbsp;"," ")
            else 
                content=rs("content")
            end if        
            response.write content%></textarea>
                </td>
              </tr>
            </table>
            
          <br>
          <input type="submit" value=" 修 改 "
  name="cmdok" class="put1">
            &nbsp;&nbsp;&nbsp;&nbsp; 
            <input type="reset" value=" 复 原 "
  name="cmdcancel" class="put1">
            <br>
            <br>
          </td>
    </tr>
  </table>
</form>
<% 
   
 rs.close 
set rs=nothing 
  conn.close  
  set conn=nothing  
%>