📄 upsoftedit.asp

📁 admin/admin.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 4.0">
<title>修改上传文件</title>
<SCRIPT language=JavaScript>
<!-- Begin
function textCounter(field, countfield, maxlimit) {
if (field.value.length > maxlimit) 
field.value = field.value.substring(0,maxlimit);
else 
countfield.value = maxlimit - field.value.length;
}
// End -->
</SCRIPT>
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body>
<form method="POST" action="adminsave.asp?id=<%=request("id")%>&action=edit">
  <div align="center"><center><table cellspacing="0" width="80%" 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="20%" align="right"  height="20"><b>所在大类：</b></td>
                <td width="40%" height="30">
        <select name="classid" size="1">		  	  
<%
	dim rs,sql,sel
	dim classid,Nclassid
	classid=request("classid")
	Nclassid=request("Nclassid")
 	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;
	</td>
                <td width="40%" height="30">
        <b>子类：</b><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 width="20%" align="right" height="30"><b>
        是否固顶：</b></td>
          <td width="40%" height="30" >
        <select name="ding" size="1">
        <%if rs("ding")=1 then%>
        <option  value="1" >固定文章</option>
        <option  value="0" >一般文章</option>
        <%else%>
       <option  value="0" >一般文章</option>
       <option  value="1" >固定文章</option>
        <%end if%> 
        </select>**</td>
        <td width="40%" height="30"></td>
        </tr>
        <tr>
          <td width="20%" align="right" height="30"><b>文件名称：</b></td>
          <td width="80%" height="30" colspan="3"><input type="text" name="txttitle" size="70"
          class="smallinput" maxlength="100" value="<%=rs("title")%>" style="width: 440; height: 18"></td>
        </tr>
        <tr bgcolor="#EAEAEA" class="tdbg">
          <td width="20%" align="right" height="30"><b>UBB标签：</b></td>
          <td width="80%" height="30" colspan="2">
<img onclick=hyperlink() src="url.gif" width="22" height="22" alt="超级连接" border="0">
<img onclick=image() src="editor.gif" width="23" height="22" alt="图片" border="0"> 内容:（最多可写5000个汉字)还剩 <input readonly maxlength=3 size=3 value=5000 name=remLen >字
          <tr>
          <td width="20%" align="right" valign="top"><b>文件介绍：</b></td>
          <td width="80%" colspan="3"><textarea rows="16" name="txtcontent" cols="60" class="smallarea" onkeydown=textCounter(this.form.txtcontent,this.form.remLen,5000); onkeyup=textCounter(this.form.txtcontent,this.form.remLen,5000)>
<%
	content=replace(rs("content"),"\","")
	content=replace(content,"&nbsp;"," ")
	response.write content
%>
	</textarea></td>
        </tr>
<tr bgcolor="#EAEAEA" class="tdbg">
          <td width="20%" align="right" height="30"><b>换行说明：</b></td>
          <td width="80%" height="30" colspan="3">在文章在要换行就用\作为换行标识，1个\为一行，以此类推！</td>       
        </tr>
          <tr>
          <td width="20%" align="right" height="30"><b>添加人：</b></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 + -