FDS's Blog » 实例

ASP生成静态html页面简单实例

FDS — Mon, 29 Dec 2008 01:21:21 +0000

为了SEO，静态化页面是一个重要的步骤，这里介绍一个ASP生成静态html页面简单实例，比较易懂，看以下代码，可以亲自试试看，让后自己在改变下。

createhtml.asp
<%
filename=”test.html”
if request(“body”)<>”" then
set fso = Server.CreateObject(“Scripting.FileSystemObject”)
set fout = fso.CreateTextFile(server.mappath(“”&filename&”"))
fout.write “标题(title):” & request.form(“title”) & “
”
fout.write “内容(body):” & request.form(“body”)
fout.close
set fout=nothing
set fso=nothing
end if
%>

然后在浏览器输入打开createhtml.asp这个页面，填写完毕后，就会生成test.html这个文件，里面的内容就是你刚才填写的。

asp的转换函数和应用实例

FDS — Thu, 20 Nov 2008 14:15:22 +0000

Variant变量一般会将其代表的数据子类型自动转换成合适的数据类型,但有时候,自动转换也会造成一些数据类型不匹配的错误.这时,可使用转换函数来强制转换数据的子类型.

函数	功能
Asc 函数	返回与字符串的第一个字母对应的 ANSI 字符代码。
Chr 函数	返回与指定的 ANSI 字符代码相对应的字符
Hex 函数	返回表示十六进制数字值的字符串。
Oct 函数	返回表示数字八进制值的字符串。
CStr 函数	返回表达式，该表达式已被转换为字符串子类型。
CDate 函数	返回表达式，此表达式已被转换为日期子类型。
CInt 函数	返回表达式，此表达式已被转换为整数子类型。
CLng 函数	返回表达式，此表达式已被转换为长整数子类型
CSng 函数	返回表达式，该表达式已被转换为 Single 子类型
CDbl 函数	返回表达式，此表达式已被转换为 Double 子类型
CBool 函数	返回表达式，此表达式已转换为布尔子类型

1、Asc 函数示例

下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码:

Dim MyNumberMyNumber = Asc(“A”) ‘返回 65。MyNumber = Asc(“a”) ‘返回 97。MyNumber = Asc(“Apple”) ‘返回 65。2、Chr 函数示例下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:

Dim MyCharMyChar = Chr(65) ‘返回 A。MyChar = Chr(97) ‘返回 a。MyChar = Chr(62) ‘返回 >。MyChar = Chr(37) ‘返回 %。3、Hex 函数示例下面的示例利用 Hex 函数返回数字的十六进制数：

Dim MyHexMyHex = Hex(5) ‘ 返回 5。MyHex = Hex(10) ‘ 返回A。MyHex = Hex(459) ‘ 返回 1CB。4、Oct 函数示例下面的示例利用 Oct 函数返回数值的八进制数：Dim MyOctMyOct = Oct(4) ‘ 返回 4。MyOct = Oct(8) ‘ 返回 10。MyOct = Oct(459) ‘ 返回 713。5、 CStr 函数示例

<% num1=666 StrWelcome=”欢迎第”&CStr(num1)&”个来访者” %>CStr将变量num1由整数子类型强制转换为字符串子类型6、CDate 函数示例

MyDate = “October 19, 1962″ ‘ 定义日期。

MyShortDate = CDate(MyDate) ‘ 转换为日期数据类型。

MyTime = “4:35:47 PM” ‘ 定义时间。

MyShortTime = CDate(MyTime) ‘ 转换为日期数据类型。

7、CInt 函数示例

Dim MyDouble, MyInt

MyDouble = 2345.5678 ’ MyDouble 是 Double。

MyInt = CInt(MyDouble) ‘ MyInt 包含 2346。

8、CLng 函数示例

Dim MyVal1, MyVal2, MyLong1, MyLong2

MyVal1 = 25427.45: MyVal2 = 25427.55 ’ MyVal1, MyVal2 是双精度值。

MyLong1 = CLng(MyVal1) ‘ MyLong1 25427。

MyLong2 = CLng(MyVal2) ‘ MyLong2 包含 25428 。

9、CBool 函数示例

Dim A, B, Check

A = 5: B = 5 ’ 初始化变量。

Check = CBool(A = B) ‘复选框设为 True 。

A = 0 ’定义变量。

Check = CBool(A) ‘复选框设为 False 。

用JavaScript验证表单中的email地址是否合法完整实例

FDS — Thu, 20 Nov 2008 02:09:11 +0000

在设计表单是，经常要遇到要求输入EMAIL的。这里就用一个完整实例来说明用JavaScript验证email地址的完美方法。

以下是代码部分。

<html> <head> <title>验证email地址是否合法</title> <script language="JavaScript">  function char_test(chr) //字符检测函数 { var i; var smallch="abcdefghijklmnopqrstuvwxyz"; var bigch="ABCDEFGHIJKLMNOPQRSTUVWXYZ"; for(i=0;i<26;i++) if(chr==smallch.charAt(i) || chr==bigch.charAt(i)) return(1); return(0); } function spchar_test(chr) //数字和特殊字符检测函数 { var i; var spch="_-.0123456789"; for (i=0;i<13;i++) if(chr==spch.charAt(i)) return(1); return(0); } function email_test(str) { var i,flag=0; var at_symbol=0; //“@”检测的位置 var dot_symbol=0; //“.”检测的位置 if(char_test(str.charAt(0))==0 ) return (1); //首字符必须用字母 for (i=1;i<str.length;i++) if(str.charAt(i)=='@') { at_symbol=i; break; } //检测“@”的位置 if(at_symbol==str.length-1 || at_symbol==0) return(2); //没有邮件服务器域名 if(at_symbol<3) return(3); //帐号少于三个字符 if(at_symbol>19 ) return(4); //帐号多于十九个字符 for(i=1;i<at_symbol;i++) if(char_test(str.charAt(i))==0 && spchar_test(str.charAt(i))==0) return (5); for(i=at_symbol+1;i<str.length;i++) if(char_test(str.charAt(i))==0 && spchar_test(str.charAt(i))==0) return (5); //不能用其它的特殊字符 for(i=at_symbol+1;i<str.length;i++) if(str.charAt(i)=='.') dot_symbol=i; for(i=at_symbol+1;i<str.length;i++) if(dot_symbol==0 || dot_symbol==str.length-1) //简单的检测有没有“.”，以确定服务器名是否合法 return (6); return (0); //邮件名合法 } </script> </head> <body> <form method="POST" name="emal" onSubmit="return mail_process(email_add.value)"> <p>请输入您的E-mail地址： <input type="text" name="email_add" size="20" > <input type="submit" value="确定" name="B1"></p> </form> </body> </html>

提示：你可以先修改部分代码再运行。

在JavaScript中创建对象的实例二

FDS — Thu, 16 Oct 2008 01:01:47 +0000

在JavaScript中创建对象的实例二，颜色变化的例子。

<html> <head> <script>  </script> <body> </body> </html>

提示：你可以先修改部分代码再运行。

在JavaScript中创建对象的实例一

FDS — Wed, 15 Oct 2008 01:08:56 +0000

在JavaScript中创建对象的实例一，一个动态文字滚动的例子。

<html> <head> <title></title> <script LANGUAGE="JavaScript"> 　 with (top.window.location) {baseURL = href.substring (0,href.lastIndexOf ("/") + 1)} total_toc_items = 0; current_overID = ""; last_overID = ""; browser = navigator.appName; version = parseInt(navigator.appVersion); client=null; loaded = 0; if (browser == "Netscape" && version >= 3) client = "ns3"; function toc_item (img_name,icon_col,width,height) { if (client =="ns3") { img_prefix = baseURL + img_name; this.icon_col = icon_col; this.toc_img_off = new Image (width,height); this.toc_img_off.src = img_prefix + "_off.gif"; this.toc_img_on = new Image (width,height); this.toc_img_on.src = img_prefix + "_on.gif"; } } 　 function new_toc_item (img_name,icon_row,width,height) { toc_item [img_name] = new toc_item (img_name,icon_row,width,height); } 　 function toc_mouseover (itemID) { if (client =="ns3") { current_overID = itemID; if (current_overID != last_overID) { document [current_overID].src = toc_item [current_overID].toc_img_on.src; if (last_overID != "") { document.images [last_overID].src = toc_item[last_overID].toc_img_off.src; } last_overID = current_overID; } } } 　 function toc_mouseout () { if (client =="ns3") { if (current_overID != "") { document.images [current_overID].src = toc_item [current_overID].toc_img_off.src; } current_overID = ""; last_overID = ""; } } new_toc_item ("1",2,120,20); <!-- Begin function bannerObject(p){ this.msg = MESSAGE this.out = " " this.pos = POSITION this.delay = DELAY this.i = 0 this.reset = clearMessage} 　 function clearMessage(){ this.pos = POSITION} var POSITION = 50; var DELAY = 150; var MESSAGE = "这是一个动态JavaScript文字显示的例子"; var scroll = new bannerObject(); function scroller(){ scroll.out += " "; if(scroll.pos>0) for (scroll.i = 0; scroll.i < scroll.pos; scroll.i++) { scroll.out +=" " ; } if (scroll.pos>= 0) scroll.out += scroll.msg else scroll.out = scroll.msg.substring(-scroll.pos,scroll.msg.length) document.noticeForm.notice.value = scroll.out scroll.out = " "; scroll.pos--; scroll.pos--; if (scroll.pos < -(scroll.msg.length)) { scroll.reset(); } setTimeout ('scroller()',scroll.delay);} </script> </head> <body onload="scroller()" bgcolor="#000000" link="#C0C0C0" vlink="#C0C0C0" alink="#008080" text="#C0C0C0"> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><form NAME="noticeForm"> <p><input TYPE="text" name="notice" size="40" style="background-color: rgb(192,192,192)"></p> </form> </td> </tr> </table> </center></div> </body> </html>

提示：你可以先修改部分代码再运行。

自动装载和自动卸载的例子，JavaScript程序构成四

FDS — Tue, 15 Jul 2008 02:26:23 +0000

下例程序是一个自动装载和自动卸载的例子。即当装入HTML文档时调用loadform()函数,而退出该文档进入另一HTML文档时则首先调用unloadform()函数,确认后方可进入。

<HTML> <HEAD> <script Language="JavaScript">  </Script> </HEAD> <BODY OnLoad="loadform()" OnUnload="unloadform()"> 关闭窗口看看！ </BODY> </HTML>

提示：你可以先修改部分代码再运行。