博文
使用ASP创建数组(2008-08-09 11:28:00)
摘要：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% '判断传递的值是否为数组,如果为空的话，就分配一个空数组 function arrayize(value) if isarray(value) then arrayize=value elseif isEmpty(value) then arrayize=array() else arrayize=array(value) end if end function function [](value) []=arrayize(value) end function %>
<% '打印数组 sub println(line) for each l in [](line) response.write(l) next end sub %><%'调用println过程call println(array("BEJ"," OLYMPIC", " GAME"," I"," LOVE"," CHINA"))%>
结果显示:
BEJ OLYMPIC GAME I LOVE CHINA......
实现中英文版网站的转换(2008-03-07 22:57:00)
摘要： 这篇文章主要讲实现中英文版网站转换的两种方法。第一种方法，建立数据表的时候增加另外一个字段，目的用来存放英文的内容。例如：字段NewsContent用来存放中文的内容，那么NewsContenten就用来存放英文的内容了；同时图片又要做两份了,图片的规定如下：例如中文的就保存为xx.jpg,英文的就要保存为xx_en.jpg。中英版网站切换的时候就要用到语言包来实现了，即系language.asp。以下就是language.asp的实现代码：
<%dim lan,Tlan=ucase(request("lng")) '获得语言种类
select case lan case "CHN" '中文 Session("Language")=1
case "EN" '英语 session("Language")=2
case else Session("Language")=3end sel......
记录我学习ASP For AJAX的旅程三(2007-09-24 16:21:00)
摘要：上一篇我做了一个简单的无刷新的留言功能,接下来这一篇,我做了一个简单实用的asp ajax的分页例子,我学习的代码如下:
function.asp:
<script language="javascript" type="text/javascript"> function pagesort(page) { var url='page.asp'; var pars='page='+page; var LoadZone = document.createElement('div'); LoadZone.setAttribute('id', 'Load'); LoadZone.innerHTML = "Loading......"; $('pagecontent').appendChild(LoadZone); var myAjax=new Ajax.Request( url, { method:'get', parameters:pars, onComplete:showResponse }); &nb......
记录我学习ASP For AJAX的旅程二(2007-09-21 15:46:00)
摘要：记录我学习ASP For AJAX的旅程，做了一个简单的发布留言的功能，但是体验性不错。
<!--#include file="../ajaxed.asp"--><%'实例化对象pset p=new ajaxedPage
'打开数据库连接p.DBConnection=true
'加载整个页面p.draw()
'初始化页面sub init():end sub
sub callback(action) if action = "do" then p.return(dos(p.RF("tle"),p.RF("uname"),p.RF("mal"),p.RF("ste"),p.RF("cent"))) end ifend sub
function dos(tle,uname,mal,ste,cent) if Not p.RFHas("tle") then lib.error("Please check the toic!") elseif Not p.RFHas("uname") then lib.error("Please check the name!") elseif Not str.isValidEmail(mal) or Not p.RFHas("mal") then lib.error("Please check the email!") elseif Not str.isValidHomepage(ste) or Not p.RFHas("ste") then lib.error("Please check the website!") elseif Not P.RFHas("cent") then &......
记录我学习ASP For AJAX的旅程一(2007-09-21 00:36:00)
摘要：<!--#include file="../ajaxed.asp"--><%set p=new ajaxedPage
'db.open(AJAXED_CONNSTRING)
p.DBConnection=true
p.draw()
sub init():end sub
sub callback(action) if action = "do" then p.return(db.getRecordset("Insert Into [tt](Title,Content)values('"& p.RF("tle") & "','" & p.RF("cent") & "')")) end ifend sub
sub main()%> <script> function done() { $("showinfo").innerHTML="Successfully inserted!"; } </script> <form id="frm"> <div id="showinfo"></div> <span><input type="text" id="tle" name="tle" /></span><br /><br /> <span><input type="text" id="cent" name="cent" /></span><br /><......