博文
使用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"))
......
实现中英文版网站的转换(2008-03-07 22:57:00)
摘要： 这篇文章主要讲实现中英文版网站转换的两种方法。第一种方法，建立数据表的时候增加另外一个字段，目的用来存放英文的内容。例如：字段NewsContent用来存放中文的内容，那么NewsContenten就用来存放英文的内容了；同时图片又要做两份了,图片的规定如下：例如中文的就保存为xx.jpg,英文的就要保存为xx_en.jpg。中英版网站切换的时候就要用到语言包来实现了，即系language.asp。以下就是language.asp的实现代码：
<%
dim lan,T
lan=ucase(request("lng")) '获得语言种类
select case lan
case "CHN" '中文
Session("Language")=1
case "EN" '英语
session("Language")=2
case else
Sess......
记录我学习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
......
记录我学习ASP For AJAX的旅程二(2007-09-21 15:46:00)
摘要：记录我学习ASP For AJAX的旅程，做了一个简单的发布留言的功能，但是体验性不错。
<!--#include file="../ajaxed.asp"-->
<%
'实例化对象p
set 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 if
end 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......
记录我学习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 if
end 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&......