Asp学习资料 -- 编程爱好者博客

文字向上移动(2007-06-04 13:50:00)

摘要：<style>
.black12 {font-size:12px;color:#000000;}
a.black12:link {font-size:12px;color:#000000;text-decoration:none;}
a.black12:visited {font-size:12px;color:#000000;text-decoration:none;}
a.black12:hover {font-size:12px;color:#000000;text-decoration:underline;}
a.black12line:link {font-size:12px;color:#000000;text-decoration:underline;}
a.black12line:visited {font-size:12px;color:#000000;text-decoration:underline;}
a.black12line:hover {font-size:12px;color:#000000;text-decoration:none;}
</style>
<TABLE border=1 width=200>
<TR>
<TD>
<div id="marquees">
<div class="details">
<a href='http://www.sina.com.cn' target='_blank' class="black12 blackDot"><li>新浪</li></a>
<a href='http://www.baidu.com' target='_blank' class="black12 blackDot"><li>百度</li></a>
<a href='http://www.google.com' target='_blank' class="black12 blackDot"><li>google<......

阅读全文(4109) | 评论:0

动态生成文本框并获取其中的内容(2007-05-30 11:17:00)

摘要：<form name="form1" method="post" action="1.asp">
<input type="text" name="num" size=5>
<input type="button" value="生成文本框" onclick="f()">
<div id="test">
</div>
<input type="submit" value="提交">
</form>
<script language="javascript">
function f()
{
num=document.form1.num.value;
var s='';
for(i=1;i<=num;i++)
{
  s=s+"<input type=\"text\" name=\"text"+i+"\"><br>";
}
document.getElementById("test").innerHTML=s;
}
</script>

1.asp
<%
num=request.Form("num")
For i=1 To num
   a=request.form("text"&i)
   response.write "text"&i&"="&a&"<br>"
next
%>......

阅读全文(4382) | 评论:0

博客中拖动模块代码(2007-05-30 10:44:00)

摘要：<html>
<head>
<title>移动的窗口</title>
<style>
*{font-size:12px}
.dragTable{
font-size:12px;
border-top:1px solid #3366cc;
margin-bottom: 10px;
width:100%;
background-color:#FFFFFF;
}
.dragTR{
cursor:move;
color:#7787cc;
background-color:#e5eef9;
}
td{vertical-align:top;}
#parentTable{
border-collapse:collapse;
letter-spacing:25px;
}
</style>

<script defer>
var draged=false;
tdiv=null;
function dragStart(){
ao=event.srcElement;
if((ao.tagName=="TD")||(ao.tagName=="TR"))ao=ao.offsetParent;
else return;
draged=true;
tdiv=document.createElement("div");
tdiv.innerHTML=ao.outerHTML;
tdiv.style.display="block";
tdiv.style.position="absolute";
tdiv.style.filter="alpha(opacity=70)";
tdiv.style.cursor="mov......

阅读全文(8942) | 评论:0

asp无组件文件上传(2007-05-28 09:38:00)

摘要：文件上传组件：upload.asp
<%
Dim stream1,stream2,istart,iend,filename
istart=1
vbEnter=Chr(13)&Chr(10) function getvalue(fstr,foro,paths)'fstr为接收的名称，foro布尔false为文件上传,true 为普通字段，path为上传文件存放路径
   if foro then
    getvalue=""
    istart=instring(istart,fstr)     istart=istart+len(fstr)+5
    iend=instring(istart,vbenter+"-----------------------------")
    if istart>5+len(fstr) then
    getvalue=substring(istart,iend-istart)

    else
    getvalue=""
    end if
    else

    istart=instring(istart,fstr)
    istart=istart+len(fstr)+13
    iend=instring(istart,vbenter)-1

    filename=substring(istart,iend-istart)
    filename=getf......

阅读全文(8930) | 评论:18

ajax用户注册代码(2007-05-23 22:23:00)

摘要：
终于实现了ajax用户注册系统.。注册界面如上。
源码下载地址：http://www.aspprogram.cn/soft.asp?id=12 index.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 用户注册 </TITLE>
</HEAD>
<style>

</style>
<BODY>
<script language=javascript>
<!--
function checkUserName()
{
   username=this.form1.username.value;
   var xmlhttp;
   try
   {
xmlhttp=new ActiveXObject("Msxml2.XMLHTTP");
   }
   catch (e)
   {
     try
     {
       xmlhttp=new ActiveXObje......

阅读全文(15203) | 评论:65

ajax＋xml的asp查询代码(2007-05-18 10:56:00)

摘要：最近初学ajax,xml，现在发布一个ajax+xml的asp查询代码。

数据库中表名ly,字段名y_username,y_message,y_time
index.html
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE> My Documents </TITLE>
</HEAD>
<style>

</style> <BODY>
<form name="form1" method="post">
<input type="text" name="search"> <input type="button" value="查询" onclick="javascript:f1()">
</form>
<div id="disp">
</div>
</BODY>
</HTML>
<script language="javascript">
function f1()
{
if(document.form1.search.value=="")
{
alert('请输入要查询的内容');
return false;
} var xmlhttp;
var search;
var s="";
search=document.form1.searc......

阅读全文(11199) | 评论:2

asp中获取字符串中的时间字符串(2007-05-14 14:41:00)

摘要：由于时间在字符串中的值不一致性，会出现以下几中格式的字符串，没有办法用left,right,mid直接来获取，所以想到用正则表达式来实现这个功能（只要将这个功能改一下，就可以获取其他格式的字符串。
<%
'str = "2007-01-01 12:12:12 问题 1234"
'str="sdfd 01-01 12:12:12 问题"
'str="2007-01-01 12:12sdfdf"
'str="qqwq 01-01 13:14dddd"
str="a2007-01-01sdddd" patrn="(\d+[-\:\s])+\d+"
Response.Write(RegExpTest(patrn,str))
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches   ' 建立变量。
Set regEx = New RegExp   ' 建立正则表达式。
regEx.Pattern = patrn   ' 设置模式。
regEx.IgnoreCase = True   ' 设置是否区分大小写。
regEx.Global = True   ' 设置全局替换。
Set Matches = regEx.Execute(strng)   ' 执行搜索。
For Each Match in Matches   ' 遍历 Matches 集合。
RetStr = Match.Value
Next
RegExpTest = RetStr
end Function
%>......

阅读全文(2847) | 评论:0

截字符串，汉字一个算两个字符，英文算一个字符(2007-05-09 09:03:00)

摘要：通常在显示新闻标题的时候，有时候标题中会出现汉字和英文共存，直接用left截字符串会出现两条新闻标题长度不一，使用这个函数可以解决这个问题。
<%
'**************************************************
'函数名：gotTopic
'作用：截字符串，汉字一个算两个字符，英文算一个字符
'参数：str   ----原字符串
'       strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
Function gotTopic(ByVal str, ByVal strlen)
    If str = "" Then
        gotTopic = ""
        Exit Function
    End If
    Dim l, t, c, i, strTemp
    str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "<", "<")
    l = Len(str)
    t = 0
    strTemp = str
    strlen = CLng(strlen)
    For i = 1 To l
     &......

阅读全文(4069) | 评论:0

求字符串长度,汉字算两个字符，英文算一个字符(2007-05-08 17:59:00)

摘要：<%
'**************************************************
'函数名：strLength
'作用：求字符串长度。汉字算两个字符，英文算一个字符。
'参数：str ----要求长度的字符串
'返回值：字符串长度
'**************************************************
Function strLength(str)
    On Error Resume Next
    Dim WINNT_CHINESE
    WINNT_CHINESE = (Len("中国") = 2)
    If WINNT_CHINESE Then
        Dim l, t, c
        Dim i
        l = Len(str)
        t = l
        For i = 1 To l
            c = Asc(Mid(str, i, 1))
            If c < 0 Then c = c + 65536
            If c > 255 Then
......

阅读全文(5178) | 评论:1

实现登录后才能下载(2007-04-27 13:31:00)

摘要：通常想实现用户登录后，才可以下载某此文件，可以用cookies和session来解决用户是否登录，然后根据cookies和session里面记录的值来确定是否给予下载。但是这样做有一个缺点：如果别人知道那个文件的路径，在IE中直接输入路径地址就可以下载了，这样的结果并不是我们想要的。
首先，我们要将保存文件的那个文件夹名字前加上#，为了防止从IE中下载此文件。
index.html文件（用来提供下载）
<a href="down.asp?u=789.rar">下载</a> down.asp

<%
Dim u
u=request.querystring("u")
downloadFile "./#soft/123.rar", u
%>

download.asp
<%
'author : lael 2006-2-20
function downloadFile(downfile, downname)
on error resume next dlfile = server.MapPath(downfile) Response.Buffer = True
Response.Clear Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1 Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(dlfile) then
      set fso = nothing
   oStream.Close
      Set oStream = nothing
   downloadFile = "error:1"
   exit ......

阅读全文(4289) | 评论:2

博客介绍

文章分类

博文