📄 edityqlj.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"-->
<html>
<head>
<title>友情链接</title>  
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<table align="center" width="70%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
<tr><td bgcolor=#999999 colspan="2"><B>友链管理</B></td></tr>
    <%
id=request("id")

        dim rs

        set rs = server.createobject("adodb.recordset")
	sql="select * from link where id="&id
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "<tr><td class=lanyuds colspan='2' align='center'>还没有任何友链</td><tr>"
	else
%>
<form method=Post action="postyqlj.asp?ID=<%=ID%>">
<tr bgcolor=#ffffff><td align=right>网站类别：</td>
<td>		<select name="classid">		  	  
<%
	classid=request("classid")
        set rs2 = server.createobject("adodb.recordset")
  	sql="select * from linkclass"
 	rs2.open sql,conn,1,1
	if rs2.eof and rs2.bof then
		response.write "没有记录"
	else
	do while not rs2.eof
        if cstr(rs("classid"))=cstr(rs2("id")) then
               sel="selected"
        else
               sel=""
        end if	
	response.write "<option " & sel & " value='"+CStr(rs2("id"))+"' name=classid>"+rs2("class")+"</option>"+chr(13)+chr(10)
	rs2.movenext
    	loop
	end if
	rs2.close
%>        
</select>
</td></tr>
<tr bgcolor=#ffffff><td align=right>网站名称：</td>
<td><input type="text" size='30' name="name" value="<% =rs("name") %>"></td></tr>
<tr bgcolor=#ffffff><td align=right>网站地址：</td><td><input type="text" size='30' name="link" value="<% =rs("link") %>"></td></tr>
<tr bgcolor=#ffffff><td  colspan='2' align='center'><input type="submit" value="修改" name="Submit"> </td></tr>
<%  
	end if  
	rs.close  
%> 
</form>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -