网站多语言定义函数可用于系统提示
本函数用ASP代码开发,可用于系统提示,也可用于网站的多语言定义开发
以下是函数全部内容,以系统提示文本为范例
<%
Function Language(Page,Num)' 函数名Language(参数,数字)
Dim Lang(20)
Select Case Page
Case "Public"
Lang(0)="网站系统运行错误"
Lang(1)="多语言定义函数错误描述"
Lang(2)="查询数据的时候发现错误,系统已经关闭!"
Lang(3)="系统信息"
Lang(4)="秒后,页面将自动跳转,如不能自动跳转您可以点击这里"
Lang(5)="验证码,看不清楚?请点击刷新验证码"
Lang(6)="对不起,网站系统已暂停新会员注册"
Lang(7)="返回首页 >>"
Lang(8)="系统不允许从外部提交"
Lang(9)="抱歉,您输入的网站验证码不正确."
Lang(10)="您的IP已经被封锁!"
Lang(11)="系统关闭,维护中..."
Lang(12)="模板加载出错"
Lang(13)="本系统限制数据提交间隔时间为10分钟 ,请稍后再发"
Lang(14)="参数不足够,无法进行操作"
Lang(15)="请先选择您要上传的文件!"
Lang(16)="抱歉,您提取的非法文件!"
Lang(17)="抱歉,您要提取的文件已经删除,请联系管理员."
Case "Index"
Lang(0)="首页"
Lang(1)="设 定 数 量"
Lang(2)="上 传"
Lang(3)="验证码"
Case "Get"
Lang(0)="提取文件"
Lang(1)="系统提示:\n\n\请输入文件提取码!"
Lang(2)="系统提示:\n\n\提取码错误或者文件已经过期."
Case "MyFiles"
Lang(0)="我的上传记录"
Lang(1)="上传记录清除完毕"
Lang(2)="您的上传记录为空,请上传文件。"
End Select
Language=Lang(Num)
End Function
%>
例如调取:<%=Language(中文,数字)%>或<%=Language(英文,数字)%>
以下是函数全部内容,以系统提示文本为范例
<%
Function Language(Page,Num)' 函数名Language(参数,数字)
Dim Lang(20)
Select Case Page
Case "Public"
Lang(0)="网站系统运行错误"
Lang(1)="多语言定义函数错误描述"
Lang(2)="查询数据的时候发现错误,系统已经关闭!"
Lang(3)="系统信息"
Lang(4)="秒后,页面将自动跳转,如不能自动跳转您可以点击这里"
Lang(5)="验证码,看不清楚?请点击刷新验证码"
Lang(6)="对不起,网站系统已暂停新会员注册"
Lang(7)="返回首页 >>"
Lang(8)="系统不允许从外部提交"
Lang(9)="抱歉,您输入的网站验证码不正确."
Lang(10)="您的IP已经被封锁!"
Lang(11)="系统关闭,维护中..."
Lang(12)="模板加载出错"
Lang(13)="本系统限制数据提交间隔时间为10分钟 ,请稍后再发"
Lang(14)="参数不足够,无法进行操作"
Lang(15)="请先选择您要上传的文件!"
Lang(16)="抱歉,您提取的非法文件!"
Lang(17)="抱歉,您要提取的文件已经删除,请联系管理员."
Case "Index"
Lang(0)="首页"
Lang(1)="设 定 数 量"
Lang(2)="上 传"
Lang(3)="验证码"
Case "Get"
Lang(0)="提取文件"
Lang(1)="系统提示:\n\n\请输入文件提取码!"
Lang(2)="系统提示:\n\n\提取码错误或者文件已经过期."
Case "MyFiles"
Lang(0)="我的上传记录"
Lang(1)="上传记录清除完毕"
Lang(2)="您的上传记录为空,请上传文件。"
End Select
Language=Lang(Num)
End Function
%>
例如调取:<%=Language(中文,数字)%>或<%=Language(英文,数字)%>