📄 adedit.asp

📁 wapgo网址导航整站源码,WAP源码,更多登陆http://xywap.cn

💻 ASP

字号:

<%
  	if session("admin")="" then
  		response.redirect "admin.asp"
  	end if
%>
<html>
<head>
<title>修改广告</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link rel="stylesheet" href="html.css">
<!--#include file="conn.asp"-->
<body>
<br><br>
<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%">
<form name="checkedit" method="POST" action="adeditok.asp">
<% 
id=request("id")
ids=request("ids")
if ids="" or ids<1 then ids=1

set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [ad] where [id]=" & id
rs.open rsstr,conn,1,2

set rst=server.createobject("ADODB.Recordset")
Sql="select * from class order by ClassID asc"
rst.open Sql,conn,1,2
%>
<tr><td>
所在位置:
<select name="fenlei" value="<%=ids%>">
<option value="0">0.网站首页</option>
<%
i=1
do while not rst.eof
%>
<option value="<%=rst("ClassID")%>"><%=rst("ClassID")%>.<%=rst("ClassName")%>栏目</option>
<%
i=i+1
rst.movenext
loop
rst.Close
set rst=nothing
%>
</select>
</td></tr>
<tr><td>
广告标题：<input name="adtitle" type="text" emptyok="true" maxlength="30" value="<%=rs("adtitle")%>"/></td></tr>
<tr><td>
广告地址：<input name="adurl" type="text" emptyok="true" maxlength="100" value="<%=rs("adurl")%>"/></td></tr>
<tr><td>
<input type="hidden" name="id" value="<%=id%>">
<input type="submit" value="提  交" name="title"></td></tr>
</form>
</table>
</center>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -