wangzhanguanli.asp
来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 440 行 · 第 1/2 页
ASP
440 行
<!--#include file="abc/As_conn.asp"-->
<!--#include file="abc/As_check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin:0px; scrollbar-face-color: #B9E4B2;
scrollbar-highlight-color: #B9E4B2;
scrollbar-shadow-color: #1DA706;
scrollbar-3dlight-color: #1DA706;
scrollbar-arrow-color: #1DA706;
scrollbar-darkshadow-color:#B9E4B2;
background-image: url('img/bg22.gif');
background-position:
center 50%;
}
body, td, th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #009933;
}
a {
font-family: 宋体;
font-size: 12px;
}
.an { background-color: #FFFFFF;
border: 1pt dashed #B9E4B2;
font-family: "宋体";
font-size: 12px;
font-weight: normal;
color: #00CC33;
}
a:link {
color: #009933;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #009933;
}
a:hover {
text-decoration: none;
color: #CCFF00;
}
a:active {
text-decoration: none;
color: #CCFF00;
}
a:link {
color: #009933;
text-decoration: none;
}
-->
</style>
<title>网站管理——〖阿赛〗</title>
</head>
<body>
<table width="492" border="0" align="center" cellpadding="0" cellspacing="6" bgcolor="#FFFFFF">
<tr>
<td width="480" bgcolor="#FFFFFF"><table width="100%" height="3" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="3" bgcolor="#009933"></td>
</tr>
</table>
<br>
<table width="437" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="middle">
<td><a href="WangzhanGuanli.asp?class=about">关于阿赛</a></td>
<td><a href="WangzhanGuanli.asp?class=xq">原创文学</a></td>
<td><a href="WangzhanGuanli.asp?class=zp">我的图坊</a></td>
<td><a href="WangzhanGuanli.asp?class=music">最爱音乐</a></td>
<td><a href="WangzhanGuanli.asp?class=book">留言本子</a></td>
<td><a href="WangzhanGuanli.asp?class=change">管理资料</a></td>
<td><a href="abc/As_logout.asp">退出管理</a></td>
</tr>
</table>
<br>
<table width="100%" height="3" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="3" bgcolor="#009933"></td>
</tr>
</table>
<br>
<br>
<%
dim cl
dim act
dim id
id=request("id")
cl=request("class")
act=request("action")
call ConnectionDatabase
select case cl
case "about"
set Rs=GrateRs("select * from Asai_GYAS",3)
if act="submit" then
Rs("content")=request("content")
Rs.update
response.write("更新成功")
end if
%>
<form name="form1" method="post" action="WangzhanGuanli.asp?class=about&action=submit">
<textarea name="content" cols="70" rows="20" class="an"><%=Rs("content")%></textarea>
<br>
<br>
<input name="Submit" type="submit" class="an" value="提交">
</form>
<%
case "music"
if request("dd")<>"" then
set Rs=GrateRs("select * from Asai_ZADG where id="&id,3)
select case request("dd")
case 1
Rs("title")=request("title")
Rs("content")=request("content")
Rs("url")=request("url")
Rs("Lyric")=request("Lyric")
Rs("filetype")=request("filetype")
response.write "修改成功"
case 2
Rs.addnew
Rs("title")=request("title")
Rs("content")=request("content")
Rs("url")=request("url")
Rs("Lyric")=request("Lyric")
Rs("filetype")=request("filetype")
response.write "增加成功"
case 3
Rs.delete
response.write "删除成功"
id=""
end select
Rs.update
response.write("<br>")
end if
set Rs=GrateRs("select * from Asai_ZADG",1)
do while not Rs.eof
response.write ("<a href='WangzhanGuanli.asp?class=music&id="&Rs("id")&"'>"&Rs("title")&"</a> ")
Rs.movenext
loop
if id<>"" then
set Rs=GrateRs("select * from Asai_ZADG where id="&id,1)
%>
<form name="form2" method="post" action="<%="WangzhanGuanli.asp?class=music&id="&Rs("id")%>">
<input name="title" type="text" class="an" id="title" value="<%=Rs("title")%>" size="70">
<br>
<br>
<textarea name="content" cols="70" rows="5" class="an" id="content"><%=Rs("content")%></textarea>
<br>
<br>
<textarea name="Lyric" cols="70" rows="10" class="an" id="Lyric"><%=Rs("Lyric")%></textarea>
<br>
<br>
<label>
<input type="radio" name="filetype" value="0" <%if rs("filetype")=0 then response.write " checked"%> checked>Music</label>
<label>
<input type="radio" name="filetype" value="1" <%if rs("filetype")=1 then response.write " checked"%> >RealPlayer</label>
<label>
<input type="radio" name="filetype" value="2" <%if rs("filetype")=2 then response.write " checked"%> >Windows Media Play </label>
<label>
<input type="radio" name="filetype" value="3" <%if rs("filetype")=3 then response.write " checked"%> >Flash</label>
<br>
<br>
<input name="url" type="text" class="an" value="<%=Rs("url")%>" size="70">
<br>
<br>
<input name="dd" type="radio" class="an" value="1" checked>
保存
<input name="dd" type="radio" class="an" value="2">
新增
<input name="dd" type="radio" class="an" value="3">
删除 <br>
<br>
<input name="Submit" type="submit" class="an" value="提交">
</form>
<%
end if
case "zp"
if request("dd")<>"" then
set Rs=GrateRs("select * from Asai_WDTF where id="&id,3)
select case request("dd")
case 1
Rs("title")=request("title")
Rs("content")=request("content")
Rs("p1")=request("p1")
Rs("p2")=request("p2")
Rs("link")=request("link")
response.write "更新成功"
case 2
Rs.addnew
Rs("title")=request("title")
Rs("content")=request("content")
Rs("p1")=request("p1")
Rs("p2")=request("p2")
Rs("link")=request("link")
response.write "更新成功"
case 3
Rs.delete
response.write "删除成功"
id=""
end select
Rs.update
response.write("<br>")
end if
set Rs=GrateRs("select * from Asai_WDTF",1)
do while not Rs.eof
response.write ("<a href='WangzhanGuanli.asp?class=zp&id="&Rs("id")&"'>"&Rs("title")&"</a> ")
Rs.movenext
loop
if id<>"" then
set Rs=GrateRs("select * from Asai_WDTF where id="&id,1)
%>
<form name="form3" method="post" action="<%="WangzhanGuanli.asp?class=zp&id="&Rs("id")%>">
<input name="title" type="text" class="an" id="title" value="<%=Rs("title")%>" size="70">
<br>
<br>
<textarea name="content" cols="70" rows="5" class="an" id="content"><%=Rs("content")%></textarea>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?