1.1将HTML标记转化为普通字符:
server.HtmlEncode(Content)
1.2将HTML标记转化为普通字符且转换文本中所有的超链接和电子邮件格式
<%
Function to_html(s_string)
to_html = Replace(s_string, """", """)
to_html = Replace(to_html, "<", "<")
to_html = Replace(to_html, ">", ">")
to_html = Replace(to_html, vbcrlf, "<br>")
to_html = Replace(to_html, "/<", "<")
to_html = Replace(to_html, "/>", ">")
to_html = edit_hrefs(to_html)
End Function
%>
<script language="javascript1.2" runat=server>
function edit_hrefs(s_html){
// 一个使用正则表达式的典范
// 转换文本中所有的超链接和电子邮件格式
s_str = new String(s_html);
s_str = s_str.replace(//bhttp/:www(/.[/w+/./:///_]+)/gi,
"http/:¬¤¸$1");
s_str = s_str.replace(//b(http/:/w+/.[/w+/./:///_]+)/gi,
"<a href=/"$1/">$1<//a>");
s_str = s_str.replace(//b(www/.[/w+/./:///_]+)/gi,
"<a href=/"http://$1/">$1</a>");
s_str = s_str.replace(//bhttp/:¬¤¸(/.[/w+/./:///_]+)/gi,
"<a href=/"http/:www$1/">http/:www$1</a>");
s_str = s_str.replace(//b(/w+@[/w+/.?]*)/gi,
"<a href=/"mailto/:$1/">$1</a>");
return s_str;
}
</script>
---------------------
2、身份证号码验证函数:(javascript)
function checkCard(dcardid)
{
var pattern;
if (dcardid.length==15)
{
pattern= /^/d{15}$/;//正则表达式,15位且全是数字
if (pattern.exec(dcardid)==null)
{
alert("15位身份证号码必须为数字!")
return false;
}
if (!isdate("19"+dcardid.substring(6,8),dcardid.substring(8,10),dcardid.substring(10,12)))
{
alert("身份证号码中所含日期不正确")
return false;}
}
else if (dcardid.length==18)
{
pattern= /^/d{17}(/d|x|X)$/;//正则表达式,18位且前17位全是数字,最后一位只能数字,x,X
if (pattern.exec(dcardid)==null)
{
alert("18位身份证号码必须为数字!")
return false;
}
if (!isdate(dcardid.substring(6,10),dcardid.substring(10,12),dcardid.substring(12,14)))
{
alert("身份证号码中所含日期不正确")
return false;
}
var strJiaoYan =[ "1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2"];
var intQuan =[7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1];
var intTemp=0;
for(i = 0; i < dcardid.length - 1; i++)
intTemp += dcardid.substring(i, i + 1) * intQuan[i];
intTemp %= 11;
if(dcardid.substring(dcardid.length - 1,dcardid.length).toUpperCase()!=strJiaoYan[intTemp])
{
alert("身份证末位验证码失败!")
return false;
}
}
else
{
alert("身份证号长度必须为15或18!")
return false;
}
return true;
}
-----------------------------------------------------------------------------------------------------------------------
3、验证必需为中文:(javascript)
var str="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./'[]{}`1234567890-=/~!@#$%^&*()_+|?><:";
var errorChar
errorChar = isCharsInBag(表单需验证的参数,str)
if (errorChar != "" )
{
alert('联系人姓名必须是中文!');
postart.dusername.focus();
return false;
}
function isCharsInBag (s, bag)
{
var i,c;
for (i = 0; i < s.length; i++)
{
c = s.charAt(i);//字符串s中的字符
if (bag.indexOf(c) > -1)
return c;
}
return "";
}
------------------------------------------------------------
4、创建文件
<%
wstr="文件中的文字"
Set fso=Server.CreateObject("Scripting.FileSystemObject")
set fw=fso.createtextfile(server.mappath("adpic/003.htm"),true)
fw.writeline wstr
fw.close
set rs=nothing
set fso=nothing
%>
-----------------------------------------------------------------------------------
5、禁用右键:
<script language="Javascript">
var mMsg = "你的鼠标右键被禁止了!";
function disableRightClick(btnClick)
{
if (navigator.appName == "Netscape" && btnClick.which == 3)
{
alert(mMsg);
return false;
}
else if (navigator.appName =="Microsoft Internet Explorer" && event.button == 2)
{
alert(mMsg);
return false;
}
}
document.onmousedown = disableRightClick;
</script>
----------------------------------------------------------------------------------
6无提示自动关闭窗口(javascript)
function CloseWin()
{
var ua=navigator.userAgent
var ie=navigator.appName=="Microsoft Internet Explorer"?true:false
if(ie){
var IEversion=parseFloat(ua.substring(ua.indexOf("MSIE ")+5,ua.indexOf(";",ua.indexOf("MSIE "))))
if(IEversion< 5.5){
var str = '<object id=noTipClose classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">'
str += '<param name="Command" value="Close"></object>';
document.body.insertAdjacentHTML("beforeEnd", str);
document.all.noTipClose.Click();
}
else{
window.opener =null;
window.close();
}
}
else{
window.close()
}
}
-------------------------------------------------------------------------------------
7 产生不同随机数
Function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum = getRndNumber(Fun_I,unit)
Fun_X = myArray(RndNum)
myArray(RndNum)=myArray(Fun_I)
myArray(Fun_I)=Fun_X
Next
GetRnd = Join(myArray)
End Function
Function getRndNumber(lowerbound,upperbound)
Randomize
getRndNumber=Int((upperbound-lowerbound+1)*Rnd+lowerbound)
End Function
Response.Write GetRnd(1,1000)
%>
------------------------------------------