asp鼠标拖动效果(div)

来源：百度知道 编辑：UC知道 时间：2024/05/31 04:38:35
ASP中用div 弄的小东东，可以在浏览的时候加上鼠标事件让其可以拖动吧，给点源码？

<!--#include file="conn.asp"-->
<%
OpenDB()

Dim sql,Rs,arrRs
Dim arrRsNumS,arrRsNumI
sql = "Select top 2000 cid,cdate,cauthor,ccontent,cbcolor,cfcolor from ccc_love order by cID DESC"
Set Rs = Conn.Execute(sql)

arrRs = Rs.GetRows

Rs.Close
Set Rs = Nothing
CloseDB()
arrRsNumS = UBound(arrRs,2)
%>
<html>
<head>
<title> 爱墙</title>
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<link rel="stylesheet" href="style0930.css" type="text/css" />
<style type="text/css">
<!--
body {
margin-left: 5px;
margin-top: 0px;
margin-right: 5px;
margin-bottom: 0px;
}
table {word-break:break-all;}
.tdb {