用ASP实现二级域名
要达到二级名的效果，必须一下条件以及流程：
1、必须有一个顶级域名，而且此域名必须做好泛解析并做好指向。
2、必须有一台独立的服务器。泛解析的域名指向该服务器。
3、在服务器上的IIS建一个空的主机头名的web站点。
4、将默认的页面设置为你的二级解析程序（比如：freedns.asp）
5、二级域名系列程序（包括申请页：shenqing.htm，添加页add.asp,解析页，）
此程序的优点：
a，可以限制申请域名的敏感字,比如 hacker,wwww,sex,china等
b, 可以限制申请域名的非法字，比如：！·#￥%……—*（）——？‘“/等
c, 每个地址只能申请一个域名。
d，限制申请域名的长度，
e, 如果用户所访问的域名没人申请则转到特定的页面，本例中的http://www.51bxg.com/miss.html
f, 申请了域名：***.yourname.com 可以同时支持：http://***.yourname.com 以及http://www.***.youranme.com 两个域名的访问。
一下为系列程序代码：
shenqing.htm
<form action=adddns.asp method=post name=Frm onSubmit="return check_input()">
<font colo ......
用ASP做网站的时候经常会碰到要截取字符串的情况。ASP中的Len函数不管是中文字符，还是英文字符，统统按一个单位来计算，由于一个中文字符的宽度是一个英文字符宽度的两倍，在中英文混合的情况下字符串实际占用的宽度就不好计算了，如果按照Len函数计算的长度来截取字符串截出来的效果也会长短不一，下面是按照一个汉字相当于两个英文字符来计算字符串长度和截取字符串的代码
计算中英文混合字符串的长度：
function getStringLen(str)
on error resume next
dim l,c,i,t
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c>=128 or c<0 then t=t+1
next
getStringLen=t
if err.number<>0 then err.clear
end function
截取字符串：
function getSubString(str,Length)
on error resume next
dim l,c,i,hz,en
l=len(str)
if l<length then
getSubString=str
else
hz=0
en=0
for i=1 to l
c=asc(mid(str,i,1))
if c>=128 or c<0 then
hz=hz+1
else
en=en+1
end if
if en\2+hz>=length then
exit for
end if
next
getSubStr ......
dim arr(36),xx,tt,tmp
for xx=1 to 36
arr(xx-1)=xx
next
for xx=1 to 5
Randomize
tt=clng((ubound(arr)-xx)*rnd())
response.write(arr(tt) & "<br>")
tmp=arr(tt)
arr(tt)=arr(ubound(arr)-xx)
arr(ubound(arr)-xx)=tmp
next
上面一段是从1-36之间随机取5个不重复数的代码，编码的原理是先把1-36之间的所有整数放到一个数组里面，第一次从1-36里随机1个整数作为索引取出数组中对应的成员，然后与第36个成员互换，第二次再从1-35里随机取1个整数作为索引取出数组中对应的成员，然后再与第35个互换，第三次再从1-34里随机取一个整数作索引取出数组中对应的成员，然后再与第34个成员互换，循环下去直到取够数量。 ......
ajax+asp.net+mssql实现的ajax无刷新聊天室，支持html web编辑器。
为了加快速度，使用了存储过程。
asp及php版本请看下面的文章
ajax+asp+mssql无刷新聊天室
ajax+php+mssql无刷新聊天室
此例子也可以作为mssql存储过程使用的示例，如php调用mssql的存储过程，php获取mssql数据库的输出参数。
要使用不同的动态页面，只需要更改lib.js文件中RequstUrl变量的值即可。
完整示例下载
效果如下
var Showbo={author:'showbo',homepage:'http://www.code-design.cn'};
Showbo.IsIE=!!document.all;
Showbo.IsFireFox=navigator.userAgent.indexOf("Firefox")!=-1;
Showbo.trim=function(v,reg){if(reg)return v.replace(reg,'');else return v.replace(/^\s*|\s*$/,'');}
Showbo.getJson=function(v){return eval('('+v+')');}
//获取某个对象的绝对位置
Showbo.getAbsPos=function(o,addXY){o=Showbo.$(o);var p=new Object();p.x=o.offsetLeft;p.y=o.offsetTop;while(o=o.offsetParent){p.x+=o.offsetLeft;p.y+=o.offsetTop;}if(addXY){if(!isNaN(addXY.x))p.x+=addXY.x;if(!isNaN(addXY.y))p.y+=addXY.y;}return p;}
Showbo.$=function(Id,isFrame){
var o ......
ajax+asp.net+mssql实现的ajax无刷新聊天室，支持html web编辑器。
为了加快速度，使用了存储过程。
asp及php版本请看下面的文章
ajax+asp+mssql无刷新聊天室
ajax+php+mssql无刷新聊天室
此例子也可以作为mssql存储过程使用的示例，如php调用mssql的存储过程，php获取mssql数据库的输出参数。
要使用不同的动态页面，只需要更改lib.js文件中RequstUrl变量的值即可。
完整示例下载
效果如下
var Showbo={author:'showbo',homepage:'http://www.code-design.cn'};
Showbo.IsIE=!!document.all;
Showbo.IsFireFox=navigator.userAgent.indexOf("Firefox")!=-1;
Showbo.trim=function(v,reg){if(reg)return v.replace(reg,'');else return v.replace(/^\s*|\s*$/,'');}
Showbo.getJson=function(v){return eval('('+v+')');}
//获取某个对象的绝对位置
Showbo.getAbsPos=function(o,addXY){o=Showbo.$(o);var p=new Object();p.x=o.offsetLeft;p.y=o.offsetTop;while(o=o.offsetParent){p.x+=o.offsetLeft;p.y+=o.offsetTop;}if(addXY){if(!isNaN(addXY.x))p.x+=addXY.x;if(!isNaN(addXY.y))p.y+=addXY.y;}return p;}
Showbo.$=function(Id,isFrame){
var o ......
ajax+asp.net+mssql实现的ajax无刷新聊天室，支持html web编辑器。
为了加快速度，使用了存储过程。
asp及php版本请看下面的文章
ajax+asp+mssql无刷新聊天室
ajax+php+mssql无刷新聊天室
此例子也可以作为mssql存储过程使用的示例，如php调用mssql的存储过程，php获取mssql数据库的输出参数。
要使用不同的动态页面，只需要更改lib.js文件中RequstUrl变量的值即可。
完整示例下载
效果如下
var Showbo={author:'showbo',homepage:'http://www.code-design.cn'};
Showbo.IsIE=!!document.all;
Showbo.IsFireFox=navigator.userAgent.indexOf("Firefox")!=-1;
Showbo.trim=function(v,reg){if(reg)return v.replace(reg,'');else return v.replace(/^\s*|\s*$/,'');}
Showbo.getJson=function(v){return eval('('+v+')');}
//获取某个对象的绝对位置
Showbo.getAbsPos=function(o,addXY){o=Showbo.$(o);var p=new Object();p.x=o.offsetLeft;p.y=o.offsetTop;while(o=o.offsetParent){p.x+=o.offsetLeft;p.y+=o.offsetTop;}if(addXY){if(!isNaN(addXY.x))p.x+=addXY.x;if(!isNaN(addXY.y))p.y+=addXY.y;}return p;}
Showbo.$=function(Id,isFrame){
var o ......
asp.net中打开新窗口的多种方法(转载)
1.Response.Redirect("XXX.aspx",true)——直接转向新的页面，原窗口被代替;
2. Response.Write("
")——打开新的页面，原窗口被代替;
4.Server.Transfer("XXX.aspx")——打开新的页面;
5.Response.Write("
......
<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
xml.load(server.mappath("style.xml"))
if xml.parseError.errorCode <> 0 then
Response.Write "xml.parseError.errorCode = " &xml.parseError.errorCode
Response.Write "xml.parseError.reason = " &xml.parseError.reason
Response.Write "xml.parseError.line = " &xml.parseError.line
Response.End
end if
' '查找一个节点对象
' Set Root = xml.documentElement
' set allitem=R ......
最新文章 :