📄 editarticle.asp

📁 这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!
💻 ASP
字号:
<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>2 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
%>
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>修 改 文 章</title>
<link rel="stylesheet" type="text/css" href="inc/admin.css">
</head>

<body>
<form method="POST" name="myform" action="adminsave.asp?id=<%=request("id")%>&action=edit">
<table align="center" width="570" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
    <tr>
      <td colspan="2" class=lanyuss>修 改 文 章</td>
    </tr>
         <tr class=lanyuds>
                <td>文章类型：</td>
                <td>
        <select name="classid" size="1">		  	  
<%
	dim rs,sql,sel
	dim classid,Nclassid
	classid=request("classid")
	Nclassid=request("Nclassid")
	articleon=request("articleon")
 	set rs=server.createobject("adodb.recordset")
  	sql="select * from Aclass"
 	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "Not record."
	else
	do while not rs.eof
        if classid=cstr(rs("id")) then
               sel="selected"
        else
               sel=""
        end if	
	response.write "<option " & sel & " value='"+CStr(rs("ID"))+"'>"+rs("class")+"</option>"
	rs.movenext
    	loop
	end if
	rs.close
%>       
</select>**               
&nbsp;&nbsp;
选择分类：<select name="Nclassid" size="1">      
<%
  	sql="select * from ANclass"
 	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "Not record."
	else
        do while not rs.eof
        if Nclassid=cstr(rs("Nclassid")) then
               sel="selected"
        else
               sel=""
        end if	
        response.write "<option " & sel & " value='" +  Cstr(rs("Nclassid")) + "'>" + rs("Nclass") + "</option>"
        rs.MoveNext
        Loop
	end if
        rs.close
%>
      </select>** 
	</td></tr>
<%
	sql="select * from article where articleid="&request("id")
	rs.open sql,conn,1,1
%>
        <tr>
          <td>
        <td>
        请选择此文章的类型：<select name="articleon" size="1">
       <%if rs("articleon")=0 then%>
       <option  value="0" >普通文章</option>
       <option  value="1" >超级链接</option>
        <%else%>
       <option value="1" >超级链接</option>
       <option value="0" >普通文章</option>
       <%end if%> 
 </select>**</td>
        </tr>
        <tr>
          <td>文章标题：</td>
          <td><input type="text" name="txttitle" size="70"
          class="smallinput" maxlength="100" value="<%=rs("title")%>"></td>
 </tr>
        <tr class=lanyuds>
          <td>UBB标签：</td>
          <td>
<img onclick=hyperlink() src="url.gif" width="22" height="22" alt="超级连接" border="0">
<img onclick=image() src="image.gif" width="23" height="22" alt="图片" border="0"></td></tr>
          <tr class=lanyuds>
          <td>文章内容：</td>
          <td><textarea rows="15" name="txtcontent" cols="70" class="smallarea">
<%
	content=replace(rs("content"),"\",chr(13))
	content=replace(content,"&nbsp;"," ")
	response.write content
%>
	</textarea></td>
        </tr>
      <tr class=lanyuds>
          <td>换行说明：</td>
          <td>在文章在要换行就用\作为换行标识，1个\为一行，以此类推！</td>       
        </tr>
          <tr>
          <tr class=lanyuds>
          <td>添加人：</td>
          <td width="80%" height="30" colspan="3"><input type="text" name="writer" size="70"
          class="smallinput" maxlength="100" value=<%=rs("writer")%> style="width: 437; height: 18"></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 + -