📄 urllist.asp

📁 OFFICE办公自动化

💻 ASP

字号:

<%
'文件名：url.asp
'作者：唐小刚
'功能：常用网址管理
'参数：
'开发时间：2002.12.10
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'变量申明区
dim RsRo'流程查询结果集
dim RsRe'流程查询处理结果集
dim SqlRo'查询字符串
dim message'消息处理
dim i'列表隔
%>
<%
'主程序区
SqlRo="select * from tbioaurl"
set RsRo=server.createobject("adodb.recordset")
RsRo.open SqlRo,oconn,1,3
%>


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
<script src="../js/Popup.js"></script>
<script src="../js/front_chec.js"></script>
<script language="JavaScript">
<!--
 function require(form)
 {
	return checnull(form.Title,"请填写网址名!")
 }
 function edit(id,str,tulr)
 {
   document.frm.Title.value=str
   document.frm.url.value=tulr
   document.frm.mode.value="edit"
   document.frm.id.value=id
 }
 function del(id)
 {
   if(confirm("确信删除该网址名吗?"))
   {
     window.navigate("url.asp?mode=del&id="+id)
   }
 }
-->
</script>
</head>

<body topmargin="10" leftmargin="10">
<center>
  <table width="66%" cellspacing="1" cellpadding="2" class="tab">
    <tr> 
      <td width="209" class="tdTop">网址名称</td>
      <td width="297" class="tdTop">网址　</td>
    </tr>
<%
i=0
do while not RsRo.eof and not RsRo.bof
if i mod 2 = 0 then td_class="td1" else td_class="td2"
%>
    <tr> 
      <td height="25" class="<%=td_class%>" width="209"><a href="<%=trim(RsRo("urlhttp"))%>"><%=trim(RsRo("urlname"))%></a></td>
      <td class="<%=td_class%>" width="297"><a href="<%=trim(RsRo("urlhttp"))%>" ><%=trim(RsRo("urlhttp"))%></a>&nbsp;</td>
    </tr>
<%
i=i+1
RsRo.movenext
loop
%>
  </table>
</center>
<br>

<div align="center"></div>
</body>

</html>

<%'释放对象变量
oConn.close
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -