📄 dc.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：185623333 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
opendataconn
action=request("action")
%>
<html>
<head>
<title>后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../ht.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#d6dff7" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../inc/top.asp" -->
<br>
<%
if session("dc")="1" then
Select case action
Case "del"
call del
Case "del2"
call del2
Case "add"
call add
Case "add1"
call add1
Case "saveadd1"
call saveadd1
Case "saveadd"
call saveadd
Case "edit"
call edit
Case "saveedit"
call saveedit
case "list2"
call list2
case "edit2"
call edit2
case "saveedit2"
call saveedit2
Case else
call list
End Select
else
Response.Write "权限不足!"
Response.end
end if
sub list%>
<form method="post" action="?action=del" name="form1">
<div align="center">
<center>
调查一级目录删除<br>
<br>
<div align="center">
<center>
<table border="0" width="86%" cellspacing="1" cellpadding="0">
<tr bgcolor="#aabfec">
<td width="7%" align="center" height="28"> </td>
<td width="71%">目录名称</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from dctitle"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr bgcolor="#DEF0FA">
<td width="7%" align="center" height="28"> <input type="checkbox" name="id" value="<%=rs("id")%>" class="mul">
</td>
<td width="71%"><%=rs("title")%>
<a href="?action=edit&id=<%=rs("id")%>">修改</a> </td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr>
<td colspan="3" align="center" height="50"> <input type="submit" value="删除" name="B1">
</td>
</tr>
</table>
</center>
</div>
</center>
</div>
</form>
<%end sub
sub add%>
<form action="?action=saveadd" method="post" name="form3" id="form3">
<div align="center">
<center>
网上调查项目添加<br>
<table border="0" width="59%" cellspacing="1" cellpadding="0" class="black">
<tr>
<td width="100%"> <table border="0" width="87%" cellspacing="1" cellpadding="0">
<tr>
<td width="17%" valign="middle" class="black">
项目名称： </td>
<td width="83%" valign="top" class="black">
<input type="text" name="title" size="39"></td>
</tr>
<tr>
<td height="50" colspan="2" valign="middle" class="black">
<script language="JavaScript">
function saveexit()
{
if (chk()==0)
{
return false;
};
document.form3.submit();
}
function chk()
{
if (document.form3.title.value.length==0)
{
alert("请填写调查标题。");
document.form3.title.focus();
return 0;
};
return 1;
}
</script> <div align="center">
<input type="submit" value=" 添加 " name="B1" onclick="javascript:return saveexit()">
<input type="reset" name="Reset" value="重写">
</div></td>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
</form><%end sub
sub edit
%><form method="post" action="?action=saveedit" name="form3">
<div align="center">
<center>
项目修改<br>
<table border="0" width="70%" cellspacing="1" cellpadding="0" class="black" height="137">
<tr>
<td width="100%" valign="top" height="132"> <table border="0" width="100%" cellspacing="1" cellpadding="0" height="116">
<%
set rs=server.createobject("adodb.recordset")
id=request("id")
if id<>"" then
sql="select * from dctitle where id="&id&" "
rs.open sql,conn,1,1
%>
<tr>
<td height="33" class="black"> <div align="right">
项目名称：</div></td>
<td class="black"> </td>
<td class="black">
<input type="text" name="title" size="39" value="<%=rtrim(rs("title"))%>">
</td>
</tr>
<tr>
<td height="2" colspan="3" valign="middle" class="black" align="center">
<script language="JavaScript">
function saveexit()
{
if (chk()==0)
{
return false;
};
document.form3.submit();
}
function chk()
{
if (document.form3.title.value.length==0)
{
alert("请填写调查标题。");
document.form3.title.focus();
return 0;
};
return 1;
}
</script>
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="button" value=" 修改 " name="B1" onclick="saveexit()">
</td>
</tr>
<%
rs.close
end if
%>
</table></td>
</tr>
</table>
</center>
</div>
</form><%
end sub
sub add1
%><form method="post" action="?action=saveadd1" name="form3">
<div align="center">
<center>
调查选项添加<br>
<table border="0" width="80%" cellspacing="1" cellpadding="0" class="black">
<tr>
<td width="100%" valign="top"> <table border="0" width="100%" cellspacing="1" cellpadding="0" height="120">
<tr>
<td width="22%" height="33" class="black">
<div align="right">项目： </div></td>
<td width="3%" class="black"> </td>
<td width="75%" class="black"> <select name="titleid" id="titleid" >
<%
set rs=server.createobject("adodb.recordset")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -