lianmodifysmall.asp

admin/admin.asp是WAP的后台管理登陆页面

<%@language=vbscript codepage=936 %>
<%
  if session("flag")="" then
      response.redirect "adminlogin.asp"
	  response.end
  end if
%>
<%if session("flag")>1 then
response.write"<SCRIPT language=JavaScript>alert('对不起，你没有这个权限！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if%>
<!--#include file="conn.asp"-->
<%
  set rs=server.createobject("adodb.recordset")
  sql="select * from ANclass where nclassID="&request("nclassID")
  rs.open sql,conn,3,3
if not rs.eof then
nclassname=rs("nclass")
nclassurl=rs("nclassurl")
brclass=rs("nclassbr")
end if
  %>
<link rel="stylesheet" type="text/css" href="style.css">
<table width="80%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"> <br>
      <a href="lianManage.asp"><strong>管 理 友 情 链 接 </strong></a> <br> <form name="form2" method="post" action="liansmallsave.asp" >
        <table width="350" border="0" align="center" cellpadding="0" cellspacing="2" class="border">
          <tr bgcolor="#999999" class="title"> 
            <td height="25" colspan="2" align="center"><strong>修改小类链接</strong></td>
          </tr>
<tr class="tdbg"> 
            <td width="126" height="22" bgcolor="#C0C0C0"><strong>小类序号：</strong></td>
            <td bgcolor="#E3E3E3"> <input name="nclasstop" type="text" size="20" maxlength="30" value="<%=rs("nclasstop")%>"></td>
          </tr>
          <tr class="tdbg"> 
            <td width="126" height="22" bgcolor="#C0C0C0"><strong>所属大类：</strong></td>
            <td width="218" bgcolor="#E3E3E3"><select name="classid">
<%	
        set rs = server.createobject("adodb.recordset")
	sql="select * from Aclass where id="&request("classID")
	rs.open sql,conn,1,1   
        if not rs.eof then %>              
        <option selected value="<%=rs("id")%>"><%=rs("class")%></option>
</select><%end if%></td>
          </tr>
          <tr class="tdbg"> 
            <td width="126" height="22" bgcolor="#C0C0C0"><strong>小类名称：</strong></td>
            <td bgcolor="#E3E3E3"> <input name="nclass" type="text" size="20" maxlength="30" value="<%=nclassname%>"></td>
          </tr>
<tr class="tdbg"> 
            <td width="126" height="22" bgcolor="#C0C0C0"><strong>链接地址：</strong></td>
            <td bgcolor="#E3E3E3"> <textarea rows="5" name="nclassurl" cols="25" class="smallarea"><%=nclassurl%></textarea></td>
          </tr>
<tr bgcolor="#E3E3E3" class="tdbg"> 
      <td width="126" height="22" bgcolor="#C0C0C0"><strong>换行方式：</strong></td>
      <td bgcolor="#E3E3E3"> <select name="nclassbr" class="input">
<% if brclass=1 then %>
<option value=1>使用换行</option>
<option value=1>使用空格</option>
<% end if %>
<% if brclass=2 then %>
<option value=2>使用空格</option>
<option value=1>使用换行</option>
<% end if %>
</select>
</td>
</tr>
          <tr class="tdbg"> 
            <td height="22" align="center" bgcolor="#C0C0C0">&nbsp; </td>
            <td height="22" align="center" bgcolor="#E3E3E3"> <div align="left">
                <input name="nclassid" type="hidden"  value="<%=request("nclassID")%>">
                <input name="types" type="hidden"  value="mod">
                <input name="Add" type="submit" value=" 修 改 ">
              </div></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
%>