⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 modify.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 ASP
字号:

<!--#include file="const.inc"-->
<%
   urlname=trim(request("urlname"))
   if  urlname<>""   then
       urllink=trim(request("urllink"))
       remark=trim(request("remark"))
       id=request("id")
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1 
       conn.Execute "update puburl set urlname='" & urlname & "',urllink='" & urllink & "',remark='" & remark & "' where id=" & id
       set conn=nothing
%>
<script language="javascript">
	window.close();	
	window.opener.parent.frames("main").document.location ="index.asp";
</script>

<% else %>

<html>
<head>
<title>修改常用网址</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/eintrdemo.css">
</head>

<%
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1    
    set rs=server.CreateObject("adodb.recordset") 
   rs.Open "select * from puburl where id=" & request("id"),conn,3,1

%>

<body bgcolor="#efefef" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/modify_on.gif')">
<form method="post" action="modify.asp"  name="form">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
  <tr bgcolor="#4E5960"> 
      <td class="heading">  <font color="#FFFFFF"><b>修改常用网址</b></font></td>
  </tr>
</table>
  <table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolordark="#FFFFFF" bordercolor="#000000">
    <tr> 
      <td width="12%" bgcolor="bfbfbf" valign="top">网站名称</td>
      <td width="88%"> 
        <input type="text" name="urlname" class="form" value="<%=trim(rs("urlname"))%>" size="30">
     			<input type=hidden value="<%=rs("id")%>" name="id"> 
      </td> 
    </tr> 
    <tr>  
      <td width="12%" bgcolor="bfbfbf" valign="top">网址</td> 
      <td width="88%">  
        <input type="text" name="urllink" class="form" value="<%=trim(rs("urllink"))%>" size="30"> 
      </td> 
    </tr> 
    <tr>  
      <td width="12%" bgcolor="bfbfbf" valign="top">网站说明</td> 
      <td width="88%">  
        <input type="text" name="remark" class="form" value="<%=trim(rs("remark"))%>" size="30"> 
      </td> 
    </tr> 
  </table> 
<div align="center"><br>
    <a href="javascript:document.form.submit();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','images/modify_on.gif',1)"><img name="Image1" border="0" src="images/modify_off.gif" width="60" height="19" hspace="5"></a><a href="javascript:document.form.reset();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','images/reset_on.gif',1)"><img name="Image2" border="0" src="images/reset_off.gif" width="60" height="19" hspace="5"></a><a href="Javascript:window.close();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image3','','images/closelittle_2.gif',1)"><img name="Image3" border="0" src="images/closelittle_1.gif" width="60" height="19" hspace="5"></a><br> 
</div></form>  
</body>  
</html>  
<% end  if %> 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -