二进制乐园——Magci's BLOG

安农大学分制专用选课助手

Magci

自学分制改革以来经历了3次选课,每次正选时都很痛苦.最头疼的是排课表,老是冲突,在鼠标狂点忙于选课,退课之时,又发现不冲突的课早被选满...

为了提高选课效率,偶写了这个"选课助手",能自动排出课表，希望能给同学们提供一点帮助...

目前程序还不完善,执行效率很低,运行速度慢...
现在发上来请大家帮忙测试,欢迎提出意见和建议,以便偶继续改进程序,为大家提供更方便的服务...

版本说明：
此次发布的是测试版（V2007 Beta1），只有手动版，先发出来给大家测试，偶再进一步完善程序，为自动版的开发作准备。
自动版在手动版的基础上读取选课系统的信息，自动排出课表，用户选择一个课表后由系统自动提交选课。
自动版会在选课系统开放偶几天之内发布，敬请期待

使用说明：

一、手动版

1.运行程序，单击“手动版”

2.第一步：输入公选课信息

3.第二步：输入主修课信息
上课时间之间用“／”间隔，例如：
　　　　　　　一1-2/五1-2 /三3-4
　　　　　　　二3-4 四1-2 五1-2/一1-2 三1-2 四3-4

每页可以输入５门课，一页输满单击＂下一步＂翻页．

4.生成课表

输入完课程信息后单击＂生成＂按钮，生成课表供用户选择．

↓V2007.1.0629下载:↓
点击下载此文件

线索二叉树(先序,中序)

Magci

先序线索化二叉树并遍历

点击显示/隐藏影音文件

影音源文件地址：attachments/month_0706/wtl1_ThreadTreeBuild.swf

[复制] [运行] [保存]

#include
#include
#define NULL 0
#define LEN_T sizeof(BTNode)
#define LEN_S 100
typedef char ElemType;
typedef struct BTNode
{
    ElemType data;
    struct BTNode *lchild,*rchild;
    int lt,rt;
}BTNode,*BTree;

void CreateTree(BTree *T)
{
    char c;
    c=getchar();
    if (c=='#')
        (*T)=NULL;
    else
    {
        (*T)=(BTree)malloc(LEN_T);
        (*T)->lt=0;
        (*T)->rt=0;
        CreateTree(&(*T)->lchild);
        (*T)->data=c;
        CreateTree(&(*T)->rchild);
    }
}

BTree XianSuo(BTree *T)
{
    BTree t,pr,p,Stack[LEN_S];
    int top=0;
    t=(BTree)malloc(LEN_T);
    t->rchild=t;
    if((*T)==NULL)
        t->lchild=t;
    else
    {
        t->lchild=(*T);
        p=(*T);
        pr=t;
        do{
            while(p)
            {
                printf("%2c",p->data);
                Stack[top++]=p;
                p=p->lchild;
            }
            if(top>0)
            {
                p=Stack[--top];
                if(p->lchild==NULL)
                {
                    p->lt=1;
                    p->lchild=pr;
                }
                if(pr->rchild==NULL)
                {
                    pr->rt=1;
                    pr->rchild=p;
                }
                pr=p;
                p=p->rchild;
            }
        }while(p || top>0);
        pr->rt=1;
        pr->rchild=t;
        t->rchild=pr;
    }
    return t;
}

void BianLi(BTree T)
{
    BTree p;
    p=T->lchild;
    do{
        while(p->lt==0)
        {
            printf("%2c",p->data);
            p=p->lchild;
        }
        printf("%2c",p->data);
        if(p->rt==1 && p->rchild!=T)
            p=p->rchild->rchild;
        else
            p=p->rchild;
    }while(p!=T);
}

void main()
{
    BTree T=NULL;
    printf("先序输入二叉树:\n");
    CreateTree(&T);
    printf("先序遍历二叉树并线索化:\n");
    T=XianSuo(&T);
    printf("\n遍历先序线索二叉树:\n");
    BianLi(T);
}

中序线索化二叉树并遍历

[复制] [运行] [保存]

#include
#include
#define NULL 0
#define LEN_T sizeof(BTNode)
#define LEN_S 100
typedef char ElemType;
typedef struct BTNode
{
    ElemType data;
    struct BTNode *lchild,*rchild;
    int lt,rt;
}BTNode,*BTree;

void CreateTree(BTree *T)
{
    char c;
    c=getchar();
    if (c=='#')
        (*T)=NULL;
    else
    {
        (*T)=(BTree)malloc(LEN_T);
        (*T)->lt=0;
        (*T)->rt=0;
        CreateTree(&(*T)->lchild);
        (*T)->data=c;
        CreateTree(&(*T)->rchild);
    }
}

BTree XianSuo(BTree *T)
{
    BTree t,pr,p,Stack[LEN_S];
    int top=0;
    t=(BTree)malloc(LEN_T);
    t->rchild=t;
    if((*T)==NULL)
        t->lchild=t;
    else
    {
        t->lchild=(*T);
        p=(*T);
        pr=t;
        do{
            while(p)
            {
                Stack[top++]=p;
                p=p->lchild;
            }
            if(top>0)
            {
                p=Stack[--top];
                printf("%2c",p->data);
                if(p->lchild==NULL)
                {
                    p->lt=1;
                    p->lchild=pr;
                }
                if(pr->rchild==NULL)
                {
                    pr->rt=1;
                    pr->rchild=p;
                }
                pr=p;
                p=p->rchild;
            }
        }while(p || top>0);
        pr->rt=1;
        pr->rchild=t;
        t->rchild=pr;
    }
    return t;
}

void Q_BianLi(BTree T)
{
    BTree p=T->rchild;
    ElemType Stack[LEN_S];
    int top=0;
    do{
        while(p->rt==0)
        {
            p=p->rchild;
        }
        Stack[top++]=p->data;
        while(p->lt==1 && p->lchild!=T)
        {
            p=p->lchild;
            Stack[top++]=p->data;
        }
        p=p->lchild;
    }while(p!=T);
    while(top>0)
        printf("%2c",Stack[--top]);
}

void H_BianLi(BTree T)
{
    BTree p;
    p=T->lchild;
    do{
        while(p->lt==0)
            p=p->lchild;
        printf("%2c",p->data);
        while(p->rt==1 && p->rchild!=T)
        {
            p=p->rchild;
            printf("%2c",p->data);
        }
        p=p->rchild;
    }while(p!=T);
}

void main()
{
    BTree T=NULL;
    printf("先序输入二叉树:\n");
    CreateTree(&T);
    printf("中序遍历二叉树并线索化:\n");
    T=XianSuo(&T);
    printf("\n遍历中序线索二叉树(前驱):\n");
    Q_BianLi(T);
    printf("\n遍历中序线索二叉树(后继):\n");
    H_BianLi(T);
}

二叉树先序中序后序层次遍历递归非递归

Magci

[复制] [运行] [保存]

#include
#include
#define NULL 0
#define LEN_T sizeof(BTNode)
#define LEN_Q sizeof(QNode)
#define LEN_S 100
typedef char ElemType;
typedef struct BTNode
{
    ElemType data;
    struct BTNode *lchild,*rchild;
}BTNode,*BTree;

typedef struct QNode
{
    BTree data;
    struct QNode *next;
}QNode,*Queue;

typedef struct StackElemType
{
    BTree data;
    int f;//f=0：遍历左子树   f=1：遍历右子树
}StackElemType;

void CreateTree(BTree *T)
{
    char c;
    c=getchar();
    if (c=='#')
        (*T)=NULL;
    else
    {
        (*T)=(BTree)malloc(LEN_T);

        CreateTree(&(*T)->lchild);
        (*T)->data=c;
        CreateTree(&(*T)->rchild);
    }
}

void Xian(BTree T)
{
    if(T)
    {
        printf("%2c",T->data);
        Xian(T->lchild);
        Xian(T->rchild);
    }
}

void D_Xian(BTree T)
{
    BTree p=T,Stack[LEN_S];
    int top=0;
    do{
        while(p)
        {
            printf("%2c",p->data);
            Stack[top++]=p;
            p=p->lchild;
        }
        if(top>0)
        {
            p=Stack[--top];
            p=p->rchild;
        }
    }while(top>0||p!=NULL);
}

void Zhong(BTree T)
{
    if(T)
    {
        Zhong(T->lchild);
        printf("%2c",T->data);
        Zhong(T->rchild);
    }
}

void D_Zhong(BTree T)
{
    BTree p=T,Stack[LEN_S];
    int top=0;
    do{
        while(p)
        {
            Stack[top++]=p;
            p=p->lchild;
        }
        if(top>0)
        {
            p=Stack[--top];
            printf("%2c",p->data);
            p=p->rchild;
        }
    }while(top>0 || p);
}

void Hou(BTree T)
{
    if(T)
    {
        Hou(T->lchild);
        Hou(T->rchild);
        printf("%2c",T->data);
    }
}

void D_Hou(BTree T)
{
    StackElemType Stack[LEN_S];
    BTree p=T;
    int top=0;
    do{
        while(p)
        {
            Stack[top].f=0;
            Stack[top].data=p;
            p=p->lchild;
            top++;
        }

        if(top>0)
        {
            while(Stack[top-1].f==1)
            {
                p=Stack[--top].data;
                printf("%2c",p->data);
            }
            if(top>0)
            {
                Stack[top-1].f=1;
                p=Stack[top-1].data;
                p=p->rchild;
            }
        }
    }while(top>0);
}

//队列开始
void InitQueue(Queue *front,Queue *rear)
{
    (*front)=(*rear)=(Queue)malloc(LEN_Q);
}

void EnQueue(Queue *rear,BTree p)
{
    Queue q;
    q=(Queue)malloc(LEN_Q);
    q->data=p;
    q->next=NULL;
    (*rear)->next=q;
    (*rear)=q;
}

void DeQueue(Queue *front,Queue *rear,BTree *e)
{
    Queue q;
    q=(*front)->next;
    *e=q->data;
    (*front)->next=q->next;
    if((*rear)==q)
        (*rear)=(*front);
    free(q);
}
//队列结束
int Ceng(BTree T)
{
    Queue front,rear;
    BTree p;
    if(!T)
        return 0;
    InitQueue(&front,&rear);
    p=T;
    EnQueue(&rear,p);
    while(front!=rear)
    {
        DeQueue(&front,&rear,&p);
        printf("%2c",p->data);
        if(p->lchild!=NULL)
            EnQueue(&rear,p->lchild);
        if(p->rchild!=NULL)
            EnQueue(&rear,p->rchild);
    }
    return 1;
}

void S_Ceng(BTree T)
{
    BTree Queue[LEN_S],p;
    int front,rear;
    front=rear=0;
    if(T)
    {
        p=T;
        Queue[rear++]=p;
        while(front!=rear)
        {
            p=Queue[front++];
            printf("%2c",p->data);
            if(p->lchild!=NULL)
                Queue[rear++]=p->lchild;
            if(p->rchild!=NULL)
                Queue[rear++]=p->rchild;
        }
    }
}

void main()
{
    BTree T=NULL;
    printf("先序输入二叉树:\n");
    CreateTree(&T);
    printf("先序遍历:\n");
    Xian(T);
    printf("\n先序遍历(非递归):\n");
    D_Xian(T);
    printf("\n中序遍历:\n");
    Zhong(T);
    printf("\n中序遍历(非递归):\n");
    D_Zhong(T);
    printf("\n后序遍历:\n");
    Hou(T);
    printf("\n后序遍历(非递归):\n");
    D_Hou(T);
    printf("\n层次遍历(链式):\n");
    Ceng(T);
    printf("\n层次遍历(顺序):\n");
    S_Ceng(T);
}

突破图片反盗链

Magci

未处理的盗链图片：
http://album.sina.com.cn/pic/4a68ba9202000m3n

处理后的盗链图片：
http://mgc.ahau.edu.cn/xiaoshazhu.asp?url=ht ... om.cn/pic/4a68ba9202000m3n

解决方法：

插入图片时在图片地址前加上
http://mgc.ahau.edu.cn/xiaoshazhu.asp?url=
例如：
http://mgc.ahau.edu.cn/xiaoshazhu.asp?url=图片完整地址
http://mgc.ahau.edu.cn/xiaoshazhu.asp?url=http://123.cn/pic.gif

实现原理：

xiaoshazhu.asp

[复制] [运行] [保存]

<%
Dim url, body, myCache
url = Request.QueryString("url")
Set myCache = new cache
myCache.name = "picindex"&url
If myCache.valid Then
    body = myCache.value
Else
    body = GetWebData(url)
    myCache.add body,dateadd("d",1,now)
End If

If Err.Number = 0 Then
    Response.CharSet = "UTF-8"
    Response.ContentType = "application/octet-stream"
    Response.BinaryWrite body
    Response.Flush
Else
    Wscript.Echo Err.Description
End if

'取得数据
Public Function GetWebData(ByVal strUrl)
    Dim curlpath
    curlpath = Mid(strUrl,1,Instr(8,strUrl,"/"))
    Dim Retrieval
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "Get", strUrl, False,"",""
        .setRequestHeader "Referer", curlpath
        .Send
        GetWebData =.ResponseBody
    End With
    Set Retrieval = Nothing
End Function

'cache类

class Cache
private obj 'cache内容
private expireTime '过期时间
private expireTimeName '过期时间application名
private cacheName 'cache内容application名
private path 'url

private sub class_initialize()
    path=request.servervariables("url")
    path=left(path,instrRev(path,"/"))
end sub

private sub class_terminate()
end sub

public property get blEmpty
'是否为空
    if isempty(obj) then
        blEmpty=true
    else
        blEmpty=false
    end if
end property

public property get valid
'是否可用(过期)
    if isempty(obj) or not isDate(expireTime) then
        valid=false
    elseif CDate(expireTime)        valid=false
    else
        valid=true
    end if
end property

public property let name(str)
'设置cache名
    cacheName=str & path
    obj=application(cacheName)
    expireTimeName=str & "expires" & path
    expireTime=application(expireTimeName)
end property

public property let expires(tm)
'重设置过期时间
    expireTime=tm
    application.lock
    application(expireTimeName)=expireTime
    application.unlock
end property

public sub add(var,expire)
'赋值
    if isempty(var) or not isDate(expire) then
        exit sub
    end if
    obj=var
    expireTime=expire
    application.lock
    application(cacheName)=obj
    application(expireTimeName)=expireTime
    application.unlock
end sub

public property get value
'取值
    if isempty(obj) or not isDate(expireTime) then
        value=null
    elseif CDate(expireTime)        value=null
    else
        value=obj
    end if
end property

public sub makeEmpty()
'释放application
    application.lock
    application(cacheName)=empty
    application(expireTimeName)=empty
    application.unlock
    obj=empty
    expireTime=empty
end sub

public function equal(var2)
'比较
    if typename(obj)<>typename(var2) then
        equal=false
    elseif typename(obj)="Object" then
        if obj is var2 then
            equal=true
        else
            equal=false
        end if
    elseif typename(obj)="Variant()" then
        if join(obj,"^")=join(var2,"^") then
            equal=true
        else
            equal=false
        end if
    else
        if obj=var2 then
            equal=true
        else
            equal=false
        end if
    end if
end function
end class
%>

阻击垃圾广告

Magci

虽然对垃圾广告早有防备,加了留言评论审核功能.

但是昨天还是发现了1条垃圾广告评论,9条引用通告.

看来审核功能作用不是很大,特别是被大量垃圾广告攻击的时候.

于是偶换个思路重新写了代码,设置三道防线阻击垃圾广告...

防线一:在发表评论时对内容进行链接验证,不允许发表含有链接的评论.

[复制] [运行] [保存]

IF InStr(Request.Form("message"),"http")  or InStr(Request.Form("message"),"url")  Then
    msg_Title="出现错误"
    msg_Content="对不起，你的评论中含有链接，点击返回上一页"
End IF

防线二:在后台中设置"清除广告评论"功能,删除数据库中含有链接的评论

[复制] [运行] [保存]

清理广告评论

<%IF Request.QueryString("action")="clear" Then%>
<%
dim sql,blog_commclear,content,f
    f=0
    sql="SELECT * FROM blog_Comment"
    Set blog_commclear=Conn.Execute(sql)
    blog_commclear.close
    blog_commclear.Open sql,conn,1,3
    IF not (blog_commclear.EOF AND blog_commclear.BOF) Then
        Do While Not blog_commclear.EOF
            content=blog_commclear("comm_Content")
            if InStr(content,"url")  or InStr(content,"http")  then
                response.write (content)
                response.write ("已删除!")
                response.write("
")
                blog_commclear.delete
                f=1
            end if
            blog_commclear.MoveNext
        Loop
    End IF
    if f then
    response.write ("广告评论清除成功")
    else
    response.write ("没有广告评论")
    end if
    blog_commclear.close
    Set blog_commclear=Nothing
%>
<%End IF%>

防线三：去除“引用通告”功能

偶觉得“引用通告”功能米有什么用处，反而会给垃圾广告提供方便。

于是去掉了这个功能，最大限度的切断垃圾广告的来源。

WEB编程开发常用代码

Magci

ASP与Access数据库连接：

[复制] [运行] [保存]

dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile

ASP与SQL数据库连接：

[复制] [运行] [保存]

dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称

建立记录集对象：

[复制] [运行] [保存]

set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2

数据记录筛选：

[复制] [运行] [保存]

sql="select * from 数据表 where 字段名=字段值 order by 字段名 "
sql="select * from 数据表 where 字段名 like ‘%字段值%‘ order by 字段名 "
sql="select top 10 * from 数据表 where 字段名 order by 字段名 "
sql="select * from 数据表 where 字段名 in (‘值1‘,‘值2‘,‘值3‘)"
sql="select * from 数据表 where 字段名 between 值1 and 值2"

更新数据记录：

[复制] [运行] [保存]

sql="update 数据表 set 字段名=字段值 where 条件表达式"
sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"

删除数据记录：

[复制] [运行] [保存]

sql="delete from 数据表 where 条件表达式"
sql="delete from 数据表" (将数据表所有记录删除)

添加数据记录：

[复制] [运行] [保存]

sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"
sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)

数据记录统计函数：

[复制] [运行] [保存]

AVG(字段名) 得出一个表格栏平均值
COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名) 取得一个表格栏最大的值
MIN(字段名) 取得一个表格栏最小的值
SUM(字段名) 把数据栏的值相加

引用以上函数的方法：

[复制] [运行] [保存]

sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.excute(sql)
用 rs("别名") 获取统的计值，其它函数运用同上。

数据表的建立和删除：

[复制] [运行] [保存]

CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… )
例：CREATE TABLE tab01(name varchar(50),datetime default now())
DROP TABLE 数据表名称 (永久性删除一个数据表)

记录集对象的方法：

[复制] [运行] [保存]

rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
rs.pagecount 根据 pagesize 的设置返回总页数
rs.recordcount 返回记录总数
rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
rs.delete 删除当前记录，但记录指针不会向下移动
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录

判断所填数据是数字型

[复制] [运行] [保存]

if not isNumeric(request("字段名称")) then
response.write "不是数字"
else
response.write "数字"
end if

页面执行时间：

[复制] [运行] [保存]

<%startime = Timer()%>
.... ....
内容
... ...
结尾
<%
   Dim Endtime
   Endtime = Timer()
   response.write "页面执行时间："&FormatNumber((Endtime-Startime)*1000,5)&" 毫秒"
%>
定义打开网页时起始窗口的大小

window.resizeTo(500,300)

随机数:

[复制] [运行] [保存]

<%randomize%>
<%=(int(rnd()*n)+1)%>

查询数据时得到的记录关键字用红色显示：

[复制] [运行] [保存]

replace(RS("字段X"),searchname,"" & searchname & "")

通过asp的手段来检查来访者是否用了代理:

[复制] [运行] [保存]

<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "您通过了代理服务器，"& _
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>

判断上一页的来源

[复制] [运行] [保存]

request.servervariables("HTTP_REFERER")
javascript: document.referrer

清除缓存，重新加载页面:

[复制] [运行] [保存]

<%response.expires = 0
response.expiresabsolute = now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
%>

检索并删除数据库里的重复记录:

[复制] [运行] [保存]

conn.execute("delete from table where id not in (select distinct from table)")

文件删除函数:

[复制] [运行] [保存]

<%
'文件删除函数
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename
else
Response.Write ""
end if
end if
end function
strfile=server.MapPath("fileName")
deletefile(strfile)
%>

ASP字数计算函数

[复制] [运行] [保存]

<%
Function WordCount(strInput)
Dim strTemp
strTemp = Replace(strInput, vbTab, " ")
strTemp = Replace(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")
' 删除字首字尾空格
strTemp = Trim(strTemp)
' 替换为一个空格
Do While InStr(1, strTemp, " ", 1) <> 0
strTemp = Replace(strTemp, " ", " ")
Loop
WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
End Function
%>

全正则的检测IP是否合法的函数

[复制] [运行] [保存]

关闭子窗口时刷新父窗口

[复制] [运行] [保存]

window.opener.location="父窗口页面"
window.close()

文本框输入限制：

[复制] [运行] [保存]

小写英文：
  onpaste  = "return regInput(this, /^[a-z]*$/,  window.clipboardData.getData('Text'))"
  ondrop  = "return regInput(this, /^[a-z]*$/,  event.dataTransfer.getData('Text'))"
  style="ime-mode:Disabled"
>

大写英文：
  onpaste  = "return regInput(this, /^[A-Z]*$/,  window.clipboardData.getData('Text'))"
  ondrop  = "return regInput(this, /^[A-Z]*$/,  event.dataTransfer.getData('Text'))"
  style="ime-mode:Disabled">

任意数字：
  onpaste  = "return regInput(this, /^[0-9]*$/,  window.clipboardData.getData('Text'))"
  ondrop  = "return regInput(this, /^[0-9]*$/,  event.dataTransfer.getData('Text'))"
  style="ime-mode:Disabled"
>

限2位小数：
  onpaste  = "return regInput(this, /^\d*\.?\d{0,2}$/,  window.clipboardData.getData('Text'))"
  ondrop  = "return regInput(this, /^\d*\.?\d{0,2}$/,  event.dataTransfer.getData('Text'))"
  style="ime-mode:Disabled"
> 如: 123.12

日　  期：
  onpaste  = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/,  window.clipboardData.getData('Text'))"
  ondrop  = "return regInput(this, /^\d{1,4}([-\/](\d{1,2}([-\/](\d{1,2})?)?)?)?$/,  event.dataTransfer.getData('Text'))"
  style="ime-mode:Disabled"
> 如: 2002-9-29

任意中文：
  onpaste  = "return regInput(this, /^[\u4E00-\u9FA5]*$/, window.clipboardData.getData('Text'))"
  ondrop  = "return regInput(this, /^[\u4E00-\u9FA5]*$/, event.dataTransfer.getData('Text'))"
>

部分英文：
  onpaste  = "return regInput(this, /^[a-e]*$/,  window.clipboardData.getData('Text'))"
  ondrop  = "return regInput(this, /^[a-e]*$/,  event.dataTransfer.getData('Text'))"
  style="ime-mode:Disabled"
> 范围: a,b,c,d,e

部分中文：

function checkChinese(oldLength, obj)
{
var oTR = window.document.selection.createRange()
var reg = /[^一二三四五六七八九十]/g
oTR.moveStart("character", -1*(obj.value.length-oldLength))
oTR.text = oTR.text.replace(reg, "")
}

  onpaste  = "return regInput(this, /^[一二三四五六七八九十]*$/,  window.clipboardData.getData('Text'))"
  ondrop  = "return regInput(this, /^[一二三四五六七八九十]*$/,  event.dataTransfer.getData('Text'))"
> 范围: 一二三四五六七八九十

禁止右键，CTRL+A，复制!

[复制] [运行] [保存]

onkeypress="window.event.returnValue=false"
onkeydown="window.event.returnValue=false"
onkeyup="window.event.returnValue=false"
ondragstart="window.event.returnValue=false"
onselectstart="event.returnValue=false">

显示状态拦固定文字：
放在body前

[复制] [运行] [保存]

用键盘打开网页

[复制] [运行] [保存]

document.onkeydown=gopage
var add="Admin/AddArticle.asp"
var logon="Admin/Logon.asp"
function gopage() {
if (event.keyCode==13) location=add
if (event.keyCode==38) location=logon
}

根据内容自动调整iframe高度
有时为了方便使用Iframe，但被潜入的页面长度不是固定的，显示滚动条不仅影响美观还对用户操作带来不便，自动调整高度可以解决这个问题。

[复制] [运行] [保存]

禁止页面正文内容被选取

[复制] [运行] [保存]

false"onmouseup="document.selection.empty()">

消除ie6自动出现的图像工具栏，设置 GALLERYIMG属性为false或no .

[复制] [运行] [保存]

防止点击空链接时，页面往往重置到页首端。

[复制] [运行] [保存]

代码“javascript:void(null)”代替原来的“#”标记

避免别人把你的网页放在框架中

[复制] [运行] [保存]

< /script>

页面定时刷新

[复制] [运行] [保存]

页面定时转向新的地址

[复制] [运行] [保存]

关闭窗口，这个是不会弹出提示直接关的：
把如下代码加入区域中

[复制] [运行] [保存]

function shutwin(){closes.Click();return;}
关闭本窗口

禁止右键
看到这里大家一定会想，这招有很多人介绍过了，而且破解的方法也有很多。但我这里要说的是另一种方法，而且我试了很多方法都没有能破解。具体如下：

[复制] [运行] [保存]

你可以按右键、shift+F10和右ctrl左边的那个键试试！看能不能解。^_^

大家试试，看能不能破解！你可以将alert("试试能破解吗？");这句去掉，这样当按右键时就什么反应也没有了，就好像没有右键功能一样。

禁示查看源代码
我们已经禁了右键，但从"查看"菜单下的"源文件"中同样可以看到源代码，下面我们就来解决这个问题：
其实这只要使用一个含有标记的网页便可以达到目的。

[复制] [运行] [保存]

这样当有人使用"查看"下的"源文件"的时候，看到的将是上面的那段代码，而你真正的文件又躲过一劫。

禁示另存为
通过上面的两步好像你的源代码已经安全了，但别忘了，别人还可以将你的页面保存下来，再慢慢分析。不过别担心，下面我们来解决这个问题。
在你要保密的网页中加入以下代码：

[复制] [运行] [保存]

彻底屏蔽右键方法

[复制] [运行] [保存]

双击页面后自动滚屏，单击后停止

[复制] [运行] [保存]

var currentpos,timer;
function initialize()
{ timer=setInterval("scrollwindow()",16); }
function sc(){
clearInterval(timer);
}
function scrollwindow()
{currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize

设定脚本出错能继续运行

[复制] [运行] [保存]

function KillError()
{
return false;
}
window.onerror=KillError;

　

将彻底屏蔽鼠标右键

[复制] [运行] [保存]

oncontextmenu="window.event.returnvalue=false"

可用于Table

[复制] [运行] [保存]

取消选取、防止复制

[复制] [运行] [保存]

不准粘贴

[复制] [运行] [保存]

onpaste="return false"

防止复制

[复制] [运行] [保存]

oncopy="return false;" oncut="return false;"

IE地址栏前换成自己的图标

[复制] [运行] [保存]

可以在收藏夹中显示出你的图标

[复制] [运行] [保存]

关闭输入法

[复制] [运行] [保存]

永远都会带着框架

[复制] [运行] [保存]

防止被人frame

[复制] [运行] [保存]

怎样通过asp的手段来检查来访者是否用了代理

[复制] [运行] [保存]

<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "您通过了代理服务器，" & "真实的IP为 "&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>

取得控件的绝对位置

[复制] [运行] [保存]

//javascript

function getIE(e){
var t=e.offsetTop;
var l=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
l+=e.offsetLeft;
}
alert("top="+t+"nleft="+l);
}

[复制] [运行] [保存]

//VBScript

光标是停在文本框文字的最后

[复制] [运行] [保存]

function cc()
{
var e = event.srcElement;
var r =e.createTextRange();
r.moveStart('character',e.value.length);
r.collapse(true);
r.select();
}

判断上一页的来源
asp:

[复制] [运行] [保存]

request.servervariables("HTTP_REFERER")

javascript:

[复制] [运行] [保存]

document.referrer

最小化、最大化、关闭窗口

[复制] [运行] [保存]

本例适用于IE

记录并显示网页的最后修改时间

[复制] [运行] [保存]

document.write("最后更新时间: " + document.lastModified + "")

2秒后关闭当前页

[复制] [运行] [保存]

2秒后载入指定网页

[复制] [运行] [保存]

添加到收藏夹

[复制] [运行] [保存]

function bookmarkit()
{
　window.external.addFavorite('http://你的网址','你的网站名称')
}
　if (document.all)document.write('加入收藏夹')

禁止鼠标右键的动作

[复制] [运行] [保存]

function click() { if (event.button==2||event.button==3)
{
　alert('禁止鼠标右键');
}
   document.onmousedown=click // -->

或


function click() { if (event.button==2)
{alert('*^_^*'); } } document.onmousedown=click // -->

设置该页为首页

[复制] [运行] [保存]

设为首页

节日倒计时

[复制] [运行] [保存]

　　var timedate= new Date("October 1,2002");
　　var times="国庆节";
　　var now = new Date();
　　var date = timedate.getTime() - now.getTime();
　　var time = Math.floor(date / (1000 * 60 * 60 * 24));
　　if (time >= 0)
　　document.write("现在离"+times+"还有: "+time +"天")

单击按钮打印出当前页

[复制] [运行] [保存]

　　if (window.print) {
　　document.write('

单击按钮‘另存为’当前页

[复制] [运行] [保存]

显示系统当前日期

[复制] [运行] [保存]

　　today=new Date();
　　function date(){
　　this.length=date.arguments.length
　　for(var i=0;i　　this[i+1]=date.arguments }
　　var d=new date("星期日","星期一","星期二","星期三","星期四","星期五","星期六");
　　document.write(
　　" ",
　　today.getYear(),"年",today.getMonth()+1,"月",today.getDate(),"日",
　　d[today.getDay()+1],"" );

不同时间段显示不同问候语

[复制] [运行] [保存]

var text=""; day = new Date( ); time = day.getHours( );
　　if (( time>=0) && (time < 7 ))
　　　　text="夜猫子，要注意身体哦！ "
　　if (( time >= 7 ) && (time < 12))
　　　　text="今天的阳光真灿烂啊，你那个朋友呢？"
　　if (( time >= 12) && (time < 14))
　　　　text="午休时间。您要保持睡眠哦！"
　　if (( time >=14) && (time < 18))
　　　　text="祝您下午工作愉快！ "
　　if ((time >= 18) && (time <= 22))
　　　　text="您又来了，可别和MM聊太久哦！"
　　if ((time >= 22) && (time < 24))
　　　　text="您应该休息了！"
　　document.write(text)

水中倒影效果

[复制] [运行] [保存]

　　
　　function f1()
　　{
　　　　setInterval("mdiv.filters.wave.phase+=10",100);
　　}
　　if (document.all)
　　{
　　　　document.write('　　　　style="filter:wave(strength=3,freq=3,phase=0,lightstrength=30) blur() flipv()">')
　　　　window.onload=f1
　　}

慢慢变大的窗口

[复制] [运行] [保存]

　　

">http://www.ccjol.com')">进入

鼠标指向时弹出信息框
在之间加上如下代码：

[复制] [运行] [保存]

显示的链接文字

随机变换背景图象（一个可以刷新心情的特效）
在之间加上如下代码：

[复制] [运行] [保存]

　　image = new Array(4); //定义image为图片数量的数组
　　image [0] = 'tu0.gif' //背景图象的路径
　　image [1] = 'tu1.gif'
　　image [2] = 'tu2.gif'
　　image [3] = 'tu3.gif'
　　image [4] = 'tu4.gif'
　　number = Math.floor(Math.random() * image.length);
　　document.write("");

鼠标一碰就给颜色看的链接
在之间加上如下代码：

[复制] [运行] [保存]

你敢碰我，我就给点颜色你看！

　　sub anniu
　　document.fgColor=int(256*256*256*rnd)
　　end sub

从天而降并有幻影效果的窗口

[复制] [运行] [保存]

表格的半透明显示效果
在之间加上如下代码：

[复制] [运行] [保存]

在之间加上如下代码：

[复制] [运行] [保存]

　
　　
　　很酷吧!

锁定状态栏文字防止显示地址

[复制] [运行] [保存]

禁止图片下载
在这里的最后加入：

[复制] [运行] [保存]

oncontextmenu="return false" ondragstart="return false" onselectstart="return false" scroll="auto"

禁止缓存

[复制] [运行] [保存]

加在HEAD里

使用包含页面加密所包含页面地址
使用工具 htmlguardian5.3.5
目前功能最强的html代码加密软件,可以保护连接和html代码被盗。
1.锁右键。2.禁鼠标圈选。3.不允许离线使用。4.密码保护。5.不显示状态栏url地址。6.全代码或局部代码保护。7.链接跟踪。8.禁止打印(IE5+)。9.压缩代码( 未加密前)。10.可加密*.html *.js *.asp *.vbs。11.两种不同加密算法。12.加密 frameset 结构。13.某些功能支持几个不同版本的浏览器。
　

下载flash我的三种方法：
--查看源文件，找出flash的绝对路径，复制，在flashget（或蚂蚁）中点任务
，然后点新建下载任务即可。
--在IE的临时文件夹Temporary Internet Files里把所有的东西都删掉，然后
刷新你想要下载flash的网页，即可得到你所要的flash
--使用外部软件，推荐使用Flash Catcher,安装后只需在你所要下载的flash上右键，save即可。

让IFRAME框架内的文档的背景透明

[复制] [运行] [保存]

" allowtransparency>

进入页面后立即自动刷新

[复制] [运行] [保存]

http://mgc.ahau.edu.cn,这是你自己的网址。

打开窗口即最大化

[复制] [运行] [保存]

能隐藏IFRAME的滚动条吗
1. 设置iframe scrolling="no"
2. 被包含页body应用overflow:hidden
3. 被包含页的body标签加scroll="no"

加入背景音乐

[复制] [运行] [保存]

只适用于IE

[复制] [运行] [保存]

对Netscape ,IE 都适用

嵌入网页

[复制] [运行] [保存]

跳转

[复制] [运行] [保存]

滚动

[复制] [运行] [保存]

细线分隔线

[复制] [运行] [保存]

过度方式

[复制] [运行] [保存]

Duration的值为网页动态过渡的时间，单位为秒。
Transition是过渡方式，它的值为0到23，分别对应24种过渡方式。如下表：
0 盒状收缩 1 盒状放射
2 圆形收缩 3 圆形放射
4 由下往上 5 由上往下
6 从左至右 7 从右至左
8 垂直百叶窗 9 水平百叶窗
10 水平格状百叶窗 11垂直格状百叶窗
12 随意溶解 13从左右两端向中间展开
14从中间向左右两端展开 15从上下两端向中间展开
16从中间向上下两端展开 17 从右上角向左下角展开
18 从右下角向左上角展开 19 从左上角向右下角展开
20 从左下角向右上角展开 21 水平线状展开
22 垂直线状展开 23 随机产生一种过渡方式

控制横向和纵向滚动条的显隐

[复制] [运行] [保存]

去掉x轴

去掉y轴
不显

定义本网页关键字
在中加入如下代码：

[复制] [运行] [保存]

Content 中所包含的就是关键字,你可以自行设置。　　
这里有个技巧,你可以重复某一个单词,这样可以提高自己网站的排行位置,如：

[复制] [运行] [保存]

IE5.0 的部分快捷键：
A:打开查找功能：Ctrl+F
关闭浏览器窗口：Ctrl+W
打开地址栏下拉列表框：F4
刷新：F5
将当前Web页保存到收藏夹列表：Ctrl+D
打开当前 IE 窗口的一个拷贝：Ctrl+N
停止下载当前网页：Esc
光标迅速移动到网页的开头：Home
光标迅速移动到网页的尾部：End
打开新的地址键入窗口：Ctrl+O
打开收藏夹：Ctrl+I
打开历史记录文件夹：Ctrl+H
打开浏览器设定的默认主页：Alt+HOME

添加到收藏夹：

[复制] [运行] [保存]

添加到收藏夹

设为首页：

[复制] [运行] [保存]

设为首页

定制浏览器地址栏前的小图标：
A:在网页的间加入以下语句

[复制] [运行] [保存]

即可。其中 icon.ico 为 16x16 的图标文件，
颜色不要超过 16 色。

把滚动条放在浏览器窗口的左边
A:在中加 dir=RTL，即

[复制] [运行] [保存]

让背景图不滚动
IE浏览器支持一个 Body 属性 bgproperties，它可以让背景不滚动:

[复制] [运行] [保存]

删除确认：

[复制] [运行] [保存]

隐藏状态栏中的链接地址：

[复制] [运行] [保存]

kstatus();
function kstatus(){
self.status="GBlog () ";
setTimeout("kstatus()",0);
}

自定义指定区域的文字大小：

[复制] [运行] [保存]

sdrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

【大中小】

function doZoom(size){
document.getElementById('zoom').style.fontSize=size+'px'
}

Input输入框文字效果：

[复制] [运行] [保存]

通过层来实现渐淡淡出

[复制] [运行] [保存]

function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=50
}

ywicc.com

网页屏保

[复制] [运行] [保存]

让标题动态

[复制] [运行] [保存]

隐去浏览器中当鼠标移到图片上跳出的工具栏

[复制] [运行] [保存]

或者

[复制] [运行] [保存]

在form中只有input输入框的情况下...在这个input输入框中按enter进行提交表单

[复制] [运行] [保存]

删除确认

[复制] [运行] [保存]

或
删除
或
删除

返回页面顶部：

[复制] [运行] [保存]

javascript:window.scroll(0,0)

离开页面时弹出警告：

[复制] [运行] [保存]

ASP自动解压RAR 文件

Magci

记得以前有个朋友问偶能不能用ASP解压RAR 文件,当时认为好像不行...

不过最近在网上无意间发现了实现该功能的代码...

首先上传一个RAR的解压程序，只需要它的核心程序RAR.EXE就可以了。

然后上传一个执行RAR.EXE的程序CMD.EXE ,最后就开始执行这些程序了。

实现方法:用Server.CreateObject(“WScript.Shell“)执行CMD.EXE运行RAR.EXE文件解压RAR文件.

[复制] [运行] [保存]

〈%

dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso

Mlpath=“E:\page\mian\“　　'//存放RAR.EXE和CMD.EXE的路径

ylj=Server.mappath(“mian“)&“\“　'//解压文件后所放的路径

ywj=Server.mappath(“mian\apathy.rar“)　'//要解压的RAR文件

Set Shell = Server.CreateObject(“WScript.Shell“)

rarcomm= “E:\page\mian\cmd.exe /c “&Mlpath&“rar.exe x -t -o+ -p- “

cmd=rarcomm&ywj&“ “&ylj

RetCode = Shell.Run(cmd,1, True)

%〉

BLOG系统更新—优化评论留言审核功能

Magci

上次做的评论留言审核功能只试用了一天就发现好多问题：

最明显的是提交评论或留言后，页面上什么都米有，会误认为自己米有提交成功，又提交了N次。。。

于是改进了审核系统，提交后页面上会显示“评论/留言正在审核中,请耐心等待...”，管理员登录后无需进入后台，在页面上就可以看到内容，并审核。

下面以留言审核功能为例简要记录下该功能的实现：

[复制] [运行] [保存]

'//显示内容
If RS_GB("gb_IsShow") or memStatus="SupAdmin" Then
    Response.Write(Ubbcode(HTMLEncode(RS_GB("gb_Content")),0,0,0,1,0))
Else
    Response.Write("留言正在审核中,请耐心等待...")
End If

'//审核
If not RS_GB("gb_IsShow") Then
Response.Write(" | 审核")
End If

'//调用
If Request.QueryString("action")="shgb" Then
    IF IsInteger(Request.QueryString("gbID"))=False Then
        msg_Title="出现错误"
        msg_Content="参数出现错误，点击返回上一页"
    Else
        IF Not (memStatus="SupAdmin" OR memStatus="Admin") Then
            msg_Title="出现错误"
            msg_Content="你没有权限审核留言，点击返回上一页"
        Else
            Dim sh_GB
            Set sh_GB=Conn.ExeCute("SELECT gb_ID,gb_Author FROM blog_Guestbook WHERE gb_ID="&CheckStr(Request.QueryString("gbID")))
            SQLQueryNums=SQLQueryNums+1
            IF sh_GB.EOF AND sh_GB.BOF Then
                msg_Title="出现错误"
                msg_Content="没有找到指定留言，点击返回上一页"
            Else
                Conn.ExeCute("UPDATE blog_Guestbook SET gb_IsShow=True WHERE gb_ID="&CheckStr(Request.QueryString("gbID"))&"")
                SQLQueryNums=SQLQueryNums+1
                msg_Title="审核通过"
                msg_Content="留言审核通过，点击返回"
            End IF
            Set sh_GB=Nothing
        End If
    End IF
    Response.Write("

"&msg_Title&"

"&msg_Content&"

VB中用FSO读取文件信息

Magci

最近在用VB写音乐自动更新系统时发现在VB中也可以使用FSO功能.
刚写了一个读取文件路径的VB程序练练手:

工程→引用→Microsoft Scripting Runtime

[复制] [运行] [保存]

Function GetFile(url)
    Dim fso As New FileSystemObject
    Dim file, folder
    Set folder = fso.GetFolder(url)
    If Not fso.FolderExists(url) Then
        Exit Function
    End If
    For Each file In folder.Files
        Debug.Print file
    Next
    For Each subfolder In folder.SubFolders
        GetFile subfolder
    Next
End Function

BLOG系统更新—增加评论留言审核功能

Magci

为了防止恶意广告刷屏，增加了评论留言审核功能。

这个BLOG系统的后台没有评论留言审核功能（当初为了提高自己的技术，找了一个几乎只有发表日志功能的BLOG系统，其他的功能自己以后慢慢加上去），自己写了这个评论留言审核系统。

下面以留言审核功能为例简要记录下该功能的实现：
-----------------------------------------------------------------------------------------
一、数据库设计：
在blog_Guestbook表中增加字段gb_IsShow作为判断是否通过审核的标志：
数据类型：是/否；
默认值：False

二、显示页面改进：

将原数据库查询语句：

[复制] [运行] [保存]

SQL="SELECT * FROM blog_Guestbook WHERE "&SQLFiltrate&" ORDER BY GB_ID DESC"
改为：
SQL="SELECT * FROM blog_Guestbook WHERE gb_IsShow=True "&SQLFiltrate&" ORDER BY GB_ID DESC"

三、后台审核页面设计：

[复制] [运行] [保存]

留言审核

<%ElseIF Request.QueryString("action")="gbcheck" Then%>


    <%=SiteName%> 留言验证


    <%IF Request.QueryString("type")="gbcheckedit" Then
        IF CheckStr(Request.QueryString("gbID"))=Empty Then
            Response.Write("参数错误，点击返回上一页")
        Else
            Conn.ExeCute("UPDATE blog_Guestbook SET gb_IsShow=True WHERE gb_ID="&CheckStr(Request.QueryString("gbID"))&"")
            SQLQueryNums=SQLQueryNums+1
            Response.Write("留言审核通过，点击返回")
        End IF
    ElseIF Request.QueryString("type")="gbcheckdele" Then
        IF CheckStr(Request.QueryString("gbID"))=Empty Then
            Response.Write("参数错误，点击返回上一页")
        Else
            Conn.ExeCute("DELETE * FROM blog_Guestbook WHERE gb_ID="&CheckStr(Request.QueryString("gbID"))&"")
            SQLQueryNums=SQLQueryNums+1
            Response.Write("留言删除成功，点击返回")
        End IF
    Else
        Dim blog_gbCheck
        Set blog_gbCheck=Conn.Execute("SELECT * FROM blog_Guestbook WHERE gb_IsShow=False ")
        SQLQueryNums=SQLQueryNums+1
        IF blog_gbCheck.EOF AND blog_gbCheck.BOF Then
            Response.Write("暂时没有需要审核的留言")
        Else
            Response.Write("作者留言内容操作")
            Do While Not blog_gbCheck.EOF
                Response.Write(""&HTMLEncode(blog_gbCheck("gb_Author"))&""&HTMLEncode(blog_gbCheck("gb_Content"))&"通过审核  |  删除留言")
                blog_gbCheck.MoveNext
            Loop
            Response.Write("

")
        End IF
        Set blog_gbCheck=Nothing
    End IF%>