www.gusucode.com > 百度空间互踩联盟 1.0源码程序 > admin_Class.asp
<!--#include file="conn.asp"-->
<%
dim action
action=request.QueryString("action")
if session("cutelink_admin")<>"OK" then
response.redirect "admin_login.asp"
end if
%>
<%
dim rsa,sql,Submit,Delet,AddClass,rs,Classer,Class123
Submit=Request("Submit")
Delet=Request("Delet")
AddClass=Request("AddClass")
If Submit<>"" Then
If Request.Form("img")="" Then
Response.write("<script>alert('地址不能为空！');location.href='admin_class.asp';")
response.write"javascript:history.go(-1)</SCRIPT>"
Response.End
else
Class123=Request("img")
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Fx_Qface Where ID="&Request("ID")
Rs.open Sql,Conn,1,3
Rs("img")=Class123
Rs.Update
Rs.Close
response.write "<script>alert('修改成功！');location.href='admin_class.asp';</Script>"
End if
end if
If Delet<>"" Then
Conn.Execute"Delete From Fx_Qface Where ID="&Request("ID")
response.write "<script>alert('删除成功！');location.href='admin_class.asp';</Script>"
End if
If AddClass<>"" Then
If Request.Form("img")="" Then
Response.write("<script>alert('地址不能为空！');location.href='admin_class.asp';")
response.write"javascript:history.go(-1)</SCRIPT>"
Response.End
else
Classer=Request("img")
Set Rs=Server.Createobject("Adodb.Recordset")
sql="Select * From Fx_Qface"
Rs.open Sql,Conn,1,3
Rs.addnew
Rs("img")=Classer
Rs("name")=Classer
Rs.update
Rs.Close
response.write "<script>alert('添加成功！');location.href='admin_class.asp';</Script>"
End If
Set Rs=nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<title>管理百度空间信息_<%=WebName&ChannelName%></title>
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="2">
<div align="center">
<center>
<!--#include file="top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="main_title1">
<tr>
<td align="center"><a href="admin_manage.asp">管理首页</a> | <a href="admin_manage.asp?action=ListSite">列出所有百度空间</a> | <a href="admin_manage.asp?action=ShowLog"><font color="#0000FF">查看点击记录</font></a> | <a href="admin_class.asp">修改百度空间信息</a> | <a href="admin_manage.asp?action=BatchDelform">批量删除数据</a> | <a href="admin_login.asp?action=exit">退出管理</a></td>
</tr>
</table>
<br>
<table width="760" border="0" align="center" cellpadding="3" cellspacing="0" class="main_tdbg">
<tr>
<td height="30">您的位置:<a href="<%=WebUrl%>">首页</a> -> <a href="admin_manage.asp">管理首页</a> -> 管理网站信息</td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="100%" valign="top" bgcolor="#FFFFFF">
<div align="center"><br>
<table width="100%" border="1" cellpadding="2" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse">
<tr>
<td width="52" height="24" align="center" bgcolor="#EEEEEE">【ID号】</td>
<td width="220" height="24" align="center" bgcolor="#DDDDDD">【图片地址】</td>
<td width="212" height="24" align="center" bgcolor="#EEEEEE">【输入新的图片地址名】</td>
<td height="24" colspan="2" align="center" bgcolor="#DDDDDD">【操作】</td>
</tr>
<%
Set Rsa=Server.Createobject("Adodb.Recordset")
Sql="Select * From Fx_Qface"
Rsa.open Sql,Conn,1,3
Do While not Rsa.Eof
%>
<tr>
<Form Method="post" action="?ID=<%=Rsa("ID")%>">
<td height="25" align="center"><%=Rsa("ID")%></td>
<td width="220" align="center"><%=Rsa("img")%></td>
<td width="212" align="center"><Input Type="Text" Name="img" size="15" class="input"></td>
<td width="75" height="25" align="center"><Input Type="Submit" Name="Submit" value="修改" class="subbt"></td>
<td width="79" align="center"><Input Type="Submit" Name="Delet" value="删除" class="subbt"></td>
</Form>
</tr>
<%
Rsa.Movenext
Loop
Rsa.Close
Set Rsa=nothing
Conn.Close
Set Conn=nothing
%>
<tr>
<Form Method="post" action="admin_class.asp">
<td height="35" colspan="5" align="center">
添加新图片：
<Input Type="Text" Name="img" size="15" class="input">
<Input Type="Submit" value="新增" Name="AddClass" class="subbt"></td>
</form>
</tr>
</table>
<br>
</div>
</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#DDDDDD"> </td>
</tr>
</table>
</center>
</div>
</body>
</html>