如何用ASP、JAVASCRIPT、VBSCRIPT等编制对数据库中的文件进行修改、删除、显示等操作

时间:2022-03-15 21:28:51
我正在为单位做内部网站,网站环境是WINDOWS2000 SERVER,数据库是ACCESS,编程语言用ASP、JAVASCRIPT、VBSCRIPT。我们的网站包括网上发布通知、学术交流、文件检索等栏目,这些栏目需要用到同一种功能,就是将一批文件的题目和正文存在数据库中,首先在网页中显示这些文件的题目,然后让用户选定一个题目,再选定欲对这个文件所做的操作,如修改文件。问题是用何种方式实现这一功能?
    我觉得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">                                                          
          &nbsp;<input type="submit" value=" 修 改 " disabled name="modifyinfo" onclick="modify_info();">&nbsp;&nbsp;&nbsp;   
          <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>

#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">                                                          
          &nbsp;<input type="submit" value=" 修 改 " disabled name="modifyinfo" onclick="modify_info();">&nbsp;&nbsp;&nbsp;   
          <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>

#3


你说的,象似一个文章挂管理系统,这类源代码好多,下一个研究一下,
就知道了。

#4


用js 可以实现,不过比较麻烦;我对这样的操作界面的编写没有太多兴趣;比较习惯传统的;比如通过复选组件来选取操作对象;原来编写的有windows风格的程序包括选择加底色或者图标改名,但是在浪费自己的大量精力和时间后觉得做这些花俏的东西;windows 的操作已经做的够好了,模仿它没必要。