📄 editguanggao.asp

📁 采用三级目录
💻 ASP
字号:
<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>1 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if

%>
<!-- #include file="conn.asp" -->
<%
id=saferequest("id",1)
set rs=server.createobject("adodb.recordset")
sql = "select * from guanggao where id="&id
rs.open sql,conn,1,1
if rs.bof and rs.eof then 
    	response.write "<br><br><br><center>广告不存在</center>"
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title></title>
<link rel="stylesheet" type="text/css" href="inc/admin.css">
</head>
<body>
<form method="POST" name="myform" action='editguanggaosave.asp?id=<%=id%>'>
<table align="center" width="450" 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">
<% 
set rs2=server.createobject("adodb.recordset")
sql = "select * from artclass"
rs2.open sql,conn,1,1
if rs2.bof and rs2.eof then 
response.write ""
else
        do while not rs2.eof
        if  request("classid")=cstr(rs2("id")) then
               sel="selected"
        else
               sel=""
        end if	
%>
         <option <%=sel%> value='<%=rs2("id")%>'><%=rs2("class")%></option>
<%
        rs2.movenext
        loop
	end if
	rs2.close
%>
<% 
set rs2=server.createobject("adodb.recordset")
sql = "select * from softclass"
rs2.open sql,conn,1,1
if rs2.bof and rs2.eof then 
response.write ""
else
        do while not rs2.eof
        if left(request("classid"),1)="w" and right(request("classid"),(len(request("classid"))-1))=cstr(rs2("id")) then
               sel="selected"
        else
               sel=""
        end if	
%>
         <option <%=sel%> value='w<%=rs2("id")%>'><%=rs2("class")%></option>
<%
        rs2.movenext
        loop
	end if
	rs2.close
%>
<% 
set rs2=server.createobject("adodb.recordset")
sql = "select * from filmclass"
rs2.open sql,conn,1,1
if rs2.bof and rs2.eof then 
response.write ""
else
        do while not rs2.eof
        if left(request("classid"),1)="f" and right(request("classid"),(len(request("classid"))-1))=cstr(rs2("id")) then
               sel="selected"
        else
               sel=""
        end if	
%>
         <option <%=sel%> value='f<%=rs2("id")%>'><%=rs2("class")%></option>
<%
        rs2.movenext
        loop
	end if
	rs2.close
%>
<% 
set rs2=server.createobject("adodb.recordset")
sql = "select * from class"
rs2.open sql,conn,1,1
if rs2.bof and rs2.eof then 
response.write ""
else
        do while not rs2.eof
        if left(request("classid"),1)="s" and right(request("classid"),(len(request("classid"))-1))=cstr(rs2("classid")) then
               sel="selected"
        else
               sel=""
        end if	
%>
         <option <%=sel%> value='s<%=rs2("classid")%>'><%=rs2("class")%></option>
<%
        rs2.movenext
        loop
	end if
	rs2.close
%>
<% 
set rs2=server.createobject("adodb.recordset")
sql = "select * from picclass"
rs2.open sql,conn,1,1
if rs2.bof and rs2.eof then 
response.write ""
else
        do while not rs2.eof
        if left(request("classid"),1)="t" and right(request("classid"),(len(request("classid"))-1))=cstr(rs2("classid")) then
               sel="selected"
        else
               sel=""
        end if	
%>
         <option <%=sel%> value='t<%=rs2("classid")%>'><%=rs2("class")%></option>
<%
        rs2.movenext
        loop
	end if
	rs2.close
%>
<% 
set rs2=server.createobject("adodb.recordset")
sql = "select * from ringclass"
rs2.open sql,conn,1,1
if rs2.bof and rs2.eof then 
response.write ""
else
        do while not rs2.eof
        if left(request("classid"),1)="r" and right(request("classid"),(len(request("classid"))-1))=cstr(rs2("classid")) then
               sel="selected"
        else
               sel=""
        end if	
%>
         <option <%=sel%> value='r<%=rs2("classid")%>'><%=rs2("class")%></option>
<%
        rs2.movenext
        loop
	end if
	rs2.close
%>
<% 
set rs2=server.createobject("adodb.recordset")
sql = "select * from linkclass"
rs2.open sql,conn,1,1
if rs2.bof and rs2.eof then 
response.write ""
else
        do while not rs2.eof
        if left(request("classid"),1)="l" and right(request("classid"),(len(request("classid"))-1))=cstr(rs2("id")) then
               sel="selected"
        else
               sel=""
        end if	
%>
         <option <%=sel%> value='l<%=rs2("id")%>'><%=rs2("class")%></option>
<%
        rs2.movenext
        loop
	end if
	rs2.close
%>
</select>
</td></tr>
            <tr class=lanyuds>
                <td>广告标题：</td><td><input type="text" name="title" value='<%=rs("title")%>' size="50"></td>
        </tr>
         <tr class=lanyuds>
                <td>广告说明：</td><td><textarea name="text" rows="10" cols="47" style="overflow:auto;">
<%
	text=replace(rs("text"),"<BR>",chr(13))
	text=replace(text,"&nbsp;"," ")
	response.write text
%>
</textarea></td>
        </tr> 
         <tr class=lanyuds>
                <td>广告地址：</td><td><input type="text" name="link" value='<%=rs("link")%>' size="50"></td>
        </tr> 
	<tr><td colspan="2" class=lanyuqs align="center">
<input type="submit" value="提交" name="Submit"> 
      <input type="reset" value="重写" name="Submit2">
  </td></tr>
</form>
</body>
</html>
<% end if
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
%>
⌨️ 快捷键说明

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