| 在asp文件中访问flash详细信息 |
| <%
Class SWFDump
Private header
Private RECTdata
Private nBits
Private mversion
Private mfilelen
Private mxMin
Private mxMax
Private myMin
Private myMax
Private mheigt
Private mwidth
Private mframerate
Private mframecount
Private Sub Class_Initiali…… |
|
| 关于生成目录树结构的类 |
| 本程序有两文件test.asp 和tree.asp 还有一些图标文件
1。test.asp 调用类生成树 代码如下
<%@ Language=VBScript %>
<html>
<head>
<link rel="stylesheet" href="tree.css">
<title>tree</title>
</head>
<!-- #include file="tree.asp" -->
<%
'===…… |
|
| 用自定义函数获取汉字的首字母 |
| <SCRIPT LANGUAGE=vbscript>
<!--
''''''''''''''''''''''
'提供者：小白
'联系方法：
'E-mail:[email protected]
'欢迎大家测试
'针对chenjf网友发现的问题
'小白做了一处修改
'另外，对刘伟强网友的回复是：本函数目前只能获取..?呵呵
'如有不正确的地方，请提出来或是帮忙完善
'谢谢
'''''''''''''…… |
|
| asp在SQL SER2k中新建帐号和给帐号权限的实现 |
| ' 以下为在asp中增加一个sql server2000用户函数,并为建立一个数据库，给他dbo的权限
' ****************注意：sql server的验证方式不要选仅为windows方式，
' **************** 允许远程sql server连接
' ****************该函数已通过测试****************************
' 有什么问题欢迎和我交流，以后会推出对s…… |
|
| 将汉字转换成汉语拼音的一段代码 |
| 程序来源：csdn.net
代码如下
py.asp 演示地址：http://www.cnaspol.com/py.asp
<%
Set d = CreateObject("Scripting.Dictionary")
d.add "a",-20319
d.add "ai",-20317
d.add "an",-20304
d.add "ang",-20295
d.add "ao",-20292
d.add "ba",-20283
d.add "bai",-20265
d.add "ban",-20257
d.add "bang",-2…… |
|
| 一个不需要第三方组件，可实现华简单图形的类 |
| 通常我们做统计图的时候需要借助组件来完成例如mschart,aspchart等
但是这个类不需要任何组件，而且使用方便
clsGraph.asp
<%
Class InteliGraph
Public Copyright, Developer, Name, Version, Web
Public Maximum, BarWidth, BarColor, Orientation
Private Items(), Cnt
…… |
|
| 组合查询之核心：拼接字符串 |
| '组合查询之核心：拼接字符串
'功能：定义查询条件，定义返回集，定义排序方式
'平台：Windows 2000 Server + IIS5.0 + SQL Server 2000
'语言：VBScript
'作者：Cheery_Ke
'***********Start************
'**************读取变量*************
.
.
.
seaLastUpdTime = Request("seaLastUpdTime1")&"-"&Request(…… |
|
| 利用ADODB.Stream使用浏览器下载服务器文件 |
| download.asp?file=相对路径的文件
就可以把这个文件下载下来
<%
2
3 call downloadFile(replace(replace(Request("file"),"\",""),"/",""))
4
5 Function downloadFile(strFile)
6 ' make sure you are on the latest MDAC version for this to work
7 ' --------------------------------------…… |
|
| 用ASP编程控制在IIS建立Web站点 |
| '**********************************************************************************
' 创建一个WebServer
' 必须参数：WRoot,为创建站点的物理目录；WComment为站点说明；WPort为站点端口；ServerRun为是否自动运行
' 当创建成功时返回1，失败时提示退出并返回0，当创建站点成功但启动失败时返回2
'******…… |
|
| asp实现k线图(在线) |
| 可以考虑使用MSCHART，但是缺点是显示不太好看，不很专业，同时，如果客户端没有装的话就比较麻烦，因为显示不出来，所以一般的网站都采用生成图片的方式。下面给出MSCHART的一些东西，可以自己考虑着使用，我没有使用过其他的控件，所以不能给你满意的答复。另外附给你一个网址，www.tjinfo.com,里面有个调查题，使用了MS…… |
|
| 用文本+ASP打造新闻发布系统。几点补充 |
| 1。这里略去密码验证
密码保存在一个password_admin.asp的文件里
我的是这样的：
<%response.end%>|mysoso|mysoso
注意要加<%response.end%>作用相信大家都懂
2.要注意"|"编码防子用户输入|导致程序读取出错
3。程序中字符处理函数是刘子良写的在此感谢（我做了一点点修改)
4。关于那个动态数组的问题如…… |
|
| 用文本+ASP打造新闻发布系统(五)新闻修改 |
| ‘#######news_update.asp
<!--#include file="news_session.asp"-->
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function client_onblur(ii) {
server=eval("form1.server"+ii)
if(server.value==""){
client=eval("form1.client"+ii)
clientvalue=client…… |
|
| 用文本+ASP打造新闻发布系统(四)新闻删除 |
| <!--#include file="news_session.asp"-->
<%
dim id
id=Request.QueryString ("id")
dim myfso
set myfso=createobject("scripting.filesystemobject")
if myfso.FileExists(server.mappath("./news_content/"&id&".txt"))then
myfso.DeleteFile (server.mappath("./new…… |
|
| 用文本+ASP打造新闻发布系统(三)新闻列表显示 |
| <%
dim myfso,myread
set myfso=createobject("scripting.filesystemobject")
set myread=myfso.opentextfile(server.mappath("./new_list.asp"),1,0)
if myread.atendofstream then
Response.Write "目前没有添加新闻"
Response.End
else
dim mytext,listarray
my…… |
|
| 用文本+ASP打造新闻发布系统(二)新闻添加 |
| <!--#include file="news_session.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
.buttonface {
BACKGROUND-COLOR: #0079F2; BORDER-BOT…… |
|
| 用文本+ASP打造新闻发布系统/图片上传 |
| <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Function GetUpload(FormData)
Dim DataStart,DivStr,DivLen,DataSize,FormFieldData
'分隔标志串(+CRLF)
DivStr = LeftB(FormData,InStrB(FormData,str2bin(VbCrLf)) + 1)
'分隔标志串长度
DivLen = LenB(DivStr)
PosOpenBoundary = InS…… |
|
| ASP作的剪包锤游戏 |
| <%
'*********************************************
' THIS IS A SIMPLE GAME OF ROCK SCISSORS PAPER
' FEEL FREE TO DO WHATEVER YOU LIKE WITH THIS
' SCRIPT! -IAN S. CARROLL
'*********************************************
'*********************************************
' THIS FUNCTION GENE…… |
|
| 用InstallShield 进行 ASP 软件的打包和自动安装 |
| #include "ifx.h" //不能移动
//////////////////////////////////////////////////////////////////////////////
// 用InstallShield 进行 ASP 软件的打包和自动安装
// 原创作者: 贾俊 (Jaron)
// 网址: http://www.jiangdu.net
// 邮件: [email protected]
// 首次发表于网易，ChinaASP,ASPHouse
///////////////…… |
|
| 关于如何读出图片的高度与长度的总结 |
| 看到了很多关于如何读出图片的长度的高度的方法，其实都不实用，大多都是通过图片的大小来判断的，图片的种类众多，通过大小来判断难免要制造很多的代码，加重运行负担，我想了一个比较简单的方法，大家看看是否可行，不过我没有调试，就粗略的说以下，大家自己试试看咯。
提交的form这么写，我就简单一点了
<form ...…… |
|
| 用ASP和SQL实现基于Web的事件日历 |
| 本文介绍如何建立基于Web的日历，同时为不熟悉Active Server Pages(ASP)、SQL和ADO的开发者提供建立Web站点的过程介绍，也为有经验的开发者提供了Web站点可伸缩性方面的技巧。
随着网络应用的发展，基于Web的日历越来越受到人们的重视，对于显示诸如最后期限或日程安排之类的重要事件，或显示谁在什么时候休假，基于Web…… |
|
| « ‹ [1][2][3][4][5].. › » 20条/页 共180条 |
