Kite's Blog 技术文章版

‘连接数据库
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("manage\liangqichao.mdb")
conn.Open Strconn
%>
'建立记录集
<%
dim bg,rs
bg="select top 7 * from article order by newsid DESC"
set rs=conn.execute(bg)
%>
'读取字段值，其实16就是读取前16个字
<%=left(rs("title"),16)%>

GreenBrowser，一个不错的浏览器软件，个个都说傲游好用，不过我觉得它还好有，它还一个页面分析功能，对网页设计者是个不借的功能。

FoxitPDFReaderPro一个点容量很小的软件,但能浏览PDF的软件.
你是否为了看PDF而装上PS,装了PS而平时很少很少用,那就用FoxitPDFReaderPro.

flashcatcher一个很好的抓取网页FLASH的软件.
在网页上见到一个很好的FLASH是不是用下载下来了,不过不般方法不能下载到FLASH,就使用flashcatcher,一定令你满意.

<OBJECT id=player height=180 width=205 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA name=player><PARAM NAME="_ExtentX" VALUE="5424"><PARAM NAME="_ExtentY" VALUE="4763"><PARAM NAME="AUTOSTART" VALUE="-1"><PARAM NAME="SHUFFLE" VALUE="0"><PARAM NAME="PREFETCH" VALUE="0"><PARAM NAME="NOLABELS" VALUE="0"><PARAM NAME="SRC" VALUE="音频地址"><PARAM NAME="CONTROLS" VALUE="Imagewindow,StatusBar,ControlPanel"><PARAM ...

阅读全文

<object id="mplayer" width="460" height="68" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"
align="baseline" border="0" standby="Loading Microsoft Windows Media Player components..."
type="application/x-oleobject">
<param name="FileName" value="">
<param name="ShowControls" value="1">
...

阅读全文

<OBJECT id="PTMediaPlayer" style="WIDTH: 101.45%; HEIGHT: 192px" width="101.45%" classid="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6"
                                    VIEWASTEXT>
                                    <PARAM NAME="URL" VALUE="音频URL">
                                    <PARAM NAME="rate" VALUE="1">
                                    <PARAM NAME="balance" VALUE="0">
                                    <PARAM ...

阅读全文

一个简单的ASP后台登录程序
点此下载

然后在后台的每一个页面加多以下代码，防止不用帐号和密码就可以登录。
<%
' 检查 Cookie 中的 Passed 变量是否等于 Passed
If Not Request.Cookies("Passed")="Passed" Then
Response.Redirect "admin.asp"
Response.End
End If
%>