我觉得WINDOWS的资源管理器的方法很好,即显示文件题目(或文件名称)后,用户用鼠标右键单击欲操作的文件题目,屏幕弹出文件操作菜单,用户再在菜单上单击需要的操作即可;或者用户将文件题目涂黑,再在菜单中单击文件操作项目,这个方式在网页中可以改为一种操作设置一个按钮,用户涂黑文件题目后再单击需要的按钮。我现在的问题是不知道这种功能是如何编程实现的?还有更好的方法吗?对于第一种方式,如何在指定的文件题目处弹出菜单?并如何按用户单击的菜单项目调用相应的ASP程序?对于第二种方式,如何判断用户涂黑的是哪一个文件题目?
恳请各位高手帮忙,非常感谢!
4 个解决方案
#1
你是在寻求思路吗?
下面是我在电子期刊中用的,摘抄了一部分给你贴出来,希望对你有所帮助:
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<link href="../back.css" rel="stylesheet" type="text/css">
<script language=javascript>
function selected()
{
document.frmgroup.deleteinfo.disabled=false;
document.frmgroup.modifyinfo.disabled=false;
}
function modify_info()
{
document.frmgroup.action="modifyinfo.asp";
return true;
}
function delete_info()
{
if (confirm("您确定要删除这一信息?请慎重考虑!")==true)
{
document.frmgroup.action="deleteinfo.asp";
return true;
}
else
{
return false;
}
}
</script>
</HEAD>
<BODY bgcolor="#ffffff" topmargin="10">
<div align="center">
<center>
<table width="700" border="0" valign="center">
<tr>
<td height="5">
<p align="center"><font color="#FF0000">等待处理的期刊申请</font></td>
</tr>
<form name="frmgroup" method="POST">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="1" width="692" bordercolorlight="#0099FF" cellspacing="0" bordercolordark="#F7FBFF">
<tr height="25">
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">期刊名称</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">办刊单位</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">办刊理由</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">负责人</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">电话</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">提交时间</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">E-mail</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">操作</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">修改</font></td>
</tr>
<tr>
<td width="86" class="main" align="center">test名称</td>
<td width="86" class="main">test单位</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="87" class="main">test</td>
<td width="87" align="center"><input type="radio" onclick="return selected();" value="idvalue" name="selectdelete"></td>
<td width="87" align="center"><input type="radio" onclick="return selected();" value="idvalue" name="selectmodify"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td align="center">
<input type="submit" value=" 修 改 " disabled name="modifyinfo" onclick="modify_info();">
<input type="submit" value=" 删 除 " disabled name="deleteinfo" onclick="delete_info();">
</tr>
</form>
</table>
</center>
</div>
</BODY>
</HTML>
下面是我在电子期刊中用的,摘抄了一部分给你贴出来,希望对你有所帮助:
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<link href="../back.css" rel="stylesheet" type="text/css">
<script language=javascript>
function selected()
{
document.frmgroup.deleteinfo.disabled=false;
document.frmgroup.modifyinfo.disabled=false;
}
function modify_info()
{
document.frmgroup.action="modifyinfo.asp";
return true;
}
function delete_info()
{
if (confirm("您确定要删除这一信息?请慎重考虑!")==true)
{
document.frmgroup.action="deleteinfo.asp";
return true;
}
else
{
return false;
}
}
</script>
</HEAD>
<BODY bgcolor="#ffffff" topmargin="10">
<div align="center">
<center>
<table width="700" border="0" valign="center">
<tr>
<td height="5">
<p align="center"><font color="#FF0000">等待处理的期刊申请</font></td>
</tr>
<form name="frmgroup" method="POST">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="1" width="692" bordercolorlight="#0099FF" cellspacing="0" bordercolordark="#F7FBFF">
<tr height="25">
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">期刊名称</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">办刊单位</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">办刊理由</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">负责人</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">电话</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">提交时间</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">E-mail</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">操作</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">修改</font></td>
</tr>
<tr>
<td width="86" class="main" align="center">test名称</td>
<td width="86" class="main">test单位</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="87" class="main">test</td>
<td width="87" align="center"><input type="radio" onclick="return selected();" value="idvalue" name="selectdelete"></td>
<td width="87" align="center"><input type="radio" onclick="return selected();" value="idvalue" name="selectmodify"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td align="center">
<input type="submit" value=" 修 改 " disabled name="modifyinfo" onclick="modify_info();">
<input type="submit" value=" 删 除 " disabled name="deleteinfo" onclick="delete_info();">
</tr>
</form>
</table>
</center>
</div>
</BODY>
</HTML>
#2
你可以这样试试:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ttt</title>
<link REL="stylesheet" TYPE="text/css" HREF="act.CSS" VI6.0THEME="barcode">
<style type="text/css">
<!--
td { font-family: "宋体", "serif"; font-size: 9pt; font-weight: normal}
a:link { text-decoration: none}
a:hover { color: #999999}
a:visited { text-decoration: none; font-weight: normal}
body { font-family: "宋体", "serif"; font-size: 9pt}
tr { font-family: "宋体", "serif"; font-size: 9pt}
.unnamed1 { font-size: 9pt; font-weight: bold}
.p9 { font-family: "宋体"; font-size: 9pt}
.unnamed2 { font-size: 11pt}
-->
</style>
</head>
<body bgcolor="#c0c0c0">
<CENTER>
<TABLE BORDER=1 cellspacing=1 cellpadding=1 bordercolor=#006666 width=90% style='font-size: 10pt; color:darkblue'>
<TR>
<TD width=40 height=14 align=middle nowrap>序号</TD>
<TD width=150 height=14 align=middle nowrap>报告编号</TD>
<TD width=200 height=14 align=middle nowrap>报告名称</TD>
<TD width=50 height=14 align=middle nowrap>查看报告</TD>
<TD width=50 height=14 align=middle nowrap>修改报告</TD>
<TD width=50 height=14 align=middle nowrap>删除报告</TD>
</TR>
<%
Set conn=GetSQLServerConnection("127.0.0.1","User","","DATABASE")
sql="select ReportNumber,ReportName from RptTable order by ReportNumber"
Set rs = GetSQLServerRecordset(conn,sql)
If rs Is Nothing Then
Response.Write "<html>"
Response.Write ("<body bgcolor=#c0c0c0>")
Response.Write "GetMdbRecordset of RptTable 调用失败! when reading"
response.write ("<h3 align=center><a href= ttt.asp target=_parent>返回</a></h3>")
Response.Write "</body>"
Response.Write "</html>"
Response.End
end if
if not rs.eof then
rs.movefirst
i=1
While Not rs.EOF
%>
<TR>
<TD align=center><%=i%></TD>
<TD align=left><%=rs("ReportNumber")%></TD>
<TD align=left><%=rs("ReportName")%></TD>
<%
Response.Write "<TD align=middle>" & "<A href=" & "ShowReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>查看<a></TD>"
Response.Write "<TD align=middle>" & "<A href=" & "EditReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>修改<a></TD>"
Response.Write "<TD align=middle>" & "<A href=" & "DeleteReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>删除<a></TD>"
%>
</TR>
<%
i=i+1
rs.MoveNext ' 移到下一项
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</TABLE>
</body>
</html>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ttt</title>
<link REL="stylesheet" TYPE="text/css" HREF="act.CSS" VI6.0THEME="barcode">
<style type="text/css">
<!--
td { font-family: "宋体", "serif"; font-size: 9pt; font-weight: normal}
a:link { text-decoration: none}
a:hover { color: #999999}
a:visited { text-decoration: none; font-weight: normal}
body { font-family: "宋体", "serif"; font-size: 9pt}
tr { font-family: "宋体", "serif"; font-size: 9pt}
.unnamed1 { font-size: 9pt; font-weight: bold}
.p9 { font-family: "宋体"; font-size: 9pt}
.unnamed2 { font-size: 11pt}
-->
</style>
</head>
<body bgcolor="#c0c0c0">
<CENTER>
<TABLE BORDER=1 cellspacing=1 cellpadding=1 bordercolor=#006666 width=90% style='font-size: 10pt; color:darkblue'>
<TR>
<TD width=40 height=14 align=middle nowrap>序号</TD>
<TD width=150 height=14 align=middle nowrap>报告编号</TD>
<TD width=200 height=14 align=middle nowrap>报告名称</TD>
<TD width=50 height=14 align=middle nowrap>查看报告</TD>
<TD width=50 height=14 align=middle nowrap>修改报告</TD>
<TD width=50 height=14 align=middle nowrap>删除报告</TD>
</TR>
<%
Set conn=GetSQLServerConnection("127.0.0.1","User","","DATABASE")
sql="select ReportNumber,ReportName from RptTable order by ReportNumber"
Set rs = GetSQLServerRecordset(conn,sql)
If rs Is Nothing Then
Response.Write "<html>"
Response.Write ("<body bgcolor=#c0c0c0>")
Response.Write "GetMdbRecordset of RptTable 调用失败! when reading"
response.write ("<h3 align=center><a href= ttt.asp target=_parent>返回</a></h3>")
Response.Write "</body>"
Response.Write "</html>"
Response.End
end if
if not rs.eof then
rs.movefirst
i=1
While Not rs.EOF
%>
<TR>
<TD align=center><%=i%></TD>
<TD align=left><%=rs("ReportNumber")%></TD>
<TD align=left><%=rs("ReportName")%></TD>
<%
Response.Write "<TD align=middle>" & "<A href=" & "ShowReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>查看<a></TD>"
Response.Write "<TD align=middle>" & "<A href=" & "EditReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>修改<a></TD>"
Response.Write "<TD align=middle>" & "<A href=" & "DeleteReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>删除<a></TD>"
%>
</TR>
<%
i=i+1
rs.MoveNext ' 移到下一项
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</TABLE>
</body>
</html>
#3
你说的,象似一个文章挂管理系统,这类源代码好多,下一个研究一下,
就知道了。
就知道了。
#4
用js 可以实现,不过比较麻烦;我对这样的操作界面的编写没有太多兴趣;比较习惯传统的;比如通过复选组件来选取操作对象;原来编写的有windows风格的程序包括选择加底色或者图标改名,但是在浪费自己的大量精力和时间后觉得做这些花俏的东西;windows 的操作已经做的够好了,模仿它没必要。
#1
你是在寻求思路吗?
下面是我在电子期刊中用的,摘抄了一部分给你贴出来,希望对你有所帮助:
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<link href="../back.css" rel="stylesheet" type="text/css">
<script language=javascript>
function selected()
{
document.frmgroup.deleteinfo.disabled=false;
document.frmgroup.modifyinfo.disabled=false;
}
function modify_info()
{
document.frmgroup.action="modifyinfo.asp";
return true;
}
function delete_info()
{
if (confirm("您确定要删除这一信息?请慎重考虑!")==true)
{
document.frmgroup.action="deleteinfo.asp";
return true;
}
else
{
return false;
}
}
</script>
</HEAD>
<BODY bgcolor="#ffffff" topmargin="10">
<div align="center">
<center>
<table width="700" border="0" valign="center">
<tr>
<td height="5">
<p align="center"><font color="#FF0000">等待处理的期刊申请</font></td>
</tr>
<form name="frmgroup" method="POST">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="1" width="692" bordercolorlight="#0099FF" cellspacing="0" bordercolordark="#F7FBFF">
<tr height="25">
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">期刊名称</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">办刊单位</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">办刊理由</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">负责人</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">电话</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">提交时间</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">E-mail</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">操作</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">修改</font></td>
</tr>
<tr>
<td width="86" class="main" align="center">test名称</td>
<td width="86" class="main">test单位</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="87" class="main">test</td>
<td width="87" align="center"><input type="radio" onclick="return selected();" value="idvalue" name="selectdelete"></td>
<td width="87" align="center"><input type="radio" onclick="return selected();" value="idvalue" name="selectmodify"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td align="center">
<input type="submit" value=" 修 改 " disabled name="modifyinfo" onclick="modify_info();">
<input type="submit" value=" 删 除 " disabled name="deleteinfo" onclick="delete_info();">
</tr>
</form>
</table>
</center>
</div>
</BODY>
</HTML>
下面是我在电子期刊中用的,摘抄了一部分给你贴出来,希望对你有所帮助:
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<link href="../back.css" rel="stylesheet" type="text/css">
<script language=javascript>
function selected()
{
document.frmgroup.deleteinfo.disabled=false;
document.frmgroup.modifyinfo.disabled=false;
}
function modify_info()
{
document.frmgroup.action="modifyinfo.asp";
return true;
}
function delete_info()
{
if (confirm("您确定要删除这一信息?请慎重考虑!")==true)
{
document.frmgroup.action="deleteinfo.asp";
return true;
}
else
{
return false;
}
}
</script>
</HEAD>
<BODY bgcolor="#ffffff" topmargin="10">
<div align="center">
<center>
<table width="700" border="0" valign="center">
<tr>
<td height="5">
<p align="center"><font color="#FF0000">等待处理的期刊申请</font></td>
</tr>
<form name="frmgroup" method="POST">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="1" width="692" bordercolorlight="#0099FF" cellspacing="0" bordercolordark="#F7FBFF">
<tr height="25">
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">期刊名称</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">办刊单位</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">办刊理由</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">负责人</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">电话</font></td>
<td width="86" bgcolor="#0080C0" align="center"><font color="#F7FBFF">提交时间</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">E-mail</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">操作</font></td>
<td width="87" bgcolor="#0080C0" align="center"><font color="#F7FBFF">修改</font></td>
</tr>
<tr>
<td width="86" class="main" align="center">test名称</td>
<td width="86" class="main">test单位</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="86" class="main">test</td>
<td width="87" class="main">test</td>
<td width="87" align="center"><input type="radio" onclick="return selected();" value="idvalue" name="selectdelete"></td>
<td width="87" align="center"><input type="radio" onclick="return selected();" value="idvalue" name="selectmodify"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td align="center">
<input type="submit" value=" 修 改 " disabled name="modifyinfo" onclick="modify_info();">
<input type="submit" value=" 删 除 " disabled name="deleteinfo" onclick="delete_info();">
</tr>
</form>
</table>
</center>
</div>
</BODY>
</HTML>
#2
你可以这样试试:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ttt</title>
<link REL="stylesheet" TYPE="text/css" HREF="act.CSS" VI6.0THEME="barcode">
<style type="text/css">
<!--
td { font-family: "宋体", "serif"; font-size: 9pt; font-weight: normal}
a:link { text-decoration: none}
a:hover { color: #999999}
a:visited { text-decoration: none; font-weight: normal}
body { font-family: "宋体", "serif"; font-size: 9pt}
tr { font-family: "宋体", "serif"; font-size: 9pt}
.unnamed1 { font-size: 9pt; font-weight: bold}
.p9 { font-family: "宋体"; font-size: 9pt}
.unnamed2 { font-size: 11pt}
-->
</style>
</head>
<body bgcolor="#c0c0c0">
<CENTER>
<TABLE BORDER=1 cellspacing=1 cellpadding=1 bordercolor=#006666 width=90% style='font-size: 10pt; color:darkblue'>
<TR>
<TD width=40 height=14 align=middle nowrap>序号</TD>
<TD width=150 height=14 align=middle nowrap>报告编号</TD>
<TD width=200 height=14 align=middle nowrap>报告名称</TD>
<TD width=50 height=14 align=middle nowrap>查看报告</TD>
<TD width=50 height=14 align=middle nowrap>修改报告</TD>
<TD width=50 height=14 align=middle nowrap>删除报告</TD>
</TR>
<%
Set conn=GetSQLServerConnection("127.0.0.1","User","","DATABASE")
sql="select ReportNumber,ReportName from RptTable order by ReportNumber"
Set rs = GetSQLServerRecordset(conn,sql)
If rs Is Nothing Then
Response.Write "<html>"
Response.Write ("<body bgcolor=#c0c0c0>")
Response.Write "GetMdbRecordset of RptTable 调用失败! when reading"
response.write ("<h3 align=center><a href= ttt.asp target=_parent>返回</a></h3>")
Response.Write "</body>"
Response.Write "</html>"
Response.End
end if
if not rs.eof then
rs.movefirst
i=1
While Not rs.EOF
%>
<TR>
<TD align=center><%=i%></TD>
<TD align=left><%=rs("ReportNumber")%></TD>
<TD align=left><%=rs("ReportName")%></TD>
<%
Response.Write "<TD align=middle>" & "<A href=" & "ShowReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>查看<a></TD>"
Response.Write "<TD align=middle>" & "<A href=" & "EditReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>修改<a></TD>"
Response.Write "<TD align=middle>" & "<A href=" & "DeleteReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>删除<a></TD>"
%>
</TR>
<%
i=i+1
rs.MoveNext ' 移到下一项
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</TABLE>
</body>
</html>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ttt</title>
<link REL="stylesheet" TYPE="text/css" HREF="act.CSS" VI6.0THEME="barcode">
<style type="text/css">
<!--
td { font-family: "宋体", "serif"; font-size: 9pt; font-weight: normal}
a:link { text-decoration: none}
a:hover { color: #999999}
a:visited { text-decoration: none; font-weight: normal}
body { font-family: "宋体", "serif"; font-size: 9pt}
tr { font-family: "宋体", "serif"; font-size: 9pt}
.unnamed1 { font-size: 9pt; font-weight: bold}
.p9 { font-family: "宋体"; font-size: 9pt}
.unnamed2 { font-size: 11pt}
-->
</style>
</head>
<body bgcolor="#c0c0c0">
<CENTER>
<TABLE BORDER=1 cellspacing=1 cellpadding=1 bordercolor=#006666 width=90% style='font-size: 10pt; color:darkblue'>
<TR>
<TD width=40 height=14 align=middle nowrap>序号</TD>
<TD width=150 height=14 align=middle nowrap>报告编号</TD>
<TD width=200 height=14 align=middle nowrap>报告名称</TD>
<TD width=50 height=14 align=middle nowrap>查看报告</TD>
<TD width=50 height=14 align=middle nowrap>修改报告</TD>
<TD width=50 height=14 align=middle nowrap>删除报告</TD>
</TR>
<%
Set conn=GetSQLServerConnection("127.0.0.1","User","","DATABASE")
sql="select ReportNumber,ReportName from RptTable order by ReportNumber"
Set rs = GetSQLServerRecordset(conn,sql)
If rs Is Nothing Then
Response.Write "<html>"
Response.Write ("<body bgcolor=#c0c0c0>")
Response.Write "GetMdbRecordset of RptTable 调用失败! when reading"
response.write ("<h3 align=center><a href= ttt.asp target=_parent>返回</a></h3>")
Response.Write "</body>"
Response.Write "</html>"
Response.End
end if
if not rs.eof then
rs.movefirst
i=1
While Not rs.EOF
%>
<TR>
<TD align=center><%=i%></TD>
<TD align=left><%=rs("ReportNumber")%></TD>
<TD align=left><%=rs("ReportName")%></TD>
<%
Response.Write "<TD align=middle>" & "<A href=" & "ShowReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>查看<a></TD>"
Response.Write "<TD align=middle>" & "<A href=" & "EditReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>修改<a></TD>"
Response.Write "<TD align=middle>" & "<A href=" & "DeleteReport.asp?CurrentReportNo=" & rs("ReportNumber") & " target=_blank>删除<a></TD>"
%>
</TR>
<%
i=i+1
rs.MoveNext ' 移到下一项
wend
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</TABLE>
</body>
</html>
#3
你说的,象似一个文章挂管理系统,这类源代码好多,下一个研究一下,
就知道了。
就知道了。
#4
用js 可以实现,不过比较麻烦;我对这样的操作界面的编写没有太多兴趣;比较习惯传统的;比如通过复选组件来选取操作对象;原来编写的有windows风格的程序包括选择加底色或者图标改名,但是在浪费自己的大量精力和时间后觉得做这些花俏的东西;windows 的操作已经做的够好了,模仿它没必要。